hs94.1x64x5/code_ad/CTRL_SIZE.h

C $Header: /u/gcmpack/MITgcm/pkg/ctrl/CTRL_SIZE.h,v 1.1 2012/07/31 16:05:56 heimbach 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

#ifdef ALLOW_GENARR2D_CONTROL
      integer     maxCtrlArr2D
      parameter ( maxCtrlArr2D = 3 )
#endif

#ifdef ALLOW_GENARR3D_CONTROL
      integer     maxCtrlArr3D
      parameter ( maxCtrlArr3D = 3 )
#endif

CEH3 ;;; Local Variables: ***
CEH3 ;;; mode:fortran ***
CEH3 ;;; End: ***
1	heimbach	1.1	C $Header: /u/gcmpack/MITgcm/pkg/ctrl/CTRL_SIZE.h,v 1.1 2012/07/31 16:05:56 heimbach Exp $
2			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
14			#ifdef ALLOW_GENARR2D_CONTROL
15			integer maxCtrlArr2D
16			parameter ( maxCtrlArr2D = 3 )
17			#endif
18
19			#ifdef ALLOW_GENARR3D_CONTROL
20			integer maxCtrlArr3D
21			parameter ( maxCtrlArr3D = 3 )
22			#endif
23
24			CEH3 ;;; Local Variables: ***
25			CEH3 ;;; mode:fortran ***
26			CEH3 ;;; End: ***