Revision
71 -
(
hide annotations)
Mon Jul 8 18:12:18 2013 UTC
(10 years, 11 months ago)
by
guez
Original Path:
trunk/libf/phylmd/Radlwsw/raddim.f90
File size: 239 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.
Parent Directory
| 
Revision Log