12 |
|
|
13 |
USE comgeom, ONLY: cuvscvgam1, cvuscugam1, unsair_gam1, unsapolnga1, & |
USE comgeom, ONLY: cuvscvgam1, cvuscugam1, unsair_gam1, unsapolnga1, & |
14 |
unsapolsga1 |
unsapolsga1 |
15 |
USE dimens_m, ONLY: iim, jjm, llm |
USE dimens_m, ONLY: iim, jjm |
16 |
use divergf_m, only: divergf |
use divergf_m, only: divergf |
17 |
USE filtreg_m, ONLY: filtreg |
USE filtreg_m, ONLY: filtreg |
18 |
use grad_m, only: grad |
use grad_m, only: grad |
29 |
real, intent(in):: cdivu |
real, intent(in):: cdivu |
30 |
|
|
31 |
! Variables locales : |
! Variables locales : |
32 |
REAL nugrads, div(iim + 1, jjm + 1, llm) |
REAL nugrads, div(iim + 1, jjm + 1, size(xcov, 3)) |
33 |
INTEGER iter, klevel |
INTEGER iter, klevel |
34 |
|
|
35 |
!-------------------------------------------------------------- |
!-------------------------------------------------------------- |
47 |
CALL laplacien(klevel, div) |
CALL laplacien(klevel, div) |
48 |
|
|
49 |
! Itération de l'opérateur laplacien_gam |
! Itération de l'opérateur laplacien_gam |
50 |
DO iter = 1, ld -2 |
DO iter = 1, ld - 2 |
51 |
CALL laplacien_gam(klevel, cuvscvgam1, cvuscugam1, unsair_gam1, & |
CALL laplacien_gam(klevel, cuvscvgam1, cvuscugam1, unsair_gam1, & |
52 |
unsapolnga1, unsapolsga1, div, div) |
unsapolnga1, unsapolsga1, div, div) |
53 |
END DO |
END DO |