natl_box/code/DIAGNOSTICS_SIZE.h

C $Header: /u/gcmpack/MITgcm/verification/hs94.cs-32x32x5/code/DIAGNOSTICS_SIZE.h,v 1.2 2004/12/14 02:42:19 jmc Exp $
C $Name:  $


C     Diagnostics Array Dimension
C     ---------------------------
C     ndiagMax   :: maximum total number of available diagnostics
C     numlists   :: maximum number of diagnostics list (in data.diagnostics)
C     numperlist :: maximum number of active diagnostics per list (data.diagnostics)
C     numLevels  :: maximum number of levels to write    (data.diagnostics)
C     numdiags   :: maximum size of the storage array for active diagnostics
      INTEGER    ndiagMax
      INTEGER    numlists
      INTEGER    numperlist
      INTEGER    numLevels
      INTEGER    numdiags
      PARAMETER( ndiagMax = 500 )
      PARAMETER( numlists = 7, numperlist = 1, numLevels=Nr )
      PARAMETER( numdiags = 4*Nr+3 )


CEH3 ;;; Local Variables: ***
CEH3 ;;; mode:fortran ***
CEH3 ;;; End: ***
1	dimitri	1.1	C $Header: /u/gcmpack/MITgcm/verification/hs94.cs-32x32x5/code/DIAGNOSTICS_SIZE.h,v 1.2 2004/12/14 02:42:19 jmc Exp $
2			C $Name: $
3
4
5			C Diagnostics Array Dimension
6			C ---------------------------
7			C ndiagMax :: maximum total number of available diagnostics
8			C numlists :: maximum number of diagnostics list (in data.diagnostics)
9			C numperlist :: maximum number of active diagnostics per list (data.diagnostics)
10			C numLevels :: maximum number of levels to write (data.diagnostics)
11			C numdiags :: maximum size of the storage array for active diagnostics
12			INTEGER ndiagMax
13			INTEGER numlists
14			INTEGER numperlist
15			INTEGER numLevels
16			INTEGER numdiags
17			PARAMETER( ndiagMax = 500 )
18			PARAMETER( numlists = 7, numperlist = 1, numLevels=Nr )
19			PARAMETER( numdiags = 4*Nr+3 )
20
21
22			CEH3 ;;; Local Variables: ***
23			CEH3 ;;; mode:fortran ***
24			CEH3 ;;; End: ***