/[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.7 by heimbach, Fri Jul 27 22:18:57 2007 UTC revision 1.8 by jmc, Thu Aug 16 02:16:37 2007 UTC
# Line 50  CEOP Line 50  CEOP
50  cph-exch2#ifndef ALLOW_AUTODIFF_TAMC  cph-exch2#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., .FALSE.,
54         &                             tracer, bi,bj, myThid )
55        ENDIF        ENDIF
56  cph-exch2#endif  cph-exch2#endif
57    
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22