Skip to content

Commit

Permalink
remove uncessary use_cn checks in the fates landuse module
Browse files Browse the repository at this point in the history
  • Loading branch information
glemieux committed Feb 7, 2024
1 parent 978ba5d commit 3722f20
Showing 1 changed file with 1 addition and 7 deletions.
8 changes: 1 addition & 7 deletions components/elm/src/dyn_subgrid/dynFATESLandUseChangeMod.F90
Original file line number Diff line number Diff line change
Expand Up @@ -74,7 +74,7 @@ subroutine dynFatesLandUseInit(bounds, landuse_filename)
! Initialize data structures for land use information.

! !USES:
use elm_varctl , only : use_cn, use_fates_luh
use elm_varctl , only : use_fates_luh
use dynVarTimeUninterpMod , only : dyn_var_time_uninterp_type
use dynTimeInfoMod , only : YEAR_POSITION_START_OF_TIMESTEP
use dynTimeInfoMod , only : YEAR_POSITION_END_OF_TIMESTEP
Expand All @@ -95,8 +95,6 @@ subroutine dynFatesLandUseInit(bounds, landuse_filename)

SHR_ASSERT_ALL(bounds%level == BOUNDS_LEVEL_PROC, subname // ': argument must be PROC-level bounds')

if (use_cn) return ! Use this as a protection in lieu of build namelist check?

! Allocate and initialize the land use arrays
allocate(landuse_states(num_landuse_state_vars,bounds%begg:bounds%endg),stat=ier)
if (ier /= 0) then
Expand Down Expand Up @@ -144,7 +142,6 @@ end subroutine dynFatesLandUseInit
subroutine dynFatesLandUseInterp(bounds, init_state)

use dynTimeInfoMod , only : time_info_type
use elm_varctl , only : use_cn

! !ARGUMENTS:
type(bounds_type), intent(in) :: bounds ! proc-level bounds
Expand All @@ -159,9 +156,6 @@ subroutine dynFatesLandUseInterp(bounds, init_state)
!-----------------------------------------------------------------------
SHR_ASSERT_ALL(bounds%level == BOUNDS_LEVEL_PROC, subname // ': argument must be PROC-level bounds')

! This shouldn't be called by cn currently, but return if it is
if (use_cn) return ! Use this as a protection in lieu of build namelist check?

init_flag = .false.
if (present(init_state)) then
init_flag = init_state
Expand Down

0 comments on commit 3722f20

Please sign in to comment.