| File |
Line number |
Procedure |
Code |
|
./eesupp/src/eeset_parms.F |
151 |
EESET_PARMS |
READ(eeDataUnit,FMT='(A)',END=1001) RECORD |
|
./eesupp/src/eeset_parms.F |
152 |
EESET_PARMS |
IL = MAX(ILNBLNK(RECORD),1) |
|
./eesupp/src/eeset_parms.F |
153 |
EESET_PARMS |
IF ( RECORD(1:1) .NE. commentCharacter ) THEN |
|
./eesupp/src/eeset_parms.F |
154 |
EESET_PARMS |
CALL NML_SET_TERMINATOR( RECORD ) |
|
./eesupp/src/eeset_parms.F |
155 |
EESET_PARMS |
WRITE(UNIT=scrUnit1,FMT='(A)') RECORD(:IL) |
|
./eesupp/src/eeset_parms.F |
157 |
EESET_PARMS |
WRITE(UNIT=scrUnit2,FMT='(A)') RECORD(:IL) |
|
./eesupp/src/eeset_parms.F |
176 |
EESET_PARMS |
READ(UNIT=iUnit,FMT='(A)',END=2001) RECORD |
|
./eesupp/src/eeset_parms.F |
177 |
EESET_PARMS |
IL = MAX(ILNBLNK(RECORD),1) |
|
./eesupp/src/eeset_parms.F |
178 |
EESET_PARMS |
WRITE(msgBuf,'(A,A)') '>',RECORD(:IL) |
|
./eesupp/src/open_copy_data_file.F |
101 |
OPEN_COPY_DATA_FILE |
WRITE(UNIT=scrUnit2,FMT='(A)') RECORD(:IL) |
|
./eesupp/src/open_copy_data_file.F |
121 |
OPEN_COPY_DATA_FILE |
READ(UNIT=iUnit,FMT='(A)',END=2001) RECORD |
|
./eesupp/src/open_copy_data_file.F |
122 |
OPEN_COPY_DATA_FILE |
IL = MAX(ILNBLNK(RECORD),1) |
|
./eesupp/src/open_copy_data_file.F |
123 |
OPEN_COPY_DATA_FILE |
WRITE(msgBuf,'(A,A)') '>',RECORD(:IL) |
|
./eesupp/src/open_copy_data_file.F |
94 |
OPEN_COPY_DATA_FILE |
READ(modelDataUnit,FMT='(A)',END=1001) RECORD |
|
./eesupp/src/open_copy_data_file.F |
95 |
OPEN_COPY_DATA_FILE |
IL = MAX(ILNBLNK(RECORD),1) |
|
./eesupp/src/open_copy_data_file.F |
96 |
OPEN_COPY_DATA_FILE |
IF ( RECORD(1:1) .NE. commentCharacter ) THEN |
|
./eesupp/src/open_copy_data_file.F |
98 |
OPEN_COPY_DATA_FILE |
CALL NML_CHANGE_SYNTAX( RECORD, data_file, myThid ) |
|
./eesupp/src/open_copy_data_file.F |
99 |
OPEN_COPY_DATA_FILE |
WRITE(UNIT=scrUnit1,FMT='(A)') RECORD(:IL) |