quarter_degree_global/code/DIAGNOSTICS_SIZE.h

C $Header: /u/gcmpack/MITgcm_contrib/quarter_degree_global/code/DIAGNOSTICS_SIZE.h,v 1.5 2005/03/24 14:00:28 dimitri 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 = 38, numperlist = 1, numLevels=Nr )
      PARAMETER( numdiags = 27+28*Nr )


CEH3 ;;; Local Variables: ***
CEH3 ;;; mode:fortran ***
CEH3 ;;; End: ***
1	dimitri	1.6	C $Header: /u/gcmpack/MITgcm_contrib/quarter_degree_global/code/DIAGNOSTICS_SIZE.h,v 1.5 2005/03/24 14:00:28 dimitri Exp $
2	dimitri	1.1	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	dimitri	1.6	PARAMETER( numlists = 38, numperlist = 1, numLevels=Nr )
19			PARAMETER( numdiags = 27+28*Nr )
20	dimitri	1.1
21
22			CEH3 ;;; Local Variables: ***
23			CEH3 ;;; mode:fortran ***
24			CEH3 ;;; End: ***