/[MITgcm]/MITgcm/pkg/generic_advdiff/gad_u3_adv_x.F
ViewVC logotype

Diff of /MITgcm/pkg/generic_advdiff/gad_u3_adv_x.F

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

revision 1.4 by jmc, Tue Jan 8 21:43:23 2002 UTC revision 1.5 by mlosch, Fri Feb 29 01:31:00 2008 UTC
# Line 56  CEOP Line 56  CEOP
56         uT(1-Olx,j)=0.         uT(1-Olx,j)=0.
57         uT(2-Olx,j)=0.         uT(2-Olx,j)=0.
58         uT(sNx+Olx,j)=0.         uT(sNx+Olx,j)=0.
59          ENDDO
60          DO j=1-Oly,sNy+Oly
61         DO i=1-Olx+2,sNx+Olx-1         DO i=1-Olx+2,sNx+Olx-1
62          Rjp=(tracer(i+1,j)-tracer(i,j))*maskW(i+1,j,k,bi,bj)          Rjp=(tracer(i+1,j)-tracer(i,j))*maskW(i+1,j,k,bi,bj)
63          Rj =(tracer(i,j)-tracer(i-1,j))*maskW(i,j,k,bi,bj)          Rj =(tracer(i,j)-tracer(i-1,j))*maskW(i,j,k,bi,bj)
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22