| 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 |
|
|
Parent Directory
| 
Revision Log
| 
Patch