Remove unused variables

NASA-LIS · May 7, 2024 · 4bee2d5 · 4bee2d5
1 parent f0c3425
commit 4bee2d5
Showing 1 changed file with 0 additions and 7 deletions.
diff --git a/lis/surfacemodels/land/noahmp.4.0.1/da_soilm/noahmp401_setsoilm.F90 b/lis/surfacemodels/land/noahmp.4.0.1/da_soilm/noahmp401_setsoilm.F90
@@ -93,8 +93,6 @@ subroutine NoahMP401_setsoilm(n, LSM_State)
   real                   :: smc_rnd, smc_tmp 
   real                   :: sh2o_tmp, sh2o_rnd 
   INTEGER, DIMENSION (1) :: seed 
-  integer                :: row, col
-  real                   :: lat, lon
 
   call ESMF_StateGet(LSM_State,"Soil Moisture Layer 1",sm1Field,rc=status)
   call LIS_verify(status,&
@@ -212,11 +210,6 @@ subroutine NoahMP401_setsoilm(n, LSM_State)
           LIS_surface(n,LIS_rc%lsm_index)%tile(i)%col,&
           LIS_surface(n,LIS_rc%lsm_index)%tile(i)%row) 
 
-            row =  LIS_surface(n, LIS_rc%lsm_index)%tile(i)%row
-            col =  LIS_surface(n, LIS_rc%lsm_index)%tile(i)%col
-            lat = LIS_domain(n)%grid(LIS_domain(n)%gindex(col, row))%lat
-            lon = LIS_domain(n)%grid(LIS_domain(n)%gindex(col, row))%lon
-
      !if(update_flag(gid)) then
      if(update_flag_new(gid)) then 
 !-----------------------------------------------------------------------------------------