112 |
ENDIF |
ENDIF |
113 |
|
|
114 |
! Initialisation des entr\'ees-sorties : |
! Initialisation des entr\'ees-sorties : |
115 |
CALL dynredem0("restart.nc", day_ini + nday, phis) |
CALL dynredem0(day_ini + nday, phis) |
116 |
CALL inithist(dtvr, nqmx, t_ops = iecri * daysec, t_wrt = iecri * daysec) |
CALL inithist(dtvr, nqmx, t_ops = iecri * daysec, t_wrt = iecri * daysec) |
117 |
CALL initdynav(dtvr, nqmx, t_ops = iperiod * dtvr, t_wrt = periodav * daysec) |
CALL initdynav(dtvr, nqmx, t_ops = iperiod * dtvr, t_wrt = periodav * daysec) |
118 |
call init_dynzon(dt_app = dtvr * iperiod) |
call init_dynzon(dt_app = dtvr * iperiod) |