8 |
contains |
contains |
9 |
|
|
10 |
SUBROUTINE phytrac(itap, lmt_pas, julien, gmtime, firstcal, lafin, pdtphys, & |
SUBROUTINE phytrac(itap, lmt_pas, julien, gmtime, firstcal, lafin, pdtphys, & |
11 |
u, t_seri, paprs, pplay, pmfu, pmfd, pde_u, pen_d, coefh, fm_therm, & |
t_seri, paprs, pplay, pmfu, pmfd, pde_u, pen_d, coefh, fm_therm, & |
12 |
entr_therm, yu1, yv1, ftsol, pctsrf, frac_impa, frac_nucl, pphis, & |
entr_therm, yu1, yv1, ftsol, pctsrf, frac_impa, frac_nucl, pphis, da, & |
13 |
albsol, rh, cldfra, rneb, diafra, cldliq, pmflxr, pmflxs, prfl, psfl, & |
phi, mp, upwd, dnwd, tr_seri, zmasse) |
|
da, phi, mp, upwd, dnwd, tr_seri, zmasse) |
|
14 |
|
|
15 |
! From phylmd/phytrac.F, version 1.15 2006/02/21 08:08:30 (SVN revision 679) |
! From phylmd/phytrac.F, version 1.15 2006/02/21 08:08:30 (SVN revision 679) |
16 |
|
|
53 |
logical, intent(in):: firstcal ! first call to "calfis" |
logical, intent(in):: firstcal ! first call to "calfis" |
54 |
logical, intent(in):: lafin ! fin de la physique |
logical, intent(in):: lafin ! fin de la physique |
55 |
real, intent(in):: pdtphys ! pas d'integration pour la physique (s) |
real, intent(in):: pdtphys ! pas d'integration pour la physique (s) |
|
real, intent(in):: u(klon, llm) |
|
56 |
real, intent(in):: t_seri(klon, llm) ! temperature, in K |
real, intent(in):: t_seri(klon, llm) ! temperature, in K |
57 |
|
|
58 |
real, intent(in):: paprs(klon, llm+1) |
real, intent(in):: paprs(klon, llm+1) |
80 |
REAL yv1(klon) ! vents au premier niveau |
REAL yv1(klon) ! vents au premier niveau |
81 |
|
|
82 |
! Arguments n\'ecessaires pour les sources et puits de traceur : |
! Arguments n\'ecessaires pour les sources et puits de traceur : |
83 |
real ftsol(klon, nbsrf) ! Temperature du sol (surf)(Kelvin) |
real, intent(in):: ftsol(klon, nbsrf) ! Temperature du sol (surf)(Kelvin) |
84 |
real pctsrf(klon, nbsrf) ! Pourcentage de sol f(nature du sol) |
real pctsrf(klon, nbsrf) ! Pourcentage de sol f(nature du sol) |
85 |
|
|
86 |
! Lessivage pour le on-line |
! Lessivage pour le on-line |
88 |
REAL frac_nucl(klon, llm) ! fraction d'aerosols nuclees |
REAL frac_nucl(klon, llm) ! fraction d'aerosols nuclees |
89 |
|
|
90 |
real, intent(in):: pphis(klon) |
real, intent(in):: pphis(klon) |
|
real albsol(klon) ! albedo surface |
|
|
real rh(klon, llm) ! humidite relative |
|
|
real cldfra(klon, llm) ! fraction nuageuse (tous les nuages) |
|
|
real rneb(klon, llm) ! fraction nuageuse (grande echelle) |
|
|
|
|
|
real diafra(klon, llm) |
|
|
! (fraction nuageuse (convection ou stratus artificiels)) |
|
|
|
|
|
real cldliq(klon, llm) ! eau liquide nuageuse |
|
|
REAL pmflxr(klon, llm+1), pmflxs(klon, llm+1) !--lessivage convection |
|
|
REAL prfl(klon, llm+1), psfl(klon, llm+1) !--lessivage large-scale |
|
91 |
|
|
92 |
! Kerry Emanuel |
! Kerry Emanuel |
93 |
real da(klon, llm), phi(klon, llm, llm), mp(klon, llm) |
real, intent(in):: da(klon, llm), phi(klon, llm, llm), mp(klon, llm) |
94 |
REAL, intent(in):: upwd(klon, llm) ! saturated updraft mass flux |
REAL, intent(in):: upwd(klon, llm) ! saturated updraft mass flux |
95 |
REAL, intent(in):: dnwd(klon, llm) ! saturated downdraft mass flux |
REAL, intent(in):: dnwd(klon, llm) ! saturated downdraft mass flux |
96 |
|
|