Fix noahmp401 min values

NASA-LIS · May 4, 2021 · fd5be64 · fd5be64
1 parent 70c2ce1
commit fd5be64
Showing 1 changed file with 4 additions and 2 deletions.
diff --git a/lis/surfacemodels/land/noahmp.4.0.1/NoahMP401_lsmMod.F90 b/lis/surfacemodels/land/noahmp.4.0.1/NoahMP401_lsmMod.F90
@@ -321,8 +321,10 @@ subroutine NoahMP401_ini()
             end if
 
             ! Initialize min/max values to implausible values.
-            NOAHMP401_struc(n)%noahmp401(:)%tair_agl_min = 999.0
-            NOAHMP401_struc(n)%noahmp401(:)%rhmin = 999.0
+            do t=1, LIS_rc%npatch(n, LIS_rc%lsm_index)
+                NOAHMP401_struc(n)%noahmp401(t)%tair_agl_min = 999.0
+                NOAHMP401_struc(n)%noahmp401(t)%rhmin = 999.0
+            enddo ! end of tile (t) loop
 
             !------------------------------------------------------------------------
             ! TODO: setup number of soil moisture/temperature layers and depth here