13 |
nqmax, pdtphys, u, v, t_seri, paprs, pplay, pmfu, pmfd, pen_u, & |
nqmax, pdtphys, u, v, t_seri, paprs, pplay, pmfu, pmfd, pen_u, & |
14 |
pde_u, pen_d, pde_d, coefh, fm_therm, entr_therm, yu1, yv1, ftsol, & |
pde_u, pen_d, pde_d, coefh, fm_therm, entr_therm, yu1, yv1, ftsol, & |
15 |
pctsrf, frac_impa, frac_nucl, presnivs, pphis, & |
pctsrf, frac_impa, frac_nucl, presnivs, pphis, & |
16 |
pphi, albsol, sh, rh, cldfra, rneb, diafra, cldliq, itop_con, & |
pphi, albsol, rh, cldfra, rneb, diafra, cldliq, itop_con, & |
17 |
ibas_con, pmflxr, pmflxs, prfl, psfl, da, phi, mp, upwd, dnwd, tr_seri) |
ibas_con, pmflxr, pmflxs, prfl, psfl, da, phi, mp, upwd, dnwd, tr_seri) |
18 |
|
|
19 |
! From phylmd/phytrac.F, version 1.15 2006/02/21 08:08:30 |
! From phylmd/phytrac.F, version 1.15 2006/02/21 08:08:30 |
33 |
use dimens_m, only: iim, jjm, llm |
use dimens_m, only: iim, jjm, llm |
34 |
use indicesol, only: nbsrf |
use indicesol, only: nbsrf |
35 |
use dimphy, only: klon, nbtr |
use dimphy, only: klon, nbtr |
36 |
use clesphys, only: ecrit_tra, iflag_con |
use clesphys, only: ecrit_tra |
37 |
|
use clesphys2, only: iflag_con |
38 |
use abort_gcm_m, only: abort_gcm |
use abort_gcm_m, only: abort_gcm |
39 |
use YOMCST, only: rg |
use YOMCST, only: rg |
40 |
use ctherm, only: iflag_thermals |
use ctherm, only: iflag_thermals |
67 |
|
|
68 |
real u(klon, llm) |
real u(klon, llm) |
69 |
real v(klon, llm) |
real v(klon, llm) |
|
real sh(klon, llm) ! humidite specifique |
|
70 |
real rh(klon, llm) ! humidite relative |
real rh(klon, llm) ! humidite relative |
71 |
real cldliq(klon, llm) ! eau liquide nuageuse |
real cldliq(klon, llm) ! eau liquide nuageuse |
72 |
real cldfra(klon, llm) ! fraction nuageuse (tous les nuages) |
real cldfra(klon, llm) ! fraction nuageuse (tous les nuages) |