/[MITgcm]/MITgcm/model/src/grad_sigma.F
ViewVC logotype

Diff of /MITgcm/model/src/grad_sigma.F

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

revision 1.8 by jmc, Thu Aug 16 02:13:40 2007 UTC revision 1.9 by jmc, Wed Oct 22 00:26:20 2008 UTC
# Line 58  C-    safer to work on a local copy of r Line 58  C-    safer to work on a local copy of r
58  C-    Internal exchange for calculations in X  C-    Internal exchange for calculations in X
59  cph-exch2#ifndef ALLOW_AUTODIFF_TAMC  cph-exch2#ifndef ALLOW_AUTODIFF_TAMC
60        IF ( useCubedSphereExchange ) THEN        IF ( useCubedSphereExchange ) THEN
61          CALL FILL_CS_CORNER_TR_RL( .TRUE., .FALSE.,          CALL FILL_CS_CORNER_TR_RL( 1, .FALSE.,
62       &                             rhoLoc, bi,bj, myThid )       &                             rhoLoc, bi,bj, myThid )
63        ENDIF        ENDIF
64  cph-exch2#endif  cph-exch2#endif
# Line 73  cph-exch2#endif Line 73  cph-exch2#endif
73  C-    Internal exchange for calculations in Y  C-    Internal exchange for calculations in Y
74  cph-exch2#ifndef ALLOW_AUTODIFF_TAMC  cph-exch2#ifndef ALLOW_AUTODIFF_TAMC
75        IF ( useCubedSphereExchange ) THEN        IF ( useCubedSphereExchange ) THEN
76          CALL FILL_CS_CORNER_TR_RL(.FALSE., .FALSE.,          CALL FILL_CS_CORNER_TR_RL( 2, .FALSE.,
77       &                             rhoLoc, bi,bj, myThid )       &                             rhoLoc, bi,bj, myThid )
78        ENDIF        ENDIF
79  cph-exch2#endif  cph-exch2#endif
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22