18 |
USE abort_gcm_m, ONLY: abort_gcm |
USE abort_gcm_m, ONLY: abort_gcm |
19 |
use ajsec_m, only: ajsec |
use ajsec_m, only: ajsec |
20 |
use calltherm_m, only: calltherm |
use calltherm_m, only: calltherm |
21 |
USE clesphys, ONLY: cdhmax, cdmmax, ecrit_ins, ksta, ksta_ter, ok_kzmin, & |
USE clesphys, ONLY: cdhmax, cdmmax, ecrit_ins, ok_instan |
|
ok_instan |
|
22 |
USE clesphys2, ONLY: conv_emanuel, nbapp_rad, new_oliq, ok_orodr, ok_orolf |
USE clesphys2, ONLY: conv_emanuel, nbapp_rad, new_oliq, ok_orodr, ok_orolf |
23 |
USE clmain_m, ONLY: clmain |
USE clmain_m, ONLY: clmain |
24 |
use clouds_gno_m, only: clouds_gno |
use clouds_gno_m, only: clouds_gno |
566 |
END forall |
END forall |
567 |
|
|
568 |
CALL clmain(dtphys, pctsrf, t_seri, q_seri, u_seri, v_seri, julien, mu0, & |
CALL clmain(dtphys, pctsrf, t_seri, q_seri, u_seri, v_seri, julien, mu0, & |
569 |
ftsol, cdmmax, cdhmax, ksta, ksta_ter, ok_kzmin, ftsoil, qsol, & |
ftsol, cdmmax, cdhmax, ftsoil, qsol, paprs, play, fsnow, fqsurf, & |
570 |
paprs, play, fsnow, fqsurf, fevap, falbe, fluxlat, rain_fall, & |
fevap, falbe, fluxlat, rain_fall, snow_fall, fsolsw, fsollw, frugs, & |
571 |
snow_fall, fsolsw, fsollw, frugs, agesno, rugoro, d_t_vdf, d_q_vdf, & |
agesno, rugoro, d_t_vdf, d_q_vdf, d_u_vdf, d_v_vdf, d_ts, flux_t, & |
572 |
d_u_vdf, d_v_vdf, d_ts, flux_t, flux_q, flux_u, flux_v, cdragh, & |
flux_q, flux_u, flux_v, cdragh, cdragm, q2, dsens, devap, coefh, t2m, & |
573 |
cdragm, q2, dsens, devap, coefh, t2m, q2m, u10m_srf, v10m_srf, & |
q2m, u10m_srf, v10m_srf, pblh, capCL, oliqCL, cteiCL, pblT, therm, & |
574 |
pblh, capCL, oliqCL, cteiCL, pblT, therm, trmb1, trmb2, trmb3, plcl, & |
trmb1, trmb2, trmb3, plcl, fqcalving, ffonte, run_off_lic_0) |
|
fqcalving, ffonte, run_off_lic_0) |
|
575 |
|
|
576 |
! Incr\'ementation des flux |
! Incr\'ementation des flux |
577 |
|
|