Added UW subsidence tendency to convective source, CNVLZ

GEOS-ESM · Jun 28, 2024 · 4ef766a · 4ef766a
1 parent ef1227d
commit 4ef766a
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSmoist_GridComp/GEOS_MoistGridComp.F90 b/GEOSagcm_GridComp/GEOSphysics_GridComp/GEOSmoist_GridComp/GEOS_MoistGridComp.F90
@@ -13094,6 +13094,7 @@ subroutine MOIST_DRIVER(IM,JM,LM, RC)
       !!if(associated(QSATI   ))   DQS      = GEOS_DQSAT(TEMP, PLO, qsat=QSATi, OVER_ICE=.TRUE. )
       !!if(associated(QSATl   ))   DQS      = GEOS_DQSAT(TEMP, PLO, qsat=QSATl, OVER_LIQUID=.TRUE. )
       if (associated(TI     ))   TI      = (TH1 - TH)*(PLE(:,:,1:LM)-PLE(:,:,0:LM-1))/DT_MOIST
+
       if (associated(UI     ))   UI      = (U1  - U )/DT_MOIST
       if (associated(VI     ))   VI      = (V1  - V )/DT_MOIST
       if(associated(DQLDT   ))   then 
@@ -13180,7 +13181,7 @@ subroutine MOIST_DRIVER(IM,JM,LM, RC)
 
       if (associated(CNVRNZ     ))   CNVRNZ    =  SUM( DQRC  * MASS , 3 )
       if (associated(PDFLZ      ))   PDFLZ     =  SUM( DLPDF_X * MASS , 3 )
-      if (associated(CNVLZ      ))   CNVLZ     =  SUM( DCNVL_X * MASS , 3 )
+      if (associated(CNVLZ      ))   CNVLZ     =  SUM( (DCNVL_X + QLENT_SC + QLSUB_SC) * MASS , 3 )
 
       if (associated(PDFIZ      ))   PDFIZ     =  SUM( DIPDF_X * MASS , 3 )
       if (associated(CNVIZ      ))   CNVIZ     =  SUM( DCNVI_X * MASS , 3 )