1313 |
! Calcul des tendances traceurs |
! Calcul des tendances traceurs |
1314 |
call phytrac(itap, lmt_pas, julien, time, firstcal, lafin, dtphys, t, & |
call phytrac(itap, lmt_pas, julien, time, firstcal, lafin, dtphys, t, & |
1315 |
paprs, play, mfu, mfd, pde_u, pen_d, ycoefh, fm_therm, entr_therm, & |
paprs, play, mfu, mfd, pde_u, pen_d, ycoefh, fm_therm, entr_therm, & |
1316 |
yu1, yv1, ftsol, pctsrf, frac_impa, frac_nucl, pphis, da, phi, mp, & |
yu1, yv1, ftsol, pctsrf, frac_impa, frac_nucl, da, phi, mp, upwd, & |
1317 |
upwd, dnwd, tr_seri, zmasse, ncid_startphy) |
dnwd, tr_seri, zmasse, ncid_startphy, nid_ins) |
1318 |
|
|
1319 |
IF (offline) call phystokenc(dtphys, rlon, rlat, t, mfu, mfd, pen_u, & |
IF (offline) call phystokenc(dtphys, rlon, rlat, t, mfu, mfd, pen_u, & |
1320 |
pde_u, pen_d, pde_d, fm_therm, entr_therm, ycoefh, yu1, yv1, ftsol, & |
pde_u, pen_d, pde_d, fm_therm, entr_therm, ycoefh, yu1, yv1, ftsol, & |