22 |
USE clesphys, ONLY: cdhmax, cdmmax, co2_ppm, ecrit_hf, ecrit_ins, & |
USE clesphys, ONLY: cdhmax, cdmmax, co2_ppm, ecrit_hf, ecrit_ins, & |
23 |
ecrit_mth, ecrit_reg, ecrit_tra, ksta, ksta_ter, ok_kzmin |
ecrit_mth, ecrit_reg, ecrit_tra, ksta, ksta_ter, ok_kzmin |
24 |
USE clesphys2, ONLY: cycle_diurne, iflag_con, nbapp_rad, new_oliq, & |
USE clesphys2, ONLY: cycle_diurne, iflag_con, nbapp_rad, new_oliq, & |
25 |
ok_orodr, ok_orolf, soil_model |
ok_orodr, ok_orolf |
26 |
USE clmain_m, ONLY: clmain |
USE clmain_m, ONLY: clmain |
27 |
use clouds_gno_m, only: clouds_gno |
use clouds_gno_m, only: clouds_gno |
28 |
USE comgeomphy, ONLY: airephy, cuphy, cvphy |
USE comgeomphy, ONLY: airephy, cuphy, cvphy |
242 |
REAL, save:: fqsurf(klon, nbsrf) |
REAL, save:: fqsurf(klon, nbsrf) |
243 |
! humidite de l'air au contact de la surface |
! humidite de l'air au contact de la surface |
244 |
|
|
245 |
REAL, save:: qsol(klon) ! hauteur d'eau dans le sol |
REAL, save:: qsol(klon) |
246 |
|
! column-density of water in soil, in kg m-2 |
247 |
|
|
248 |
REAL, save:: fsnow(klon, nbsrf) ! epaisseur neigeuse |
REAL, save:: fsnow(klon, nbsrf) ! epaisseur neigeuse |
249 |
REAL, save:: falbe(klon, nbsrf) ! albedo par type de surface |
REAL, save:: falbe(klon, nbsrf) ! albedo par type de surface |
250 |
REAL, save:: falblw(klon, nbsrf) ! albedo par type de surface |
REAL, save:: falblw(klon, nbsrf) ! albedo par type de surface |
304 |
REAL frac_impa(klon, llm) ! fractions d'aerosols lessivees (impaction) |
REAL frac_impa(klon, llm) ! fractions d'aerosols lessivees (impaction) |
305 |
REAL frac_nucl(klon, llm) ! idem (nucleation) |
REAL frac_nucl(klon, llm) ! idem (nucleation) |
306 |
|
|
307 |
REAL, save:: rain_fall(klon) ! pluie |
REAL, save:: rain_fall(klon) |
308 |
REAL, save:: snow_fall(klon) ! neige |
! liquid water mass flux (kg/m2/s), positive down |
309 |
|
|
310 |
|
REAL, save:: snow_fall(klon) |
311 |
|
! solid water mass flux (kg/m2/s), positive down |
312 |
|
|
313 |
REAL rain_tiedtke(klon), snow_tiedtke(klon) |
REAL rain_tiedtke(klon), snow_tiedtke(klon) |
314 |
|
|
797 |
! Couche limite: |
! Couche limite: |
798 |
|
|
799 |
CALL clmain(dtphys, itap, pctsrf, pctsrf_new, t_seri, q_seri, u_seri, & |
CALL clmain(dtphys, itap, pctsrf, pctsrf_new, t_seri, q_seri, u_seri, & |
800 |
v_seri, julien, rmu0, co2_ppm, ftsol, soil_model, & |
v_seri, julien, rmu0, co2_ppm, ftsol, cdmmax, cdhmax, & |
801 |
cdmmax, cdhmax, ksta, ksta_ter, ok_kzmin, ftsoil, qsol, paprs, play, & |
ksta, ksta_ter, ok_kzmin, ftsoil, qsol, paprs, play, fsnow, fqsurf, & |
802 |
fsnow, fqsurf, fevap, falbe, falblw, fluxlat, rain_fall, snow_fall, & |
fevap, falbe, falblw, fluxlat, rain_fall, snow_fall, fsolsw, fsollw, & |
803 |
fsolsw, fsollw, fder, rlat, frugs, firstcal, agesno, rugoro, & |
fder, rlat, frugs, firstcal, agesno, rugoro, d_t_vdf, d_q_vdf, & |
804 |
d_t_vdf, d_q_vdf, d_u_vdf, d_v_vdf, d_ts, fluxt, fluxq, fluxu, & |
d_u_vdf, d_v_vdf, d_ts, fluxt, fluxq, fluxu, fluxv, cdragh, cdragm, & |
805 |
fluxv, cdragh, cdragm, q2, dsens, devap, ycoefh, yu1, yv1, t2m, q2m, & |
q2, dsens, devap, ycoefh, yu1, yv1, t2m, q2m, u10m, v10m, pblh, & |
806 |
u10m, v10m, pblh, capCL, oliqCL, cteiCL, pblT, therm, trmb1, trmb2, & |
capCL, oliqCL, cteiCL, pblT, therm, trmb1, trmb2, trmb3, plcl, & |
807 |
trmb3, plcl, fqcalving, ffonte, run_off_lic_0, fluxo, fluxg, tslab, & |
fqcalving, ffonte, run_off_lic_0, fluxo, fluxg, tslab) |
|
seaice) |
|
808 |
|
|
809 |
! Incr\'ementation des flux |
! Incr\'ementation des flux |
810 |
|
|