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

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

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

revision 1.4 by jmc, Fri Sep 24 16:54:20 2004 UTC revision 1.5 by heimbach, Wed Sep 29 04:53:30 2004 UTC
# Line 47  C  i,j              :: loop indices Line 47  C  i,j              :: loop indices
47        INTEGER i,j        INTEGER i,j
48  CEOP  CEOP
49    
50    #ifndef ALLOW_AUTODIFF_TAMC
51  C--   Internal exchange for calculations in X  C--   Internal exchange for calculations in X
52        IF (useCubedSphereExchange) THEN        IF (useCubedSphereExchange) THEN
53          CALL FILL_CS_CORNER_TR_RL( .TRUE., tracer, bi,bj, myThid )          CALL FILL_CS_CORNER_TR_RL( .TRUE., tracer, bi,bj, myThid )
54        ENDIF        ENDIF
55    #endif
56    
57  C     o Zonal tracer gradient  C     o Zonal tracer gradient
58        DO j=1-Oly,sNy+Oly        DO j=1-Oly,sNy+Oly
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22