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: |