/[MITgcm]/MITgcm/pkg/zonal_filt/zonal_filt_init.F
ViewVC logotype

Diff of /MITgcm/pkg/zonal_filt/zonal_filt_init.F

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

revision 1.4 by cnh, Mon Jun 18 17:39:59 2001 UTC revision 1.5 by jmc, Tue Dec 11 14:50:14 2001 UTC
# Line 76  C         IF (ampFactor(2*I,J,bi,bj).LE. Line 76  C         IF (ampFactor(2*I,J,bi,bj).LE.
76  C         IF (ampFactorV(2*I,J,bi,bj).LE..9) ampFactorV(2*I,J,bi,bj)=0.  C         IF (ampFactorV(2*I,J,bi,bj).LE..9) ampFactorV(2*I,J,bi,bj)=0.
77            ampFactorV(2*I+1,J,bi,bj) = ampFactorV(2*I,J,bi,bj)            ampFactorV(2*I+1,J,bi,bj) = ampFactorV(2*I,J,bi,bj)
78           ENDDO           ENDDO
79    
80           I=Nx/2           I=Nx/2
81  Cajatest           IF ( zonal_filt_mode2dx.EQ.0 ) THEN
82           ampFactor(Nx,J,bi,bj) = 0.             ampFactor(Nx,J,bi,bj) = ampfact( yC(1,J,bi,bj) , I )
83           ampFactorV(Nx,J,bi,bj) = 0.             ampFactorV(Nx,J,bi,bj) = ampfact( yG(1,J,bi,bj) , I )
84  C        ampFactor(Nx,J,bi,bj) = ampfact( yC(1,J,bi,bj) , I )           ELSE
85  C        ampFactorV(Nx,J,bi,bj) = ampfact( yG(1,J,bi,bj) , I )             ampFactor(Nx,J,bi,bj) = 0.
86  Cajatest             ampFactorV(Nx,J,bi,bj) = 0.
87             ENDIF
88    
89          ENDDO          ENDDO
90         ENDDO         ENDDO
91        ENDDO        ENDDO
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22