adding fix for pft indexing bounds

ESCOMP · May 22, 2020 · 2c3f264 · 2c3f264
1 parent b5989cf
commit 2c3f264
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)