global_oce_llc90/code/CTRL_SIZE.h

C $Header: /u/gcmpack/MITgcm_contrib/gael/verification/global_oce_llc90/code/CTRL_SIZE.h,v 1.3 2014/09/22 22:00:55 gforget Exp $
C $Name:  $

c     ==================================================================
c     CTRL_SIZE.h
c     ==================================================================

#if (defined (ALLOW_GENARR2D_CONTROL) || defined (ALLOW_GENARR3D_CONTROL) || defined (ALLOW_GENTIM2D_CONTROL))

C     Generic control variable array dimension
C     ----------------------------------------
C
C     maxCtrlArr2D :: number of 2-d generic init. ctrl variables
C     maxCtrlArr3D :: number of 3-d generic init. ctrl variables
C     maxCtrlTim2D :: number of 2-d generic tim-varying ctrl variables
C     maxCtrlProc  :: number of pre-processing options per ctrl variable

      integer     maxCtrlArr2D
      parameter ( maxCtrlArr2D = 1 )

      integer     maxCtrlArr3D
      parameter ( maxCtrlArr3D = 6 )

      integer     maxCtrlTim2D
      parameter ( maxCtrlTim2D = 8 )

      integer     maxCtrlProc
      parameter ( maxCtrlProc = 1 )

#endif

CEH3 ;;; Local Variables: ***
CEH3 ;;; mode:fortran ***
CEH3 ;;; End: ***
1	C $Header: /u/gcmpack/MITgcm_contrib/gael/verification/global_oce_llc90/code/CTRL_SIZE.h,v 1.3 2014/09/22 22:00:55 gforget Exp $
2	C $Name: $
3
4	c ==================================================================
5	c CTRL_SIZE.h
6	c ==================================================================
7
8	#if (defined (ALLOW_GENARR2D_CONTROL) \|\| defined (ALLOW_GENARR3D_CONTROL) \|\| defined (ALLOW_GENTIM2D_CONTROL))
9
10	C Generic control variable array dimension
11	C ----------------------------------------
12	C
13	C maxCtrlArr2D :: number of 2-d generic init. ctrl variables
14	C maxCtrlArr3D :: number of 3-d generic init. ctrl variables
15	C maxCtrlTim2D :: number of 2-d generic tim-varying ctrl variables
16	C maxCtrlProc :: number of pre-processing options per ctrl variable
17
18	integer maxCtrlArr2D
19	parameter ( maxCtrlArr2D = 1 )
20
21	integer maxCtrlArr3D
22	parameter ( maxCtrlArr3D = 6 )
23
24	integer maxCtrlTim2D
25	parameter ( maxCtrlTim2D = 8 )
26
27	integer maxCtrlProc
28	parameter ( maxCtrlProc = 1 )
29
30	#endif
31
32	CEH3 ;;; Local Variables: ***
33	CEH3 ;;; mode:fortran ***
34	CEH3 ;;; End: ***