From 5ea533905ec2d5eec3a099cca7ee6c19c6f4d012 Mon Sep 17 00:00:00 2001 From: Dom Heinzeller Date: Thu, 19 Apr 2018 16:18:38 -0600 Subject: [PATCH] Changed default minimum value for clouds from 1.0e-80 to tiny(cldmin) to avoid floating point underflows for real*4 --- physics/radlw_main.f | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/physics/radlw_main.f b/physics/radlw_main.f index c47dd6688..d2402f71d 100644 --- a/physics/radlw_main.f +++ b/physics/radlw_main.f @@ -271,7 +271,7 @@ module rrtmg_lw ! ! --- constant values real (kind=kind_phys), parameter :: eps = 1.0e-6 real (kind=kind_phys), parameter :: oneminus= 1.0-eps - real (kind=kind_phys), parameter :: cldmin = 1.0e-80 + real (kind=kind_phys), parameter :: cldmin = tiny(cldmin) real (kind=kind_phys), parameter :: bpade = 1.0/0.278 ! pade approx constant real (kind=kind_phys), parameter :: stpfac = 296.0/1013.0 real (kind=kind_phys), parameter :: wtdiff = 0.5 ! weight for radiance to flux conversion