37 |
use initdynav_m, only: initdynav |
use initdynav_m, only: initdynav |
38 |
use dynetat0_m, only: dynetat0 |
use dynetat0_m, only: dynetat0 |
39 |
use grid_change, only: dyn_phy, init_dyn_phy |
use grid_change, only: dyn_phy, init_dyn_phy |
40 |
use advtrac_m, only: iniadvtrac |
use iniadvtrac_m, only: iniadvtrac |
41 |
use leapfrog_m, only: leapfrog |
use leapfrog_m, only: leapfrog |
42 |
use dynredem0_m, only: dynredem0 |
use dynredem0_m, only: dynredem0 |
43 |
use clesphys2, only: read_clesphys2 |
use clesphys2, only: read_clesphys2 |
120 |
if (annee_ref /= anneeref .or. day_ref /= dayref) then |
if (annee_ref /= anneeref .or. day_ref /= dayref) then |
121 |
print *, 'Attention : les dates initiales lues dans le fichier ' // & |
print *, 'Attention : les dates initiales lues dans le fichier ' // & |
122 |
'"start" ne correspondent pas à celles lues dans "gcm.def".' |
'"start" ne correspondent pas à celles lues dans "gcm.def".' |
123 |
if (raz_date /= 1) then |
if (raz_date) then |
|
print *, 'On garde les dates du fichier "start".' |
|
|
else |
|
124 |
print *, 'On réinitialise à la date lue dans "gcm.def".' |
print *, 'On réinitialise à la date lue dans "gcm.def".' |
125 |
annee_ref = anneeref |
annee_ref = anneeref |
126 |
day_ref = dayref |
day_ref = dayref |
127 |
day_ini = dayref |
day_ini = dayref |
128 |
itau_dyn = 0 |
itau_dyn = 0 |
129 |
time_0 = 0. |
time_0 = 0. |
130 |
|
else |
131 |
|
print *, 'On garde les dates du fichier "start".' |
132 |
endif |
endif |
133 |
ELSE |
ELSE |
134 |
raz_date = 0 |
raz_date = .false. |
135 |
endif |
endif |
136 |
|
|
137 |
! Initialisation des constantes dynamiques : |
! Initialisation des constantes dynamiques : |
181 |
|
|
182 |
airefi = pack(aire_2d, dyn_phy) |
airefi = pack(aire_2d, dyn_phy) |
183 |
print *, 'Attention : vitesse verticale nulle dans la physique.' |
print *, 'Attention : vitesse verticale nulle dans la physique.' |
184 |
CALL iniphysiq(klon, llm, daysec, day_ini, dtphys, latfi, lonfi, airefi, & |
CALL iniphysiq(klon, llm, latfi, lonfi, airefi, & |
185 |
zcufi, zcvfi, rad, g, r, cpp) |
zcufi, zcvfi, rad, g, r, cpp) |
186 |
ENDIF |
ENDIF |
187 |
|
|