| File |
Line number |
Procedure |
Code |
|
./eesupp/src/eeset_parms.F |
180 |
EESET_PARMS |
READ(eeDataUnit,FMT='(A)',END=1001) RECORD |
|
./eesupp/src/eeset_parms.F |
181 |
EESET_PARMS |
IL = MAX(ILNBLNK(RECORD),1) |
|
./eesupp/src/eeset_parms.F |
182 |
EESET_PARMS |
IF ( RECORD(1:1) .NE. commentCharacter ) THEN |
|
./eesupp/src/eeset_parms.F |
183 |
EESET_PARMS |
CALL NML_SET_TERMINATOR( RECORD ) |
|
./eesupp/src/eeset_parms.F |
184 |
EESET_PARMS |
WRITE(UNIT=scrUnit1,FMT='(A)') RECORD(:IL) |
|
./eesupp/src/eeset_parms.F |
186 |
EESET_PARMS |
WRITE(UNIT=scrUnit2,FMT='(A)') RECORD(:IL) |
|
./eesupp/src/eeset_parms.F |
206 |
EESET_PARMS |
READ(UNIT=iUnit,FMT='(A)',END=2001) RECORD |
|
./eesupp/src/eeset_parms.F |
207 |
EESET_PARMS |
IL = MAX(ILNBLNK(RECORD),1) |
|
./eesupp/src/eeset_parms.F |
208 |
EESET_PARMS |
WRITE(msgBuf,'(A,A)') '>',RECORD(:IL) |
|
./eesupp/src/open_copy_data_file.F |
116 |
OPEN_COPY_DATA_FILE |
READ(modelDataUnit,FMT='(A)',END=1001) RECORD |
|
./eesupp/src/open_copy_data_file.F |
117 |
OPEN_COPY_DATA_FILE |
IL = MAX(ILNBLNK(RECORD),1) |
|
./eesupp/src/open_copy_data_file.F |
118 |
OPEN_COPY_DATA_FILE |
IF ( RECORD(1:1) .NE. commentCharacter ) THEN |
|
./eesupp/src/open_copy_data_file.F |
120 |
OPEN_COPY_DATA_FILE |
CALL NML_CHANGE_SYNTAX( RECORD, data_file, myThid ) |
|
./eesupp/src/open_copy_data_file.F |
121 |
OPEN_COPY_DATA_FILE |
WRITE(UNIT=scrUnit1,FMT='(A)') RECORD(:IL) |
|
./eesupp/src/open_copy_data_file.F |
123 |
OPEN_COPY_DATA_FILE |
WRITE(UNIT=scrUnit2,FMT='(A)') RECORD(:IL) |
|
./eesupp/src/open_copy_data_file.F |
143 |
OPEN_COPY_DATA_FILE |
READ(UNIT=iUnit,FMT='(A)',END=2001) RECORD |
|
./eesupp/src/open_copy_data_file.F |
144 |
OPEN_COPY_DATA_FILE |
IL = MAX(ILNBLNK(RECORD),1) |
|
./eesupp/src/open_copy_data_file.F |
145 |
OPEN_COPY_DATA_FILE |
WRITE(msgBuf,'(A,A)') '>',RECORD(:IL) |