17 |
USE filtreg_m, ONLY : filtreg |
USE filtreg_m, ONLY : filtreg |
18 |
use grad_m, only: grad |
use grad_m, only: grad |
19 |
use nr_util, only: assert_eq, assert |
use nr_util, only: assert_eq, assert |
20 |
|
use laplacien_m, only: laplacien |
21 |
|
|
22 |
! Composantes covariantes de v : |
! Composantes covariantes de v : |
23 |
REAL, intent(in):: xcov(:, :, :) ! (iim + 1, jjm + 1, klevel) |
REAL, intent(in):: xcov(:, :, :) ! (iim + 1, jjm + 1, klevel) |
44 |
CALL divergf(klevel, xcov, ycov, div) |
CALL divergf(klevel, xcov, ycov, div) |
45 |
|
|
46 |
IF (ld > 1) THEN |
IF (ld > 1) THEN |
47 |
CALL laplacien(klevel, div, 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 |