8 |
C numlists :: maximum number of diagnostics list (in data.diagnostics) |
C numlists :: maximum number of diagnostics list (in data.diagnostics) |
9 |
C numperlist :: maximum number of active diagnostics per list (data.diagnostics) |
C numperlist :: maximum number of active diagnostics per list (data.diagnostics) |
10 |
C numLevels :: maximum number of levels to write (data.diagnostics) |
C numLevels :: maximum number of levels to write (data.diagnostics) |
|
C numfields :: maximum number of active diagnostics (in data.diagnostics) |
|
11 |
C numdiags :: maximum size of the storage array for active diagnostics |
C numdiags :: maximum size of the storage array for active diagnostics |
12 |
INTEGER ndiagMax |
INTEGER ndiagMax |
13 |
INTEGER numlists |
INTEGER numlists |
14 |
INTEGER numperlist |
INTEGER numperlist |
15 |
INTEGER numLevels |
INTEGER numLevels |
|
INTEGER numfields |
|
16 |
INTEGER numdiags |
INTEGER numdiags |
17 |
PARAMETER( ndiagMax = 500 ) |
PARAMETER( ndiagMax = 500 ) |
18 |
PARAMETER( numlists = 10, numperlist = 50, numLevels=2*Nr ) |
PARAMETER( numlists = 10, numperlist = 50, numLevels=2*Nr ) |
19 |
PARAMETER( numdiags = 72 ) |
PARAMETER( numdiags = 63 ) |
20 |
|
|
|
PARAMETER( numfields = numlists*numperlist ) |
|
21 |
|
|
22 |
CEH3 ;;; Local Variables: *** |
CEH3 ;;; Local Variables: *** |
23 |
CEH3 ;;; mode:fortran *** |
CEH3 ;;; mode:fortran *** |