1255 |
ratqs = ratqss |
ratqs = ratqss |
1256 |
endif |
endif |
1257 |
|
|
|
! Processus de condensation ŕ grande echelle et processus de |
|
|
! précipitation : |
|
1258 |
CALL fisrtilp(dtphys, paprs, play, t_seri, q_seri, ptconv, ratqs, & |
CALL fisrtilp(dtphys, paprs, play, t_seri, q_seri, ptconv, ratqs, & |
1259 |
d_t_lsc, d_q_lsc, d_ql_lsc, rneb, cldliq, rain_lsc, snow_lsc, & |
d_t_lsc, d_q_lsc, d_ql_lsc, rneb, cldliq, rain_lsc, snow_lsc, & |
1260 |
pfrac_impa, pfrac_nucl, pfrac_1nucl, frac_impa, frac_nucl, prfl, & |
pfrac_impa, pfrac_nucl, pfrac_1nucl, frac_impa, frac_nucl, prfl, & |
1556 |
|
|
1557 |
! Calcul des tendances traceurs |
! Calcul des tendances traceurs |
1558 |
call phytrac(rnpb, itap, lmt_pas, julien, time, firstcal, lafin, nqmx-2, & |
call phytrac(rnpb, itap, lmt_pas, julien, time, firstcal, lafin, nqmx-2, & |
1559 |
dtphys, u, t, paprs, play, mfu, mfd, pen_u, pde_u, pen_d, pde_d, & |
dtphys, u, t, paprs, play, mfu, mfd, pde_u, pen_d, ycoefh, fm_therm, & |
1560 |
ycoefh, fm_therm, entr_therm, yu1, yv1, ftsol, pctsrf, frac_impa, & |
entr_therm, yu1, yv1, ftsol, pctsrf, frac_impa, frac_nucl, pphis, & |
1561 |
frac_nucl, pphis, albsol, rhcl, cldfra, rneb, diafra, cldliq, & |
albsol, rhcl, cldfra, rneb, diafra, cldliq, pmflxr, pmflxs, prfl, & |
1562 |
pmflxr, pmflxs, prfl, psfl, da, phi, mp, upwd, dnwd, tr_seri, zmasse) |
psfl, da, phi, mp, upwd, dnwd, tr_seri, zmasse) |
1563 |
|
|
1564 |
IF (offline) THEN |
IF (offline) call phystokenc(dtphys, rlon, rlat, t, mfu, mfd, pen_u, & |
1565 |
call phystokenc(dtphys, rlon, rlat, t, mfu, mfd, pen_u, pde_u, & |
pde_u, pen_d, pde_d, fm_therm, entr_therm, ycoefh, yu1, yv1, ftsol, & |
1566 |
pen_d, pde_d, fm_therm, entr_therm, ycoefh, yu1, yv1, ftsol, & |
pctsrf, frac_impa, frac_nucl, pphis, airephy, dtphys, itap) |
|
pctsrf, frac_impa, frac_nucl, pphis, airephy, dtphys, itap) |
|
|
ENDIF |
|
1567 |
|
|
1568 |
! Calculer le transport de l'eau et de l'energie (diagnostique) |
! Calculer le transport de l'eau et de l'energie (diagnostique) |
1569 |
CALL transp(paprs, zxtsol, t_seri, q_seri, u_seri, v_seri, zphi, ve, vq, & |
CALL transp(paprs, zxtsol, t_seri, q_seri, u_seri, v_seri, zphi, ve, vq, & |