26 |
use comconst, only: dtphys |
use comconst, only: dtphys |
27 |
USE comgeomphy, ONLY: airephy |
USE comgeomphy, ONLY: airephy |
28 |
USE concvl_m, ONLY: concvl |
USE concvl_m, ONLY: concvl |
29 |
USE conf_gcm_m, ONLY: offline, lmt_pas |
USE conf_gcm_m, ONLY: lmt_pas |
30 |
USE conf_phys_m, ONLY: conf_phys |
USE conf_phys_m, ONLY: conf_phys |
31 |
use conflx_m, only: conflx |
use conflx_m, only: conflx |
32 |
USE ctherm, ONLY: iflag_thermals, nsplit_thermals |
USE ctherm, ONLY: iflag_thermals, nsplit_thermals |
53 |
USE phyetat0_m, ONLY: phyetat0, rlat, rlon |
USE phyetat0_m, ONLY: phyetat0, rlat, rlon |
54 |
USE phyredem_m, ONLY: phyredem |
USE phyredem_m, ONLY: phyredem |
55 |
USE phyredem0_m, ONLY: phyredem0 |
USE phyredem0_m, ONLY: phyredem0 |
|
USE phystokenc_m, ONLY: phystokenc |
|
56 |
USE phytrac_m, ONLY: phytrac |
USE phytrac_m, ONLY: phytrac |
57 |
use radlwsw_m, only: radlwsw |
use radlwsw_m, only: radlwsw |
58 |
use yoegwd, only: sugwd |
use yoegwd, only: sugwd |
969 |
pctsrf, frac_impa, frac_nucl, da, phi, mp, upwd, dnwd, tr_seri, & |
pctsrf, frac_impa, frac_nucl, da, phi, mp, upwd, dnwd, tr_seri, & |
970 |
zmasse, ncid_startphy) |
zmasse, ncid_startphy) |
971 |
|
|
|
IF (offline) call phystokenc(dtphys, t, mfu, mfd, pen_u, pde_u, pen_d, & |
|
|
pde_d, fm_therm, entr_therm, ycoefh, yu1, yv1, ftsol, pctsrf, & |
|
|
frac_impa, frac_nucl, pphis, airephy) |
|
|
|
|
972 |
! Calculer le transport de l'eau et de l'energie (diagnostique) |
! Calculer le transport de l'eau et de l'energie (diagnostique) |
973 |
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) |
974 |
|
|