17 |
USE paramet_m |
USE paramet_m |
18 |
USE comgeom |
USE comgeom |
19 |
USE filtreg_m, ONLY: filtreg |
USE filtreg_m, ONLY: filtreg |
20 |
|
use rotatf_m, only: rotatf |
21 |
|
|
22 |
IMPLICIT NONE |
IMPLICIT NONE |
23 |
|
|
24 |
|
|
34 |
! ........................................................ |
! ........................................................ |
35 |
|
|
36 |
|
|
37 |
CALL filtreg(rotin, jjm, klevel, 2, 1, .FALSE.) |
CALL filtreg(rotin, direct = .true., intensive = .true.) |
38 |
|
|
39 |
CALL nxgrad(klevel, rotin, ghx, ghy) |
CALL nxgrad(klevel, rotin, ghx, ghy) |
40 |
CALL rotatf(klevel, ghx, ghy, rotout) |
CALL rotatf(klevel, ghx, ghy, rotout) |