| File |
Line number |
Procedure |
Code |
|
./eesupp/src/eeset_parms.F |
187 |
EESET_PARMS |
READ(eeDataUnit,FMT='(A)',END=1001) RECORD |
|
./eesupp/src/eeset_parms.F |
188 |
EESET_PARMS |
IL = MAX(ILNBLNK(RECORD),1) |
|
./eesupp/src/eeset_parms.F |
189 |
EESET_PARMS |
IF ( RECORD(1:1) .NE. commentCharacter ) THEN |
|
./eesupp/src/eeset_parms.F |
190 |
EESET_PARMS |
CALL NML_SET_TERMINATOR( RECORD ) |
|
./eesupp/src/eeset_parms.F |
191 |
EESET_PARMS |
WRITE(UNIT=scrUnit1,FMT='(A)') RECORD(:IL) |
|
./eesupp/src/eeset_parms.F |
193 |
EESET_PARMS |
WRITE(UNIT=scrUnit2,FMT='(A)') RECORD(:IL) |
|
./eesupp/src/eeset_parms.F |
213 |
EESET_PARMS |
READ(UNIT=iUnit,FMT='(A)',END=2001) RECORD |
|
./eesupp/src/eeset_parms.F |
214 |
EESET_PARMS |
IL = MAX(ILNBLNK(RECORD),1) |
|
./eesupp/src/eeset_parms.F |
215 |
EESET_PARMS |
WRITE(msgBuf,'(A,A)') '>',RECORD(:IL) |
|
./eesupp/src/open_copy_data_file.F |
119 |
OPEN_COPY_DATA_FILE |
READ(modelDataUnit,FMT='(A)',END=1001) RECORD |
|
./eesupp/src/open_copy_data_file.F |
120 |
OPEN_COPY_DATA_FILE |
IL = MAX(ILNBLNK(RECORD),1) |
|
./eesupp/src/open_copy_data_file.F |
121 |
OPEN_COPY_DATA_FILE |
IF ( RECORD(1:1) .NE. commentCharacter ) THEN |
|
./eesupp/src/open_copy_data_file.F |
123 |
OPEN_COPY_DATA_FILE |
CALL NML_CHANGE_SYNTAX( RECORD, data_file, myThid ) |
|
./eesupp/src/open_copy_data_file.F |
124 |
OPEN_COPY_DATA_FILE |
WRITE(UNIT=scrUnit1,FMT='(A)') RECORD(:IL) |
|
./eesupp/src/open_copy_data_file.F |
126 |
OPEN_COPY_DATA_FILE |
WRITE(UNIT=scrUnit2,FMT='(A)') RECORD(:IL) |
|
./eesupp/src/open_copy_data_file.F |
146 |
OPEN_COPY_DATA_FILE |
READ(UNIT=iUnit,FMT='(A)',END=2001) RECORD |
|
./eesupp/src/open_copy_data_file.F |
147 |
OPEN_COPY_DATA_FILE |
IL = MAX(ILNBLNK(RECORD),1) |
|
./eesupp/src/open_copy_data_file.F |
148 |
OPEN_COPY_DATA_FILE |
WRITE(msgBuf,'(A,A)') '>',RECORD(:IL) |