| 139 |
C - DIAG_PARAMS common block: |
C - DIAG_PARAMS common block: |
| 140 |
C diagLoc_ioUnit :: internal parameter: I/O unit for local diagnostics output |
C diagLoc_ioUnit :: internal parameter: I/O unit for local diagnostics output |
| 141 |
C dumpAtLast :: always write time-ave (freq>0) diagnostics at the end of the run |
C dumpAtLast :: always write time-ave (freq>0) diagnostics at the end of the run |
| 142 |
|
C diagMdsDir :: directory where diagnostics will be written when using mds |
| 143 |
|
C diagMdsDirCreate :: system call to mkdir to create diagMdsDir |
| 144 |
INTEGER diagLoc_ioUnit |
INTEGER diagLoc_ioUnit |
| 145 |
LOGICAL dumpAtLast |
LOGICAL dumpAtLast, diagMdsDirCreate |
| 146 |
LOGICAL diag_pickup_read, diag_pickup_write |
LOGICAL diag_pickup_read, diag_pickup_write |
| 147 |
LOGICAL diag_pickup_read_mdsio, diag_pickup_write_mdsio |
LOGICAL diag_pickup_read_mdsio, diag_pickup_write_mdsio |
| 148 |
LOGICAL diag_pickup_read_mnc, diag_pickup_write_mnc |
LOGICAL diag_pickup_read_mnc, diag_pickup_write_mnc |
| 149 |
|
character*(MAX_LEN_FNAM) diagMdsDir |
| 150 |
|
|
| 151 |
COMMON / DIAG_PARAMS_I / |
COMMON / DIAG_PARAMS_I / |
| 152 |
& diagLoc_ioUnit |
& diagLoc_ioUnit |
| 153 |
COMMON / DIAG_PARAMS_L / |
COMMON / DIAG_PARAMS_L / |
| 154 |
& dumpAtLast, |
& dumpAtLast, diagMdsDirCreate, |
| 155 |
& diag_pickup_read, diag_pickup_write, |
& diag_pickup_read, diag_pickup_write, |
| 156 |
& diag_pickup_read_mdsio, diag_pickup_write_mdsio, |
& diag_pickup_read_mdsio, diag_pickup_write_mdsio, |
| 157 |
& diag_pickup_read_mnc, diag_pickup_write_mnc |
& diag_pickup_read_mnc, diag_pickup_write_mnc |
| 158 |
|
COMMON / DIAG_PARAMS_C / |
| 159 |
|
& diagMdsDir |
| 160 |
|
|
| 161 |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----| |
| 162 |
|
|
Parent Directory
| 
Revision Log
| 
Revision Graph
| 
Patch