Skip to content

Commit 4d3b7d4

Browse files
committed
Don't set nlevedgeforest=1 if hlm_use_edge_forest false.
1 parent a5f5a3b commit 4d3b7d4

File tree

1 file changed

+1
-5
lines changed

1 file changed

+1
-5
lines changed

main/FatesInterfaceMod.F90

Lines changed: 1 addition & 5 deletions
Original file line numberDiff line numberDiff line change
@@ -976,11 +976,7 @@ subroutine SetFatesGlobalElements2(use_fates)
976976
! Identify number of size and age class bins for history output
977977
! assume these arrays are 1-indexed
978978
nlevage = size(ED_val_history_ageclass_bin_edges,dim=1)
979-
if (hlm_use_edge_forest == itrue) then
980-
nlevedgeforest = size(ED_val_edgeforest_bin_edges,dim=1)
981-
else
982-
nlevedgeforest = 1
983-
end if
979+
nlevedgeforest = size(ED_val_edgeforest_bin_edges,dim=1)
984980
nlevheight = size(ED_val_history_height_bin_edges,dim=1)
985981
nlevcoage = size(ED_val_history_coageclass_bin_edges,dim=1)
986982
nlevdamage = size(ED_val_history_damage_bin_edges, dim=1)

0 commit comments

Comments
 (0)