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

Diff of /trunk/dyn3d/dudv2.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 95 by guez, Wed Apr 2 12:59:54 2014 UTC
# Line 10  contains Line 10  contains
10    
11      ! Author: P. Le Van      ! Author: P. Le Van
12    
13      ! Objet: calcul du terme de pression (gradient de p/densité) et du      ! Objet : calcul du terme de pression (gradient de p / densité) et
14      ! terme de (- gradient de la fonction de Bernouilli). Ces termes      ! du terme "- gradient de la fonction de Bernouilli". Ces termes
15      ! sont ajoutes a d(ucov)/dt et a d(vcov)/dt.      ! sont ajoutés à d(ucov)/dt et à d(vcov)/dt.
16    
17      USE dimens_m, ONLY: iim, llm      USE dimens_m, 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 bern(ip1jmp1, llm), du(ip1jmp1, llm), dv(ip1jm, llm)      real, INTENT(IN):: bern(ip1jmp1, llm)
23      ! teta , pkf, bern sont des arguments d'entree pour le s-pg      real du(ip1jmp1, llm), dv(ip1jm, llm)
24      ! du et dv sont des arguments de sortie pour le s-pg      ! du et dv sont des arguments de sortie pour le s-pg
25    
26      ! Local:      ! Local:
Legend:
Removed from v.88  
changed lines
  Added in v.95
  ViewVC Help
Powered by ViewVC 1.1.21