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

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

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

revision 1.1.2.1 by adcroft, Wed Jan 24 16:56:07 2001 UTC revision 1.4 by heimbach, Tue Apr 10 22:35:27 2001 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    C $Name$
3    
4  #include "ZONAL_FILT_OPTIONS.h"  #include "ZONAL_FILT_OPTIONS.h"
5    
# Line 62  C     o Apply amplitude filter and norma Line 63  C     o Apply amplitude filter and norma
63            phi(i)=phi(i)*ampFactorV(i,j,bi,bj)/float(Nx)            phi(i)=phi(i)*ampFactorV(i,j,bi,bj)/float(Nx)
64           ENDDO           ENDDO
65          ELSE          ELSE
66           WRITE(0,*) 'Error: gridLoc = ',gridLoc           WRITE(*,*) 'Error: gridLoc = ',gridLoc
67           STOP 'Error: gridLoc has illegal value'           STOP 'Error: gridLoc has illegal value'
68          ENDIF          ENDIF
69    
Legend:
Removed from v.1.1.2.1  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22