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

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

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

revision 1.5 by jmc, Fri Jul 22 18:21:55 2005 UTC revision 1.6 by jmc, Sun Jul 24 01:24:16 2005 UTC
# Line 18  c     INTEGER E2_MSGHANDLES(2,MAX_NEIGHB Line 18  c     INTEGER E2_MSGHANDLES(2,MAX_NEIGHB
18        CHARACTER W2_myCommFlag(MAX_NEIGHBOURS,nSx)        CHARACTER W2_myCommFlag(MAX_NEIGHBOURS,nSx)
19        COMMON /W2_EXCH2_PARAMS_C/ W2_myCommFlag        COMMON /W2_EXCH2_PARAMS_C/ W2_myCommFlag
20    
21    C     e2FillValue_RX :: filling value for null regions (face-corner halo regions)
22        INTEGER e2BufrRecSize        INTEGER e2BufrRecSize
23        PARAMETER (        PARAMETER (
24       & e2BufrRecSize = ( (sNx+2*OLx)*2*OLy+(sNy+2*OLy)*2*OLx)*Nr       & e2BufrRecSize = ( (sNx+2*OLx)*2*OLy+(sNy+2*OLy)*2*OLx)*Nr
25       &)       &)
26        _RL E2BUFR1_RL( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )        _RL E2BUFR1_RL( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
27        _RL E2BUFR2_RL( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )        _RL E2BUFR2_RL( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
28        _RL E2BUFR1_RS( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )        _RS E2BUFR1_RS( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
29        _RL E2BUFR2_RS( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )        _RS E2BUFR2_RS( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
30        _R4 E2BUFR1_R4( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )        _R4 E2BUFR1_R4( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
31        _R4 E2BUFR2_R4( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )        _R4 E2BUFR2_R4( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
32        _R8 E2BUFR1_R8( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )        _R8 E2BUFR1_R8( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
33        _R8 E2BUFR2_R8( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )        _R8 E2BUFR2_R8( e2BufrRecSize, MAX_NEIGHBOURS, nSx, 2 )
34        COMMON /W2_EXCH2_BUF_RL/ E2BUFR1_RL, E2BUFR2_RL        _RL e2FillValue_RL
35        COMMON /W2_EXCH2_BUF_RS/ E2BUFR1_RS, E2BUFR2_RS        _RS e2FillValue_RS
36        COMMON /W2_EXCH2_BUF_R4/ E2BUFR1_R4, E2BUFR2_R4        _R4 e2FillValue_R4
37        COMMON /W2_EXCH2_BUF_R8/ E2BUFR1_R8, E2BUFR2_R8        _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    
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22