/[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.3 by jmc, Thu Apr 22 21:38:52 2004 UTC revision 1.4 by jmc, Wed Jul 7 22:23:12 2004 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
 #include "PACKAGES_CONFIG.h"  
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
6  CBOP  CBOP
# Line 11  C     !INTERFACE: Line 10  C     !INTERFACE:
10  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
11  C     *==========================================================*  C     *==========================================================*
12  C     | SUBROUTINE DO_STAGGER_FIELDS_EXCHANGES  C     | SUBROUTINE DO_STAGGER_FIELDS_EXCHANGES
13  C     | o Exchange edge info of Active tracers fields (T,S)  C     | o Exchange edge info of Active tracers fields (U,V)
14  C     |   (needed when using stagger time step)  C     |   (needed when using stagger time Step + multiDimAdvec)
15  C     *==========================================================*  C     *==========================================================*
16  C     \ev  C     \ev
17  C     !USES:  C     !USES:
# Line 22  C     == Global variables === Line 21  C     == Global variables ===
21  #include "EEPARAMS.h"  #include "EEPARAMS.h"
22  #include "PARAMS.h"  #include "PARAMS.h"
23  #include "DYNVARS.h"  #include "DYNVARS.h"
24    #include "GAD.h"
25    
26  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
27  C     == Routine arguments ==  C     == Routine arguments ==
# Line 33  C     myThid  :: Thread number for this Line 33  C     myThid  :: Thread number for this
33        INTEGER myThid          INTEGER myThid  
34  CEOP  CEOP
35    
36        IF ( staggerTimeStep ) THEN        IF ( staggerTimeStep .AND. useMultiDimAdvec) THEN
37          _EXCH_XYZ_R8( gT , myThid )          CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid)
38          _EXCH_XYZ_R8( gS , myThid )          _EXCH_XYZ_R8( wVel , myThid )
 c       _EXCH_XYZ_R8( theta , myThid )  
 c       _EXCH_XYZ_R8( salt , myThid )  
39        ENDIF        ENDIF
40    
 #ifdef ALLOW_AIM  
       IF ( useAIM ) THEN  
        CALL AIM_AIM2DYN_EXCHANGES( myTime, myIter, myThid )  
       ENDIF  
 #endif /* ALLOW_AIM */  
   
41        RETURN        RETURN
42        END        END
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22