31 |
ok_kzmin |
ok_kzmin |
32 |
use clesphys2, only: iflag_con, ok_orolf, ok_orodr, nbapp_rad, & |
use clesphys2, only: iflag_con, ok_orolf, ok_orodr, nbapp_rad, & |
33 |
cycle_diurne, new_oliq, soil_model |
cycle_diurne, new_oliq, soil_model |
34 |
|
use clmain_m, only: clmain |
35 |
use comgeomphy |
use comgeomphy |
36 |
use conf_gcm_m, only: raz_date, offline |
use conf_gcm_m, only: raz_date, offline |
37 |
use conf_phys_m, only: conf_phys |
use conf_phys_m, only: conf_phys |
59 |
use radepsi |
use radepsi |
60 |
use radopt |
use radopt |
61 |
use temps, only: itau_phy, day_ref, annee_ref |
use temps, only: itau_phy, day_ref, annee_ref |
62 |
use yoethf |
use yoethf_m |
63 |
use YOMCST, only: rcpd, rtt, rlvtt, rg, ra, rsigma, retv, romega |
use SUPHEC_M, only: rcpd, rtt, rlvtt, rg, ra, rsigma, retv, romega |
64 |
|
|
65 |
! Declaration des constantes et des fonctions thermodynamiques : |
! Declaration des constantes et des fonctions thermodynamiques : |
66 |
use fcttre, only: thermcep, foeew, qsats, qsatl |
use fcttre, only: thermcep, foeew, qsats, qsatl |
405 |
|
|
406 |
EXTERNAL alboc ! calculer l'albedo sur ocean |
EXTERNAL alboc ! calculer l'albedo sur ocean |
407 |
EXTERNAL ajsec ! ajustement sec |
EXTERNAL ajsec ! ajustement sec |
|
EXTERNAL clmain ! couche limite |
|
408 |
!KE43 |
!KE43 |
409 |
EXTERNAL conema3 ! convect4.3 |
EXTERNAL conema3 ! convect4.3 |
410 |
EXTERNAL fisrtilp ! schema de condensation a grande echelle (pluie) |
EXTERNAL fisrtilp ! schema de condensation a grande echelle (pluie) |
1035 |
|
|
1036 |
fder = dlw |
fder = dlw |
1037 |
|
|
1038 |
CALL clmain(pdtphys, itap, date0, pctsrf, pctsrf_new, & |
! Couche limite: |
|
t_seri, q_seri, u_seri, v_seri, & |
|
|
julien, rmu0, co2_ppm, & |
|
|
ok_veget, ocean, npas, nexca, ftsol, & |
|
|
soil_model, cdmmax, cdhmax, & |
|
|
ksta, ksta_ter, ok_kzmin, ftsoil, qsol, & |
|
|
paprs, pplay, fsnow, fqsurf, fevap, falbe, falblw, & |
|
|
fluxlat, rain_fall, snow_fall, & |
|
|
fsolsw, fsollw, sollwdown, fder, & |
|
|
rlon, rlat, cuphy, cvphy, frugs, & |
|
|
firstcal, lafin, agesno, rugoro, & |
|
|
d_t_vdf, d_q_vdf, d_u_vdf, d_v_vdf, d_ts, & |
|
|
fluxt, fluxq, fluxu, fluxv, cdragh, cdragm, & |
|
|
q2, dsens, devap, & |
|
|
ycoefh, yu1, yv1, t2m, q2m, u10m, v10m, & |
|
|
pblh, capCL, oliqCL, cteiCL, pblT, & |
|
|
therm, trmb1, trmb2, trmb3, plcl, & |
|
|
fqcalving, ffonte, run_off_lic_0, & |
|
|
fluxo, fluxg, tslab, seaice) |
|
1039 |
|
|
1040 |
!XXX Incrementation des flux |
CALL clmain(pdtphys, itap, date0, pctsrf, pctsrf_new, t_seri, q_seri, & |
1041 |
|
u_seri, v_seri, julien, rmu0, co2_ppm, ok_veget, ocean, npas, nexca, & |
1042 |
|
ftsol, soil_model, cdmmax, cdhmax, ksta, ksta_ter, ok_kzmin, ftsoil, & |
1043 |
|
qsol, paprs, pplay, fsnow, fqsurf, fevap, falbe, falblw, fluxlat, & |
1044 |
|
rain_fall, snow_fall, fsolsw, fsollw, sollwdown, fder, rlon, rlat, & |
1045 |
|
cuphy, cvphy, frugs, firstcal, lafin, agesno, rugoro, d_t_vdf, & |
1046 |
|
d_q_vdf, d_u_vdf, d_v_vdf, d_ts, fluxt, fluxq, fluxu, fluxv, cdragh, & |
1047 |
|
cdragm, q2, dsens, devap, ycoefh, yu1, yv1, t2m, q2m, u10m, v10m, & |
1048 |
|
pblh, capCL, oliqCL, cteiCL, pblT, therm, trmb1, trmb2, trmb3, plcl, & |
1049 |
|
fqcalving, ffonte, run_off_lic_0, fluxo, fluxg, tslab, seaice) |
1050 |
|
|
1051 |
|
! Incrémentation des flux |
1052 |
|
|
1053 |
zxfluxt=0. |
zxfluxt=0. |
1054 |
zxfluxq=0. |
zxfluxq=0. |