/[MITgcm]/MITgcm/pkg/exch2/W2_EXCH2_PARAMS.h
ViewVC logotype

Contents of /MITgcm/pkg/exch2/W2_EXCH2_PARAMS.h

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

Revision 1.4 - (show annotations) (download)
Tue Apr 6 00:25:56 2004 UTC (20 years, 2 months ago) by dimitri
Branch: MAIN
CVS Tags: checkpoint52n_post, checkpoint53d_post, checkpoint54a_pre, checkpoint55c_post, checkpoint54e_post, checkpoint54a_post, checkpoint53c_post, checkpoint57k_post, checkpoint55d_pre, checkpoint57d_post, checkpoint57g_post, checkpoint57b_post, checkpoint57c_pre, checkpoint55j_post, checkpoint56b_post, checkpoint57i_post, checkpoint57e_post, checkpoint55h_post, checkpoint53b_post, checkpoint57g_pre, checkpoint54b_post, checkpoint53b_pre, checkpoint55b_post, checkpoint54d_post, checkpoint56c_post, checkpoint52m_post, checkpoint55, checkpoint53a_post, checkpoint57f_pre, checkpoint57a_post, checkpoint54, checkpoint54f_post, checkpoint55g_post, checkpoint55f_post, checkpoint57a_pre, checkpoint55i_post, checkpoint57, checkpoint56, checkpoint53, eckpoint57e_pre, checkpoint57h_done, checkpoint53g_post, checkpoint57f_post, checkpoint57c_post, checkpoint55e_post, checkpoint53f_post, checkpoint55a_post, checkpoint53d_pre, checkpoint54c_post, checkpoint57j_post, checkpoint57h_pre, checkpoint57l_post, checkpoint57h_post, checkpoint56a_post, checkpoint55d_post
Changes since 1.3: +6 -3 lines
File MIME type: text/plain 
o extending useSingleCpuIO option to work with new exch2 I/O format
  - old-style, missing-tile I/O is still accessible by defining CPP
    option MISSING_TILE_IO in pkg/mdsio/MDSIO_OPTIONS.h
1 C $Header: /u/gcmpack/MITgcm/pkg/exch2/W2_EXCH2_PARAMS.h,v 1.3 2004/04/02 15:33:58 cnh Exp $
2 C
3 C /==========================================================\
4 C | W2_EXCH2_PARAMS.h Parameters for a WRAPPER2 topology |
5 C |==========================================================|
6 C | |
7 C \==========================================================/
8
9 C W2 tile id variables (tile ids are no longer a function of
10 C process and subgrid indicies).
11 C W2_myTileList :: list of tiles owned by this process
12 C W2_mpi_myTileList :: same as W2_myTileList, but contains
13 C information for all processes
14 INTEGER W2_myTileList(nSx), W2_mpi_myTileList(nPx*nPy,nSx)
15 INTEGER E2_MSGHANDLES(2,MAX_NEIGHBOURS, nSx)
16 COMMON /W2_EXCH2_PARAMS_I/ W2_myTileList, W2_mpi_myTileList
17
18 CHARACTER W2_myCommFlag(MAX_NEIGHBOURS,nSx)
19 COMMON /W2_EXCH2_PARAMS_C/ W2_myCommFlag
20
21 INTEGER e2BufrRecSize
22 PARAMETER (
23 & e2BufrRecSize = ( (sNx+2*OLx)*2*OLy+(sNy+2*OLy)*2*OLx)*Nr
24 &)
25 _RL E2BUFR1_RL( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
26 _RL E2BUFR2_RL( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
27 _RL E2BUFR1_RS( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
28 _RL E2BUFR2_RS( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
29 _R4 E2BUFR1_R4( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
30 _R4 E2BUFR2_R4( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
31 _R8 E2BUFR1_R8( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
32 _R8 E2BUFR2_R8( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
33 COMMON /W2_EXCH2_BUF_RL/ E2BUFR1_RL, E2BUFR2_RL
34 COMMON /W2_EXCH2_BUF_RS/ E2BUFR1_RS, E2BUFR2_RS
35 COMMON /W2_EXCH2_BUF_R4/ E2BUFR1_R4, E2BUFR2_R4
36 COMMON /W2_EXCH2_BUF_R8/ E2BUFR1_R8, E2BUFR2_R8
  ViewVC Help
Powered by ViewVC 1.1.22