15 |
use dimens_m |
use dimens_m |
16 |
use paramet_m |
use paramet_m |
17 |
use comgeom |
use comgeom |
18 |
|
use filtreg_m, only: filtreg |
19 |
IMPLICIT NONE |
IMPLICIT NONE |
20 |
c |
c |
21 |
|
|
31 |
c ........................................................ |
c ........................................................ |
32 |
c |
c |
33 |
c |
c |
34 |
CALL filtreg ( rotin , jjm, klevel, 2, 1, .FALSE., 1 ) |
CALL filtreg ( rotin , jjm, klevel, 2, 1, .FALSE.) |
35 |
|
|
36 |
CALL nxgrad ( klevel, rotin, ghx , ghy ) |
CALL nxgrad ( klevel, rotin, ghx , ghy ) |
37 |
CALL rotatf ( klevel, ghx , ghy , rotout ) |
CALL rotatf ( klevel, ghx , ghy , rotout ) |