10 |
! P. Le Van |
! P. Le Van |
11 |
! Calcul du gradient de la divergence du vecteur v. |
! Calcul du gradient de la divergence du vecteur v. |
12 |
|
|
13 |
USE dimens_m, ONLY : iim, jjm, llm |
USE comgeom, ONLY: cuvscvgam1, cvuscugam1, unsair_gam1, unsapolnga1, & |
|
use divergf_m, only: divergf |
|
|
USE comgeom, ONLY : cuvscvgam1, cvuscugam1, unsair_gam1, unsapolnga1, & |
|
14 |
unsapolsga1 |
unsapolsga1 |
15 |
USE filtreg_m, ONLY : filtreg |
USE dimens_m, ONLY: iim, jjm, llm |
16 |
|
use divergf_m, only: divergf |
17 |
|
USE filtreg_m, ONLY: filtreg |
18 |
use grad_m, only: grad |
use grad_m, only: grad |
|
use nr_util, only: assert_eq, assert |
|
19 |
use laplacien_m, only: laplacien |
use laplacien_m, only: laplacien |
20 |
|
use nr_util, only: assert_eq, assert |
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) |