8 |
contains |
contains |
9 |
|
|
10 |
SUBROUTINE phytrac(julien, gmtime, firstcal, lafin, pdtphys, t_seri, paprs, & |
SUBROUTINE phytrac(julien, gmtime, firstcal, lafin, pdtphys, t_seri, paprs, & |
11 |
pplay, pmfu, pmfd, pde_u, pen_d, coefh, cdragh, fm_therm, entr_therm, yu1, & |
pplay, pmfu, pmfd, pde_u, pen_d, coefh, cdragh, fm_therm, entr_therm, & |
12 |
yv1, ftsol, pctsrf, frac_impa, frac_nucl, da, phi, mp, upwd, dnwd, & |
yu1, yv1, ftsol, pctsrf, frac_impa, frac_nucl, da, phi, mp, upwd, dnwd, & |
13 |
tr_seri, zmasse, ncid_startphy) |
tr_seri, zmasse, ncid_startphy) |
14 |
|
|
15 |
! From phylmd/phytrac.F, version 1.15, 2006/02/21 08:08:30 (SVN |
! From phylmd/phytrac.F, version 1.15, 2006/02/21 08:08:30 (SVN |
35 |
USE conf_gcm_m, ONLY: lmt_pas |
USE conf_gcm_m, ONLY: lmt_pas |
36 |
use ctherm, only: iflag_thermals |
use ctherm, only: iflag_thermals |
37 |
use cvltr_m, only: cvltr |
use cvltr_m, only: cvltr |
38 |
use dimens_m, only: llm, nqmx |
use dimensions, only: llm, nqmx |
39 |
use dimphy, only: klon |
use dimphy, only: klon |
40 |
use histwrite_phy_m, only: histwrite_phy |
use histwrite_phy_m, only: histwrite_phy |
41 |
use indicesol, only: nbsrf |
use indicesol, only: nbsrf |