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

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

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

revision 1.3 by cnh, Sun Feb 4 14:38:51 2001 UTC revision 1.4 by heimbach, Tue Apr 10 22:35:27 2001 UTC
# Line 68  C     o Apply amplitude filter and norma Line 68  C     o Apply amplitude filter and norma
68            phi(i)=phi(i)*ampFactorV(i,j,bi,bj)/float(Nx)            phi(i)=phi(i)*ampFactorV(i,j,bi,bj)/float(Nx)
69           ENDDO           ENDDO
70          ELSE          ELSE
71           WRITE(0,*) 'Error: gridLoc = ',gridLoc           WRITE(*,*) 'Error: gridLoc = ',gridLoc
72           STOP 'Error: gridLoc has illegal value'           STOP 'Error: gridLoc has illegal value'
73          ENDIF          ENDIF
74    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22