15 |
|
|
16 |
USE comgeom, ONLY: apoln, apols, cuvsurcv_2d, cvusurcu_2d, unsaire_2d |
USE comgeom, ONLY: apoln, apols, cuvsurcv_2d, cvusurcu_2d, unsaire_2d |
17 |
USE dimens_m, ONLY: iim, jjm |
USE dimens_m, ONLY: iim, jjm |
18 |
USE filtreg_m, ONLY: filtreg |
USE filtreg_scal_m, ONLY: filtreg_scal |
19 |
|
|
20 |
INTEGER, intent(in):: klevel |
INTEGER, intent(in):: klevel |
21 |
REAL, intent(in):: x(iim + 1, jjm + 1, klevel), y(iim + 1, jjm, klevel) |
REAL, intent(in):: x(iim + 1, jjm + 1, klevel), y(iim + 1, jjm, klevel) |
41 |
/ apols |
/ apols |
42 |
end DO |
end DO |
43 |
|
|
44 |
CALL filtreg(div, direct = .true., intensive = .false.) |
CALL filtreg_scal(div, direct = .true., intensive = .false.) |
45 |
|
|
46 |
DO l = 1, klevel |
DO l = 1, klevel |
47 |
div(:, 2:jjm, l) = div(:, 2:jjm, l) * unsaire_2d(:, 2:jjm) |
div(:, 2:jjm, l) = div(:, 2:jjm, l) * unsaire_2d(:, 2:jjm) |