13 |
! klevel et rotin sont des arguments d'entree pour le s-prog |
! klevel et rotin sont des arguments d'entree pour le s-prog |
14 |
! rotout est un argument de sortie pour le s-prog |
! rotout est un argument de sortie pour le s-prog |
15 |
|
|
16 |
USE dimens_m |
USE dimensions |
17 |
USE paramet_m |
USE paramet_m |
18 |
USE comgeom |
USE comgeom |
19 |
USE filtreg_m, ONLY: filtreg |
USE filtreg_v_m, ONLY: filtreg_v |
20 |
|
use nxgrad_m, only: nxgrad |
21 |
use rotatf_m, only: rotatf |
use rotatf_m, only: rotatf |
22 |
|
|
23 |
IMPLICIT NONE |
IMPLICIT NONE |
35 |
! ........................................................ |
! ........................................................ |
36 |
|
|
37 |
|
|
38 |
CALL filtreg(rotin, direct = .true., intensive = .true.) |
CALL filtreg_v(rotin, intensive = .true.) |
39 |
|
|
40 |
CALL nxgrad(klevel, rotin, ghx, ghy) |
CALL nxgrad(klevel, rotin, ghx, ghy) |
41 |
CALL rotatf(klevel, ghx, ghy, rotout) |
CALL rotatf(klevel, ghx, ghy, rotout) |