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 |
|
|