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

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

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

revision 1.13 by jmc, Wed Apr 4 01:39:06 2007 UTC revision 1.14 by mlosch, Thu Feb 28 23:15:18 2008 UTC
# Line 46  C       with no need to compute thetaM ( Line 46  C       with no need to compute thetaM (
46         uT(1-Olx,j)=0. _d 0         uT(1-Olx,j)=0. _d 0
47         uT(2-Olx,j)=0. _d 0         uT(2-Olx,j)=0. _d 0
48         uT(sNx+Olx,j)=0. _d 0         uT(sNx+Olx,j)=0. _d 0
49          ENDDO
50          DO j=1-Oly,sNy+Oly
51         DO i=1-Olx+2,sNx+Olx-1         DO i=1-Olx+2,sNx+Olx-1
52          Rjp=(tracer(i+1,j)-tracer( i ,j))*maskLocW(i+1,j)          Rjp=(tracer(i+1,j)-tracer( i ,j))*maskLocW(i+1,j)
53          Rj =(tracer( i ,j)-tracer(i-1,j))*maskLocW( i ,j)          Rj =(tracer( i ,j)-tracer(i-1,j))*maskLocW( i ,j)
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22