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

Diff of /trunk/dyn3d/advect.f90

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

trunk/dyn3d/advect.f revision 254 by guez, Mon Feb 5 10:39:38 2018 UTC trunk/dyn3d/advect.f90 revision 328 by guez, Thu Jun 13 14:40:06 2019 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
16    
17      REAL, intent(in):: ucov(ip1jmp1, llm), vcov(ip1jm, llm)      REAL, intent(in):: ucov(ip1jmp1, llm), vcov(ip1jm, llm)
Legend:
Removed from v.254  
changed lines
  Added in v.328
  ViewVC Help
Powered by ViewVC 1.1.21