| File |
Line number |
Procedure |
Code |
|
./model/inc/PARAMS.h |
107 |
NO PROCEDURE |
CHARACTER*(MAX_LEN_FNAM) adTapeDir |
|
./model/inc/PARAMS.h |
86 |
NO PROCEDURE |
& pickupSuff, mdsioLocalDir, adTapeDir, |
|
./model/src/ini_model_io.F |
155 |
INI_MODEL_IO |
IF ( adTapeDir .NE. ' ' ) THEN |
|
./model/src/ini_model_io.F |
156 |
INI_MODEL_IO |
iL = ILNBLNK( adTapeDir ) |
|
./model/src/ini_model_io.F |
157 |
INI_MODEL_IO |
IF ( iL .LT. MAX_LEN_FNAM .AND. adTapeDir(iL:iL) .NE. '/' ) THEN |
|
./model/src/ini_model_io.F |
158 |
INI_MODEL_IO |
namBuf(1:iL) = adTapeDir(1:iL) |
|
./model/src/ini_model_io.F |
159 |
INI_MODEL_IO |
WRITE(adTapeDir(1:iL+1),'(2A)') namBuf(1:iL),'/' |
|
./model/src/ini_parms.F |
1251 |
INI_PARMS |
IF (mdsioLocalDir .NE. ' ' .AND. adTapeDir .NE. ' ') THEN |
|
./model/src/ini_parms.F |
265 |
INI_PARMS |
& mdsioLocalDir, adTapeDir, |
|
./model/src/set_defaults.F |
344 |
SET_DEFAULTS |
adTapeDir = ' ' |
|
./pkg/autodiff/adread_adwrite.F |
155 |
ADREAD |
jl = ilnblnk( adTapeDir ) |
|
./pkg/autodiff/adread_adwrite.F |
159 |
ADREAD |
write(fname(1:lenLoc),'(a,a)') adTapeDir(1:jl),name(1:il) |
|
./pkg/autodiff/adread_adwrite.F |
164 |
ADREAD |
& adTapeDir(1:jl),name(1:il),itername |
|
./pkg/autodiff/adread_adwrite.F |
323 |
ADWRITE |
jl = ilnblnk( adTapeDir ) |
|
./pkg/autodiff/adread_adwrite.F |
327 |
ADWRITE |
write(fname(1:lenLoc),'(a,a)') adTapeDir(1:jl),name(1:il) |
|
./pkg/autodiff/adread_adwrite.F |
332 |
ADWRITE |
& adTapeDir(1:jl),name(1:il),itername |