From 8d7a7be9076566e9bdcfda3c889e91f1ce66d43a Mon Sep 17 00:00:00 2001 From: Austin Blevins Date: Fri, 24 Feb 2023 09:35:02 -0500 Subject: [PATCH] removed obsolete warnings --- src/regolith/regolith_streamtube.f90 | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/regolith/regolith_streamtube.f90 b/src/regolith/regolith_streamtube.f90 index 4defc428..3ce0ebc0 100644 --- 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