diff --git a/main/FatesInterfaceMod.F90 b/main/FatesInterfaceMod.F90 index c882a07737..e9c728edcf 100644 --- a/main/FatesInterfaceMod.F90 +++ b/main/FatesInterfaceMod.F90 @@ -541,10 +541,6 @@ subroutine allocate_bcin(bc_in, nlevsoil_in, nlevdecomp_in, num_lu_harvest_cats, if (hlm_use_lu_harvest .gt. 0) then allocate(bc_in%hlm_harvest_rates(num_lu_harvest_cats)) allocate(bc_in%hlm_harvest_catnames(num_lu_harvest_cats)) - allocate(bc_in%hlm_luh_states(num_luh2_states)) - allocate(bc_in%hlm_luh_state_names(num_luh2_states)) - allocate(bc_in%hlm_luh_transitions(num_luh2_transitions)) - allocate(bc_in%hlm_luh_transition_names(num_luh2_transitions)) else ! LoggingMortality_frac needs these passed to it regardless of harvest allocate(bc_in%hlm_harvest_rates(0)) allocate(bc_in%hlm_harvest_catnames(0)) @@ -552,6 +548,14 @@ subroutine allocate_bcin(bc_in, nlevsoil_in, nlevdecomp_in, num_lu_harvest_cats, allocate(bc_in%pft_areafrac(natpft_lb:natpft_ub)) + ! LUH2 state and transition data + if (hlm_use_luh .gt. 0) then + allocate(bc_in%hlm_luh_states(num_luh2_states)) + allocate(bc_in%hlm_luh_state_names(num_luh2_states)) + allocate(bc_in%hlm_luh_transitions(num_luh2_transitions)) + allocate(bc_in%hlm_luh_transition_names(num_luh2_transitions)) + end if + ! Variables for SP mode. if(hlm_use_sp.eq.itrue) then allocate(bc_in%hlm_sp_tlai(natpft_lb:natpft_ub))