22 |
c |
c |
23 |
c .......... variables en arguments ............. |
c .......... variables en arguments ............. |
24 |
c |
c |
25 |
INTEGER klevel |
INTEGER, intent(in):: klevel |
26 |
REAL rotin( ip1jm,klevel ), rotout( ip1jm,klevel ) |
REAL rotin( ip1jm,klevel ), rotout( ip1jm,klevel ) |
27 |
c |
c |
28 |
c .......... variables locales ................ |
c .......... variables locales ................ |
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 ) |