204 |
print *, "day_ini = ", day_ini |
print *, "day_ini = ", day_ini |
205 |
print *, "day_end = ", day_end |
print *, "day_end = ", day_end |
206 |
|
|
207 |
CALL dynredem0("restart.nc", day_end, phis, nqmx) |
CALL dynredem0("restart.nc", day_end, phis) |
208 |
CALL inithist(day_ref, annee_ref, zdtvr, nqmx, histid, histvid, & |
CALL inithist(day_ref, annee_ref, zdtvr, nqmx, histid, histvid, & |
209 |
infile="dyn_hist.nc", t_ops = iecri * daysec, t_wrt = iecri * daysec) |
infile="dyn_hist.nc", t_ops = iecri * daysec, t_wrt = iecri * daysec) |
210 |
CALL initdynav(day_ref, annee_ref, zdtvr, nqmx, histaveid, & |
CALL initdynav(day_ref, annee_ref, zdtvr, nqmx, histaveid, & |