Revisions to repair iovr=5 cloud overlap option (NCAR#471)

*This PR addresses part 2 of CCPP issue NCAR#748 to activate the exponential-random cloud overlap method (iovr=5) in RRTMG.
HelinWei-NOAA · Jan 31, 2022 · 23b7dd3 · 23b7dd3
1 parent 4e43229
commit 23b7dd3
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/ccpp/data/GFS_typedefs.F90 b/ccpp/data/GFS_typedefs.F90
@@ -3930,7 +3930,7 @@ subroutine control_initialize (Model, nlunit, fn_nml, me, master, &
     if (levr < 0) then
       Model%levr           = levs
     else if (levr > levs) then
-      write(0,*) "Logic error, number of radiatiton levels (levr) cannot exceed number of model levels (levs)"
+      write(0,*) "Logic error, number of radiation levels (levr) cannot exceed number of model levels (levs)"
       stop
     else
       Model%levr           = levr

diff --git a/ccpp/physics b/ccpp/physics
+117 −0		physics/radiation_clouds.f
+28 −26		physics/radlw_main.F90
+5 −3		physics/radsw_main.F90