/[MITgcm]/MITgcm/pkg/exch2/w2_print_comm_sequence.F
ViewVC logotype

Diff of /MITgcm/pkg/exch2/w2_print_comm_sequence.F

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

revision 1.6 by jmc, Wed Apr 29 19:44:44 2009 UTC revision 1.7 by jmc, Tue May 12 19:40:32 2009 UTC
# Line 8  CBOP Line 8  CBOP
8  C     !ROUTINE: W2_PRINT_COMM_SEQUENCE  C     !ROUTINE: W2_PRINT_COMM_SEQUENCE
9    
10  C     !INTERFACE:  C     !INTERFACE:
11        SUBROUTINE W2_PRINT_COMM_SEQUENCE( W2_oUnit )        SUBROUTINE W2_PRINT_COMM_SEQUENCE( myThid )
12    
13  C     !DESCRIPTION:  C     !DESCRIPTION:
14  C     *==========================================================*  C     *==========================================================*
# Line 23  C     == Global data == Line 23  C     == Global data ==
23  #include "SIZE.h"  #include "SIZE.h"
24  #include "EEPARAMS.h"  #include "EEPARAMS.h"
25  #include "EESUPPORT.h"  #include "EESUPPORT.h"
26    #include "W2_EXCH2_SIZE.h"
27  #include "W2_EXCH2_TOPOLOGY.h"  #include "W2_EXCH2_TOPOLOGY.h"
28  #include "W2_EXCH2_PARAMS.h"  #include "W2_EXCH2_PARAMS.h"
29    
30  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
31  C     W2_oUnit   :: fortran I/O unit  C     W2_oUnit   :: fortran I/O unit
32        INTEGER W2_oUnit  C     myThid     :: my Thread Id number
33    c     INTEGER W2_oUnit
34          INTEGER myThid
35    
36  #ifndef W2_PRINT_PREFIX  #ifndef W2_PRINT_PREFIX
37  C     !FUNCTIONS:  C     !FUNCTIONS:
# Line 54  c     _RL     SXDIR_TX2CX(2), SYDIR_TX2C Line 57  c     _RL     SXDIR_TX2CX(2), SYDIR_TX2C
57        INTEGER pi(2), pj(2), oi, oj, tN        INTEGER pi(2), pj(2), oi, oj, tN
58        INTEGER itb, jtb, isb, jsb        INTEGER itb, jtb, isb, jsb
59        CHARACTER*(MAX_LEN_MBUF) msgBuf        CHARACTER*(MAX_LEN_MBUF) msgBuf
       INTEGER myThid  
60  #ifndef W2_PRINT_PREFIX  #ifndef W2_PRINT_PREFIX
61        INTEGER iLen        INTEGER iLen
62  #endif  #endif
63  CEOP  CEOP
64    
       myThid = 1  
   
65  C     Send loop for cell centered  C     Send loop for cell centered
66        DO bi=1,nSx        DO bi=1,nSx
67         myTileId=W2_myTileList(bi)         myTileId=W2_myTileList(bi)
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22