From 4bee2d54a691a761676b14a93da1c87e16f68a93 Mon Sep 17 00:00:00 2001 From: "James V. Geiger" Date: Tue, 7 May 2024 13:35:13 -0400 Subject: [PATCH] Remove unused variables --- .../land/noahmp.4.0.1/da_soilm/noahmp401_setsoilm.F90 | 7 ------- 1 file changed, 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 index 126607bbd..c30bad17c 100644 --- 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 !-----------------------------------------------------------------------------------------