/[lmdze]/trunk/filtrez/filtreg_scal.f
ViewVC logotype

Diff of /trunk/filtrez/filtreg_scal.f

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

trunk/Sources/filtrez/filtreg_scal.f revision 141 by guez, Fri Jun 5 19:21:08 2015 UTC trunk/filtrez/filtreg_scal.f revision 265 by guez, Tue Mar 20 09:35:59 2018 UTC
# Line 11  contains Line 11  contains
11      ! Objet : filtre matriciel longitudinal, avec les matrices pr\'ecalcul\'ees      ! Objet : filtre matriciel longitudinal, avec les matrices pr\'ecalcul\'ees
12      ! pour l'op\'erateur filtre.      ! pour l'op\'erateur filtre.
13    
14      USE dimens_m, ONLY: iim, jjm      USE dimensions, ONLY: iim, jjm
15      use filtreg_hemisph_m, only: filtreg_hemisph      use filtreg_hemisph_m, only: filtreg_hemisph
16      USE inifgn_m, ONLY: sddv, unsddv      USE inifgn_m, ONLY: sddv, unsddv
17      use inifilr_m, only: jfiltnu, jfiltsu, matriceun, matriceus, matrinvn, &      use inifilr_m, only: jfiltnu, jfiltsu, matriceun, matriceus, matrinvn, &
# Line 34  contains Line 34  contains
34      call assert(size(champ, 1) == iim + 1, "filtreg_scal iim + 1")      call assert(size(champ, 1) == iim + 1, "filtreg_scal iim + 1")
35      call assert(size(champ, 2) == jjm + 1, "filtreg_scal jjm + 1")      call assert(size(champ, 2) == jjm + 1, "filtreg_scal jjm + 1")
36    
37      IF (intensive) THEN      sdd = merge(sddv, unsddv, intensive)
        sdd = sddv  
     ELSE  
        sdd = unsddv  
     END IF  
38    
39      if (direct) then      if (direct) then
40         call filtreg_hemisph(champ(:, 2:jfiltnu, :), sdd, matriceun)         call filtreg_hemisph(champ(:, 2:jfiltnu, :), sdd, matriceun)
Legend:
Removed from v.141  
changed lines
  Added in v.265
  ViewVC Help
Powered by ViewVC 1.1.21