| 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) |
Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch