/[lmdze]/trunk/dyn3d/integrd.f90
ViewVC logotype

Diff of /trunk/dyn3d/integrd.f90

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 57 by guez, Mon Jan 30 12:54:02 2012 UTC revision 71 by guez, Mon Jul 8 18:12:18 2013 UTC
# Line 11  contains Line 11  contains
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    
# Line 100  contains Line 102  contains
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    
Legend:
Removed from v.57  
changed lines
  Added in v.71
  ViewVC Help
Powered by ViewVC 1.1.21