16 |
USE dimens_m |
USE dimens_m |
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 |
|
|
21 |
|
|
22 |
! ..... variables en arguments ...... |
! ..... variables en arguments ...... |
39 |
rot(iim + 1, :, l) = rot(1, :, l) |
rot(iim + 1, :, l) = rot(1, :, l) |
40 |
END DO |
END DO |
41 |
|
|
42 |
CALL filtreg(rot, direct = .true., intensive = .false.) |
CALL filtreg_v(rot, intensive = .false.) |
43 |
|
|
44 |
DO l = 1, klevel |
DO l = 1, klevel |
45 |
rot(:, :, l) = rot(:, :, l)*unsairez_2d |
rot(:, :, l) = rot(:, :, l)*unsairez_2d |