14 |
USE comgeom, ONLY : aire, aire_2d, apoln, apols |
USE comgeom, ONLY : aire, aire_2d, apoln, apols |
15 |
USE dimens_m, ONLY : iim, jjm, llm |
USE dimens_m, ONLY : iim, jjm, llm |
16 |
USE disvert_m, ONLY : ap, bp |
USE disvert_m, ONLY : ap, bp |
17 |
USE filtreg_m, ONLY : filtreg |
USE filtreg_scal_m, ONLY : filtreg_scal |
18 |
use massdair_m, only: massdair |
use massdair_m, only: massdair |
19 |
use nr_util, only: assert |
use nr_util, only: assert |
20 |
USE paramet_m, ONLY : iip1, iip2, ip1jm, ip1jmp1, jjp1, llmp1 |
USE paramet_m, ONLY : iip1, iip2, ip1jm, ip1jmp1, jjp1, llmp1 |
93 |
CALL massdair(p, masse) |
CALL massdair(p, masse) |
94 |
|
|
95 |
finvmasse = masse |
finvmasse = masse |
96 |
CALL filtreg(finvmasse, direct = .false., intensive = .false.) |
CALL filtreg_scal(finvmasse, direct = .false., intensive = .false.) |
97 |
|
|
98 |
! integration de ucov, vcov, h |
! integration de ucov, vcov, h |
99 |
|
|