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 ycoefh(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 |
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(:, 2:), ycoefh(:, 1), fm_therm, entr_therm, u(:, 1), v(:, 1), & |
mfd, pde_u, pen_d, ycoefh, 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) |