Parent Directory | Revision Log
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.
1 | module radopt |
2 | |
3 | ! From phylmd/radopt.h, version 1.1.1.1, 2004/05/19 12:53:09 |
4 | |
5 | implicit none |
6 | |
7 | LOGICAL, PARAMETER:: LEVOIGT = .FALSE. |
8 | INTEGER, PARAMETER:: NOVLP = 1 |
9 | INTEGER, PARAMETER:: KAER = 0 |
10 | |
11 | end module radopt |
ViewVC Help | |
Powered by ViewVC 1.1.21 |