MITgcm_contrib/exch3/EX3_PARAMS.h

C $Header: /u/gcmpack/MITgcm/pkg/ex3/EX3_PARAMS.h,v 1.2 2006/02/06 21:09:54 edhill Exp $
C $Name:  $

C     Character parameters
      CHARACTER*(MAX_LEN_FNAM) EX3_ATOPO_INAME
      CHARACTER*(MAX_LEN_FNAM) EX3_ATOPO_ONAME
      CHARACTER*(MAX_LEN_FNAM) EX3_ATOPO_OVER
      COMMON / EX3_PARAM_C /
     &     EX3_ATOPO_INAME, EX3_ATOPO_ONAME, EX3_ATOPO_OVER

C     EX3 send/receive buffers
      INTEGER EX3_MAX_BL
      PARAMETER ( EX3_MAX_BL = EX3_BUFF_FAC*(sNx*OLy + sNy*OLx)*Nr )
      _RL EX3_B_RL ( EX3_MAX_BL, 2*EX3_MAX_E_NBS, nSx*nSy )
      _RS EX3_B_RS ( EX3_MAX_BL, 2*EX3_MAX_E_NBS, nSx*nSy )
      _R4 EX3_B_R4 ( EX3_MAX_BL, 2*EX3_MAX_E_NBS, nSx*nSy )
      _R8 EX3_B_R8 ( EX3_MAX_BL, 2*EX3_MAX_E_NBS, nSx*nSy )
      COMMON / EX3_BUFF_RL /  EX3_B_RL
      COMMON / EX3_BUFF_RS /  EX3_B_RS
      COMMON / EX3_BUFF_R4 /  EX3_B_R4
      COMMON / EX3_BUFF_R8 /  EX3_B_R8

CEH3 ;;; Local Variables: ***
CEH3 ;;; mode:fortran ***
CEH3 ;;; End: ***
1	C $Header: /u/gcmpack/MITgcm/pkg/ex3/EX3_PARAMS.h,v 1.2 2006/02/06 21:09:54 edhill Exp $
2	C $Name: $
3
4	C Character parameters
5	CHARACTER*(MAX_LEN_FNAM) EX3_ATOPO_INAME
6	CHARACTER*(MAX_LEN_FNAM) EX3_ATOPO_ONAME
7	CHARACTER*(MAX_LEN_FNAM) EX3_ATOPO_OVER
8	COMMON / EX3_PARAM_C /
9	& EX3_ATOPO_INAME, EX3_ATOPO_ONAME, EX3_ATOPO_OVER
10
11	C EX3 send/receive buffers
12	INTEGER EX3_MAX_BL
13	PARAMETER ( EX3_MAX_BL = EX3_BUFF_FAC(sNxOLy + sNyOLx)Nr )
14	_RL EX3_B_RL ( EX3_MAX_BL, 2EX3_MAX_E_NBS, nSxnSy )
15	_RS EX3_B_RS ( EX3_MAX_BL, 2EX3_MAX_E_NBS, nSxnSy )
16	_R4 EX3_B_R4 ( EX3_MAX_BL, 2EX3_MAX_E_NBS, nSxnSy )
17	_R8 EX3_B_R8 ( EX3_MAX_BL, 2EX3_MAX_E_NBS, nSxnSy )
18	COMMON / EX3_BUFF_RL / EX3_B_RL
19	COMMON / EX3_BUFF_RS / EX3_B_RS
20	COMMON / EX3_BUFF_R4 / EX3_B_R4
21	COMMON / EX3_BUFF_R8 / EX3_B_R8
22
23	CEH3 ;;; Local Variables: ***
24	CEH3 ;;; mode:fortran ***
25	CEH3 ;;; End: ***