14 |
unsapolsga1 |
unsapolsga1 |
15 |
USE dimens_m, ONLY: iim, jjm |
USE dimens_m, ONLY: iim, jjm |
16 |
use divergf_m, only: divergf |
use divergf_m, only: divergf |
17 |
USE filtreg_m, ONLY: filtreg |
USE filtreg_scal_m, ONLY: filtreg_scal |
18 |
use grad_m, only: grad |
use grad_m, only: grad |
19 |
use laplacien_m, only: laplacien |
use laplacien_m, only: laplacien |
20 |
use nr_util, only: assert_eq, assert |
use nr_util, only: assert_eq, assert |
53 |
END DO |
END DO |
54 |
ENDIF |
ENDIF |
55 |
|
|
56 |
CALL filtreg(div, direct = .true., intensive = .true.) |
CALL filtreg_scal(div, direct = .true., intensive = .true.) |
57 |
CALL grad(klevel, div, gdx, gdy) |
CALL grad(klevel, div, gdx, gdy) |
58 |
nugrads = (-1.)**ld * cdivu |
nugrads = (-1.)**ld * cdivu |
59 |
|
|