Merge pull request #3 from glemieux/SP_next_api-deconflict-d525994

Adding fix for pft indexing bounds
ESCOMP · Jun 5, 2020 · ad2ecaa · ad2ecaa
2 parents 57421c9 + 2c3f264
commit ad2ecaa
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/utils/clmfates_interfaceMod.F90 b/src/utils/clmfates_interfaceMod.F90
@@ -516,7 +516,7 @@ subroutine init(this, bounds_proc )
 
             ! initialize static layers for reduced complexity FATES versions from HLM 
             ! maybe make this into a subroutine of it's own later. 
-            do m = natpft_lb,natpft_ub
+            do m = natpft_lb,natpft_ub-1
                ft = m-natpft_lb+1 
                if (natveg_patch_exists(g, m)) then
                   this%fates(nc)%bc_in(s)%pft_areafrac(ft)=wt_nat_patch(g,m)