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

Diff of /trunk/dyn3d/integrd.f

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

revision 134 by guez, Wed Apr 29 15:47:56 2015 UTC revision 137 by guez, Wed May 6 15:51:03 2015 UTC
# Line 14  contains Line 14  contains
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
# Line 93  contains Line 93  contains
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    
Legend:
Removed from v.134  
changed lines
  Added in v.137
  ViewVC Help
Powered by ViewVC 1.1.21