change radlw_main to F90 to accommodate WRF subroutines

NCAR · Feb 16, 2020 · d9841c8 · mzhangw · Apr 8, 2020 · d9841c8
1 parent f1cad88
commit d9841c8
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 1 deletion.
diff --git a/ccpp/config/ccpp_prebuild_config.py b/ccpp/config/ccpp_prebuild_config.py
@@ -219,7 +219,7 @@
     'FV3/ccpp/physics/physics/ozphys.f'                          : [ 'slow_physics' ],
     'FV3/ccpp/physics/physics/ozphys_2015.f'                     : [ 'slow_physics' ],
     'FV3/ccpp/physics/physics/precpd.f'                          : [ 'slow_physics' ],
-    'FV3/ccpp/physics/physics/radlw_main.f'                      : [ 'slow_physics' ],
+    'FV3/ccpp/physics/physics/radlw_main.F90'                      : [ 'slow_physics' ],
     'FV3/ccpp/physics/physics/radsw_main.f'                      : [ 'slow_physics' ],
     'FV3/ccpp/physics/physics/rayleigh_damp.f'                   : [ 'slow_physics' ],
     'FV3/ccpp/physics/physics/rrtmg_lw_post.F90'                 : [ 'slow_physics' ],

diff --git a/gfsphysics/GFS_layer/GFS_typedefs.F90 b/gfsphysics/GFS_layer/GFS_typedefs.F90
@@ -4108,6 +4108,8 @@ subroutine control_initialize (Model, nlunit, fn_nml, me, master, &
       endif
       if (Model%iovr_lw == 0) then
         print *,' random cloud overlap for Longwave IOVR_LW=',Model%iovr_lw
+      elseif (Model%iovr_lw == 4) then
+        print *,'exponential cloud overlap for Longwave IOVR_LW=',Model%iovr_lw
       else
         print *,' max-random cloud overlap for Longwave IOVR_LW=',Model%iovr_lw
       endif