/[lmdze]/trunk/libf/filtrez/filtreg.f90
ViewVC logotype

Diff of /trunk/libf/filtrez/filtreg.f90

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

revision 29 by guez, Thu Mar 25 14:29:07 2010 UTC revision 30 by guez, Thu Apr 1 09:07:28 2010 UTC
# Line 85  contains Line 85  contains
85         ELSE         ELSE
86    
87            IF (iaire==1) THEN            IF (iaire==1) THEN
88               CALL scopy(iim, sddv, 1, sdd1, 1)               sdd1 = sddv
89               CALL scopy(iim, unsddv, 1, sdd2, 1)               sdd2 = unsddv
90            ELSE            ELSE
91               CALL scopy(iim, unsddv, 1, sdd1, 1)               sdd1 = unsddv
92               CALL scopy(iim, sddv, 1, sdd2, 1)               sdd2 = sddv
93            END IF            END IF
94    
95            jdfil1 = 2            jdfil1 = 2
# Line 104  contains Line 104  contains
104         ELSE         ELSE
105    
106            IF (iaire==1) THEN            IF (iaire==1) THEN
107               CALL scopy(iim, sddu, 1, sdd1, 1)               sdd1 = sddu
108               CALL scopy(iim, unsddu, 1, sdd2, 1)               sdd2 = unsddu
109            ELSE            ELSE
110               CALL scopy(iim, unsddu, 1, sdd1, 1)               sdd1 = unsddu
111               CALL scopy(iim, sddu, 1, sdd2, 1)               sdd2 = sddu
112            END IF            END IF
113    
114            jdfil1 = 1            jdfil1 = 1
Legend:
Removed from v.29  
changed lines
  Added in v.30
  ViewVC Help
Powered by ViewVC 1.1.21