Bug fix for uninitialized variables in RRTGMP. another one

Author: dustinswales

physics/Interstitials/UFS_SCM_NEPTUNE/GFS_rrtmgp_cloud_mp.F90

@@ -168,6 +168,14 @@ subroutine GFS_rrtmgp_cloud_mp_run(nCol, nLev, nTracers, ncnd, i_cldliq, i_cldic
     errmsg = ''
     errflg = 0
 
+    cld_lwp(:,:)    = 0.0
+    cld_iwp(:,:)    = 0.0
+    cld_rwp(:,:)    = 0.0
+    cld_swp(:,:)    = 0.0
+    cld_reliq(:,:)  = 0.0
+    cld_reice(:,:)  = 0.0
+    cld_resnow(:,:) = 0.0
+    cld_rerain(:,:) = 0.0
     ! ###################################################################################
     ! GFDL Microphysics
     ! ("Implicit" SGS cloud-coupling to the radiation)
@@ -585,10 +593,6 @@ subroutine cloud_mp_uni(nCol, nLev, nTracers, ncnd, i_cldliq, i_cldice, i_cldrai
     endif
 
     ! Cloud water path (g/m2)
-    cld_lwp(:,:) = 0.0
-    cld_iwp(:,:) = 0.0
-    cld_rwp(:,:) = 0.0
-    cld_swp(:,:) = 0.0
     tem1 = 1.0e5/con_g
     do iLay = 1, nLev
        do iCol = 1, nCol