Removed all instances of GFS derived data types from rrtmgp scheme le…

…vel code.
climbfuji · Dec 13, 2019 · 1943d14 · 1943d14
1 parent def30ce
commit 1943d14
Show file tree

Hide file tree

Showing 13 changed files with 301 additions and 953 deletions.
diff --git a/physics/rrtmgp_lw_cloud_optics.F90 b/physics/rrtmgp_lw_cloud_optics.F90
@@ -100,7 +100,7 @@ subroutine rrtmgp_lw_cloud_optics_init(cld_optics_scheme, nrghice, rrtmgp_root_d
 
     if (cld_optics_scheme .eq. 0) return
 
-    ! Filenames are set in the gfs_physics_nml (scm/src/GFS_typedefs.F90)
+    ! Filenames are set in the physics_nml
     lw_cloud_props_file = trim(rrtmgp_root_dir)//trim(rrtmgp_lw_file_clouds)
 
     ! Read dimensions for k-distribution fields (only on master processor(0))
@@ -437,7 +437,7 @@ subroutine rrtmgp_lw_cloud_optics_run(doLWrad, nCol, nLev, cld_optics_scheme, nr
        endif
     endif
 
-    ! GFS_RRTMGP_POST_RUN() requires the LW optical depth ~10microns
+    ! All-sky LW optical depth ~10microns
     cldtaulw = lw_optical_props_cloudsByBand%tau(:,:,7)
 
   end subroutine rrtmgp_lw_cloud_optics_run

diff --git a/physics/rrtmgp_lw_clrallsky_driver.F90 b/physics/rrtmgp_lw_clrallsky_driver.F90
diff --git a/physics/rrtmgp_lw_clrallsky_driver.meta b/physics/rrtmgp_lw_clrallsky_driver.meta
diff --git a/physics/rrtmgp_lw_gas_optics.F90 b/physics/rrtmgp_lw_gas_optics.F90
@@ -123,7 +123,7 @@ subroutine rrtmgp_lw_gas_optics_init(rrtmgp_root_dir, rrtmgp_lw_file_gas, rrtmgp
     errmsg = ''
     errflg = 0
 
-    ! Filenames are set in the gfs_physics_nml (scm/src/GFS_typedefs.F90)
+    ! Filenames are set in the physics_nml
     lw_gas_props_file  = trim(rrtmgp_root_dir)//trim(rrtmgp_lw_file_gas)
 
     ! Read dimensions for k-distribution fields (only on master processor(0))