From 50ea2d3193a786a0f2a8784e4b489236a3d7d50d Mon Sep 17 00:00:00 2001 From: Ryan Knox Date: Mon, 30 Dec 2024 13:55:31 -0700 Subject: [PATCH] cleaned out unnecessary patch order checks --- main/EDMainMod.F90 | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/main/EDMainMod.F90 b/main/EDMainMod.F90 index 01111c0626..ec15fb4df8 100644 --- a/main/EDMainMod.F90 +++ b/main/EDMainMod.F90 @@ -64,6 +64,7 @@ module EDMainMod use FatesLitterMod , only : litter_type use FatesLitterMod , only : ncwd use EDtypesMod , only : ed_site_type + use EDTypesMod , only : set_patchno use FatesPatchMod , only : fates_patch_type use FatesCohortMod , only : fates_cohort_type use EDTypesMod , only : AREA @@ -317,8 +318,6 @@ subroutine ed_ecosystem_dynamics(currentSite, bc_in, bc_out) ! Final instantaneous mass balance check call TotalBalanceCheck(currentSite,5) - - end subroutine ed_ecosystem_dynamics @@ -835,6 +834,9 @@ subroutine ed_update_site( currentSite, bc_in, bc_out, is_restarting ) type (fates_patch_type) , pointer :: currentPatch !----------------------------------------------------------------------- + ! check patch order (set second argument to true) + ! call set_patchno(currentSite,.true.,1) + if(hlm_use_sp.eq.ifalse .and. (.not.is_restarting))then call canopy_spread(currentSite) end if