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

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

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

revision 1.6 by jmc, Thu Feb 23 20:55:48 2006 UTC revision 1.7 by jmc, Tue Apr 28 18:01:14 2009 UTC
# Line 35  CEOP Line 35  CEOP
35        IF ( staggerTimeStep .AND. useMultiDimAdvec) THEN        IF ( staggerTimeStep .AND. useMultiDimAdvec) THEN
36          CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid)          CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid)
37          IF ( .NOT.implicitIntGravWave )          IF ( .NOT.implicitIntGravWave )
38       &  _EXCH_XYZ_R8( wVel , myThid )       &  _EXCH_XYZ_RL( wVel , myThid )
39        ENDIF        ENDIF
40  c #ifdef ALLOW_NONHYDROSTATIC  c #ifdef ALLOW_NONHYDROSTATIC
41        IF ( implicitIntGravWave ) THEN        IF ( implicitIntGravWave ) THEN
42          _EXCH_XYZ_R8( gT , myThid )          _EXCH_XYZ_RL( gT , myThid )
43          _EXCH_XYZ_R8( gS , myThid )          _EXCH_XYZ_RL( gS , myThid )
44        ENDIF        ENDIF
45  c #endif  c #endif
46    
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22