Fix b4b differences for GSD v0 (RUC LSM, tiice)

NOAA-GSL · Jul 24, 2021 · 638b159 · 638b159 · tanyasmirnova · Jul 26, 2021
1 parent 0e0b7f1
commit 638b159
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 10 deletions.
diff --git a/physics/sfc_drv_ruc.F90 b/physics/sfc_drv_ruc.F90
@@ -99,7 +99,7 @@ subroutine lsm_ruc_init (me, master, isot, ivegsrc, nlunit,               &
 !  ---  out
       real (kind=kind_phys), dimension(:),   intent(out) :: zs
       real (kind=kind_phys), dimension(:),   intent(inout) :: sfalb_lnd_bck
-      real (kind=kind_phys), dimension(:,:), intent(out) :: tsice
+      real (kind=kind_phys), dimension(:,:), intent(inout) :: tsice
       real (kind=kind_phys), dimension(:),   intent(out) :: semisbase
       real (kind=kind_phys), dimension(:),   intent(out) :: pores, resid
 
@@ -221,23 +221,25 @@ subroutine lsm_ruc_init (me, master, isot, ivegsrc, nlunit,               &
 
       enddo ! i
 
-        call init_soil_depth_3 ( zs , dzs , lsoil_ruc )
+      call init_soil_depth_3 ( zs , dzs , lsoil_ruc )
 
-        call rucinit   (flag_restart, im, lsoil_ruc, lsoil, nlev,   & ! in
-                        me, master, lsm_ruc, lsm, slmsk,            & ! in
-                        soiltyp, vegtype,                           & ! in
-                        tsfc_lnd, tsfc_wat, tg3,                    & ! in
-                        zs, dzs, smc, slc, stc,                     & ! in
-                        sh2o, smfrkeep, tslb, smois,                & ! out
-                        wetness, errmsg, errflg)
+      call rucinit   (flag_restart, im, lsoil_ruc, lsoil, nlev,   & ! in
+                      me, master, lsm_ruc, lsm, slmsk,            & ! in
+                      soiltyp, vegtype,                           & ! in
+                      tsfc_lnd, tsfc_wat, tg3,                    & ! in
+                      zs, dzs, smc, slc, stc,                     & ! in
+                      sh2o, smfrkeep, tslb, smois,                & ! out
+                      wetness, errmsg, errflg)
 
+      if (.not.flag_restart) then
         do i  = 1, im ! i - horizontal loop
           do k = 1, min(kice,lsoil_ruc)
           ! - at initial time set sea ice T (tsice) 
           !   equal to TSLB, initialized from the Noah STC variable
              tsice   (i,k) = tslb(i,k)
           enddo
         enddo ! i
+      endif ! .not. restart
 
       !-- end of initialization
 

diff --git a/physics/sfc_drv_ruc.meta b/physics/sfc_drv_ruc.meta
@@ -531,7 +531,7 @@
   dimensions = (horizontal_dimension,ice_vertical_dimension)
   type = real
   kind = kind_phys
-  intent = out
+  intent = inout
   optional = F
 [pores]
   standard_name = maximum_soil_moisture_content_for_land_surface_model