36 |
use serre, only: alphax |
use serre, only: alphax |
37 |
use dimsoil, only: nsoilmx |
use dimsoil, only: nsoilmx |
38 |
use temps, only: itau_dyn, itau_phy, annee_ref, day_ref, dt |
use temps, only: itau_dyn, itau_phy, annee_ref, day_ref, dt |
39 |
use clesphys, only: ok_orodr, nbapp_rad |
use clesphys2, only: ok_orodr, nbapp_rad |
40 |
use grid_atob, only: grille_m |
use grid_atob, only: grille_m |
41 |
use grid_change, only: init_dyn_phy, dyn_phy |
use grid_change, only: init_dyn_phy, dyn_phy |
42 |
use q_sat_m, only: q_sat |
use q_sat_m, only: q_sat |
353 |
ratqs = 0. |
ratqs = 0. |
354 |
run_off_lic_0 = 0. |
run_off_lic_0 = 0. |
355 |
|
|
356 |
call phyredem("startphy.nc", phystep, radpas, latfi, lonfi, pctsrf, & |
call phyredem("startphy.nc", radpas, latfi, lonfi, pctsrf, & |
357 |
tsolsrf, tsoil, tslab, seaice, qsolsrf, qsol, snsrf, albe, alblw, & |
tsolsrf, tsoil, tslab, seaice, qsolsrf, qsol, snsrf, albe, alblw, & |
358 |
evap, rain_fall, snow_fall, solsw, sollw, fder, radsol, frugs, & |
evap, rain_fall, snow_fall, solsw, sollw, fder, radsol, frugs, & |
359 |
agesno, zmea, zstd, zsig, zgam, zthe, zpic, zval, rugsrel, & |
agesno, zmea, zstd, zsig, zgam, zthe, zpic, zval, rugsrel, & |