/[MITgcm]/MITgcm/pkg/shap_filt/shap_filt_tracer_s1.F
ViewVC logotype

Diff of /MITgcm/pkg/shap_filt/shap_filt_tracer_s1.F

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

revision 1.3 by jmc, Mon Mar 4 01:32:55 2002 UTC revision 1.4 by jmc, Mon Mar 4 02:28:25 2002 UTC
# Line 55  CEOP Line 55  CEOP
55          DO bj=myByLo(myThid),myByHi(myThid)          DO bj=myByLo(myThid),myByHi(myThid)
56           DO bi=myBxLo(myThid),myBxHi(myThid)           DO bi=myBxLo(myThid),myBxHi(myThid)
57            DO K=1,kSize            DO K=1,kSize
58             DO J=1,sNy             DO J=1-OLy,sNy+OLy
59              DO I=1,sNx              DO I=1-OLx,sNx+OLx
60               tmpFld(i,j,k,bi,bj)=field(i,j,k,bi,bj)               tmpFld(i,j,k,bi,bj)=field(i,j,k,bi,bj)
61              ENDDO              ENDDO
62             ENDDO             ENDDO
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22