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

Diff of /trunk/dyn3d/dudv1.f

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

revision 88 by guez, Tue Mar 11 15:09:02 2014 UTC revision 91 by guez, Wed Mar 26 17:18:58 2014 UTC
# Line 13  contains Line 13  contains
13      ! Objet: calcul du terme de rotation. Ce terme est ajouté à      ! Objet: calcul du terme de rotation. Ce terme est ajouté à
14      ! d(ucov)/dt et à d(vcov)/dt.      ! d(ucov)/dt et à d(vcov)/dt.
15    
16      USE dimens_m, ONLY: iim, llm      USE dimens_m, ONLY: iim, jjm, llm
17      USE paramet_m, ONLY: iip1, iip2, ip1jm, ip1jmp1      USE paramet_m, ONLY: iip1, iip2, ip1jm, ip1jmp1
18    
19      REAL, intent(in):: vorpot(ip1jm, llm)      REAL, intent(in):: vorpot(ip1jm, llm)
20      REAL, intent(in):: pbaru(ip1jmp1, llm), pbarv(ip1jm, llm)      REAL, intent(in):: pbaru(ip1jmp1, llm), pbarv(ip1jm, llm)
21        real, intent(out):: du(iim + 2: (iim + 1) * jjm, llm), dv(ip1jm, llm)
     real du(ip1jmp1, llm), dv(ip1jm, llm)  
     ! du et dv sont des arguments de sortie pour le s-pg  
22    
23      ! Local:      ! Local:
24      INTEGER l, ij      INTEGER l, ij
Legend:
Removed from v.88  
changed lines
  Added in v.91
  ViewVC Help
Powered by ViewVC 1.1.21