Last change
on this file since 1120 was
1120,
checked in by slebonnois, 11 years ago
|
SL: Titan and Venus modifications following a modif in dyn3d[par].
|
File size:
1.0 KB
|
Line | |
---|
1 | ! |
---|
2 | ! ATTENTION!!!!: ce fichier include est compatible format fixe/format libre |
---|
3 | ! veillez n'utiliser que des ! pour les commentaires |
---|
4 | ! et bien positionner les & des lignes de continuation |
---|
5 | ! (les placer en colonne 6 et en colonne 73) |
---|
6 | ! |
---|
7 | ! |
---|
8 | !..include cles_phys.h |
---|
9 | ! |
---|
10 | LOGICAL cycle_diurne,soil_model |
---|
11 | LOGICAL ok_orodr,ok_orolf,ok_gw_nonoro |
---|
12 | INTEGER nbapp_rad, nbapp_chim, iflag_con, iflag_ajs |
---|
13 | REAL ecriphy |
---|
14 | REAL solaire |
---|
15 | REAL z0, lmixmin |
---|
16 | REAL ksta, inertie |
---|
17 | LOGICAL ok_kzmin |
---|
18 | INTEGER lev_histhf, lev_histday, lev_histmth |
---|
19 | |
---|
20 | COMMON/clesphys/cycle_diurne, soil_model, & |
---|
21 | & ok_orodr, ok_orolf, ok_gw_nonoro, nbapp_rad, nbapp_chim & |
---|
22 | & , ecriphy & |
---|
23 | & , iflag_con, iflag_ajs, solaire, z0, lmixmin, ksta & |
---|
24 | & , ok_kzmin, lev_histhf, lev_histday, lev_histmth & |
---|
25 | & , inertie |
---|
26 | |
---|
Note: See
TracBrowser
for help on using the repository browser.