Parent Directory | Revision Log
Moved everything out of libf.
1 | guez | 49 | |
2 | !================================================================== | ||
3 | SUBROUTINE cv_flag | ||
4 | use cvflag | ||
5 | implicit none | ||
6 | |||
7 | |||
8 | ! -- si .TRUE., on rend la gravite plus explicite et eventuellement | ||
9 | ! differente de 10.0 dans convect3: | ||
10 | cvflag_grav = .TRUE. | ||
11 | |||
12 | return | ||
13 | end |
ViewVC Help | |
Powered by ViewVC 1.1.21 |