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	gforget	1.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: ***