| File |
Line number |
Procedure |
Code |
|
./pkg/mnc/mnc_readparms.F |
108 |
MNC_READPARMS |
data_file(i:i) = ' ' |
|
./pkg/mnc/mnc_readparms.F |
110 |
MNC_READPARMS |
WRITE(data_file,'(a)') 'data.mnc' |
|
./pkg/mnc/mnc_readparms.F |
111 |
MNC_READPARMS |
nl = ILNBLNK(data_file) |
|
./pkg/mnc/mnc_readparms.F |
114 |
MNC_READPARMS |
& data_file(1:nl), '''' |
|
./pkg/mnc/mnc_readparms.F |
118 |
MNC_READPARMS |
CALL OPEN_COPY_DATA_FILE(data_file(1:nl),'MNC_READPARMS', |
|
./pkg/mnc/mnc_readparms.F |
38 |
MNC_READPARMS |
character*(MAX_LEN_MBUF) data_file |
|
./eesupp/src/nml_change_syntax.F |
119 |
NML_CHANGE_SYNTAX |
& 'from file="', data_file, '".' |
|
./eesupp/src/nml_change_syntax.F |
12 |
NML_CHANGE_SYNTAX |
I data_file, myThid ) |
|
./eesupp/src/nml_change_syntax.F |
137 |
NML_CHANGE_SYNTAX |
WRITE(iUnit,'(5A)') ' ',data_file,' , rec >',record(1:i0),'<' |
|
./eesupp/src/nml_change_syntax.F |
149 |
NML_CHANGE_SYNTAX |
& 'from file="', data_file, '".' |
|
./eesupp/src/nml_change_syntax.F |
205 |
NML_CHANGE_SYNTAX |
& 'from file="', data_file, '".' |
|
./eesupp/src/nml_change_syntax.F |
226 |
NML_CHANGE_SYNTAX |
& 'from file="', data_file, '".' |
|
./eesupp/src/nml_change_syntax.F |
43 |
NML_CHANGE_SYNTAX |
CHARACTER*(*) data_file |
|
./eesupp/src/open_copy_data_file.F |
10 |
OPEN_COPY_DATA_FILE |
I data_file, caller_sub, |
|
./eesupp/src/open_copy_data_file.F |
111 |
OPEN_COPY_DATA_FILE |
WRITE(msgBuf,'(A,A,A)') '// Parameter file "',data_file,'"' |
|
./eesupp/src/open_copy_data_file.F |
33 |
OPEN_COPY_DATA_FILE |
CHARACTER*(*) data_file |
|
./eesupp/src/open_copy_data_file.F |
58 |
OPEN_COPY_DATA_FILE |
INQUIRE( FILE=data_file, EXIST=exst ) |
|
./eesupp/src/open_copy_data_file.F |
61 |
OPEN_COPY_DATA_FILE |
& ' OPEN_COPY_DATA_FILE: opening file ',data_file |
|
./eesupp/src/open_copy_data_file.F |
66 |
OPEN_COPY_DATA_FILE |
& 'File ',data_file,' does not exist!' |
|
./eesupp/src/open_copy_data_file.F |
82 |
OPEN_COPY_DATA_FILE |
OPEN(UNIT=modelDataUnit,FILE=data_file,STATUS='OLD', |
|
./eesupp/src/open_copy_data_file.F |
86 |
OPEN_COPY_DATA_FILE |
& 'Unable to open parameter file: ',data_file |
|
./eesupp/src/open_copy_data_file.F |
98 |
OPEN_COPY_DATA_FILE |
CALL NML_CHANGE_SYNTAX( RECORD, data_file, myThid ) |