removed obsolete warnings

MintonGroup · Feb 24, 2023 · 8d7a7be · 8d7a7be
1 parent f330154
commit 8d7a7be
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/regolith/regolith_streamtube.f90 b/src/regolith/regolith_streamtube.f90
@@ -330,10 +330,10 @@ subroutine regolith_streamtube(user,surf,crater,domain,ejb,ejtble,xp,yp,xpi,ypi,
          newlayer%distvol(:) = newlayer%distvol(:) + distvol(:)
          newlayer%meltdist(:) = newlayer%distvol(:) / newlayer%totvolume
       end if
-      if (newlayer%meltfrac > 1.0_DP) then
-         write(*,*) "Melt fraction >1! (Traverse)", xpi,ypi,crater%timestamp,crater%fcrat,crater%xlpx,crater%ylpx,&
-          newlayer%meltvolume, newlayer%totvolume, newlayer%ejm, newlayer%ejmf, totvol
-      end if
+      ! if (newlayer%meltfrac > 1.0_DP) then
+      !    write(*,*) "Melt fraction >1! (Traverse)", xpi,ypi,crater%timestamp,crater%fcrat,crater%xlpx,crater%ylpx,&
+      !     newlayer%meltvolume, newlayer%totvolume, newlayer%ejm, newlayer%ejmf, totvol
+      ! end if
 
   end if