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

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

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

revision 1.24 by dimitri, Mon Jun 28 21:10:55 2004 UTC revision 1.25 by heimbach, Wed Jun 30 23:45:35 2004 UTC
# Line 198  C--   Make local copy of tracer array Line 198  C--   Make local copy of tracer array
198         ENDDO         ENDDO
199        ENDDO        ENDDO
200    
201        IF (useCubedSphereExchange) THEN  cph  The following block is needed for useCubedSphereExchange only,
202    cph  but needs to be set for all cases to avoid spurious
203    cph  TAF dependencies
204         southWestCorner = .TRUE.         southWestCorner = .TRUE.
205         southEastCorner = .TRUE.         southEastCorner = .TRUE.
206         northWestCorner = .TRUE.         northWestCorner = .TRUE.
# Line 217  C--   Make local copy of tracer array Line 219  C--   Make local copy of tracer array
219  #else  #else
220         nCFace = bi         nCFace = bi
221  #endif  #endif
222          IF (useCubedSphereExchange) THEN
223    
224         nipass=3         nipass=3
225  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25
  ViewVC Help
Powered by ViewVC 1.1.22