From 4d3515dcda2f0b16c0ef7528e6760fa29bbbb343 Mon Sep 17 00:00:00 2001 From: Dustin Swales Date: Tue, 17 Dec 2019 11:08:09 -0700 Subject: [PATCH] Round cloud-fractions to avoid McICA sampling error. In RRTMG as well. --- physics/radlw_main.f | 2 ++ physics/radsw_main.f | 2 ++ 2 files changed, 4 insertions(+) diff --git a/physics/radlw_main.f b/physics/radlw_main.f index 7b029f8b0..b13016a41 100644 --- 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 index b10541fb7..c12a34171 100644 --- 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