10 |
! P. Le Van |
! P. Le Van |
11 |
! Calcul de div(grad) de teta. |
! Calcul de div(grad) de teta. |
12 |
|
|
|
use grad_m, only: grad |
|
|
use filtreg_m, only: filtreg |
|
|
use divergf_m, only: divergf |
|
13 |
USE dimens_m, ONLY: llm |
USE dimens_m, ONLY: llm |
14 |
|
use divergf_m, only: divergf |
15 |
|
use filtreg_m, only: filtreg |
16 |
|
use grad_m, only: grad |
17 |
USE paramet_m, ONLY: ip1jm, ip1jmp1, jjp1 |
USE paramet_m, ONLY: ip1jm, ip1jmp1, jjp1 |
18 |
|
|
19 |
INTEGER, intent(in):: klevel |
INTEGER, intent(in):: klevel |
24 |
|
|
25 |
!----------------------------------------------------------------- |
!----------------------------------------------------------------- |
26 |
|
|
27 |
CALL filtreg(teta, jjp1, klevel, 2, 1, .TRUE., 1) |
CALL filtreg(teta, jjp1, klevel, 2, 1, .TRUE.) |
28 |
CALL grad(klevel, teta, ghx, ghy) |
CALL grad(klevel, teta, ghx, ghy) |
29 |
CALL divergf(klevel, ghx, ghy, teta) |
CALL divergf(klevel, ghx, ghy, teta) |
30 |
|
|