fixed a bug incorrectly computing FRZMLT

GEOS-ESM · Feb 13, 2025 · 9f13da4 · 9f13da4
1 parent 601eed5
commit 9f13da4
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/MOM6_GEOSPlug/MOM6_GEOSPlug.F90 b/MOM6_GEOSPlug/MOM6_GEOSPlug.F90
@@ -830,10 +830,13 @@ subroutine Run  ( GC, IMPORT, EXPORT, CLOCK, RC )
        endif
 
        where(MOM_2D_MASK(:,:)>0.0)
-          FRZMLT = FRAZIL + MELT_POT
+          FRZMLT = MELT_POT
        elsewhere
           FRZMLT = 0.0
        end where
+       where(MOM_2D_MASK(:,:)>0.0 .and. FRAZIL>0.0)
+          FRZMLT = FRAZIL
+       end where
     end if
 
 !   freezing temperature (deg C)