File |
Line number |
Procedure |
Code |
./pkg/diagnostics/DIAGNOSTICS.h |
152 |
NO PROCEDURE |
CHARACTER*(MAX_LEN_FNAM) diagMdsDir |
./pkg/diagnostics/DIAGNOSTICS.h |
162 |
NO PROCEDURE |
& diagMdsDir |
./pkg/diagnostics/diagnostics_check.F |
48 |
DIAGNOSTICS_CHECK |
IF ( diag_mnc.AND.(diagMdsDir.NE.' ') ) THEN |
./pkg/diagnostics/diagnostics_check.F |
56 |
DIAGNOSTICS_CHECK |
IF ( (mdsioLocalDir.NE.' ').AND.(diagMdsDir.NE.' ') ) THEN |
./pkg/diagnostics/diagnostics_ini_io.F |
44 |
DIAGNOSTICS_INI_IO |
IF ( diag_mdsio .AND. (diagMdsDir.NE.' ') .AND. |
./pkg/diagnostics/diagnostics_ini_io.F |
48 |
DIAGNOSTICS_INI_IO |
iL = ILNBLNK( diagMdsDir ) |
./pkg/diagnostics/diagnostics_ini_io.F |
49 |
DIAGNOSTICS_INI_IO |
WRITE(namBuf,'(3A)') ' mkdir -p ', diagMdsDir(1:iL), ' ' |
./pkg/diagnostics/diagnostics_out.F |
102 |
DIAGNOSTICS_OUT |
IF ( diag_mdsio.AND.(diagMdsDir.NE.' ') ) THEN |
./pkg/diagnostics/diagnostics_out.F |
103 |
DIAGNOSTICS_OUT |
jLen = ILNBLNK(diagMdsDir) |
./pkg/diagnostics/diagnostics_out.F |
104 |
DIAGNOSTICS_OUT |
WRITE( fn, '(5A)' ) diagMdsDir(1:jLen),'/', |
./pkg/diagnostics/diagnostics_readparms.F |
102 |
DIAGNOSTICS_READPARMS |
& diagMdsDir, diagMdsDirCreate |
./pkg/diagnostics/diagnostics_readparms.F |
160 |
DIAGNOSTICS_READPARMS |
diagMdsDir = ' ' |
./pkg/diagnostics/diagnostics_readparms.F |
276 |
DIAGNOSTICS_READPARMS |
iLen = ILNBLNK( diagMdsDir ) |
./pkg/diagnostics/diagnostics_readparms.F |
278 |
DIAGNOSTICS_READPARMS |
IF ( diagMdsDir(iLen:iLen).EQ.'/' ) THEN |
./pkg/diagnostics/diagnostics_readparms.F |
279 |
DIAGNOSTICS_READPARMS |
namBuf = diagMdsDir |
./pkg/diagnostics/diagnostics_readparms.F |
280 |
DIAGNOSTICS_READPARMS |
WRITE(diagMdsDir,'(A)') namBuf(1:iLen-1) |
./pkg/diagnostics/diagnostics_readparms.F |
529 |
DIAGNOSTICS_READPARMS |
IF ( diag_mdsio.AND.(diagMdsDir.NE.' ') ) THEN |
./pkg/diagnostics/diagnostics_readparms.F |
530 |
DIAGNOSTICS_READPARMS |
CALL WRITE_0D_C( diagMdsDir, -1, INDEX_NONE, |