359 |
|
|
360 |
call phyredem("startphy.nc", pctsrf, tsoil(:, 1, :), tsoil, & |
call phyredem("startphy.nc", pctsrf, tsoil(:, 1, :), tsoil, & |
361 |
tsoil(:, 1, is_oce), seaice, qsolsrf, pack(qsol_2d, dyn_phy), snsrf, & |
tsoil(:, 1, is_oce), seaice, qsolsrf, pack(qsol_2d, dyn_phy), snsrf, & |
362 |
albe, alblw, evap, rain_fall, snow_fall, solsw, sollw, fder, radsol, & |
albe, evap, rain_fall, snow_fall, solsw, sollw, fder, radsol, frugs, & |
363 |
frugs, agesno, zmea, zstd, zsig, zgam, zthe, zpic, zval, t_ancien, & |
agesno, zmea, zstd, zsig, zgam, zthe, zpic, zval, t_ancien, & |
364 |
q_ancien, rnebcon, ratqs, clwcon, run_off_lic_0, sig1, w01) |
q_ancien, rnebcon, ratqs, clwcon, run_off_lic_0, sig1, w01) |
365 |
|
|
366 |
END SUBROUTINE etat0 |
END SUBROUTINE etat0 |