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

Diff of /MITgcm/pkg/generic_advdiff/gad_dst3fl_adv_y.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 Oct 13 15:10:32 2011 UTC
# Line 45  C     == Local variables == Line 45  C     == Local variables ==
45        ENDDO        ENDDO
46        DO j=1-Oly+2,sNy+Oly-1        DO j=1-Oly+2,sNy+Oly-1
47         DO i=1-Olx,sNx+Olx         DO i=1-Olx,sNx+Olx
48    #if (defined ALLOW_AUTODIFF_TAMC && defined TARGET_NEC_SX)
49    C     These lines make TAF create vectorizable code
50            thetaP = 0. _d 0
51            thetaM = 0. _d 0
52    #endif
53          Rjp=(tracer(i,j+1)-tracer(i, j ))*maskLocS(i,j+1)          Rjp=(tracer(i,j+1)-tracer(i, j ))*maskLocS(i,j+1)
54          Rj =(tracer(i, j )-tracer(i,j-1))*maskLocS(i, j )          Rj =(tracer(i, j )-tracer(i,j-1))*maskLocS(i, j )
55          Rjm=(tracer(i,j-1)-tracer(i,j-2))*maskLocS(i,j-1)          Rjm=(tracer(i,j-1)-tracer(i,j-2))*maskLocS(i,j-1)
Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14
  ViewVC Help
Powered by ViewVC 1.1.22