/[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.6 - (show annotations) (download)
Sun Jul 24 01:24:16 2005 UTC (18 years, 10 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint58l_post, checkpoint57t_post, checkpoint57o_post, checkpoint58e_post, mitgcm_mapl_00, checkpoint58u_post, checkpoint58w_post, checkpoint57m_post, checkpoint57s_post, checkpoint58r_post, checkpoint57y_post, checkpoint58n_post, checkpoint58x_post, checkpoint58t_post, checkpoint58h_post, checkpoint57y_pre, checkpoint58q_post, checkpoint57v_post, checkpoint58j_post, checkpoint59e, checkpoint59d, checkpoint59g, checkpoint59f, checkpoint59a, checkpoint59c, checkpoint59b, checkpoint59h, checkpoint57r_post, checkpoint59, checkpoint58, checkpoint58f_post, checkpoint57x_post, checkpoint57n_post, checkpoint58d_post, checkpoint58c_post, checkpoint57w_post, checkpoint57p_post, checkpint57u_post, checkpoint58a_post, checkpoint58i_post, checkpoint57q_post, checkpoint58g_post, checkpoint58o_post, checkpoint57z_post, checkpoint58y_post, checkpoint58k_post, checkpoint58v_post, checkpoint58s_post, checkpoint58p_post, checkpoint58b_post, checkpoint58m_post
Changes since 1.5: +13 -7 lines
File MIME type: text/plain 
fix declaration type (previously was: _RL E2BUFR1_RS & _RL E2BUFR2_RS)
and add filling value for face-corner halo regions
1 C $Header: /u/gcmpack/MITgcm/pkg/exch2/W2_EXCH2_PARAMS.h,v 1.5 2005/07/22 18:21:55 jmc 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 c 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 C e2FillValue_RX :: filling value for null regions (face-corner halo regions)
22 INTEGER e2BufrRecSize
23 PARAMETER (
24 & e2BufrRecSize = ( (sNx+2*OLx)*2*OLy+(sNy+2*OLy)*2*OLx)*Nr
25 &)
26 _RL E2BUFR1_RL( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
27 _RL E2BUFR2_RL( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
28 _RS E2BUFR1_RS( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
29 _RS E2BUFR2_RS( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
30 _R4 E2BUFR1_R4( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
31 _R4 E2BUFR2_R4( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
32 _R8 E2BUFR1_R8( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
33 _R8 E2BUFR2_R8( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
34 _RL e2FillValue_RL
35 _RS e2FillValue_RS
36 _R4 e2FillValue_R4
37 _R8 e2FillValue_R8
38 COMMON /W2_EXCH2_BUF_RL/ E2BUFR1_RL, E2BUFR2_RL, e2FillValue_RL
39 COMMON /W2_EXCH2_BUF_RS/ E2BUFR1_RS, E2BUFR2_RS, e2FillValue_RS
40 COMMON /W2_EXCH2_BUF_R4/ E2BUFR1_R4, E2BUFR2_R4, e2FillValue_R4
41 COMMON /W2_EXCH2_BUF_R8/ E2BUFR1_R8, E2BUFR2_R8, e2FillValue_R8
42
  ViewVC Help
Powered by ViewVC 1.1.22