/[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.18 by mlosch, Mon Sep 27 08:02:05 2004 UTC revision 1.21 by jmc, Thu Mar 30 02:20:25 2006 UTC
# Line 35  C     myThid - Thread number for this in Line 35  C     myThid - Thread number for this in
35        INTEGER myThid        INTEGER myThid
36  CEOP  CEOP
37    
38          IF ( .NOT.useOffLine ) THEN
39    C-    Apply Exchanges on dynamics state variable, except in Off-Line mode
40    
41  c     _EXCH_XYZ_R8( Gu , myThid )  c     _EXCH_XYZ_R8( Gu , myThid )
42  c     _EXCH_XYZ_R8( Gv , myThid )  c     _EXCH_XYZ_R8( Gv , myThid )
43  c     _EXCH_XYZ_R8( Gt , myThid )  c     _EXCH_XYZ_R8( Gt , myThid )
# Line 45  c     _EXCH_XYZ_R8( gTNm1 , myThid ) Line 48  c     _EXCH_XYZ_R8( gTNm1 , myThid )
48  c     _EXCH_XYZ_R8( gSNm1 , myThid )  c     _EXCH_XYZ_R8( gSNm1 , myThid )
49  c     _EXCH_XYZ_R8( uVel , myThid )  c     _EXCH_XYZ_R8( uVel , myThid )
50  c     _EXCH_XYZ_R8( vVel , myThid )  c     _EXCH_XYZ_R8( vVel , myThid )
 #ifndef ALLLOW_OFFLINE  
51        IF ( .NOT.staggerTimeStep .OR. .NOT.useMultiDimAdvec ) THEN        IF ( .NOT.staggerTimeStep .OR. .NOT.useMultiDimAdvec ) THEN
52         CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid)         CALL EXCH_UV_XYZ_RL(uVel,vVel,.TRUE.,myThid)
53         _EXCH_XYZ_R8( wVel , myThid )         IF ( .NOT.implicitIntGravWave )
54         & _EXCH_XYZ_R8( wVel , myThid )
55        ENDIF        ENDIF
56  c     IF ( exactConserv .AND. implicDiv2Dflow .NE. 0. _d 0)  c     IF ( exactConserv .AND. implicDiv2Dflow .NE. 0. _d 0)
57  c    & _EXCH_XY_R8( etaN , myThid )  c    & _EXCH_XY_R8( etaN , myThid )
58        _EXCH_XYZ_R8( theta, myThid )        IF ( .NOT.implicitIntGravWave ) THEN
59        _EXCH_XYZ_R8( salt , myThid )         _EXCH_XYZ_R8( theta, myThid )
60  #endif         _EXCH_XYZ_R8( salt , myThid )
61          ENDIF
62    
 #ifndef ALLOW_OFFLINE  
63  #ifdef ALLOW_CD_CODE  #ifdef ALLOW_CD_CODE
64  c     _EXCH_XYZ_R8( guCD , myThid )  c     _EXCH_XYZ_R8( guCD , myThid )
65  c     _EXCH_XYZ_R8( gvCD , myThid )  c     _EXCH_XYZ_R8( gvCD , myThid )
# Line 65  c     _EXCH_XYZ_R8( gvCD , myThid ) Line 68  c     _EXCH_XYZ_R8( gvCD , myThid )
68  #endif  #endif
69        IF ( useDynP_inEos_Zc )        IF ( useDynP_inEos_Zc )
70       & _EXCH_XYZ_RL( totPhiHyd , myThid )       & _EXCH_XYZ_RL( totPhiHyd , myThid )
71  #endif  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  #ifdef ALLOW_GGL90
Legend:
Removed from v.1.18  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22