/[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.14 by mlosch, Thu Feb 28 23:15:18 2008 UTC revision 1.15 by mlosch, Thu Oct 13 15:10:32 2011 UTC
# Line 49  C       with no need to compute thetaM ( Line 49  C       with no need to compute thetaM (
49        ENDDO        ENDDO
50        DO j=1-Oly,sNy+Oly        DO j=1-Oly,sNy+Oly
51         DO i=1-Olx+2,sNx+Olx-1         DO i=1-Olx+2,sNx+Olx-1
52    #if (defined ALLOW_AUTODIFF_TAMC && defined TARGET_NEC_SX)
53    C     These lines make TAF create vectorizable code
54            thetaP = 0. _d 0
55            thetaM = 0. _d 0
56    #endif
57          Rjp=(tracer(i+1,j)-tracer( i ,j))*maskLocW(i+1,j)          Rjp=(tracer(i+1,j)-tracer( i ,j))*maskLocW(i+1,j)
58          Rj =(tracer( i ,j)-tracer(i-1,j))*maskLocW( i ,j)          Rj =(tracer( i ,j)-tracer(i-1,j))*maskLocW( i ,j)
59          Rjm=(tracer(i-1,j)-tracer(i-2,j))*maskLocW(i-1,j)          Rjm=(tracer(i-1,j)-tracer(i-2,j))*maskLocW(i-1,j)
Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15
  ViewVC Help
Powered by ViewVC 1.1.22