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 |