Round cloud-fractions to avoid McICA sampling error. In RRTMG as well.

grantfirl · Dec 17, 2019 · 4d3515d · 4d3515d
1 parent 5b02c9e
commit 4d3515d
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 0 deletions.
diff --git a/physics/radlw_main.f b/physics/radlw_main.f
@@ -1022,6 +1022,8 @@ subroutine rrtmg_lw_run                                           &
      &       cldfmc, taucld                                             &
      &     )
 
+          cldfmc = ceiling(cldfmc)
+
 !  --- ...  save computed layer cloud optical depth for output
 !           rrtm band-7 is apprx 10mu channel (or use spectral mean of bands 6-8)
 

diff --git a/physics/radsw_main.f b/physics/radsw_main.f
@@ -1084,6 +1084,8 @@ subroutine rrtmg_sw_run                                           &
 !  ---  outputs:
      &       taucw, ssacw, asycw, cldfrc, cldfmc                        &
      &     )
+
+          cldfmc = ceiling(cldfmc)
 
 !  --- ...  save computed layer cloud optical depth for output
 !           rrtm band 10 is approx to the 0.55 mu spectrum