model/src/do_stagger_fields_exchanges.F

C $Header: /u/gcmpack/MITgcm/model/src/do_stagger_fields_exchanges.F,v 1.3 2004/04/22 21:38:52 jmc Exp $
C $Name:  $

#include "CPP_OPTIONS.h"

CBOP
C     !ROUTINE: DO_STAGGER_FIELDS_EXCHANGES
C     !INTERFACE:
      SUBROUTINE DO_STAGGER_FIELDS_EXCHANGES(myTime, myIter, myThid)
C     !DESCRIPTION: \bv
C     *==========================================================*
C     | SUBROUTINE DO_STAGGER_FIELDS_EXCHANGES
C     | o Exchange edge info of Active tracers fields (U,V)
C     |   (needed when using stagger time Step + multiDimAdvec)
C     *==========================================================*
C     \ev
C     !USES:
      IMPLICIT NONE
C     == Global variables ===
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
#include "DYNVARS.h"
#include "GAD.h"

C     !INPUT/OUTPUT PARAMETERS:
C     == Routine arguments ==
C     myTime  :: Current time in simulation
C     myIter  :: Current iteration number in simulation
C     myThid  :: Thread number for this instance of the routine.
      _RL myTime
      INTEGER myIter
      INTEGER myThid   
CEOP

      IF ( staggerTimeStep .AND. useMultiDimAdvec) THEN
        CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid)
        _EXCH_XYZ_R8( wVel , myThid )
      ENDIF

      RETURN
      END
1	C $Header: /u/gcmpack/MITgcm/model/src/do_stagger_fields_exchanges.F,v 1.3 2004/04/22 21:38:52 jmc Exp $
2	C $Name: $
3
4	#include "CPP_OPTIONS.h"
5
6	CBOP
7	C !ROUTINE: DO_STAGGER_FIELDS_EXCHANGES
8	C !INTERFACE:
9	SUBROUTINE DO_STAGGER_FIELDS_EXCHANGES(myTime, myIter, myThid)
10	C !DESCRIPTION: \bv
11	C ==========================================================
12	C \| SUBROUTINE DO_STAGGER_FIELDS_EXCHANGES
13	C \| o Exchange edge info of Active tracers fields (U,V)
14	C \| (needed when using stagger time Step + multiDimAdvec)
15	C ==========================================================
16	C \ev
17	C !USES:
18	IMPLICIT NONE
19	C == Global variables ===
20	#include "SIZE.h"
21	#include "EEPARAMS.h"
22	#include "PARAMS.h"
23	#include "DYNVARS.h"
24	#include "GAD.h"
25
26	C !INPUT/OUTPUT PARAMETERS:
27	C == Routine arguments ==
28	C myTime :: Current time in simulation
29	C myIter :: Current iteration number in simulation
30	C myThid :: Thread number for this instance of the routine.
31	_RL myTime
32	INTEGER myIter
33	INTEGER myThid
34	CEOP
35
36	IF ( staggerTimeStep .AND. useMultiDimAdvec) THEN
37	CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid)
38	_EXCH_XYZ_R8( wVel , myThid )
39	ENDIF
40
41	RETURN
42	END