From 9f13da4378e7cdd0fcf7a29d91ff8f891b321133 Mon Sep 17 00:00:00 2001 From: bzhao Date: Thu, 13 Feb 2025 17:22:13 -0500 Subject: [PATCH] fixed a bug incorrectly computing FRZMLT --- MOM6_GEOSPlug/MOM6_GEOSPlug.F90 | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/MOM6_GEOSPlug/MOM6_GEOSPlug.F90 b/MOM6_GEOSPlug/MOM6_GEOSPlug.F90 index 58f07b7..9fad2ce 100644 --- 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)