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