/[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.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 63  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.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22