Revision
71 -
(
hide annotations)
Mon Jul 8 18:12:18 2013 UTC
(11 years ago)
by
guez
Original Path:
trunk/libf/dyn3d/heavyside.f
File size: 359 byte(s)
No reason to call inidissip in ce0l.
In inidissip, set random seed to 1 beacuse PGI compiler does not
accept all zeros.
dq was computed needlessly in caladvtrac. Arguments masse and dq of
calfis not used.
Replaced real*8 by double precision.
Pass arrays with inverted order of vertical levels to conflx instead
of creating local variables for this inside conflx.