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 raddim |
| 2 | |
| 3 | ! From phylmd/raddim.*.h, version 1.1.1.1, 2004/05/19 12:53:08 |
| 4 | |
| 5 | use dimens_m, only: llm |
| 6 | use dimphy, only: klon |
| 7 | |
| 8 | implicit none |
| 9 | |
| 10 | INTEGER, PARAMETER:: kdlon = klon, kflev = llm |
| 11 | |
| 12 | private llm, klon |
| 13 | |
| 14 | end module raddim |
| ViewVC Help | |
| Powered by ViewVC 1.1.21 |