62 |
use yoegwd, 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 transp_m, only: transp |
66 |
use unit_nml_m, only: unit_nml |
use unit_nml_m, only: unit_nml |
67 |
USE ymds2ju_m, ONLY: ymds2ju |
USE ymds2ju_m, ONLY: ymds2ju |
68 |
USE yoethf_m, ONLY: r2es, rvtmp2 |
USE yoethf_m, ONLY: r2es, rvtmp2 |
290 |
! Declaration des procedures appelees |
! Declaration des procedures appelees |
291 |
|
|
292 |
EXTERNAL nuage ! calculer les proprietes radiatives |
EXTERNAL nuage ! calculer les proprietes radiatives |
|
EXTERNAL transp ! transport total de l'eau et de l'energie |
|
293 |
|
|
294 |
! Variables locales |
! Variables locales |
295 |
|
|
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, & |