Update aed_noncohesive.F90

Prevent seg fault on id_ss checking if not allocated, by looping through num_ss instead (related to pull request #4 from rqthomas)
AquaticEcoDynamics · Jan 25, 2022 · 64f934b · 64f934b
1 parent 8febd3c
commit 64f934b
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/aed_noncohesive.F90 b/src/aed_noncohesive.F90
@@ -427,7 +427,8 @@ SUBROUTINE aed_light_extinction_noncohesive(data,column,layer_idx,extinction)
 !
 !-----------------------------------------------------------------------
 !BEGIN
- DO ss_i=1,ubound(data%id_ss,1)
+ !DO ss_i=1,ubound(data%id_ss,1)
+ DO ss_i=1,data%num_ss
  ! Retrieve current (local) state variable values.
  ss = _STATE_VAR_(data%id_ss(ss_i))