changed variable name.

climbfuji · Feb 18, 2020 · c47706b · c47706b
1 parent 723f740
commit c47706b
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/physics/rrtmgp_lw_pre.F90 b/physics/rrtmgp_lw_pre.F90
@@ -29,7 +29,7 @@ end subroutine rrtmgp_lw_pre_init
 !> \section arg_table_rrtmgp_lw_pre_run
 !! \htmlinclude rrtmgp_lw_pre.html
 !!
-  subroutine rrtmgp_lw_pre_run (doLWrad, nCol, lon, lat, lsmask, zorl, snowd, sncovr, tsfc, &
+  subroutine rrtmgp_lw_pre_run (doLWrad, nCol, lon, lat, slmsk, zorl, snowd, sncovr, tsfc, &
        nmtvr, hprime, lw_gas_props, sfc_emiss_byband, errmsg, errflg)
 
     ! Inputs
@@ -41,7 +41,7 @@ subroutine rrtmgp_lw_pre_run (doLWrad, nCol, lon, lat, lsmask, zorl, snowd, snco
     real(kind_phys), dimension(nCol), intent(in) :: &
          lon,               & ! Longitude
          lat,               & ! Latitude
-         lsmask,            & ! Land/sea/sea-ice mask
+         slmsk,            & ! Land/sea/sea-ice mask
          zorl,              & ! Surface roughness length (cm)
          snowd,             & ! water equivalent snow depth (mm)
          sncovr,            & ! Surface snow are fraction (1)
@@ -72,7 +72,7 @@ subroutine rrtmgp_lw_pre_run (doLWrad, nCol, lon, lat, lsmask, zorl, snowd, snco
     ! #######################################################################################
     ! Call module_radiation_surface::setemis(),to setup surface emissivity for LW radiation.
     ! #######################################################################################
-    call setemis (lon, lat, lsmask, snowd, sncovr, zorl, tsfc, tsfc, hprime, nCol, sfc_emiss)
+    call setemis (lon, lat, slmsk, snowd, sncovr, zorl, tsfc, tsfc, hprime, nCol, sfc_emiss)
 
     ! Assign same emissivity to all bands
     do iBand=1,lw_gas_props%get_nband()

diff --git a/physics/rrtmgp_lw_pre.meta b/physics/rrtmgp_lw_pre.meta
@@ -43,7 +43,7 @@
   kind = kind_phys
   intent = in
   optional = F
-[lsmask]
+[slmsk]
   standard_name = sea_land_ice_mask_real
   long_name = landmask: sea/land/ice=0/1/2
   units = flag