model/src/do_stagger_fields_exchanges.F

C $Header: /u/u3/gcmpack/MITgcm/model/src/do_stagger_fields_exchanges.F,v 1.1 2002/10/07 16:17:09 jmc Exp $
C $Name:  $

#include "PACKAGES_CONFIG.h"
#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 (T,S)
C     |   (needed when using stagger time step)
C     *==========================================================*
C     \ev
C     !USES:
      IMPLICIT NONE
C     == Global variables ===
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
#include "DYNVARS.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 ) THEN
        _EXCH_XYZ_R8( gT , myThid )
        _EXCH_XYZ_R8( gS , myThid )
c       _EXCH_XYZ_R8( theta , myThid )
c       _EXCH_XYZ_R8( salt , myThid )
      ENDIF

#ifdef ALLOW_AIM
      IF ( useAIM ) THEN
       CALL AIM_AIM2DYN_EXCHANGES( myTime, myThid )
      ENDIF
#endif /* ALLOW_AIM */

      RETURN
      END
1	edhill	1.1.6.1	C $Header: /u/u3/gcmpack/MITgcm/model/src/do_stagger_fields_exchanges.F,v 1.1 2002/10/07 16:17:09 jmc Exp $
2	jmc	1.1	C $Name: $
3
4	edhill	1.1.6.1	#include "PACKAGES_CONFIG.h"
5	jmc	1.1	#include "CPP_OPTIONS.h"
6
7			CBOP
8			C !ROUTINE: DO_STAGGER_FIELDS_EXCHANGES
9			C !INTERFACE:
10			SUBROUTINE DO_STAGGER_FIELDS_EXCHANGES(myTime, myIter, myThid)
11			C !DESCRIPTION: \bv
12			C ==========================================================
13			C \| SUBROUTINE DO_STAGGER_FIELDS_EXCHANGES
14			C \| o Exchange edge info of Active tracers fields (T,S)
15			C \| (needed when using stagger time step)
16			C ==========================================================
17			C \ev
18			C !USES:
19			IMPLICIT NONE
20			C == Global variables ===
21			#include "SIZE.h"
22			#include "EEPARAMS.h"
23			#include "PARAMS.h"
24			#include "DYNVARS.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 ) THEN
37			_EXCH_XYZ_R8( gT , myThid )
38			_EXCH_XYZ_R8( gS , myThid )
39			c _EXCH_XYZ_R8( theta , myThid )
40			c _EXCH_XYZ_R8( salt , myThid )
41			ENDIF
42
43			#ifdef ALLOW_AIM
44			IF ( useAIM ) THEN
45			CALL AIM_AIM2DYN_EXCHANGES( myTime, myThid )
46			ENDIF
47			#endif /* ALLOW_AIM */
48
49			RETURN
50			END