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

Diff of /trunk/Sources/filtrez/filtreg_scal.f

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

revision 140 by guez, Fri Jun 5 18:58:06 2015 UTC revision 143 by guez, Tue Jun 9 14:32:46 2015 UTC
# Line 27  contains Line 27  contains
27      ! champ intensif ou extensif (pond\'er\'e par les aires)      ! champ intensif ou extensif (pond\'er\'e par les aires)
28    
29      ! Local:      ! Local:
30      REAL sdd1(iim), sdd2(iim)      REAL sdd(iim)
31    
32      !-----------------------------------------------------------      !-----------------------------------------------------------
33    
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)
        sdd1 = sddv  
        sdd2 = unsddv  
     ELSE  
        sdd1 = unsddv  
        sdd2 = sddv  
     END IF  
38    
39      if (direct) then      if (direct) then
40         call filtreg_hemisph(champ(:, 2:jfiltnu, :), sdd1, sdd2, matriceun)         call filtreg_hemisph(champ(:, 2:jfiltnu, :), sdd, matriceun)
41         call filtreg_hemisph(champ(:, jfiltsu:jjm, :), sdd1, sdd2, matriceus)         call filtreg_hemisph(champ(:, jfiltsu:jjm, :), sdd, matriceus)
42      else      else
43         call filtreg_hemisph(champ(:, 2:jfiltnu, :), sdd1, sdd2, - matrinvn)         call filtreg_hemisph(champ(:, 2:jfiltnu, :), sdd, - matrinvn)
44         call filtreg_hemisph(champ(:, jfiltsu:jjm, :), sdd1, sdd2, - matrinvs)         call filtreg_hemisph(champ(:, jfiltsu:jjm, :), sdd, - matrinvs)
45      end if      end if
46    
47    END SUBROUTINE filtreg_scal    END SUBROUTINE filtreg_scal
Legend:
Removed from v.140  
changed lines
  Added in v.143
  ViewVC Help
Powered by ViewVC 1.1.21