87 |
CALL iniconst |
CALL iniconst |
88 |
|
|
89 |
! Lecture du fichier "start.nc" : |
! Lecture du fichier "start.nc" : |
90 |
CALL dynetat0(vcov, ucov, teta, q, masse, ps, phis, time_0) |
CALL dynetat0(vcov, ucov, teta, q, masse, ps, phis) |
91 |
|
|
92 |
! On remet le calendrier à zéro si demandé : |
! On remet le calendrier à zéro si demandé : |
93 |
if (raz_date) then |
if (raz_date) then |
96 |
day_ref = dayref |
day_ref = dayref |
97 |
day_ini = dayref |
day_ini = dayref |
98 |
itau_dyn = 0 |
itau_dyn = 0 |
|
time_0 = 0. |
|
99 |
else |
else |
100 |
print *, 'On garde les dates du fichier "start".' |
print *, 'On garde les dates du fichier "start".' |
101 |
endif |
endif |
151 |
CALL conf_guide |
CALL conf_guide |
152 |
|
|
153 |
! Intégration temporelle du modèle : |
! Intégration temporelle du modèle : |
154 |
CALL leapfrog(ucov, vcov, teta, ps, masse, phis, q, time_0) |
CALL leapfrog(ucov, vcov, teta, ps, masse, phis, q) |
155 |
|
|
156 |
close(unit_nml) |
close(unit_nml) |
157 |
call histclo |
call histclo |