/[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.20 by jmc, Thu Feb 23 20:55:48 2006 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         IF ( .NOT.implicitIntGravWave )         IF ( .NOT.implicitIntGravWave )
# Line 57  c    & _EXCH_XY_R8( etaN , myThid ) Line 59  c    & _EXCH_XY_R8( etaN , myThid )
59         _EXCH_XYZ_R8( theta, myThid )         _EXCH_XYZ_R8( theta, myThid )
60         _EXCH_XYZ_R8( salt , myThid )         _EXCH_XYZ_R8( salt , myThid )
61        ENDIF        ENDIF
 #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 68  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)
Legend:
Removed from v.1.20  
changed lines
  Added in v.1.21
  ViewVC Help
Powered by ViewVC 1.1.22