184 |
REAL cdragh(klon) ! drag coefficient pour T and Q |
REAL cdragh(klon) ! drag coefficient pour T and Q |
185 |
REAL cdragm(klon) ! drag coefficient pour vent |
REAL cdragm(klon) ! drag coefficient pour vent |
186 |
|
|
187 |
REAL ycoefh(klon, llm) ! coef d'echange pour phytrac |
REAL coefh(klon, 2:llm) ! coef d'echange pour phytrac |
188 |
|
|
189 |
REAL, save:: ffonte(klon, nbsrf) |
REAL, save:: ffonte(klon, nbsrf) |
190 |
! flux thermique utilise pour fondre la neige |
! flux thermique utilise pour fondre la neige |
571 |
paprs, play, fsnow, fqsurf, fevap, falbe, fluxlat, rain_fall, & |
paprs, play, fsnow, fqsurf, fevap, falbe, fluxlat, rain_fall, & |
572 |
snow_fall, fsolsw, fsollw, frugs, agesno, rugoro, d_t_vdf, d_q_vdf, & |
snow_fall, fsolsw, fsollw, frugs, agesno, rugoro, d_t_vdf, d_q_vdf, & |
573 |
d_u_vdf, d_v_vdf, d_ts, flux_t, flux_q, flux_u, flux_v, cdragh, & |
d_u_vdf, d_v_vdf, d_ts, flux_t, flux_q, flux_u, flux_v, cdragh, & |
574 |
cdragm, q2, dsens, devap, ycoefh, t2m, q2m, u10m_srf, v10m_srf, & |
cdragm, q2, dsens, devap, coefh, t2m, q2m, u10m_srf, v10m_srf, & |
575 |
pblh, capCL, oliqCL, cteiCL, pblT, therm, trmb1, trmb2, trmb3, plcl, & |
pblh, capCL, oliqCL, cteiCL, pblT, therm, trmb1, trmb2, trmb3, plcl, & |
576 |
fqcalving, ffonte, run_off_lic_0) |
fqcalving, ffonte, run_off_lic_0) |
577 |
|
|
952 |
|
|
953 |
! Calcul des tendances traceurs |
! Calcul des tendances traceurs |
954 |
call phytrac(julien, time, firstcal, lafin, dtphys, t, paprs, play, mfu, & |
call phytrac(julien, time, firstcal, lafin, dtphys, t, paprs, play, mfu, & |
955 |
mfd, pde_u, pen_d, ycoefh, fm_therm, entr_therm, u(:, 1), v(:, 1), & |
mfd, pde_u, pen_d, coefh, cdragh, fm_therm, entr_therm, u(:, 1), & |
956 |
ftsol, pctsrf, frac_impa, frac_nucl, da, phi, mp, upwd, dnwd, & |
v(:, 1), ftsol, pctsrf, frac_impa, frac_nucl, da, phi, mp, upwd, & |
957 |
tr_seri, zmasse, ncid_startphy) |
dnwd, tr_seri, zmasse, ncid_startphy) |
958 |
|
|
959 |
! Calculer le transport de l'eau et de l'energie (diagnostique) |
! Calculer le transport de l'eau et de l'energie (diagnostique) |
960 |
CALL transp(paprs, t_seri, q_seri, u_seri, v_seri, zphi, ve, vq, ue, uq) |
CALL transp(paprs, t_seri, q_seri, u_seri, v_seri, zphi, ve, vq, ue, uq) |