Addressed the reviewer's comments.

ufs-community · Oct 18, 2023 · fe5322b · fe5322b
1 parent 6b8aa05
commit fe5322b
Showing 1 changed file with 18 additions and 29 deletions.
diff --git a/physics/lsm_ruc.F90 b/physics/lsm_ruc.F90
@@ -649,38 +649,27 @@ subroutine lsm_ruc_run                                            & ! inputs
       nsoil = lsoil_ruc
 
       do i  = 1, im ! i - horizontal loop
-        ! reassign smcref2 and smcwlt2 to RUC values at kdt=1
-        if(kdt == 1) then
-          if(.not. land(i)) then
-            !water and sea ice
-            smcref (i,1) = one
-            smcwlt (i,1) = zero
-            xlai   (i,1) = zero
+        if(.not. land(i)) then
+          !water and sea ice
+          smcref (i,1) = one
+          smcwlt (i,1) = zero
+          xlai   (i,1) = zero
+        elseif (kdt == 1) then
+          !land
+          ! reassign smcref2 and smcwlt2 to RUC values at kdt=1
+          smcref (i,1) = REFSMC(stype(i))
+          smcwlt (i,1) = WLTSMC(stype(i))
+          !-- rdlai is .true. when the LAI data is available in the INPUT/sfc_data.nc on cold-start
+          if(rdlai) then
+            xlai(i,1) = laixy(i)
           else
-            !land 
-            smcref (i,1) = REFSMC(stype(i))
-            smcwlt (i,1) = WLTSMC(stype(i))
-
-            !-- rdlai is .true. when the LAI data is available in the INPUT/sfc_data.nc on cold-start
-            if(rdlai) then
-              xlai(i,1) = laixy(i)
-            else
-              xlai(i,1) = LAITBL(vtype(i))
-            endif
+            xlai(i,1) = LAITBL(vtype(i))
           endif
         else
-        !-- if kdt > 1, parameters with sub-grid heterogeneity
-          if(.not. land(i)) then
-            !water and sea ice
-            smcref (i,1) = one
-            smcwlt (i,1) = zero
-            xlai   (i,1) = zero
-          else
-            !land
-            smcref (i,1) = smcref2 (i)
-            smcwlt (i,1) = smcwlt2 (i)
-            xlai   (i,1) = laixy (i)
-          endif
+          !-- land and kdt > 1, parameters has sub-grid heterogeneity
+          smcref (i,1) = smcref2 (i)
+          smcwlt (i,1) = smcwlt2 (i)
+          xlai   (i,1) = laixy (i)
         endif
       enddo