bug fix lwp_ex and iwp_ex inside progcld6; factor of 1000

NCAR · Nov 17, 2021 · 3787899 · 3787899
1 parent 8da0705
commit 3787899
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/physics/radiation_clouds.f b/physics/radiation_clouds.f
@@ -3107,6 +3107,8 @@ subroutine progcld6                                               &
             lwp_ex(i) = lwp_ex(i) + cwp(i,k)
             iwp_ex(i) = iwp_ex(i) + cip(i,k) + csp(i,k)
          enddo
+         lwp_ex(i) = lwp_ex(i)*1.E-3
+         iwp_ex(i) = iwp_ex(i)*1.E-3
       enddo
 
       if (uni_cld) then     ! use unified sgs clouds generated outside