Correct for loop to compute CHANG_STR_AGES in PRE_FATE.params.PFGsucc…

…ession
leca-dev · Sep 18, 2024 · b828afd · b828afd
1 parent a867a78
commit b828afd
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/PRE_FATE.params_PFGsuccession.R b/R/PRE_FATE.params_PFGsuccession.R
@@ -568,7 +568,7 @@ PRE_FATE.params_PFGsuccession = function(
     for (i in 1:no.PFG)
     {
       ## If not in first stratum / herbaceous (or potentially chamaephytes) :
-      if (!(IMM_SIZE[i] == 100))
+      if (MAX_STRATUM[i] > 1)
       {
         k = -log(1 - IMM_SIZE[i] / 100) / (MATURITY[i] / 2)
         A = 1:LONGEVITY[i]