diff --git a/src/utils/clmfates_interfaceMod.F90 b/src/utils/clmfates_interfaceMod.F90 index 6924c188f2..1a3799630f 100644 --- 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)