hs94.1x64x5/code_ad/CTRL_SIZE.h

C $Header: /u/gcmpack/MITgcm/verification/hs94.1x64x5/code_oad/CTRL_SIZE.h,v 1.2 2014/11/13 17:05:23 gforget Exp $
C $Name:  $

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

C     Generic control variable array dimension
C     ----------------------------------------
C
C     maxCtrlArr2D :: number of 2-dim. generic control variables
C     maxCtrlArr3D :: number of 3-dim. generic control 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 = 2 )

      integer     maxCtrlArr3D
      parameter ( maxCtrlArr3D = 1 )

      integer     maxCtrlTim2D
      parameter ( maxCtrlTim2D = 1 )

      integer     maxCtrlProc
      parameter ( maxCtrlProc = 1 )

CEH3 ;;; Local Variables: ***
CEH3 ;;; mode:fortran ***
CEH3 ;;; End: ***
1	heimbach	1.4	C $Header: /u/gcmpack/MITgcm/verification/hs94.1x64x5/code_oad/CTRL_SIZE.h,v 1.2 2014/11/13 17:05:23 gforget Exp $
2	heimbach	1.1	C $Name: $
3
4			c ==================================================================
5			c CTRL_SIZE.h
6			c ==================================================================
7
8			C Generic control variable array dimension
9			C ----------------------------------------
10			C
11			C maxCtrlArr2D :: number of 2-dim. generic control variables
12			C maxCtrlArr3D :: number of 3-dim. generic control variables
13	gforget	1.3	C maxCtrlTim2D :: number of 2-d generic tim-varying ctrl variables
14			C maxCtrlProc :: number of pre-processing options per ctrl variable
15	heimbach	1.1
16			integer maxCtrlArr2D
17	heimbach	1.4	parameter ( maxCtrlArr2D = 2 )
18	heimbach	1.1
19			integer maxCtrlArr3D
20	heimbach	1.4	parameter ( maxCtrlArr3D = 1 )
21	heimbach	1.2
22			integer maxCtrlTim2D
23			parameter ( maxCtrlTim2D = 1 )
24	heimbach	1.1
25	gforget	1.3	integer maxCtrlProc
26			parameter ( maxCtrlProc = 1 )
27
28	heimbach	1.1	CEH3 ;;; Local Variables: ***
29			CEH3 ;;; mode:fortran ***
30			CEH3 ;;; End: ***