/[lmdze]/trunk/phylmd/phytrac.f
ViewVC logotype

Diff of /trunk/phylmd/phytrac.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 117 by guez, Thu Sep 4 10:05:52 2014 UTC revision 118 by guez, Thu Dec 18 17:30:24 2014 UTC
# Line 8  module phytrac_m Line 8  module phytrac_m
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    
# Line 54  contains Line 53  contains
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)
# Line 90  contains Line 88  contains
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, intent(in):: da(klon, llm), phi(klon, llm, llm), mp(klon, llm)      real, intent(in):: da(klon, llm), phi(klon, llm, llm), mp(klon, llm)
Legend:
Removed from v.117  
changed lines
  Added in v.118
  ViewVC Help
Powered by ViewVC 1.1.21