11 |
! Author: P. Le Van |
! Author: P. Le Van |
12 |
! Objet: incrémentation des tendances dynamiques |
! Objet: incrémentation des tendances dynamiques |
13 |
|
|
14 |
USE comvert, ONLY : ap, bp |
USE disvert_m, ONLY : ap, bp |
15 |
USE comgeom, ONLY : aire, apoln, apols |
USE comgeom, ONLY : aire, apoln, apols |
16 |
USE dimens_m, ONLY : iim, jjm, llm |
USE dimens_m, ONLY : iim, jjm, llm |
17 |
USE filtreg_m, ONLY : filtreg |
USE filtreg_m, ONLY : filtreg |
100 |
CALL massdair(p, masse) |
CALL massdair(p, masse) |
101 |
|
|
102 |
finvmasse = masse |
finvmasse = masse |
103 |
CALL filtreg(finvmasse, jjp1, llm, -2, 2, .TRUE., 1) |
CALL filtreg(finvmasse, jjp1, llm, -2, 2, .TRUE.) |
104 |
|
|
105 |
! integration de ucov, vcov, h |
! integration de ucov, vcov, h |
106 |
|
|