| File |
Line number |
Procedure |
Code |
|
./pkg/flt/flt_write_pickup.F |
44 |
FLT_WRITE_PICKUP |
INTEGER bi, bj, imax, iLen |
|
./pkg/flt/flt_write_pickup.F |
53 |
FLT_WRITE_PICKUP |
iLen = ILNBLNK(suff) |
|
./pkg/flt/flt_write_pickup.F |
54 |
FLT_WRITE_PICKUP |
WRITE(fn,'(A,A)') 'pickup_flt.', suff(1:iLen) |
|
./pkg/mdsio/mdsio_facef_read.F |
119 |
MDS_FACEF_READ_RS |
OPEN( dUnit, file=fName(1:iLen), status='old', |
|
./pkg/mdsio/mdsio_facef_read.F |
56 |
MDS_FACEF_READ_RS |
INTEGER i,j, dUnit, iLen |
|
./pkg/mdsio/mdsio_facef_read.F |
68 |
MDS_FACEF_READ_RS |
iLen = ILNBLNK(fName) |
|
./pkg/mdsio/mdsio_facef_read.F |
81 |
MDS_FACEF_READ_RS |
OPEN( dUnit, file=fName(1:iLen), status='old', |
|
./model/src/ini_cori.F |
161 |
INI_CORI |
iLen = ILNBLNK(fName) |
|
./model/src/ini_cori.F |
163 |
INI_CORI |
& ' Reading tile:', myTile, ' from file ', fName(1:iLen) |
|
./model/src/ini_cori.F |
49 |
INI_CORI |
INTEGER myTile, iG, iLen |
|
./model/src/ini_curvilinear_grid.F |
296 |
INI_CURVILINEAR_GRID |
iLen = ILNBLNK(horizGridFile) |
|
./model/src/ini_curvilinear_grid.F |
297 |
INI_CURVILINEAR_GRID |
IF ( iLen .EQ. 0 ) THEN |
|
./model/src/ini_curvilinear_grid.F |
300 |
INI_CURVILINEAR_GRID |
WRITE(fName,'(2A,I3.3,A)') horizGridFile(1:iLen), |
|
./model/src/ini_curvilinear_grid.F |
303 |
INI_CURVILINEAR_GRID |
iLen = ILNBLNK(fName) |
|
./model/src/ini_curvilinear_grid.F |
306 |
INI_CURVILINEAR_GRID |
& ' ; Read from file ',fName(1:iLen) |
|
./model/src/ini_curvilinear_grid.F |
361 |
INI_CURVILINEAR_GRID |
iLen = ILNBLNK(horizGridFile) |
|
./model/src/ini_curvilinear_grid.F |
362 |
INI_CURVILINEAR_GRID |
IF ( iLen.GT.0 ) THEN |
|
./model/src/ini_curvilinear_grid.F |
56 |
INI_CURVILINEAR_GRID |
INTEGER iG, jG, iL, iLen |
|
./model/src/load_grid_spacing.F |
34 |
LOAD_GRID_SPACING |
INTEGER iLen |
|
./model/src/load_grid_spacing.F |
44 |
LOAD_GRID_SPACING |
iLen = ILNBLNK(delXFile) |
|
./model/src/load_grid_spacing.F |
47 |
LOAD_GRID_SPACING |
& ' delX loaded from file: ', delXFile(1:iLen) |
|
./model/src/load_grid_spacing.F |
54 |
LOAD_GRID_SPACING |
iLen = ILNBLNK(delYFile) |
|
./model/src/load_grid_spacing.F |
57 |
LOAD_GRID_SPACING |
& ' delY loaded from file: ', delYFile(1:iLen) |
|
./model/src/load_grid_spacing.F |
64 |
LOAD_GRID_SPACING |
iLen = ILNBLNK(delRFile) |
|
./model/src/load_grid_spacing.F |
67 |
LOAD_GRID_SPACING |
& ' delR loaded from file: ', delRFile(1:iLen) |
|
./model/src/load_grid_spacing.F |
73 |
LOAD_GRID_SPACING |
iLen = ILNBLNK(delRcFile) |
|
./model/src/load_grid_spacing.F |
76 |
LOAD_GRID_SPACING |
& ' delRc loaded from file: ', delRcFile(1:iLen) |
|
./model/src/load_grid_spacing.F |
83 |
LOAD_GRID_SPACING |
iLen = ILNBLNK(hybSigmFile) |
|
./model/src/load_grid_spacing.F |
87 |
LOAD_GRID_SPACING |
& ' a&b_HybSigmF loaded from file: ', hybSigmFile(1:iLen) |
|
./model/src/packages_error_msg.F |
41 |
PACKAGES_ERROR_MSG |
INTEGER iLen |
|
./model/src/packages_error_msg.F |
44 |
PACKAGES_ERROR_MSG |
iLen = LEN(msg1) |
|
./model/src/packages_error_msg.F |
45 |
PACKAGES_ERROR_MSG |
msgLwc(1:iLen) = msg1 |
|
./model/src/packages_error_msg.F |
46 |
PACKAGES_ERROR_MSG |
msgUpc(1:iLen) = msg1 |
|
./model/src/packages_error_msg.F |
47 |
PACKAGES_ERROR_MSG |
CALL LCASE(msgLwc(1:iLen)) |
|
./model/src/packages_error_msg.F |
48 |
PACKAGES_ERROR_MSG |
CALL UCASE(msgUpc(1:iLen)) |
|
./model/src/packages_error_msg.F |
57 |
PACKAGES_ERROR_MSG |
WRITE(msgBuf,'(5A)') 'but pkg/',msgLwc(1:iLen), |
|
./model/src/packages_error_msg.F |
58 |
PACKAGES_ERROR_MSG |
& ' was not compiled (ALLOW_',msgUpc(1:iLen),' undef).' |
|
./model/src/packages_error_msg.F |
61 |
PACKAGES_ERROR_MSG |
& '==> Re-compile with pkg "',msgLwc(1:iLen), |
|
./pkg/diagnostics/diagnostics_readparms.F |
224 |
DIAGNOSTICS_READPARMS |
iLen = ILNBLNK(fileName(l)) |
|
./pkg/diagnostics/diagnostics_readparms.F |
226 |
DIAGNOSTICS_READPARMS |
IF ( iLen.GE.1 .AND. nlists.LT.numlists ) THEN |
|
./pkg/diagnostics/diagnostics_readparms.F |
305 |
DIAGNOSTICS_READPARMS |
ELSEIF ( iLen.GE.1 ) THEN |
|
./pkg/diagnostics/diagnostics_readparms.F |
373 |
DIAGNOSTICS_READPARMS |
iLen = ILNBLNK(stat_fname(l)) |
|
./pkg/diagnostics/diagnostics_readparms.F |
375 |
DIAGNOSTICS_READPARMS |
IF ( iLen.GE.1 .AND. diagSt_nbLists.LT.numlists)THEN |
|
./pkg/diagnostics/diagnostics_readparms.F |
441 |
DIAGNOSTICS_READPARMS |
ELSEIF ( iLen.GE.1 ) THEN |
|
./pkg/diagnostics/diagnostics_readparms.F |
77 |
DIAGNOSTICS_READPARMS |
INTEGER iLen, regionCount |
|
./pkg/diagnostics/diagnostics_summary.F |
132 |
DIAGNOSTICS_SUMMARY |
iLen = ILNBLNK(msgBuf) |
|
./pkg/diagnostics/diagnostics_summary.F |
133 |
DIAGNOSTICS_SUMMARY |
tmpBuf(1:iLen) = msgBuf(1:iLen) |
|
./pkg/diagnostics/diagnostics_summary.F |
135 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(A,I7,A)') tmpBuf(1:iLen),xOld,cSep |
|
./pkg/diagnostics/diagnostics_summary.F |
137 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(A,I7,A,I3,2A)') tmpBuf(1:iLen),xOld, |
|
./pkg/diagnostics/diagnostics_summary.F |
145 |
DIAGNOSTICS_SUMMARY |
iLen = ILNBLNK(msgBuf) |
|
./pkg/diagnostics/diagnostics_summary.F |
146 |
DIAGNOSTICS_SUMMARY |
tmpBuf(1:iLen) = msgBuf(1:iLen) |
|
./pkg/diagnostics/diagnostics_summary.F |
147 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(A,I8,A)') tmpBuf(1:iLen),ndiag(ipt,1,1),' |' |
|
./pkg/diagnostics/diagnostics_summary.F |
150 |
DIAGNOSTICS_SUMMARY |
iLen = ILNBLNK(msgBuf) |
|
./pkg/diagnostics/diagnostics_summary.F |
151 |
DIAGNOSTICS_SUMMARY |
tmpBuf(1:iLen) = msgBuf(1:iLen) |
|
./pkg/diagnostics/diagnostics_summary.F |
152 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(A,I8,A)') tmpBuf(1:iLen),ndiag(im,1,1),' |' |
|
./pkg/diagnostics/diagnostics_summary.F |
155 |
DIAGNOSTICS_SUMMARY |
iLen = ILNBLNK(msgBuf) |
|
./pkg/diagnostics/diagnostics_summary.F |
156 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A)') msgBuf(1:iLen) |
|
./pkg/diagnostics/diagnostics_summary.F |
178 |
DIAGNOSTICS_SUMMARY |
iLen = ILNBLNK(diagSt_Fname(ld)) |
|
./pkg/diagnostics/diagnostics_summary.F |
180 |
DIAGNOSTICS_SUMMARY |
& ' ; file name: ',diagSt_Fname(ld)(1:iLen) |
|
./pkg/diagnostics/diagnostics_summary.F |
186 |
DIAGNOSTICS_SUMMARY |
iLen = 10 |
|
./pkg/diagnostics/diagnostics_summary.F |
189 |
DIAGNOSTICS_SUMMARY |
& .AND. iLen+3.LE.MAX_LEN_MBUF) THEN |
|
./pkg/diagnostics/diagnostics_summary.F |
190 |
DIAGNOSTICS_SUMMARY |
tmpBuf(1:iLen) = msgBuf(1:iLen) |
|
./pkg/diagnostics/diagnostics_summary.F |
191 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(A,I3)') tmpBuf(1:iLen),j |
|
./pkg/diagnostics/diagnostics_summary.F |
192 |
DIAGNOSTICS_SUMMARY |
iLen = iLen+3 |
|
./pkg/diagnostics/diagnostics_summary.F |
195 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A)') msgBuf(1:iLen) |
|
./pkg/diagnostics/diagnostics_summary.F |
204 |
DIAGNOSTICS_SUMMARY |
iLen = ILNBLNK(msgBuf) |
|
./pkg/diagnostics/diagnostics_summary.F |
205 |
DIAGNOSTICS_SUMMARY |
tmpBuf(1:iLen) = msgBuf(1:iLen) |
|
./pkg/diagnostics/diagnostics_summary.F |
206 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(A,1PE12.5,A)') tmpBuf(1:iLen), |
|
./pkg/diagnostics/diagnostics_summary.F |
211 |
DIAGNOSTICS_SUMMARY |
iLen = ILNBLNK(msgBuf) |
|
./pkg/diagnostics/diagnostics_summary.F |
212 |
DIAGNOSTICS_SUMMARY |
tmpBuf(1:iLen) = msgBuf(1:iLen) |
|
./pkg/diagnostics/diagnostics_summary.F |
213 |
DIAGNOSTICS_SUMMARY |
WRITE(msgBuf,'(A,1PE12.5,A)') tmpBuf(1:iLen), |
|
./pkg/diagnostics/diagnostics_summary.F |
216 |
DIAGNOSTICS_SUMMARY |
iLen = ILNBLNK(msgBuf) |
|
./pkg/diagnostics/diagnostics_summary.F |
217 |
DIAGNOSTICS_SUMMARY |
WRITE(dUnit,'(A)') msgBuf(1:iLen) |
|
./pkg/diagnostics/diagnostics_summary.F |
35 |
DIAGNOSTICS_SUMMARY |
INTEGER dUnit, stdUnit, iLen |
|
./pkg/diagnostics/diagnostics_summary.F |
61 |
DIAGNOSTICS_SUMMARY |
iLen = ILNBLNK(fn) |
|
./pkg/diagnostics/diagnostics_summary.F |
63 |
DIAGNOSTICS_SUMMARY |
OPEN(dUnit,file=fn(1:iLen),status='unknown',form='formatted') |
|
./pkg/diagnostics/diagnostics_summary.F |
65 |
DIAGNOSTICS_SUMMARY |
& ' write diagnostics summary to file: ',fn(1:iLen) |
|
./pkg/diagnostics/diagnostics_summary.F |
93 |
DIAGNOSTICS_SUMMARY |
iLen = ILNBLNK(fnames(ld)) |
|
./pkg/diagnostics/diagnostics_summary.F |
95 |
DIAGNOSTICS_SUMMARY |
& ' ; file name: ',fnames(ld)(1:iLen) |
|
./pkg/diagnostics/diagstats_set_regions.F |
171 |
DIAGSTATS_SET_REGIONS |
iLen = ILNBLNK(msgBuf) |
|
./pkg/diagnostics/diagstats_set_regions.F |
174 |
DIAGSTATS_SET_REGIONS |
iLen = MIN( iLen, MAX_LEN_MBUF -3 ) |
|
./pkg/diagnostics/diagstats_set_regions.F |
175 |
DIAGSTATS_SET_REGIONS |
tmpBuf(1:iLen) = msgBuf(1:iLen) |
|
./pkg/diagnostics/diagstats_set_regions.F |
176 |
DIAGSTATS_SET_REGIONS |
WRITE(msgBuf,'(A,I3)') tmpBuf(1:iLen),j |
|
./pkg/diagnostics/diagstats_set_regions.F |
177 |
DIAGSTATS_SET_REGIONS |
iLen = iLen+3 |
|
./pkg/diagnostics/diagstats_set_regions.F |
211 |
DIAGSTATS_SET_REGIONS |
iLen = ILNBLNK(diagSt_regMaskFile) |
|
./pkg/diagnostics/diagstats_set_regions.F |
212 |
DIAGSTATS_SET_REGIONS |
IF ( flag .OR. iLen.GE.1 .OR. nSetRegMskFile.NE.0 ) THEN |
|
./pkg/diagnostics/diagstats_set_regions.F |
37 |
DIAGSTATS_SET_REGIONS |
INTEGER iLen |
|
./pkg/diagnostics/diagstats_set_regions.F |
90 |
DIAGSTATS_SET_REGIONS |
iLen = ILNBLNK(diagSt_regMaskFile) |
|
./pkg/diagnostics/diagstats_set_regions.F |
93 |
DIAGSTATS_SET_REGIONS |
& diagSt_regMaskFile(1:iLen) |
|
./pkg/exch2/w2_eeboot.F |
100 |
W2_EEBOOT |
WRITE(msgBuf,'(2A)') ' write to log-file: ', fName(1:iLen) |
|
./pkg/exch2/w2_eeboot.F |
42 |
W2_EEBOOT |
INTEGER stdUnit, iLen |
|
./pkg/exch2/w2_eeboot.F |
96 |
W2_EEBOOT |
iLen = ILNBLNK(fName) |
|
./pkg/exch2/w2_eeboot.F |
98 |
W2_EEBOOT |
OPEN( W2_oUnit, file=fName(1:iLen), |
|
./pkg/exch2/w2_print_comm_sequence.F |
104 |
W2_PRINT_COMM_SEQUENCE |
iLen = ILNBLNK(msgBuf) |
|
./pkg/exch2/w2_print_comm_sequence.F |
105 |
W2_PRINT_COMM_SEQUENCE |
WRITE(W2_oUnit,'(A)') msgBuf(1:iLen) |
|
./pkg/exch2/w2_print_comm_sequence.F |
114 |
W2_PRINT_COMM_SEQUENCE |
iLen = ILNBLNK(msgBuf) |
|
./pkg/exch2/w2_print_comm_sequence.F |
115 |
W2_PRINT_COMM_SEQUENCE |
WRITE(W2_oUnit,'(A)') msgBuf(1:iLen) |
|
./pkg/exch2/w2_print_comm_sequence.F |
148 |
W2_PRINT_COMM_SEQUENCE |
iLen = ILNBLNK(msgBuf) |
|
./pkg/exch2/w2_print_comm_sequence.F |
149 |
W2_PRINT_COMM_SEQUENCE |
WRITE(W2_oUnit,'(A)') msgBuf(1:iLen) |
|
./pkg/exch2/w2_print_comm_sequence.F |
61 |
W2_PRINT_COMM_SEQUENCE |
INTEGER iLen |