| File |
Line number |
Procedure |
Code |
|
./model/inc/PARAMS.h |
105 |
NO PROCEDURE |
CHARACTER*(MAX_LEN_FNAM) mdsioLocalDir |
|
./model/inc/PARAMS.h |
85 |
NO PROCEDURE |
& pickupSuff, mdsioLocalDir, adTapeDir, |
|
./pkg/mdsio/mdsio_check4file.F |
110 |
MDS_CHECK4FILE |
WRITE(fileName,'(4A)') mdsioLocalDir(1:lp), |
|
./pkg/mdsio/mdsio_check4file.F |
62 |
MDS_CHECK4FILE |
lp = ILNBLNK( mdsioLocalDir ) |
|
./pkg/mdsio/mdsio_check4file.F |
99 |
MDS_CHECK4FILE |
WRITE(fileName,'(3A,I3.3,A,I3.3,A)') mdsioLocalDir(1:lp), |
|
./pkg/mdsio/mdsio_gl.F |
127 |
MDSREADFIELD_3D_GL |
pIL = ILNBLNK( mdsioLocalDir ) |
|
./pkg/mdsio/mdsio_gl.F |
132 |
MDSREADFIELD_3D_GL |
write(fName,'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_gl.F |
1339 |
MDSWRITEFIELD_2D_GL |
pIL = ILNBLNK( mdsioLocalDir ) |
|
./pkg/mdsio/mdsio_gl.F |
1344 |
MDSWRITEFIELD_2D_GL |
write(fName,'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_gl.F |
551 |
MDSWRITEFIELD_3D_GL |
pIL = ILNBLNK( mdsioLocalDir ) |
|
./pkg/mdsio/mdsio_gl.F |
556 |
MDSWRITEFIELD_3D_GL |
write(fName,'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_gl.F |
914 |
MDSREADFIELD_2D_GL |
pIL = ILNBLNK( mdsioLocalDir ) |
|
./pkg/mdsio/mdsio_gl.F |
919 |
MDSREADFIELD_2D_GL |
write(fName,'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_read_field.F |
138 |
MDS_READ_FIELD |
pIL = ILNBLNK( mdsioLocalDir ) |
|
./pkg/mdsio/mdsio_read_field.F |
158 |
MDS_READ_FIELD |
WRITE(errorMessageUnit,'(3A)')'pfix: >',mdsioLocalDir(1:pIL),'<' |
|
./pkg/mdsio/mdsio_read_field.F |
225 |
MDS_READ_FIELD |
WRITE(pfName,'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_read_meta.F |
134 |
MDS_READ_META |
pL = ILNBLNK( mdsioLocalDir ) |
|
./pkg/mdsio/mdsio_read_meta.F |
138 |
MDS_READ_META |
WRITE(pfName,'(2A)') mdsioLocalDir(1:pL), fileName(1:iL) |
|
./pkg/mdsio/mdsio_read_section.F |
115 |
MDS_READ_SEC_XZ |
pIL = ILNBLNK( mdsioLocalDir ) |
|
./pkg/mdsio/mdsio_read_section.F |
121 |
MDS_READ_SEC_XZ |
WRITE(pfName,'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_read_section.F |
393 |
MDS_READ_SEC_YZ |
pIL = ILNBLNK( mdsioLocalDir ) |
|
./pkg/mdsio/mdsio_read_section.F |
399 |
MDS_READ_SEC_YZ |
WRITE(pfName,'(2A)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_read_tape.F |
101 |
MDS_READ_TAPE |
pIL = ILNBLNK( mdsioLocalDir ) |
|
./pkg/mdsio/mdsio_read_tape.F |
104 |
MDS_READ_TAPE |
IF ( mdsioLocalDir .NE. ' ' ) THEN |
|
./pkg/mdsio/mdsio_read_tape.F |
105 |
MDS_READ_TAPE |
WRITE(pfName,'(2A)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_readvec_loc.F |
131 |
MDS_READVEC_LOC |
IF ( mdsioLocalDir .NE. ' ' ) THEN |
|
./pkg/mdsio/mdsio_readvec_loc.F |
132 |
MDS_READVEC_LOC |
pIL = ILNBLNK( mdsioLocalDir ) |
|
./pkg/mdsio/mdsio_readvec_loc.F |
133 |
MDS_READVEC_LOC |
WRITE(pFname,'(2A)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
147 |
MDS_WR_METAFILES |
pIL = ILNBLNK( mdsioLocalDir ) |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
152 |
MDS_WR_METAFILES |
WRITE(pfName,'(2A)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_write_field.F |
164 |
MDS_WRITE_FIELD |
pIL = ILNBLNK( mdsioLocalDir ) |
|
./pkg/mdsio/mdsio_write_field.F |
186 |
MDS_WRITE_FIELD |
WRITE(errorMessageUnit,'(3A)')'pfix: >',mdsioLocalDir(1:pIL),'<' |
|
./pkg/mdsio/mdsio_write_field.F |
253 |
MDS_WRITE_FIELD |
WRITE(pfName,'(2A)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_write_section.F |
121 |
MDS_WRITE_SEC_XZ |
pIL = ILNBLNK( mdsioLocalDir ) |
|
./pkg/mdsio/mdsio_write_section.F |
127 |
MDS_WRITE_SEC_XZ |
WRITE(pfName,'(2A)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_write_section.F |
374 |
MDS_WRITE_SEC_YZ |
pIL = ILNBLNK( mdsioLocalDir ) |
|
./pkg/mdsio/mdsio_write_section.F |
380 |
MDS_WRITE_SEC_YZ |
WRITE(pfName,'(2a)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_write_tape.F |
141 |
MDS_WRITE_TAPE |
pIL = ILNBLNK( mdsioLocalDir ) |
|
./pkg/mdsio/mdsio_write_tape.F |
147 |
MDS_WRITE_TAPE |
WRITE(pfName,'(2A)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
136 |
MDS_WRITEVEC_LOC |
IF ( mdsioLocalDir .NE. ' ' ) THEN |
|
./pkg/mdsio/mdsio_writevec_loc.F |
137 |
MDS_WRITEVEC_LOC |
pIL = ILNBLNK( mdsioLocalDir ) |
|
./pkg/mdsio/mdsio_writevec_loc.F |
138 |
MDS_WRITEVEC_LOC |
WRITE(pFname,'(2A)') mdsioLocalDir(1:pIL), fName(1:IL) |
|
./model/src/ini_model_io.F |
138 |
INI_MODEL_IO |
IF ( mdsioLocalDir .NE. ' ' ) THEN |
|
./model/src/ini_model_io.F |
139 |
INI_MODEL_IO |
iL = ILNBLNK( mdsioLocalDir ) |
|
./model/src/ini_model_io.F |
147 |
INI_MODEL_IO |
& 'localDir: >',mdsioLocalDir(1:IL),'<' |
|
./model/src/ini_model_io.F |
151 |
INI_MODEL_IO |
& ' mkdir -p ', mdsioLocalDir(1:iL),myProcessStr(1:4),' ' |
|
./model/src/ini_model_io.F |
170 |
INI_MODEL_IO |
namBuf(1:iL) = mdsioLocalDir(1:iL) |
|
./model/src/ini_model_io.F |
171 |
INI_MODEL_IO |
WRITE(mdsioLocalDir,'(3A)') namBuf(1:iL),myProcessStr(1:4),'/' |
|
./model/src/ini_parms.F |
1398 |
INI_PARMS |
IF (mdsioLocalDir .NE. ' ' .AND. adTapeDir .NE. ' ') THEN |
|
./model/src/ini_parms.F |
298 |
INI_PARMS |
& mdsioLocalDir, adTapeDir, |
|
./model/src/set_defaults.F |
393 |
SET_DEFAULTS |
mdsioLocalDir = ' ' |
|
./pkg/diagnostics/diagnostics_check.F |
56 |
DIAGNOSTICS_CHECK |
IF ( (mdsioLocalDir.NE.' ').AND.(diagMdsDir.NE.' ') ) THEN |
|
./pkg/diagnostics/diagnostics_ini_io.F |
45 |
DIAGNOSTICS_INI_IO |
& diagMdsDirCreate .AND. (mdsioLocalDir.EQ.' ') ) THEN |