From c47706ba033e72f20c97d482e91a80856367f587 Mon Sep 17 00:00:00 2001
From: Dustin Swales <dustin.swales@noaa.gov>
Date: Tue, 18 Feb 2020 12:25:32 -0700
Subject: [PATCH] changed variable name.

---
 physics/rrtmgp_lw_pre.F90  | 6 +++---
 physics/rrtmgp_lw_pre.meta | 2 +-
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/physics/rrtmgp_lw_pre.F90 b/physics/rrtmgp_lw_pre.F90
index 9cb84dc0d..6508e4a10 100644
--- 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
index cc3369f3b..23036653a 100644
--- 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