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 |
22 |
|
|
23 |
IMPLICIT NONE |
IMPLICIT NONE |
24 |
|
|
25 |
|
|
27 |
! .......... variables en arguments ............. |
! .......... variables en arguments ............. |
28 |
|
|
29 |
INTEGER, INTENT (IN) :: klevel |
INTEGER, INTENT (IN) :: klevel |
30 |
REAL rotin(ip1jm, klevel), rotout(ip1jm, klevel) |
REAL rotin(iim + 1, jjm, klevel), rotout(ip1jm, klevel) |
31 |
|
|
32 |
! .......... variables locales ................ |
! .......... variables locales ................ |
33 |
|
|
35 |
! ........................................................ |
! ........................................................ |
36 |
|
|
37 |
|
|
38 |
CALL filtreg(rotin, jjm, klevel, 2, 1, .FALSE.) |
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) |