12 |
! Calcule la divergence à tous les niveaux d'un vecteur de |
! Calcule la divergence à tous les niveaux d'un vecteur de |
13 |
! composantes x et y. x et y sont des composantes covariantes. |
! composantes x et y. x et y sont des composantes covariantes. |
14 |
|
|
|
USE dimens_m, ONLY: iim |
|
|
USE paramet_m, ONLY: iip1, iip2, ip1jm, ip1jmi1, ip1jmp1, jjp1 |
|
15 |
USE comgeom, ONLY: apoln, apols, cuvsurcv, cvusurcu, unsaire |
USE comgeom, ONLY: apoln, apols, cuvsurcv, cvusurcu, unsaire |
16 |
|
USE dimens_m, ONLY: iim |
17 |
USE filtreg_m, ONLY: filtreg |
USE filtreg_m, ONLY: filtreg |
18 |
|
USE paramet_m, ONLY: iip1, iip2, ip1jm, ip1jmi1, ip1jmp1, jjp1 |
19 |
|
|
20 |
INTEGER, intent(in):: klevel |
INTEGER, intent(in):: klevel |
21 |
REAL, intent(in):: x(ip1jmp1, klevel), y(ip1jm, klevel) |
REAL, intent(in):: x(ip1jmp1, klevel), y(ip1jm, klevel) |