87 |
|
|
88 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
89 |
|
|
90 |
|
C DIAG_STATIS common block: |
91 |
|
C iSdiag :: slot number in large diagnostic array |
92 |
|
C mSdiag :: slot number in large diagnostic array for the mate |
93 |
|
C jSdiag :: short-list (active diag.) to long-list (available diag.) |
94 |
|
C pointer |
95 |
|
C diagSt_region(j,n) :: flag to perform (=1) or not (=0) regional-statistics |
96 |
|
C over region # j for output stream # n |
97 |
|
C diagSt_freq(n) :: frequency (in s) to write output stream # n |
98 |
|
C diagSt_phase(n) :: phase (in s) to write output stream # n |
99 |
|
C diagSt_nbFlds(n) :: number of active diagnostics for output stream # n |
100 |
|
C diagSt_nbActv(n) :: number of active diagnostics (including counters) |
101 |
|
C for output stream # n |
102 |
|
C diagSt_nbLists :: effective number of output streams |
103 |
|
C diagSt_ioUnit(n) :: fortran IO unit for output stream # n (ascii output) |
104 |
|
C diagSt_Flds(:,n) :: list of field names in output stream # n |
105 |
|
C diagSt_Fname(n) :: output file name for output stream # n |
106 |
|
|
107 |
_RL diagSt_freq(numlists), diagSt_phase(numlists) |
_RL diagSt_freq(numlists), diagSt_phase(numlists) |
108 |
CHARACTER*8 diagSt_Flds(numperlist,numlists) |
CHARACTER*8 diagSt_Flds(numperlist,numlists) |
109 |
CHARACTER*80 diagSt_Fname(numlists) |
CHARACTER*80 diagSt_Fname(numlists) |