Merge branch 'GF_RadiationUpdate_RevertAerosols' of https://github.co…

…m/hannahcbarnes/ccpp-physics into hannah_GF_RadiationUpdate_RevertAerosols_dom_20210823
SamuelTrahanNOAA · Aug 23, 2021 · fb90295 · fb90295
2 parents a0d11ca + 9bf6335
commit fb90295
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/physics/cu_gf_deep.F90 b/physics/cu_gf_deep.F90
@@ -3975,8 +3975,11 @@ subroutine cup_up_moisture(name,ierr,z_cup,qc,qrc,pw,pwav,     &
      real(kind=kind_phys),    dimension (its:ite,kts:kte)                          &
         ,intent (out  )                   ::                       &
         qc,qrc,pw,clw_all
+     real(kind=kind_phys),    dimension (its:ite,kts:kte)                          &
+        ,intent (inout)                   ::                       &
+        c1d
      real(kind=kind_phys),    dimension (its:ite,kts:kte) ::                       &
-        qch,qrcb,pwh,clw_allh,c1d,c1d_b,t
+        qch,qrcb,pwh,clw_allh,c1d_b,t
      real(kind=kind_phys),    dimension (its:ite)         ::                       &
         pwavh
      real(kind=kind_phys),    dimension (its:ite)                                  &
@@ -4139,8 +4142,6 @@ subroutine cup_up_moisture(name,ierr,z_cup,qc,qrc,pw,pwav,     &
                endif
                if(k.gt.kbcon(i)+1)c1d(i,k)=clwdet*up_massdetr(i,k-1)
                if(k.gt.kbcon(i)+1)c1d_b(i,k)=clwdet*up_massdetr(i,k-1)
-               clw_all(i,k)=max(0.,qc(i,k)-qrch)
-               clw_allh(i,k)=max(0.,qch(i,k)-qrch)
 
                if(autoconv.eq.2) then
 !