Parent Directory | Revision Log | Patch
revision 191 by guez, Mon May 9 19:56:28 2016 UTC | revision 208 by guez, Wed Dec 7 16:44:53 2016 UTC | |
---|---|---|
# | Line 81 PROGRAM gcm | Line 81 PROGRAM gcm |
81 | call init_dyn_phy | call init_dyn_phy |
82 | ||
83 | ! Initialisation de la physique : | ! Initialisation de la physique : |
84 | IF (iflag_phys == 1) THEN | IF (iflag_phys) THEN |
85 | airephy = pack(aire_2d, dyn_phy) | airephy = pack(aire_2d, dyn_phy) |
86 | CALL suphec | CALL suphec |
87 | call yoethf | call yoethf |
|
ViewVC Help | |
Powered by ViewVC 1.1.21 |