/[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 98 by guez, Tue May 13 17:23:16 2014 UTC revision 104 by guez, Thu Sep 4 10:05:52 2014 UTC
# Line 82  contains Line 82  contains
82      REAL yv1(klon) ! vents au premier niveau      REAL yv1(klon) ! vents au premier niveau
83    
84      ! Arguments n\'ecessaires pour les sources et puits de traceur :      ! Arguments n\'ecessaires pour les sources et puits de traceur :
85      real ftsol(klon, nbsrf) ! Temperature du sol (surf)(Kelvin)      real, intent(in):: ftsol(klon, nbsrf) ! Temperature du sol (surf)(Kelvin)
86      real pctsrf(klon, nbsrf) ! Pourcentage de sol f(nature du sol)      real pctsrf(klon, nbsrf) ! Pourcentage de sol f(nature du sol)
87    
88      ! Lessivage pour le on-line      ! Lessivage pour le on-line
# Line 103  contains Line 103  contains
103      REAL prfl(klon, llm+1), psfl(klon, llm+1) !--lessivage large-scale      REAL prfl(klon, llm+1), psfl(klon, llm+1) !--lessivage large-scale
104    
105      ! Kerry Emanuel      ! Kerry Emanuel
106      real da(klon, llm), phi(klon, llm, llm), mp(klon, llm)      real, intent(in):: da(klon, llm), phi(klon, llm, llm), mp(klon, llm)
107      REAL, intent(in):: upwd(klon, llm) ! saturated updraft mass flux      REAL, intent(in):: upwd(klon, llm) ! saturated updraft mass flux
108      REAL, intent(in):: dnwd(klon, llm) ! saturated downdraft mass flux      REAL, intent(in):: dnwd(klon, llm) ! saturated downdraft mass flux
109    
Legend:
Removed from v.98  
changed lines
  Added in v.104
  ViewVC Help
Powered by ViewVC 1.1.21