| File |
Line number |
Procedure |
Code |
|
./model/src/ini_parms.F |
341 |
INI_PARMS |
READ(modelDataUnit,FMT='(A)',END=1001) RECORD |
|
./model/src/ini_parms.F |
342 |
INI_PARMS |
IL = MAX(ILNBLNK(RECORD),1) |
|
./model/src/ini_parms.F |
343 |
INI_PARMS |
IF ( RECORD(1:1) .NE. commentCharacter ) THEN |
|
./model/src/ini_parms.F |
344 |
INI_PARMS |
CALL NML_SET_TERMINATOR( RECORD ) |
|
./model/src/ini_parms.F |
345 |
INI_PARMS |
WRITE(UNIT=scrUnit1,FMT='(A)') RECORD(:IL) |
|
./model/src/ini_parms.F |
347 |
INI_PARMS |
WRITE(UNIT=scrUnit2,FMT='(A)') RECORD(:IL) |
|
./model/src/ini_parms.F |
367 |
INI_PARMS |
READ(UNIT=iUnit,FMT='(A)',END=2001) RECORD |
|
./model/src/ini_parms.F |
368 |
INI_PARMS |
IL = MAX(ILNBLNK(RECORD),1) |
|
./model/src/ini_parms.F |
369 |
INI_PARMS |
WRITE(msgBuf,'(A,A)') '>',RECORD(:IL) |
|
./eesupp/src/eeset_parms.F |
150 |
EESET_PARMS |
READ(eeDataUnit,FMT='(A)',END=1001) RECORD |
|
./eesupp/src/eeset_parms.F |
151 |
EESET_PARMS |
IL = MAX(ILNBLNK(RECORD),1) |
|
./eesupp/src/eeset_parms.F |
152 |
EESET_PARMS |
IF ( RECORD(1:1) .NE. commentCharacter ) THEN |
|
./eesupp/src/eeset_parms.F |
153 |
EESET_PARMS |
CALL NML_SET_TERMINATOR( RECORD ) |
|
./eesupp/src/eeset_parms.F |
154 |
EESET_PARMS |
WRITE(UNIT=scrUnit1,FMT='(A)') RECORD(:IL) |
|
./eesupp/src/eeset_parms.F |
156 |
EESET_PARMS |
WRITE(UNIT=scrUnit2,FMT='(A)') RECORD(:IL) |
|
./eesupp/src/eeset_parms.F |
175 |
EESET_PARMS |
READ(UNIT=iUnit,FMT='(A)',END=2001) RECORD |
|
./eesupp/src/eeset_parms.F |
176 |
EESET_PARMS |
IL = MAX(ILNBLNK(RECORD),1) |
|
./eesupp/src/eeset_parms.F |
177 |
EESET_PARMS |
WRITE(msgBuf,'(A,A)') '>',RECORD(:IL) |
|
./eesupp/src/nml_filter.F |
112 |
NML_FILTER |
CALL NML_SET_TERMINATOR( RECORD ) |
|
./eesupp/src/nml_set_terminator.F |
46 |
NML_SET_TERMINATOR |
IL = MAX(ILNBLNK(RECORD),1) |
|
./eesupp/src/nml_set_terminator.F |
48 |
NML_SET_TERMINATOR |
IF ( RECORD(1:2) .EQ. ' &' ) THEN |
|
./eesupp/src/nml_set_terminator.F |
49 |
NML_SET_TERMINATOR |
RECORD(1:2) = NML_TERMINATOR |
|
./eesupp/src/open_copy_data_file.F |
117 |
OPEN_COPY_DATA_FILE |
READ(UNIT=iUnit,FMT='(A)',END=2001) RECORD |
|
./eesupp/src/open_copy_data_file.F |
118 |
OPEN_COPY_DATA_FILE |
IL = MAX(ILNBLNK(RECORD),1) |
|
./eesupp/src/open_copy_data_file.F |
119 |
OPEN_COPY_DATA_FILE |
WRITE(msgBuf,'(A,A)') '>',RECORD(:IL) |
|
./eesupp/src/open_copy_data_file.F |
91 |
OPEN_COPY_DATA_FILE |
READ(modelDataUnit,FMT='(A)',END=1001) RECORD |
|
./eesupp/src/open_copy_data_file.F |
92 |
OPEN_COPY_DATA_FILE |
IL = MAX(ILNBLNK(RECORD),1) |
|
./eesupp/src/open_copy_data_file.F |
93 |
OPEN_COPY_DATA_FILE |
IF ( RECORD(1:1) .NE. commentCharacter ) THEN |
|
./eesupp/src/open_copy_data_file.F |
94 |
OPEN_COPY_DATA_FILE |
CALL NML_SET_TERMINATOR( RECORD ) |
|
./eesupp/src/open_copy_data_file.F |
95 |
OPEN_COPY_DATA_FILE |
WRITE(UNIT=scrUnit1,FMT='(A)') RECORD(:IL) |
|
./eesupp/src/open_copy_data_file.F |
97 |
OPEN_COPY_DATA_FILE |
WRITE(UNIT=scrUnit2,FMT='(A)') RECORD(:IL) |