/[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.7 by heimbach, Fri Jul 27 22:18:57 2007 UTC revision 1.8 by jmc, Thu Aug 16 02:13:40 2007 UTC
# Line 13  C     !INTERFACE: Line 13  C     !INTERFACE:
13       I             myThid )       I             myThid )
14  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
15  C     *==========================================================*  C     *==========================================================*
16  C     | SUBROUTINE CALC_ISOSLOPES                                  C     | SUBROUTINE GRAD_SIGMA
17  C     | o Calculate isoneutral gradients                            C     | o Calculate isoneutral gradients
18  C     *==========================================================*  C     *==========================================================*
19  C     \ev  C     \ev
20    
# 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., rhoLoc, bi,bj, myThid )          CALL FILL_CS_CORNER_TR_RL( .TRUE., .FALSE.,
62         &                             rhoLoc, bi,bj, myThid )
63        ENDIF        ENDIF
64  cph-exch2#endif  cph-exch2#endif
65        DO j=1-Oly,sNy+Oly        DO j=1-Oly,sNy+Oly
# Line 72  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., rhoLoc, bi,bj, myThid )          CALL FILL_CS_CORNER_TR_RL(.FALSE., .FALSE.,
77         &                             rhoLoc, bi,bj, myThid )
78        ENDIF        ENDIF
79  cph-exch2#endif  cph-exch2#endif
80        DO j=1-Oly+1,sNy+Oly        DO j=1-Oly+1,sNy+Oly
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22