Merge pull request #5 from climbfuji/redund_mzhang_update_dom_20210816

redund_mzhang update Dom 2021/08/16
tanyasmirnova · Aug 16, 2021 · e5cdd22 · e5cdd22
2 parents 78a373c + 8bf04be
commit e5cdd22
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 8 deletions.
diff --git a/physics/GFS_surface_composites.F90 b/physics/GFS_surface_composites.F90
@@ -741,10 +741,8 @@ subroutine GFS_surface_composites_post_run (
             weasd(i)  = weasd_ice(i) * cice(i)
             snowd(i)  = snowd_ice(i) * cice(i)
             qss(i)    = qss_ice(i)
-            !tsfc(i)   = tsfc_ice(i)
             evap(i)   = evap_ice(i)
             hflx(i)   = hflx_ice(i)
-            !tisfc(i)  = tisfc(i)     ! over lake ice (and sea ice when uncoupled)
             tsfc(i)   = tsfc_ice(i) ! over lake (and ocean when uncoupled)
 !
             if (flag_cice(i)) then

diff --git a/physics/sfc_drv_ruc.F90 b/physics/sfc_drv_ruc.F90
@@ -432,8 +432,7 @@ subroutine lsm_ruc_run                                            & ! inputs
      ! for ice
      &       weasd_ice, snwdph_ice, tskin_ice,                           &
      &       tsurf_ice, z0rl_ice, tsnow_ice,                             &
-     &       sfcqc_ice, sfcqv_ice, fice
-      real (kind=kind_phys), dimension(:), intent(out) :: tice  
+     &       sfcqc_ice, sfcqv_ice, fice, tice
 
 !  ---  in
       real (kind=kind_phys), dimension(:), intent(in) ::                 &

diff --git a/physics/sfc_drv_ruc.meta b/physics/sfc_drv_ruc.meta
@@ -1550,7 +1550,7 @@
   dimensions = (horizontal_loop_extent)
   type = real
   kind = kind_phys
-  intent = out
+  intent = inout
   optional = F
 [tsurf_ice]
   standard_name = surface_skin_temperature_after_iteration_over_ice

diff --git a/physics/sfc_noah_wrfv4_interstitial.meta b/physics/sfc_noah_wrfv4_interstitial.meta
@@ -520,8 +520,8 @@
   intent = inout
   optional = F
 [tsfc_save]
-  standard_name = surface_skin_temperature_over_land_interstitial_save
-  long_name = surface skin temperature over land before entering a physics scheme (temporary use as interstitial)
+  standard_name = surface_skin_temperature_over_land_save
+  long_name = surface skin temperature over land before entering a physics scheme
   units = K
   dimensions = (horizontal_loop_extent)
   type = real
@@ -894,7 +894,7 @@
   intent = in
   optional = F
 [tsfc_save]
-  standard_name = surface_skin_temperature_over_land_interstitial_save
+  standard_name = surface_skin_temperature_over_land_save
   long_name = surface skin temperature over land before entering a physics scheme (temporary use as interstitial)
   units = K
   dimensions = (horizontal_loop_extent)