Fix microphysics rate accumulation bug when ntimes > 1 (NOAA-GFDL#327)

DusanJovic-NOAA · Mar 6, 2024 · 2c2dcb5 · 2c2dcb5
1 parent 5f24469
commit 2c2dcb5
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/model/gfdl_mp.F90 b/model/gfdl_mp.F90
@@ -1229,7 +1229,7 @@ subroutine mpdrv (hydrostatic, ua, va, wa, delp, pt, qv, ql, qr, qi, qs, qg, &
     ! unit convert to mm/day
     ! -----------------------------------------------------------------------
 
-    convt = 86400. * rgrav / dts
+    convt = 86400. * rgrav / dtm
 
     do i = is, ie
 
@@ -1395,7 +1395,7 @@ subroutine mpdrv (hydrostatic, ua, va, wa, delp, pt, qv, ql, qr, qi, qs, qg, &
         if (fix_negative) &
             call neg_adj (ks, ke, tz, dp, qvz, qlz, qrz, qiz, qsz, qgz, cond)
 
-        condensation (i) = condensation (i) + cond * convt * ntimes
+        condensation (i) = condensation (i) + cond * convt
 
         ! -----------------------------------------------------------------------
         ! fast microphysics loop