From 2c3f264860943b51e095550b5ebb800f8f572eee Mon Sep 17 00:00:00 2001 From: Gregory Lemieux Date: Fri, 22 May 2020 09:20:25 -0600 Subject: [PATCH] adding fix for pft indexing bounds --- src/utils/clmfates_interfaceMod.F90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)