84 |
! Lecture du fichier "start.nc" : |
! Lecture du fichier "start.nc" : |
85 |
CALL dynetat0(vcov, ucov, teta, q, masse, ps, phis, time_0) |
CALL dynetat0(vcov, ucov, teta, q, masse, ps, phis, time_0) |
86 |
|
|
87 |
! On remet le calendrier à zero si demandé : |
! On remet le calendrier à zéro si demandé : |
88 |
if (annee_ref /= anneeref .or. day_ref /= dayref) then |
if (raz_date) then |
89 |
print *, 'Attention : les dates initiales lues dans le fichier ' // & |
print *, 'On réinitialise à la date lue dans la namelist.' |
90 |
'"start" ne correspondent pas à celles lues dans "gcm.def".' |
annee_ref = anneeref |
91 |
if (raz_date) then |
day_ref = dayref |
92 |
print *, 'On réinitialise à la date lue dans "gcm.def".' |
day_ini = dayref |
93 |
annee_ref = anneeref |
itau_dyn = 0 |
94 |
day_ref = dayref |
time_0 = 0. |
95 |
day_ini = dayref |
else |
96 |
itau_dyn = 0 |
print *, 'On garde les dates du fichier "start".' |
|
time_0 = 0. |
|
|
else |
|
|
print *, 'On garde les dates du fichier "start".' |
|
|
endif |
|
|
ELSE |
|
|
raz_date = .false. |
|
97 |
endif |
endif |
98 |
|
|
99 |
CALL disvert |
CALL disvert |