11 |
! Author: P. Le Van |
! Author: P. Le Van |
12 |
! Objet: incrémentation des tendances dynamiques |
! Objet: incrémentation des tendances dynamiques |
13 |
|
|
|
USE comvert, ONLY : ap, bp |
|
14 |
USE comgeom, ONLY : aire, apoln, apols |
USE comgeom, ONLY : aire, apoln, apols |
15 |
USE dimens_m, ONLY : iim, jjm, llm |
USE dimens_m, ONLY : iim, jjm, llm |
16 |
|
USE disvert_m, ONLY : ap, bp |
17 |
USE filtreg_m, ONLY : filtreg |
USE filtreg_m, ONLY : filtreg |
18 |
|
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 |
21 |
|
use qminimum_m, only: qminimum |
22 |
|
|
23 |
! Arguments: |
! Arguments: |
24 |
|
|
102 |
CALL massdair(p, masse) |
CALL massdair(p, masse) |
103 |
|
|
104 |
finvmasse = masse |
finvmasse = masse |
105 |
CALL filtreg(finvmasse, jjp1, llm, -2, 2, .TRUE., 1) |
CALL filtreg(finvmasse, jjp1, llm, -2, 2, .TRUE.) |
106 |
|
|
107 |
! integration de ucov, vcov, h |
! integration de ucov, vcov, h |
108 |
|
|