Merge pull request #1189 from glemieux/spmode-restart-indexing-hotfix

Add `n_term_mort_types` to the `fates_maxElementsPerSite` calculation to resolve potential restart indexing issues
NGEET · Apr 22, 2024 · 5284bd0 · 5284bd0
2 parents 43c490d + 3621cb0
commit 5284bd0
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/main/FatesInterfaceMod.F90 b/main/FatesInterfaceMod.F90
@@ -41,6 +41,7 @@ module FatesInterfaceMod
    use FatesConstantsMod         , only : n_landuse_cats
    use FatesConstantsMod         , only : primaryland
    use FatesConstantsMod         , only : secondaryland
+   use FatesConstantsMod         , only : n_term_mort_types
    use FatesGlobals              , only : fates_global_verbose
    use FatesGlobals              , only : fates_log
    use FatesGlobals              , only : endrun => fates_endrun
@@ -877,7 +878,7 @@ subroutine SetFatesGlobalElements2(use_fates)
          end if
 
          fates_maxElementsPerSite = max(fates_maxPatchesPerSite * fates_maxElementsPerPatch, &
-              numWatermem*numpft, num_vegtemp_mem, num_elements, nlevsclass*numpft)
+              numWatermem*numpft, num_vegtemp_mem, num_elements, nlevsclass*numpft*n_term_mort_types)
 
          if(hlm_use_planthydro==itrue)then
             fates_maxElementsPerSite = max(fates_maxElementsPerSite, nshell*nlevsoi_hyd_max )