/[lmdze]/trunk/dyn3d/advect.f
ViewVC logotype

Diff of /trunk/dyn3d/advect.f

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

revision 132 by guez, Fri Mar 20 16:31:06 2015 UTC revision 265 by guez, Tue Mar 20 09:35:59 2018 UTC
# Line 11  contains Line 11  contains
11      ! Objet : calcul des termes d'advection verticale pour u, v, teta.      ! Objet : calcul des termes d'advection verticale pour u, v, teta.
12      ! Ces termes sont ajoutés à du, dv, dteta.      ! Ces termes sont ajoutés à du, dv, dteta.
13    
14      USE dimens_m, ONLY : iim, llm      USE dimensions, ONLY : iim, llm
15      USE paramet_m, ONLY : iip1, iip2, ip1jm, ip1jmp1      USE paramet_m, ONLY : iip1, iip2, ip1jm, ip1jmp1
     USE comconst, ONLY : daysec  
16    
17      REAL, intent(in):: ucov(ip1jmp1, llm), vcov(ip1jm, llm)      REAL, intent(in):: ucov(ip1jmp1, llm), vcov(ip1jm, llm)
18      real, intent(in):: teta(ip1jmp1, llm)      real, intent(in):: teta(ip1jmp1, llm)
Legend:
Removed from v.132  
changed lines
  Added in v.265
  ViewVC Help
Powered by ViewVC 1.1.21