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

Diff of /trunk/dyn3d/dudv2.f90

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

trunk/Sources/dyn3d/dudv2.f revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC trunk/dyn3d/dudv2.f90 revision 328 by guez, Thu Jun 13 14:40:06 2019 UTC
# Line 14  contains Line 14  contains
14      ! du terme "- gradient de la fonction de Bernouilli". Ces termes      ! du terme "- gradient de la fonction de Bernouilli". Ces termes
15      ! sont ajoutés à d(ucov)/dt et à d(vcov)/dt.      ! sont ajoutés à d(ucov)/dt et à d(vcov)/dt.
16    
17      USE dimens_m, ONLY: iim, llm      USE dimensions, ONLY: iim, llm
18      USE paramet_m, ONLY: iip1, iip2, ip1jm, ip1jmp1      USE paramet_m, ONLY: iip1, iip2, ip1jm, ip1jmp1
19    
20      REAL, INTENT(IN):: teta(ip1jmp1, llm)      REAL, INTENT(IN):: teta(ip1jmp1, llm)
21      REAL, INTENT(IN):: pkf(ip1jmp1, llm)      REAL, INTENT(IN):: pkf(ip1jmp1, llm)
22      real, INTENT(IN):: bern(ip1jmp1, llm)      real, INTENT(IN):: bern(ip1jmp1, llm)
23      real du(ip1jmp1, llm), dv(ip1jm, llm)      real, intent(inout):: du(ip1jmp1, llm), dv(ip1jm, llm)
     ! du et dv sont des arguments de sortie pour le s-pg  
24    
25      ! Local:      ! Local:
26      INTEGER l, ij      INTEGER l, ij
Legend:
Removed from v.134  
changed lines
  Added in v.328
  ViewVC Help
Powered by ViewVC 1.1.21