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	jmc	1.4	C $Header: /u/gcmpack/MITgcm/model/src/do_stagger_fields_exchanges.F,v 1.3 2004/04/22 21:38:52 jmc Exp $
2	jmc	1.1	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	jmc	1.4	C \| o Exchange edge info of Active tracers fields (U,V)
14			C \| (needed when using stagger time Step + multiDimAdvec)
15	jmc	1.1	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	jmc	1.4	#include "GAD.h"
25	jmc	1.1
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	jmc	1.4	IF ( staggerTimeStep .AND. useMultiDimAdvec) THEN
37			CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid)
38			_EXCH_XYZ_R8( wVel , myThid )
39	jmc	1.1	ENDIF
40
41			RETURN
42			END