/[MITgcm]/MITgcm/pkg/exch2/exch2_sm_3d_rx.template
ViewVC logotype

Diff of /MITgcm/pkg/exch2/exch2_sm_3d_rx.template

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

revision 1.6 by jmc, Mon Mar 26 19:43:10 2012 UTC revision 1.7 by jmc, Fri Jul 27 18:55:18 2012 UTC
# Line 80  C--   First call the exchanges Line 80  C--   First call the exchanges
80  C- note: can substitute the low-level S/R call above with:  C- note: can substitute the low-level S/R call above with:
81  c      CALL EXCH2_3D_RX( phi, myNz, myThid )  c      CALL EXCH2_3D_RX( phi, myNz, myThid )
82    
83        IF ( useCubedSphereExchange ) THEN        IF ( useCubedSphereExchange .AND. withSigns ) THEN
84  C---  using CubedSphereExchange:  C---  using CubedSphereExchange with Signs:
85    
86  C--   Then we may need to switch the signs depending on which cube face  C--   Then we may need to switch the signs depending on which cube face
87  C     we are located.  C     we are located.
# Line 178  C--    end of Loops on tile and level in Line 178  C--    end of Loops on tile and level in
178          ENDDO          ENDDO
179         ENDDO         ENDDO
180    
181  C---  using or not using CubedSphereExchange: end  C---  using or not using CubedSphereExchange with Signs: end
182        ENDIF        ENDIF
183    
184        RETURN        RETURN
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22