59 |
use radlwsw_m, only: radlwsw |
use radlwsw_m, only: radlwsw |
60 |
use readsulfate_m, only: readsulfate |
use readsulfate_m, only: readsulfate |
61 |
use readsulfate_preind_m, only: readsulfate_preind |
use readsulfate_preind_m, only: readsulfate_preind |
62 |
use sugwd_m, only: sugwd |
use yoegwd, only: sugwd |
63 |
USE suphec_m, ONLY: ra, rcpd, retv, rg, rlvtt, romega, rsigma, rtt |
USE suphec_m, ONLY: ra, rcpd, retv, rg, rlvtt, romega, rsigma, rtt |
64 |
USE temps, ONLY: itau_phy |
USE temps, ONLY: itau_phy |
65 |
use unit_nml_m, only: unit_nml |
use unit_nml_m, only: unit_nml |
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, & |