| File |
Line number |
Procedure |
Code |
|
./pkg/flt/flt_init_varia.F |
48 |
FLT_INIT_VARIA |
INTEGER ip, iL |
|
./pkg/flt/flt_init_varia.F |
93 |
FLT_INIT_VARIA |
iL = ILNBLNK(fn) |
|
./pkg/flt/flt_init_varia.F |
95 |
FLT_INIT_VARIA |
& 'FLT_INIT_VARIA: reading Floats from: ', fn(1:iL) |
|
./pkg/ggl90/ggl90_readparms.F |
191 |
GGL90_READPARMS |
iL = MAX_LEN_MBUF - 22 |
|
./pkg/ggl90/ggl90_readparms.F |
192 |
GGL90_READPARMS |
iL = MIN( iL, MAX(ILNBLNK(GGL90TKEFile),1) ) |
|
./pkg/ggl90/ggl90_readparms.F |
193 |
GGL90_READPARMS |
WRITE(msgBuf,'(A,A)')'GGL90: GGL90TKEFile = ',GGL90TKEFile(1:iL) |
|
./pkg/ggl90/ggl90_readparms.F |
32 |
GGL90_READPARMS |
INTEGER errIO, iUnit, iL |
|
./pkg/land/land_readparms.F |
299 |
LAND_READPARMS |
iL = ILNBLNK( land_grT_iniFile ) |
|
./pkg/land/land_readparms.F |
301 |
LAND_READPARMS |
IF ( iL.GE.1 ) THEN |
|
./pkg/land/land_readparms.F |
305 |
LAND_READPARMS |
WRITE(msgBuf,'(16X,A)') land_grT_iniFile(1:iL) |
|
./pkg/land/land_readparms.F |
310 |
LAND_READPARMS |
iL = ILNBLNK( land_grW_iniFile ) |
|
./pkg/land/land_readparms.F |
311 |
LAND_READPARMS |
IF ( iL.GE.1 ) THEN |
|
./pkg/land/land_readparms.F |
315 |
LAND_READPARMS |
WRITE(msgBuf,'(16X,A)') land_grW_iniFile(1:iL) |
|
./pkg/land/land_readparms.F |
320 |
LAND_READPARMS |
iL = ILNBLNK( land_snow_iniFile ) |
|
./pkg/land/land_readparms.F |
321 |
LAND_READPARMS |
IF ( iL.GE.1 ) THEN |
|
./pkg/land/land_readparms.F |
325 |
LAND_READPARMS |
WRITE(msgBuf,'(16X,A)') land_grW_iniFile(1:iL) |
|
./pkg/land/land_readparms.F |
50 |
LAND_READPARMS |
INTEGER iUnit, k, iL |
|
./pkg/mdsio/mdsio_read_meta.F |
131 |
MDS_READ_META |
iL = ILNBLNK(fileName) |
|
./pkg/mdsio/mdsio_read_meta.F |
136 |
MDS_READ_META |
WRITE(pfName,'(2A)') mdsioLocalDir(1:pL), fileName(1:iL) |
|
./pkg/mdsio/mdsio_read_meta.F |
142 |
MDS_READ_META |
mFileName = fileName(1:iL) |
|
./pkg/mdsio/mdsio_read_meta.F |
143 |
MDS_READ_META |
iLm = iL |
|
./pkg/mdsio/mdsio_read_meta.F |
147 |
MDS_READ_META |
WRITE(mFileName,'(2A)') fileName(1:iL), '.meta' |
|
./pkg/mdsio/mdsio_read_meta.F |
148 |
MDS_READ_META |
iLm = iL+5 |
|
./pkg/mdsio/mdsio_read_meta.F |
171 |
MDS_READ_META |
& fileName(1:iL), '.meta , ', mFileName(1:iLm) |
|
./pkg/mdsio/mdsio_read_meta.F |
209 |
MDS_READ_META |
iL = ILNBLNK(lineBuf) |
|
./pkg/mdsio/mdsio_read_meta.F |
212 |
MDS_READ_META |
IF ( iL.GE.22 .AND. lineBuf(1:14).EQ.' simulation = ' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
215 |
MDS_READ_META |
ii = MIN(ii+17,iL-4) |
|
./pkg/mdsio/mdsio_read_meta.F |
217 |
MDS_READ_META |
iL = 0 |
|
./pkg/mdsio/mdsio_read_meta.F |
222 |
MDS_READ_META |
& iL.GE.15 .AND. lineBuf(1:9).EQ.' nDims = ' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
223 |
MDS_READ_META |
READ(lineBuf(12:iL),'(I3)') nDimFil |
|
./pkg/mdsio/mdsio_read_meta.F |
230 |
MDS_READ_META |
iL = 0 |
|
./pkg/mdsio/mdsio_read_meta.F |
235 |
MDS_READ_META |
& iL.GE.11 .AND. lineBuf(1:11).EQ.' dimList = ' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
263 |
MDS_READ_META |
iL = 0 |
|
./pkg/mdsio/mdsio_read_meta.F |
273 |
MDS_READ_META |
IF ( iL.GE.20 .AND. lineBuf(1:12).EQ.' dataprec = ' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
284 |
MDS_READ_META |
iL = 0 |
|
./pkg/mdsio/mdsio_read_meta.F |
288 |
MDS_READ_META |
& iL.GE.18 .AND. lineBuf(1:10).EQ.' format = ' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
299 |
MDS_READ_META |
iL = 0 |
|
./pkg/mdsio/mdsio_read_meta.F |
304 |
MDS_READ_META |
& iL.GE.20 .AND. lineBuf(1:12).EQ.' nrecords = ' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
305 |
MDS_READ_META |
READ(lineBuf(15:iL),'(I5)') nRecords |
|
./pkg/mdsio/mdsio_read_meta.F |
306 |
MDS_READ_META |
iL = 0 |
|
./pkg/mdsio/mdsio_read_meta.F |
310 |
MDS_READ_META |
IF ( fileIter.EQ.0 .AND. iL.GE.31 .AND. |
|
./pkg/mdsio/mdsio_read_meta.F |
312 |
MDS_READ_META |
READ(lineBuf(21:iL),'(I10)') fileIter |
|
./pkg/mdsio/mdsio_read_meta.F |
313 |
MDS_READ_META |
iL = 0 |
|
./pkg/mdsio/mdsio_read_meta.F |
318 |
MDS_READ_META |
& iL.GE.42 .AND. lineBuf(1:16).EQ.' /* modelTime = ' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
322 |
MDS_READ_META |
nTimFil = INT((iL-17-5)/20) |
|
./pkg/mdsio/mdsio_read_meta.F |
330 |
MDS_READ_META |
READ(lineBuf(18:iL-5),'(1P20E20.12)',ERR=1003) |
|
./pkg/mdsio/mdsio_read_meta.F |
333 |
MDS_READ_META |
iL = 0 |
|
./pkg/mdsio/mdsio_read_meta.F |
334 |
MDS_READ_META |
ELSEIF ( iL.GE.8 .AND. lineBuf(1:4).EQ.' /* ' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
335 |
MDS_READ_META |
IF ( lineBuf(iL-2:iL).EQ.' */' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
339 |
MDS_READ_META |
ii = MIN(ii+4,iL-3) |
|
./pkg/mdsio/mdsio_read_meta.F |
341 |
MDS_READ_META |
iL = 0 |
|
./pkg/mdsio/mdsio_read_meta.F |
347 |
MDS_READ_META |
& iL.GE.16 .AND. lineBuf(1:9).EQ.' nFlds = ' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
348 |
MDS_READ_META |
READ(lineBuf(12:iL),'(I4)') nFldFil |
|
./pkg/mdsio/mdsio_read_meta.F |
355 |
MDS_READ_META |
iL = 0 |
|
./pkg/mdsio/mdsio_read_meta.F |
360 |
MDS_READ_META |
& iL.GE.11 .AND. lineBuf(1:11).EQ.' fldList = ' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
366 |
MDS_READ_META |
iL = 0 |
|
./pkg/mdsio/mdsio_read_meta.F |
380 |
MDS_READ_META |
& nTimFil, ' , iL=', iL |
|
./pkg/mdsio/mdsio_read_meta.F |
89 |
MDS_READ_META |
INTEGER iL,pL,iLm |
|
./pkg/mdsio/mdsio_write_meta.F |
100 |
MDS_WRITE_META |
IF ( iL.GT.0 ) THEN |
|
./pkg/mdsio/mdsio_write_meta.F |
101 |
MDS_WRITE_META |
WRITE(mUnit,'(3A)') " simulation = { '",simulName(1:iL),"' };" |
|
./pkg/mdsio/mdsio_write_meta.F |
191 |
MDS_WRITE_META |
iL = ILNBLNK(titleLine) |
|
./pkg/mdsio/mdsio_write_meta.F |
192 |
MDS_WRITE_META |
IF ( iL.GT.0 ) THEN |
|
./pkg/mdsio/mdsio_write_meta.F |
193 |
MDS_WRITE_META |
WRITE(mUnit,'(3A)')' /* ', titleLine(1:iL), ' */' |
|
./pkg/mdsio/mdsio_write_meta.F |
75 |
MDS_WRITE_META |
INTEGER i,j,ii,iL |
|
./pkg/mdsio/mdsio_write_meta.F |
99 |
MDS_WRITE_META |
iL = ILNBLNK(simulName) |
|
./pkg/obcs/obcs_write_pickup.F |
135 |
OBCS_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_orlanskiE.',suff(1:iL) |
|
./pkg/obcs/obcs_write_pickup.F |
171 |
OBCS_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_orlanskiW.',suff(1:iL) |
|
./pkg/obcs/obcs_write_pickup.F |
48 |
OBCS_WRITE_PICKUP |
INTEGER iL |
|
./pkg/obcs/obcs_write_pickup.F |
50 |
OBCS_WRITE_PICKUP |
iL = ILNBLNK(suff) |
|
./pkg/obcs/obcs_write_pickup.F |
51 |
OBCS_WRITE_PICKUP |
iL = MAX(1,iL) |
|
./pkg/obcs/obcs_write_pickup.F |
62 |
OBCS_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_orlanskiN.',suff(1:iL) |
|
./pkg/obcs/obcs_write_pickup.F |
98 |
OBCS_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_orlanskiS.',suff(1:iL) |
|
./pkg/rw/read_mflds.F |
279 |
READ_MFLDS_3D_RL |
INTEGER j, iL, ioUnit |
|
./pkg/rw/read_mflds.F |
288 |
READ_MFLDS_3D_RL |
iL = ILNBLNK(mFldsFile) |
|
./pkg/rw/read_mflds.F |
290 |
READ_MFLDS_3D_RL |
IF ( iL.EQ.0 ) THEN |
|
./pkg/rw/read_mflds.F |
313 |
READ_MFLDS_3D_RL |
iL = ILNBLNK(mFldsFile) |
|
./pkg/rw/read_mflds.F |
314 |
READ_MFLDS_3D_RL |
iL = MIN(iL,MAX_LEN_MBUF-54-20) |
|
./pkg/rw/read_mflds.F |
316 |
READ_MFLDS_3D_RL |
& 'field: "',fldName,'" missing in file: ',mFldsFile(1:iL) |
|
./pkg/rw/read_mflds.F |
406 |
READ_MFLDS_LEV_RL |
INTEGER j, iL, ioUnit |
|
./pkg/rw/read_mflds.F |
415 |
READ_MFLDS_LEV_RL |
iL = ILNBLNK(mFldsFile) |
|
./pkg/rw/read_mflds.F |
417 |
READ_MFLDS_LEV_RL |
IF ( iL.EQ.0 ) THEN |
|
./pkg/rw/read_mflds.F |
440 |
READ_MFLDS_LEV_RL |
iL = ILNBLNK(mFldsFile) |
|
./pkg/rw/read_mflds.F |
441 |
READ_MFLDS_LEV_RL |
iL = MIN(iL,MAX_LEN_MBUF-54-20) |
|
./pkg/rw/read_mflds.F |
443 |
READ_MFLDS_LEV_RL |
& 'field: "',fldName,'" missing in file: ',mFldsFile(1:iL) |
|
./pkg/rw/read_mflds.F |
526 |
READ_MFLDS_CHECK |
INTEGER i, j, nj, iL, ioUnit |
|
./pkg/rw/read_mflds.F |
531 |
READ_MFLDS_CHECK |
iL = ILNBLNK(mFldsFile) |
|
./pkg/rw/read_mflds.F |
533 |
READ_MFLDS_CHECK |
IF ( iL.EQ.0 ) THEN |
|
./pkg/rw/read_mflds.F |
556 |
READ_MFLDS_CHECK |
& 'reading from file: ', mFldsFile(1:iL) |
|
./pkg/rw/read_mflds.F |
596 |
READ_MFLDS_CHECK |
& '- normal end ; reset MFLDS file-name: ', mFldsFile(1:iL) |
|
./model/src/ini_curvilinear_grid.F |
304 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(tmpBuf) |
|
./model/src/ini_curvilinear_grid.F |
305 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(3A)') tmpBuf(1:iL), |
|
./model/src/ini_curvilinear_grid.F |
313 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(msgBuf) |
|
./model/src/ini_curvilinear_grid.F |
314 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(A,1X,A)') msgBuf(1:iL),'xC' |
|
./model/src/ini_curvilinear_grid.F |
316 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(tmpBuf) |
|
./model/src/ini_curvilinear_grid.F |
317 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(A,1X,A)') tmpBuf(1:iL),'yC' |
|
./model/src/ini_curvilinear_grid.F |
319 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(msgBuf) |
|
./model/src/ini_curvilinear_grid.F |
320 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(A,1X,A)') msgBuf(1:iL),'dxF' |
|
./model/src/ini_curvilinear_grid.F |
322 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(tmpBuf) |
|
./model/src/ini_curvilinear_grid.F |
323 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(A,1X,A)') tmpBuf(1:iL),'dyF' |
|
./model/src/ini_curvilinear_grid.F |
325 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(msgBuf) |
|
./model/src/ini_curvilinear_grid.F |
326 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(A,1X,A)') msgBuf(1:iL),'rA' |
|
./model/src/ini_curvilinear_grid.F |
328 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(tmpBuf) |
|
./model/src/ini_curvilinear_grid.F |
329 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(A,1X,A)') tmpBuf(1:iL),'xG' |
|
./model/src/ini_curvilinear_grid.F |
331 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(msgBuf) |
|
./model/src/ini_curvilinear_grid.F |
332 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(A,1X,A)') msgBuf(1:iL),'yG' |
|
./model/src/ini_curvilinear_grid.F |
334 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(tmpBuf) |
|
./model/src/ini_curvilinear_grid.F |
335 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(A,1X,A)') tmpBuf(1:iL),'dxV' |
|
./model/src/ini_curvilinear_grid.F |
337 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(msgBuf) |
|
./model/src/ini_curvilinear_grid.F |
338 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(A,1X,A)') msgBuf(1:iL),'dyU' |
|
./model/src/ini_curvilinear_grid.F |
340 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(tmpBuf) |
|
./model/src/ini_curvilinear_grid.F |
341 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(A,1X,A)') tmpBuf(1:iL),'rAz' |
|
./model/src/ini_curvilinear_grid.F |
343 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(msgBuf) |
|
./model/src/ini_curvilinear_grid.F |
344 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(A,1X,A)') msgBuf(1:iL),'dxC' |
|
./model/src/ini_curvilinear_grid.F |
346 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(tmpBuf) |
|
./model/src/ini_curvilinear_grid.F |
347 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(A,1X,A)') tmpBuf(1:iL),'dyC' |
|
./model/src/ini_curvilinear_grid.F |
349 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(msgBuf) |
|
./model/src/ini_curvilinear_grid.F |
350 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(A,1X,A)') msgBuf(1:iL),'rAw' |
|
./model/src/ini_curvilinear_grid.F |
352 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(tmpBuf) |
|
./model/src/ini_curvilinear_grid.F |
353 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(A,1X,A)') tmpBuf(1:iL),'rAs' |
|
./model/src/ini_curvilinear_grid.F |
355 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(msgBuf) |
|
./model/src/ini_curvilinear_grid.F |
356 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(A,1X,A)') msgBuf(1:iL),'dxG' |
|
./model/src/ini_curvilinear_grid.F |
358 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(tmpBuf) |
|
./model/src/ini_curvilinear_grid.F |
359 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(A,1X,A)') tmpBuf(1:iL),'dyG' |
|
./model/src/ini_curvilinear_grid.F |
364 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(msgBuf) |
|
./model/src/ini_curvilinear_grid.F |
365 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(A,1X,A)') msgBuf(1:iL),'AngleCS' |
|
./model/src/ini_curvilinear_grid.F |
367 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(tmpBuf) |
|
./model/src/ini_curvilinear_grid.F |
368 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(A,1X,A)') tmpBuf(1:iL),'AngleSN' |
|
./model/src/ini_curvilinear_grid.F |
56 |
INI_CURVILINEAR_GRID |
INTEGER iG, jG, iL, iLen |
|
./model/src/ini_model_io.F |
143 |
INI_MODEL_IO |
iL = ILNBLNK( mdsioLocalDir ) |
|
./model/src/ini_model_io.F |
145 |
INI_MODEL_IO |
& ' mkdir -p ', mdsioLocalDir(1:iL),myProcessStr(1:4) |
|
./model/src/ini_model_io.F |
150 |
INI_MODEL_IO |
namBuf(1:iL) = mdsioLocalDir(1:iL) |
|
./model/src/ini_model_io.F |
151 |
INI_MODEL_IO |
WRITE(mdsioLocalDir,'(3A)') namBuf(1:iL),myProcessStr(1:4),'/' |
|
./model/src/ini_model_io.F |
156 |
INI_MODEL_IO |
iL = ILNBLNK( adTapeDir ) |
|
./model/src/ini_model_io.F |
157 |
INI_MODEL_IO |
IF ( iL .LT. MAX_LEN_FNAM .AND. adTapeDir(iL:iL) .NE. '/' ) THEN |
|
./model/src/ini_model_io.F |
158 |
INI_MODEL_IO |
namBuf(1:iL) = adTapeDir(1:iL) |
|
./model/src/ini_model_io.F |
159 |
INI_MODEL_IO |
WRITE(adTapeDir(1:iL+1),'(2A)') namBuf(1:iL),'/' |
|
./model/src/ini_model_io.F |
46 |
INI_MODEL_IO |
INTEGER i, iL, pIL |
|
./pkg/aim_v23/aim_write_local.F |
51 |
AIM_WRITE_LOCAL |
INTEGER iL |
|
./pkg/aim_v23/aim_write_local.F |
59 |
AIM_WRITE_LOCAL |
iL = ILNBLNK( pref ) |
|
./pkg/aim_v23/aim_write_local.F |
62 |
AIM_WRITE_LOCAL |
& ' iRec=', iRec, ' ): try to write: ', pref(1:iL) |
|
./pkg/aim_v23/aim_write_phys.F |
54 |
AIM_WRITE_PHYS |
INTEGER iL |
|
./pkg/aim_v23/aim_write_phys.F |
79 |
AIM_WRITE_PHYS |
iL = ILNBLNK( pref ) |
|
./pkg/aim_v23/aim_write_phys.F |
82 |
AIM_WRITE_PHYS |
& ' iRec=', iRec, ' ): try to write: ', pref(1:iL) |
|
./pkg/aim_v23/aim_write_phys.F |
89 |
AIM_WRITE_PHYS |
iL = ILNBLNK( pref ) |
|
./pkg/aim_v23/aim_write_phys.F |
92 |
AIM_WRITE_PHYS |
& ' iRec=', iRec, ' ): try to write: ', pref(1:iL) |
|
./eesupp/src/mds_check4file.F |
103 |
MDS_CHECK4FILE |
iL = ILNBLNK(prtID) |
|
./eesupp/src/mds_check4file.F |
104 |
MDS_CHECK4FILE |
IF ( iL.GE.1 ) THEN |
|
./eesupp/src/mds_check4file.F |
105 |
MDS_CHECK4FILE |
WRITE(msgPfx,'(2A)') 'WARNING >> ',prtID(1:iL) |
|
./eesupp/src/mds_check4file.F |
109 |
MDS_CHECK4FILE |
iL = ILNBLNK(msgPfx) |
|
./eesupp/src/mds_check4file.F |
110 |
MDS_CHECK4FILE |
WRITE(msgBuf,'(7A)') msgPfx(1:iL), ': file: ', |
|
./eesupp/src/mds_check4file.F |
113 |
MDS_CHECK4FILE |
WRITE(msgBuf,'(2A)') msgPfx(1:iL), ': Files DO not exist' |
|
./eesupp/src/mds_check4file.F |
51 |
MDS_CHECK4FILE |
INTEGER ip, is, iL, i, ioUnit |
|
./eesupp/src/nml_set_terminator.F |
36 |
NML_SET_TERMINATOR |
INTEGER iL |
|
./eesupp/src/nml_set_terminator.F |
45 |
NML_SET_TERMINATOR |
iL = MAX(ILNBLNK(record),1) |
|
./eesupp/src/nml_set_terminator.F |
46 |
NML_SET_TERMINATOR |
IF ( iL .EQ. 2 ) THEN |
|
./eesupp/src/write_utils.F |
625 |
WRITE_0D_C |
INTEGER iS,iL |
|
./eesupp/src/write_utils.F |
629 |
WRITE_0D_C |
iL = LEN(fld) |
|
./eesupp/src/write_utils.F |
631 |
WRITE_0D_C |
iL = MIN( lFld, iL ) |
|
./eesupp/src/write_utils.F |
633 |
WRITE_0D_C |
iL = ILNBLNK(fld) |
|
./eesupp/src/write_utils.F |
641 |
WRITE_0D_C |
IF ( iL.GE.iS ) THEN |
|
./eesupp/src/write_utils.F |
642 |
WRITE_0D_C |
iL = MIN( MAX_LEN_MBUF + iS - 17, iL ) |
|
./eesupp/src/write_utils.F |
643 |
WRITE_0D_C |
WRITE(msgBuf,'(14X,3A)') "'", fld(iS:iL), "'" |
|
./pkg/diagnostics/diagstats_close_io.F |
36 |
DIAGSTATS_CLOSE_IO |
INTEGER n, iL, nUnit |
|
./pkg/diagnostics/diagstats_close_io.F |
54 |
DIAGSTATS_CLOSE_IO |
iL = ILNBLNK(diagSt_Fname(n)) |
|
./pkg/diagnostics/diagstats_close_io.F |
56 |
DIAGSTATS_CLOSE_IO |
& diagSt_Fname(n)(1:iL), '.', nIter0, '.txt' |
|
./pkg/diagnostics/diagstats_close_io.F |
58 |
DIAGSTATS_CLOSE_IO |
& 'close file: ',dataFName(1:iL+15), ' , unit=', nUnit |
|
./pkg/diagnostics/diagstats_ini_io.F |
37 |
DIAGSTATS_INI_IO |
INTEGER m, n, j, iL, nUnit |
|
./pkg/diagnostics/diagstats_ini_io.F |
57 |
DIAGSTATS_INI_IO |
iL = ILNBLNK(diagSt_Fname(n)) |
|
./pkg/diagnostics/diagstats_ini_io.F |
59 |
DIAGSTATS_INI_IO |
& diagSt_Fname(n)(1:iL), '.', nIter0, '.txt' |
|
./pkg/diagnostics/diagstats_ini_io.F |
63 |
DIAGSTATS_INI_IO |
& 'open file: ',dataFName(1:iL+15), ' , unit=', nUnit |
|
./pkg/diagnostics/diagstats_ini_io.F |
69 |
DIAGSTATS_INI_IO |
& diagSt_Fname(n)(1:iL) |
|
./pkg/diagnostics/diagstats_ini_io.F |
73 |
DIAGSTATS_INI_IO |
iL = 17 |
|
./pkg/diagnostics/diagstats_ini_io.F |
75 |
DIAGSTATS_INI_IO |
IF (diagSt_region(j,n).GE.1 .AND.iL+3.LE.MAX_LEN_MBUF) THEN |
|
./pkg/diagnostics/diagstats_ini_io.F |
76 |
DIAGSTATS_INI_IO |
tmpBuf(1:iL) = msgBuf(1:iL) |
|
./pkg/diagnostics/diagstats_ini_io.F |
77 |
DIAGSTATS_INI_IO |
WRITE(msgBuf,'(A,I3)') tmpBuf(1:iL),j |
|
./pkg/diagnostics/diagstats_ini_io.F |
78 |
DIAGSTATS_INI_IO |
iL = iL+3 |
|
./pkg/diagnostics/diagstats_ini_io.F |
81 |
DIAGSTATS_INI_IO |
WRITE(nUnit,'(A)') msgBuf(1:iL) |