1036 |
fder = dlw |
fder = dlw |
1037 |
|
|
1038 |
! Couche limite: |
! Couche limite: |
|
CALL clmain(pdtphys, itap, date0, pctsrf, pctsrf_new, & |
|
|
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. |