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

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

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

revision 1.7 by mlosch, Fri Oct 5 10:50:47 2007 UTC revision 1.8 by mlosch, Fri Feb 29 01:30:59 2008 UTC
# Line 57  C     == Local variables == Line 57  C     == Local variables ==
57         uT(sNx+Olx-2,j)=0. _d 0         uT(sNx+Olx-2,j)=0. _d 0
58         uT(sNx+Olx-1,j)=0. _d 0         uT(sNx+Olx-1,j)=0. _d 0
59         uT(sNx+Olx,j)=0. _d 0         uT(sNx+Olx,j)=0. _d 0
60          ENDDO
61          DO j=1-Oly,sNy+Oly
62         DO i=1-Olx+4,sNx+Olx-3         DO i=1-Olx+4,sNx+Olx-3
63    
64          uLoc = uFld(i,j)          uLoc = uFld(i,j)
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22