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

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

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

revision 1.15 by jmc, Wed Jul 7 22:23:12 2004 UTC revision 1.25 by jmc, Tue Apr 28 18:01:14 2009 UTC
# Line 25  C     == Global variables === Line 25  C     == Global variables ===
25  #include "EEPARAMS.h"  #include "EEPARAMS.h"
26  #include "PARAMS.h"  #include "PARAMS.h"
27  #include "DYNVARS.h"  #include "DYNVARS.h"
28  #ifdef ALLOW_PASSIVE_TRACER  #ifdef ALLOW_GENERIC_ADVDIFF
29  #include "TR1.h"  # include "GAD.h"
30  #endif  #endif
31  #ifdef ALLOW_CD_CODE  #ifdef ALLOW_CD_CODE
32  #include "CD_CODE_VARS.h"  # include "CD_CODE_VARS.h"
33  #endif  #endif
34    
35  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
# Line 38  C     myThid - Thread number for this in Line 38  C     myThid - Thread number for this in
38        INTEGER myThid        INTEGER myThid
39  CEOP  CEOP
40    
41  c     _EXCH_XYZ_R8( Gu , myThid )        IF ( .NOT.useOffLine ) THEN
42  c     _EXCH_XYZ_R8( Gv , myThid )  C-    Apply Exchanges on dynamics state variable, except in Off-Line mode
43  c     _EXCH_XYZ_R8( Gt , myThid )  
 c     _EXCH_XYZ_R8( Gs , myThid )  
 c     _EXCH_XYZ_R8( gUNm1 , myThid )  
 c     _EXCH_XYZ_R8( gVNm1 , myThid )  
 c     _EXCH_XYZ_R8( gTNm1 , myThid )  
 c     _EXCH_XYZ_R8( gSNm1 , myThid )  
 c     _EXCH_XYZ_R8( uVel , myThid )  
 c     _EXCH_XYZ_R8( vVel , myThid )  
44        IF ( .NOT.staggerTimeStep .OR. .NOT.useMultiDimAdvec ) THEN        IF ( .NOT.staggerTimeStep .OR. .NOT.useMultiDimAdvec ) THEN
45         CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid)         CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid)
46         _EXCH_XYZ_R8( wVel , myThid )         IF ( .NOT.implicitIntGravWave )
47         & _EXCH_XYZ_RL( wVel , myThid )
48        ENDIF        ENDIF
49  c     IF ( exactConserv .AND. implicDiv2Dflow .NE. 0. _d 0)  c     IF ( exactConserv .AND. implicDiv2Dflow .NE. 0. _d 0)
50  c    & _EXCH_XY_R8( etaN , myThid )  c    & _EXCH_XY_RL( etaN , myThid )
51        _EXCH_XYZ_R8( theta, myThid )        IF ( .NOT.implicitIntGravWave ) THEN
52        _EXCH_XYZ_R8( salt , myThid )         _EXCH_XYZ_RL( theta, myThid )
53  #ifdef ALLOW_PASSIVE_TRACER         _EXCH_XYZ_RL( salt , myThid )
54        IF ( tr1Stepping )        ENDIF
55       & _EXCH_XYZ_R8( Tr1 , myThid )  
56    #ifdef ALLOW_GENERIC_ADVDIFF
57          IF ( tempSOM_Advection .OR. saltSOM_Advection )
58         &  CALL GAD_SOM_EXCHANGES( myThid )
59  #endif  #endif
60    
61  #ifdef ALLOW_CD_CODE  #ifdef ALLOW_CD_CODE
62  c     _EXCH_XYZ_R8( guCD , myThid )  # ifdef ALLOW_AUTODIFF_TAMC
63  c     _EXCH_XYZ_R8( gvCD , myThid )        CALL EXCH_3D_RL( uVelD, Nr, myThid )
64        _EXCH_XYZ_R8( uVelD , myThid )        CALL EXCH_3D_RL( vVelD, Nr, myThid )
65        _EXCH_XYZ_R8( vVelD , myThid )  # else
66          CALL EXCH_UV_DGRID_3D_RL( uVelD,vVelD, .TRUE., Nr, myThid )
67    # endif
68  #endif  #endif
69        IF ( useDynP_inEos_Zc )        IF ( useDynP_inEos_Zc )
70       & _EXCH_XYZ_RL( totPhiHyd , myThid )       & _EXCH_XYZ_RL( totPhiHyd , myThid )
71    C-    if not useOffLine: end
72          ENDIF
73    
74  #ifdef ALLOW_PTRACERS  #ifdef ALLOW_PTRACERS
75        IF (usePTRACERS)        IF (usePTRACERS)
76       &  CALL PTRACERS_FIELDS_BLOCKING_EXCHANGES(myThid)       &  CALL PTRACERS_FIELDS_BLOCKING_EXCH(myThid)
77  #endif /* ALLOW PTRACERS */  #endif /* ALLOW PTRACERS */
78    
79    #ifdef ALLOW_GGL90
80          IF (useGGL90)
81         &  CALL GGL90_EXCHANGES(myThid)
82    #endif /* ALLOW_GGL90 */
83    
84        RETURN        RETURN
85        END        END
Legend:
Removed from v.1.15  
changed lines
  Added in v.1.25
  ViewVC Help
Powered by ViewVC 1.1.22