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