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

Diff of /trunk/filtrez/filtreg_v.f

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

revision 141 by guez, Fri Jun 5 19:21:08 2015 UTC revision 143 by guez, Tue Jun 9 14:32:46 2015 UTC
# Line 32  contains Line 32  contains
32      call assert(size(champ, 1) == iim + 1, "filtreg_v iim + 1")      call assert(size(champ, 1) == iim + 1, "filtreg_v iim + 1")
33      call assert(size(champ, 2) == jjm, "filtreg_v jjm")      call assert(size(champ, 2) == jjm, "filtreg_v jjm")
34    
35      IF (intensive) THEN      sdd = merge(sddu, unsddu, intensive)
        sdd = sddu  
     ELSE  
        sdd = unsddu  
     END IF  
36    
37      call filtreg_hemisph(champ(:, :jfiltnv, :), sdd, matricevn)      call filtreg_hemisph(champ(:, :jfiltnv, :), sdd, matricevn)
38      call filtreg_hemisph(champ(:, jfiltsv:jjm, :), sdd, matricevs)      call filtreg_hemisph(champ(:, jfiltsv:jjm, :), sdd, matricevs)
Legend:
Removed from v.141  
changed lines
  Added in v.143
  ViewVC Help
Powered by ViewVC 1.1.21