global_oce_llc90/code/CTRL_SIZE.h

C $Header: /u/gcmpack/MITgcm/pkg/ctrl/CTRL_SIZE.h,v 1.5 2014/01/15 16:21:20 heimbach 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

      integer     maxCtrlArr2D
      parameter ( maxCtrlArr2D = 1 )

      integer     maxCtrlArr3D
      parameter ( maxCtrlArr3D = 1 )

      integer     maxCtrlTim2D
      parameter ( maxCtrlTim2D = 1 )

#endif

CEH3 ;;; Local Variables: ***
CEH3 ;;; mode:fortran ***
CEH3 ;;; End: ***
1	C $Header: /u/gcmpack/MITgcm/pkg/ctrl/CTRL_SIZE.h,v 1.5 2014/01/15 16:21:20 heimbach 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
17	integer maxCtrlArr2D
18	parameter ( maxCtrlArr2D = 1 )
19
20	integer maxCtrlArr3D
21	parameter ( maxCtrlArr3D = 1 )
22
23	integer maxCtrlTim2D
24	parameter ( maxCtrlTim2D = 1 )
25
26	#endif
27
28	CEH3 ;;; Local Variables: ***
29	CEH3 ;;; mode:fortran ***
30	CEH3 ;;; End: ***