Topic: Apparent Allocation error
Jeff, I have found a problem that has me completely stumped. Following is a code snippet starting at line 783 in WinDam.f90:
! set initial input
Qin1 = Hin%Hyd(1)
! initialize time integral values and stored values
Hout%Hyd(1) = Qout1
EmbIntgrl(1) = 0.
Time = T1
Hout%Elev(1) = Elev1
EmbTime(1) = Time
Qout1 has a value of 4821. When Hout%Hyd(1) is set to Qout1, Hout%Elev(1) is also set to the same value and the assignment Hout%Elev(1) = Elev1 never happens. It's as if Hout%Hyd and Hout%Elev are allocated to the same space.
I can send you the entire program and dataset that's causing the problem if you want. The program consists of a mainline (WinDAM.f90) and approximately 60 modules and subroutines. Just tell me your email and I'll send it to you.