/[MITgcm]/MITgcm_contrib/eh3_spgr/hs94.cs-32x32x5/code_v2/W2_EXCH2_PARAMS.h
ViewVC logotype

Annotation of /MITgcm_contrib/eh3_spgr/hs94.cs-32x32x5/code_v2/W2_EXCH2_PARAMS.h

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


Revision 1.2 - (hide annotations) (download)
Sat Sep 24 19:38:18 2005 UTC (19 years, 10 months ago) by edhill
Branch: MAIN
Changes since 1.1: +6 -3 lines
File MIME type: text/plain
 o write out topology as versioned ASCII

1 edhill 1.2 C $Header: /u/gcmpack/MITgcm_contrib/eh3_spgr/hs94.cs-32x32x5/code_v2/W2_EXCH2_PARAMS.h,v 1.1 2005/09/23 20:52:00 edhill Exp $
2 edhill 1.1 C
3     C /==========================================================\
4     C | W2_EXCH2_PARAMS.h Parameters for a WRAPPER2 topology |
5     C |==========================================================|
6     C | |
7     C \==========================================================/
8    
9     C LOGICAL FLAGS
10     C W2_read_acsii_topo :: read topology info from an ASCII file
11     LOGICAL
12     & W2_read_acsii_topo
13     COMMON /W2_EXCH2_PARAMS_L/
14     & W2_read_acsii_topo
15    
16     C W2 tile id variables (tile ids are no longer a function of
17     C process and subgrid indicies).
18     C W2_myTileList :: list of tiles owned by this process
19     C W2_mpi_myTileList :: same as W2_myTileList, but contains
20     C information for all processes
21     INTEGER W2_myTileList(nSx), W2_mpi_myTileList(nPx*nPy,nSx)
22     c INTEGER E2_MSGHANDLES(2,MAX_NEIGHBOURS, nSx)
23     COMMON /W2_EXCH2_PARAMS_I/ W2_myTileList, W2_mpi_myTileList
24    
25     CHARACTER W2_myCommFlag(MAX_NEIGHBOURS,nSx)
26     CHARACTER*(MAX_LEN_FNAM) W2_ATOPO_FNAME
27 edhill 1.2 CHARACTER*(MAX_LEN_FNAM) W2_ATOPO_ONAME
28 edhill 1.1 COMMON /W2_EXCH2_PARAMS_C/
29 edhill 1.2 & W2_ATOPO_FNAME, W2_ATOPO_ONAME,
30     & W2_myCommFlag
31 edhill 1.1
32 edhill 1.2 C e2FillValue_RX :: filling value for null regions
33     C . (face-corner halo regions)
34 edhill 1.1 INTEGER e2BufrRecSize
35     PARAMETER (
36     & e2BufrRecSize = ( (sNx+2*OLx)*2*OLy+(sNy+2*OLy)*2*OLx)*Nr
37     &)
38     _RL E2BUFR1_RL( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
39     _RL E2BUFR2_RL( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
40     _RS E2BUFR1_RS( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
41     _RS E2BUFR2_RS( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
42     _R4 E2BUFR1_R4( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
43     _R4 E2BUFR2_R4( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
44     _R8 E2BUFR1_R8( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
45     _R8 E2BUFR2_R8( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
46     _RL e2FillValue_RL
47     _RS e2FillValue_RS
48     _R4 e2FillValue_R4
49     _R8 e2FillValue_R8
50     COMMON /W2_EXCH2_BUF_RL/ E2BUFR1_RL, E2BUFR2_RL, e2FillValue_RL
51     COMMON /W2_EXCH2_BUF_RS/ E2BUFR1_RS, E2BUFR2_RS, e2FillValue_RS
52     COMMON /W2_EXCH2_BUF_R4/ E2BUFR1_R4, E2BUFR2_R4, e2FillValue_R4
53     COMMON /W2_EXCH2_BUF_R8/ E2BUFR1_R8, E2BUFR2_R8, e2FillValue_R8
54    
55    
56     CEH3 ;;; Local Variables: ***
57     CEH3 ;;; mode:fortran ***
58     CEH3 ;;; End: ***
59    

  ViewVC Help
Powered by ViewVC 1.1.22