1 |
jmc |
1.1 |
C $Header: /u/gcmpack/MITgcm/pkg/diagnostics/diagnostics_SIZE.h,v 1.4 2004/07/07 03:10:14 edhill 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 numfields :: maximum number of active diagnostics (in data.diagnostics) |
12 |
|
|
C numdiags :: maximum size of the storage array for active diagnostics |
13 |
|
|
INTEGER ndiagMax |
14 |
|
|
INTEGER numlists |
15 |
|
|
INTEGER numperlist |
16 |
|
|
INTEGER numLevels |
17 |
|
|
INTEGER numfields |
18 |
|
|
INTEGER numdiags |
19 |
|
|
PARAMETER( ndiagMax = 500 ) |
20 |
|
|
PARAMETER( numlists = 10, numperlist = 50, numLevels=2*Nr ) |
21 |
|
|
PARAMETER( numdiags = 72 ) |
22 |
|
|
|
23 |
|
|
PARAMETER( numfields = numlists*numperlist ) |
24 |
|
|
|
25 |
|
|
CEH3 ;;; Local Variables: *** |
26 |
|
|
CEH3 ;;; mode:fortran *** |
27 |
|
|
CEH3 ;;; End: *** |