| File |
Line number |
Procedure |
Code |
|
./pkg/exf/exf_summary.F |
863 |
EXF_FLD_SUMMARY |
INTEGER iL, jL |
|
./pkg/exf/exf_summary.F |
887 |
EXF_FLD_SUMMARY |
iL = ILNBLNK(fld_fullName) |
|
./pkg/exf/exf_summary.F |
888 |
EXF_FLD_SUMMARY |
IF ( iL.LT.28 ) THEN |
|
./pkg/exf/exf_summary.F |
900 |
EXF_FLD_SUMMARY |
iL = ILNBLNK(fld_file) |
|
./pkg/exf/exf_summary.F |
901 |
EXF_FLD_SUMMARY |
WRITE(msgBuf,'(3A)') ' >> ', fld_file(1:iL), ' <<' |
|
./pkg/fizhi/fizhi_clockstuff.F |
106 |
SET_ALARM |
iL = ILNBLNK(tag) |
|
./pkg/fizhi/fizhi_clockstuff.F |
109 |
SET_ALARM |
& ', with frequency: ', freq, ', and Tag: ',tag(1:iL) |
|
./pkg/fizhi/fizhi_clockstuff.F |
61 |
SET_ALARM |
integer n, iL |
|
./pkg/fizhi/fizhi_clockstuff.F |
70 |
SET_ALARM |
iL = ILNBLNK(tag) |
|
./pkg/fizhi/fizhi_clockstuff.F |
73 |
SET_ALARM |
& ', with frequency: ', freq, ', and Tag: ',tag(1:iL) |
|
./pkg/flt/flt_init_varia.F |
114 |
FLT_INIT_VARIA |
iL = ILNBLNK(fn) |
|
./pkg/flt/flt_init_varia.F |
116 |
FLT_INIT_VARIA |
& 'FLT_INIT_VARIA: reading Floats from: ', fn(1:iL) |
|
./pkg/flt/flt_init_varia.F |
48 |
FLT_INIT_VARIA |
INTEGER ip, iL |
|
./pkg/ggl90/ggl90_readparms.F |
314 |
GGL90_READPARMS |
iL = MAX_LEN_MBUF - 22 |
|
./pkg/ggl90/ggl90_readparms.F |
315 |
GGL90_READPARMS |
iL = MIN( iL, MAX(ILNBLNK(GGL90TKEFile),1) ) |
|
./pkg/ggl90/ggl90_readparms.F |
316 |
GGL90_READPARMS |
WRITE(msgBuf,'(A,A)')'GGL90: GGL90TKEFile = ',GGL90TKEFile(1:iL) |
|
./pkg/ggl90/ggl90_readparms.F |
45 |
GGL90_READPARMS |
INTEGER errIO, iUnit, iL |
|
./pkg/land/land_check.F |
101 |
LAND_CHECK |
iL = ILNBLNK( land_snow_iniFile ) |
|
./pkg/land/land_check.F |
102 |
LAND_CHECK |
IF ( iL.GE.1 ) THEN |
|
./pkg/land/land_check.F |
106 |
LAND_CHECK |
WRITE(msgBuf,'(16X,A)') land_grW_iniFile(1:iL) |
|
./pkg/land/land_check.F |
46 |
LAND_CHECK |
INTEGER iUnit, iL |
|
./pkg/land/land_check.F |
81 |
LAND_CHECK |
iL = ILNBLNK( land_grT_iniFile ) |
|
./pkg/land/land_check.F |
82 |
LAND_CHECK |
IF ( iL.GE.1 ) THEN |
|
./pkg/land/land_check.F |
86 |
LAND_CHECK |
WRITE(msgBuf,'(16X,A)') land_grT_iniFile(1:iL) |
|
./pkg/land/land_check.F |
91 |
LAND_CHECK |
iL = ILNBLNK( land_grW_iniFile ) |
|
./pkg/land/land_check.F |
92 |
LAND_CHECK |
IF ( iL.GE.1 ) THEN |
|
./pkg/land/land_check.F |
96 |
LAND_CHECK |
WRITE(msgBuf,'(16X,A)') land_grW_iniFile(1:iL) |
|
./pkg/mdsio/mdsio_check4file.F |
120 |
MDS_CHECK4FILE |
iL = ILNBLNK(prtID) |
|
./pkg/mdsio/mdsio_check4file.F |
121 |
MDS_CHECK4FILE |
IF ( iL.GE.1 ) THEN |
|
./pkg/mdsio/mdsio_check4file.F |
122 |
MDS_CHECK4FILE |
WRITE(msgPfx,'(2A)') 'WARNING >> ',prtID(1:iL) |
|
./pkg/mdsio/mdsio_check4file.F |
126 |
MDS_CHECK4FILE |
iL = ILNBLNK(msgPfx) |
|
./pkg/mdsio/mdsio_check4file.F |
127 |
MDS_CHECK4FILE |
WRITE(msgBuf,'(7A)') msgPfx(1:iL), ': file: ', |
|
./pkg/mdsio/mdsio_check4file.F |
130 |
MDS_CHECK4FILE |
WRITE(msgBuf,'(2A)') msgPfx(1:iL), ': Files DO not exist' |
|
./pkg/mdsio/mdsio_check4file.F |
55 |
MDS_CHECK4FILE |
INTEGER lp, ip, is, iL, i, ioUnit |
|
./pkg/mdsio/mdsio_read_meta.F |
133 |
MDS_READ_META |
iL = ILNBLNK(fileName) |
|
./pkg/mdsio/mdsio_read_meta.F |
138 |
MDS_READ_META |
WRITE(pfName,'(2A)') mdsioLocalDir(1:pL), fileName(1:iL) |
|
./pkg/mdsio/mdsio_read_meta.F |
144 |
MDS_READ_META |
mFileName = fileName(1:iL) |
|
./pkg/mdsio/mdsio_read_meta.F |
145 |
MDS_READ_META |
iLm = iL |
|
./pkg/mdsio/mdsio_read_meta.F |
149 |
MDS_READ_META |
WRITE(mFileName,'(2A)') fileName(1:iL), '.meta' |
|
./pkg/mdsio/mdsio_read_meta.F |
150 |
MDS_READ_META |
iLm = iL+5 |
|
./pkg/mdsio/mdsio_read_meta.F |
173 |
MDS_READ_META |
& fileName(1:iL), '.meta , ', mFileName(1:iLm) |
|
./pkg/mdsio/mdsio_read_meta.F |
211 |
MDS_READ_META |
iL = ILNBLNK(lineBuf) |
|
./pkg/mdsio/mdsio_read_meta.F |
214 |
MDS_READ_META |
IF ( iL.GE.22 .AND. lineBuf(1:14).EQ.' simulation = ' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
217 |
MDS_READ_META |
ii = MIN(ii+17,iL-4) |
|
./pkg/mdsio/mdsio_read_meta.F |
219 |
MDS_READ_META |
iL = 0 |
|
./pkg/mdsio/mdsio_read_meta.F |
224 |
MDS_READ_META |
& iL.GE.15 .AND. lineBuf(1:9).EQ.' nDims = ' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
225 |
MDS_READ_META |
READ(lineBuf(12:iL),'(I3)') nDimFil |
|
./pkg/mdsio/mdsio_read_meta.F |
232 |
MDS_READ_META |
iL = 0 |
|
./pkg/mdsio/mdsio_read_meta.F |
237 |
MDS_READ_META |
& iL.GE.11 .AND. lineBuf(1:11).EQ.' dimList = ' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
264 |
MDS_READ_META |
iL = 0 |
|
./pkg/mdsio/mdsio_read_meta.F |
274 |
MDS_READ_META |
IF ( iL.GE.20 .AND. lineBuf(1:12).EQ.' dataprec = ' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
285 |
MDS_READ_META |
iL = 0 |
|
./pkg/mdsio/mdsio_read_meta.F |
289 |
MDS_READ_META |
& iL.GE.18 .AND. lineBuf(1:10).EQ.' format = ' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
300 |
MDS_READ_META |
iL = 0 |
|
./pkg/mdsio/mdsio_read_meta.F |
305 |
MDS_READ_META |
& iL.GE.20 .AND. lineBuf(1:12).EQ.' nrecords = ' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
306 |
MDS_READ_META |
READ(lineBuf(15:iL),'(I5)') nRecords |
|
./pkg/mdsio/mdsio_read_meta.F |
307 |
MDS_READ_META |
iL = 0 |
|
./pkg/mdsio/mdsio_read_meta.F |
311 |
MDS_READ_META |
IF ( fileIter.EQ.0 .AND. iL.GE.31 .AND. |
|
./pkg/mdsio/mdsio_read_meta.F |
313 |
MDS_READ_META |
READ(lineBuf(21:iL),'(I10)') fileIter |
|
./pkg/mdsio/mdsio_read_meta.F |
314 |
MDS_READ_META |
iL = 0 |
|
./pkg/mdsio/mdsio_read_meta.F |
319 |
MDS_READ_META |
& iL.GE.38 .AND. lineBuf(1:16).EQ.' timeInterval = ' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
322 |
MDS_READ_META |
nTimFil = INT((iL-17-3)/20) |
|
./pkg/mdsio/mdsio_read_meta.F |
330 |
MDS_READ_META |
READ(lineBuf(18:iL-3),'(1P20E20.12)',ERR=1003) |
|
./pkg/mdsio/mdsio_read_meta.F |
333 |
MDS_READ_META |
iL = 0 |
|
./pkg/mdsio/mdsio_read_meta.F |
336 |
MDS_READ_META |
IF ( iL.GE.8 .AND. lineBuf(1:4).EQ.' /* ' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
337 |
MDS_READ_META |
IF ( lineBuf(iL-2:iL).EQ.' */' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
341 |
MDS_READ_META |
ii = MIN(ii+4,iL-3) |
|
./pkg/mdsio/mdsio_read_meta.F |
343 |
MDS_READ_META |
iL = 0 |
|
./pkg/mdsio/mdsio_read_meta.F |
348 |
MDS_READ_META |
IF ( misVal.EQ.oneRL .AND. iL.GE.40 .AND. |
|
./pkg/mdsio/mdsio_read_meta.F |
350 |
MDS_READ_META |
READ(lineBuf(19:iL),'(1PE21.14)') misVal |
|
./pkg/mdsio/mdsio_read_meta.F |
351 |
MDS_READ_META |
iL = 0 |
|
./pkg/mdsio/mdsio_read_meta.F |
356 |
MDS_READ_META |
& iL.GE.16 .AND. lineBuf(1:9).EQ.' nFlds = ' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
357 |
MDS_READ_META |
READ(lineBuf(12:iL),'(I4)') nFldFil |
|
./pkg/mdsio/mdsio_read_meta.F |
364 |
MDS_READ_META |
iL = 0 |
|
./pkg/mdsio/mdsio_read_meta.F |
369 |
MDS_READ_META |
& iL.GE.11 .AND. lineBuf(1:11).EQ.' fldList = ' ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
375 |
MDS_READ_META |
iL = 0 |
|
./pkg/mdsio/mdsio_read_meta.F |
389 |
MDS_READ_META |
& nTimFil, ' , iL=', iL |
|
./pkg/mdsio/mdsio_read_meta.F |
90 |
MDS_READ_META |
INTEGER iL,pL,iLm |
|
./pkg/mdsio/mdsio_write_meta.F |
101 |
MDS_WRITE_META |
iL = ILNBLNK(simulName) |
|
./pkg/mdsio/mdsio_write_meta.F |
102 |
MDS_WRITE_META |
IF ( iL.GT.0 ) THEN |
|
./pkg/mdsio/mdsio_write_meta.F |
103 |
MDS_WRITE_META |
WRITE(mUnit,'(3A)') " simulation = { '",simulName(1:iL),"' };" |
|
./pkg/mdsio/mdsio_write_meta.F |
197 |
MDS_WRITE_META |
iL = ILNBLNK(titleLine) |
|
./pkg/mdsio/mdsio_write_meta.F |
198 |
MDS_WRITE_META |
IF ( iL.GT.0 ) THEN |
|
./pkg/mdsio/mdsio_write_meta.F |
199 |
MDS_WRITE_META |
WRITE(mUnit,'(3A)')' /* ', titleLine(1:iL), ' */' |
|
./pkg/mdsio/mdsio_write_meta.F |
77 |
MDS_WRITE_META |
INTEGER i,j,ii,iL |
|
./pkg/obcs/obcs_write_pickup.F |
100 |
OBCS_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_orlanskiS.',suff(1:iL) |
|
./pkg/obcs/obcs_write_pickup.F |
137 |
OBCS_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_orlanskiE.',suff(1:iL) |
|
./pkg/obcs/obcs_write_pickup.F |
173 |
OBCS_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_orlanskiW.',suff(1:iL) |
|
./pkg/obcs/obcs_write_pickup.F |
211 |
OBCS_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_stevensN.',suff(1:iL) |
|
./pkg/obcs/obcs_write_pickup.F |
220 |
OBCS_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_stevensS.',suff(1:iL) |
|
./pkg/obcs/obcs_write_pickup.F |
229 |
OBCS_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_stevensE.',suff(1:iL) |
|
./pkg/obcs/obcs_write_pickup.F |
238 |
OBCS_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_stevensW.',suff(1:iL) |
|
./pkg/obcs/obcs_write_pickup.F |
49 |
OBCS_WRITE_PICKUP |
INTEGER iL |
|
./pkg/obcs/obcs_write_pickup.F |
51 |
OBCS_WRITE_PICKUP |
iL = ILNBLNK(suff) |
|
./pkg/obcs/obcs_write_pickup.F |
52 |
OBCS_WRITE_PICKUP |
iL = MAX(1,iL) |
|
./pkg/obcs/obcs_write_pickup.F |
64 |
OBCS_WRITE_PICKUP |
WRITE(fn,'(2A)') 'pickup_orlanskiN.',suff(1:iL) |
|
./pkg/profiles/cost_profiles.F |
340 |
COST_PROFILES |
iL = ILNBLNK( prof_names(1,num_var) ) |
|
./pkg/profiles/cost_profiles.F |
341 |
COST_PROFILES |
write(cfile,'(2a)') prof_names(1,num_var)(1:iL), |
|
./pkg/profiles/cost_profiles.F |
356 |
COST_PROFILES |
write(cfile,'(2a)')prof_names(1,num_var)(1:iL), |
|
./pkg/profiles/cost_profiles.F |
374 |
COST_PROFILES |
& prof_names(1,num_var)(1:iL),'_weight_mean.data' |
|
./pkg/profiles/cost_profiles.F |
388 |
COST_PROFILES |
write(cfile,'(2a)')prof_names(1,num_var)(1:iL), |
|
./pkg/profiles/profiles_ini_io.F |
39 |
PROFILES_INI_IO |
INTEGER iL, pIL |
|
./pkg/profiles/profiles_ini_io.F |
45 |
PROFILES_INI_IO |
iL = ILNBLNK( profilesDir ) |
|
./pkg/profiles/profiles_ini_io.F |
47 |
PROFILES_INI_IO |
IF ( iL.LT.MAX_LEN_FNAM .AND. profilesDir(iL:iL).NE.'/' ) THEN |
|
./pkg/profiles/profiles_ini_io.F |
48 |
PROFILES_INI_IO |
namBuf(1:iL) = profilesDir(1:iL) |
|
./pkg/profiles/profiles_ini_io.F |
49 |
PROFILES_INI_IO |
WRITE(profilesDir(1:iL+1),'(2A)') namBuf(1:iL),'/' |
|
./pkg/profiles/profiles_ini_io.F |
53 |
PROFILES_INI_IO |
iL = ILNBLNK( profilesDir ) -1 |
|
./pkg/profiles/profiles_ini_io.F |
54 |
PROFILES_INI_IO |
WRITE(namBuf,'(2A)') ' mkdir -p ', profilesDir(1:iL) |
|
./pkg/rw/read_mflds.F |
283 |
READ_MFLDS_3D_RL |
INTEGER j, iL, ioUnit |
|
./pkg/rw/read_mflds.F |
292 |
READ_MFLDS_3D_RL |
iL = ILNBLNK(mFldsFile) |
|
./pkg/rw/read_mflds.F |
294 |
READ_MFLDS_3D_RL |
IF ( iL.EQ.0 ) THEN |
|
./pkg/rw/read_mflds.F |
319 |
READ_MFLDS_3D_RL |
iL = ILNBLNK(mFldsFile) |
|
./pkg/rw/read_mflds.F |
320 |
READ_MFLDS_3D_RL |
iL = MIN(iL,MAX_LEN_MBUF-54-20) |
|
./pkg/rw/read_mflds.F |
322 |
READ_MFLDS_3D_RL |
& 'field: "',fldName,'" missing in file: ',mFldsFile(1:iL) |
|
./pkg/rw/read_mflds.F |
412 |
READ_MFLDS_LEV_RL |
INTEGER j, iL, ioUnit |
|
./pkg/rw/read_mflds.F |
421 |
READ_MFLDS_LEV_RL |
iL = ILNBLNK(mFldsFile) |
|
./pkg/rw/read_mflds.F |
423 |
READ_MFLDS_LEV_RL |
IF ( iL.EQ.0 ) THEN |
|
./pkg/rw/read_mflds.F |
448 |
READ_MFLDS_LEV_RL |
iL = ILNBLNK(mFldsFile) |
|
./pkg/rw/read_mflds.F |
449 |
READ_MFLDS_LEV_RL |
iL = MIN(iL,MAX_LEN_MBUF-54-20) |
|
./pkg/rw/read_mflds.F |
451 |
READ_MFLDS_LEV_RL |
& 'field: "',fldName,'" missing in file: ',mFldsFile(1:iL) |
|
./pkg/rw/read_mflds.F |
541 |
READ_MFLDS_LEV_RS |
INTEGER j, iL, ioUnit |
|
./pkg/rw/read_mflds.F |
550 |
READ_MFLDS_LEV_RS |
iL = ILNBLNK(mFldsFile) |
|
./pkg/rw/read_mflds.F |
552 |
READ_MFLDS_LEV_RS |
IF ( iL.EQ.0 ) THEN |
|
./pkg/rw/read_mflds.F |
577 |
READ_MFLDS_LEV_RS |
iL = ILNBLNK(mFldsFile) |
|
./pkg/rw/read_mflds.F |
578 |
READ_MFLDS_LEV_RS |
iL = MIN(iL,MAX_LEN_MBUF-54-20) |
|
./pkg/rw/read_mflds.F |
580 |
READ_MFLDS_LEV_RS |
& 'field: "',fldName,'" missing in file: ',mFldsFile(1:iL) |
|
./pkg/rw/read_mflds.F |
663 |
READ_MFLDS_CHECK |
INTEGER i, j, nj, iL, ioUnit |
|
./pkg/rw/read_mflds.F |
668 |
READ_MFLDS_CHECK |
iL = ILNBLNK(mFldsFile) |
|
./pkg/rw/read_mflds.F |
670 |
READ_MFLDS_CHECK |
IF ( iL.EQ.0 ) THEN |
|
./pkg/rw/read_mflds.F |
694 |
READ_MFLDS_CHECK |
& 'reading from file: ', mFldsFile(1:iL) |
|
./pkg/rw/read_mflds.F |
735 |
READ_MFLDS_CHECK |
& '- normal end ; reset MFLDS file-name: ', mFldsFile(1:iL) |
|
./model/src/ini_curvilinear_grid.F |
283 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(tmpBuf) |
|
./model/src/ini_curvilinear_grid.F |
284 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(3A)') tmpBuf(1:iL), |
|
./model/src/ini_curvilinear_grid.F |
292 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(msgBuf) |
|
./model/src/ini_curvilinear_grid.F |
293 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(A,1X,A)') msgBuf(1:iL),'xC' |
|
./model/src/ini_curvilinear_grid.F |
295 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(tmpBuf) |
|
./model/src/ini_curvilinear_grid.F |
296 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(A,1X,A)') tmpBuf(1:iL),'yC' |
|
./model/src/ini_curvilinear_grid.F |
298 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(msgBuf) |
|
./model/src/ini_curvilinear_grid.F |
299 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(A,1X,A)') msgBuf(1:iL),'dxF' |
|
./model/src/ini_curvilinear_grid.F |
301 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(tmpBuf) |
|
./model/src/ini_curvilinear_grid.F |
302 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(A,1X,A)') tmpBuf(1:iL),'dyF' |
|
./model/src/ini_curvilinear_grid.F |
304 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(msgBuf) |
|
./model/src/ini_curvilinear_grid.F |
305 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(A,1X,A)') msgBuf(1:iL),'rA' |
|
./model/src/ini_curvilinear_grid.F |
307 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(tmpBuf) |
|
./model/src/ini_curvilinear_grid.F |
308 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(A,1X,A)') tmpBuf(1:iL),'xG' |
|
./model/src/ini_curvilinear_grid.F |
310 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(msgBuf) |
|
./model/src/ini_curvilinear_grid.F |
311 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(A,1X,A)') msgBuf(1:iL),'yG' |
|
./model/src/ini_curvilinear_grid.F |
313 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(tmpBuf) |
|
./model/src/ini_curvilinear_grid.F |
314 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(A,1X,A)') tmpBuf(1:iL),'dxV' |
|
./model/src/ini_curvilinear_grid.F |
316 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(msgBuf) |
|
./model/src/ini_curvilinear_grid.F |
317 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(A,1X,A)') msgBuf(1:iL),'dyU' |
|
./model/src/ini_curvilinear_grid.F |
319 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(tmpBuf) |
|
./model/src/ini_curvilinear_grid.F |
320 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(A,1X,A)') tmpBuf(1:iL),'rAz' |
|
./model/src/ini_curvilinear_grid.F |
322 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(msgBuf) |
|
./model/src/ini_curvilinear_grid.F |
323 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(A,1X,A)') msgBuf(1:iL),'dxC' |
|
./model/src/ini_curvilinear_grid.F |
325 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(tmpBuf) |
|
./model/src/ini_curvilinear_grid.F |
326 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(A,1X,A)') tmpBuf(1:iL),'dyC' |
|
./model/src/ini_curvilinear_grid.F |
328 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(msgBuf) |
|
./model/src/ini_curvilinear_grid.F |
329 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(A,1X,A)') msgBuf(1:iL),'rAw' |
|
./model/src/ini_curvilinear_grid.F |
331 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(tmpBuf) |
|
./model/src/ini_curvilinear_grid.F |
332 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(A,1X,A)') tmpBuf(1:iL),'rAs' |
|
./model/src/ini_curvilinear_grid.F |
334 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(msgBuf) |
|
./model/src/ini_curvilinear_grid.F |
335 |
INI_CURVILINEAR_GRID |
WRITE(tmpBuf,'(A,1X,A)') msgBuf(1:iL),'dxG' |
|
./model/src/ini_curvilinear_grid.F |
337 |
INI_CURVILINEAR_GRID |
iL = ILNBLNK(tmpBuf) |
|
./model/src/ini_curvilinear_grid.F |
338 |
INI_CURVILINEAR_GRID |
WRITE(msgBuf,'(A,1X,A)') tmpBuf(1:iL),'dyG' |
|
./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),'AngleCS' |
|
./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),'AngleSN' |
|
./model/src/ini_curvilinear_grid.F |
58 |
INI_CURVILINEAR_GRID |
INTEGER iG, jG, iL, iLen |
|
./model/src/ini_model_io.F |
139 |
INI_MODEL_IO |
iL = ILNBLNK( mdsioLocalDir ) |
|
./model/src/ini_model_io.F |
151 |
INI_MODEL_IO |
& ' mkdir -p ', mdsioLocalDir(1:iL),myProcessStr(1:4),' ' |
|
./model/src/ini_model_io.F |
170 |
INI_MODEL_IO |
namBuf(1:iL) = mdsioLocalDir(1:iL) |
|
./model/src/ini_model_io.F |
171 |
INI_MODEL_IO |
WRITE(mdsioLocalDir,'(3A)') namBuf(1:iL),myProcessStr(1:4),'/' |
|
./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) |
|
./pkg/autodiff/autodiff_ini_model_io.F |
55 |
AUTODIFF_INI_MODEL_IO |
INTEGER iL, pIL, myLev |
|
./pkg/autodiff/autodiff_ini_model_io.F |
66 |
AUTODIFF_INI_MODEL_IO |
iL = ILNBLNK( adTapeDir ) |
|
./pkg/autodiff/autodiff_ini_model_io.F |
68 |
AUTODIFF_INI_MODEL_IO |
IF ( iL.LT.MAX_LEN_FNAM .AND. adTapeDir(iL:iL).NE.'/' ) THEN |
|
./pkg/autodiff/autodiff_ini_model_io.F |
69 |
AUTODIFF_INI_MODEL_IO |
namBuf(1:iL) = adTapeDir(1:iL) |
|
./pkg/autodiff/autodiff_ini_model_io.F |
70 |
AUTODIFF_INI_MODEL_IO |
WRITE(adTapeDir(1:iL+1),'(2A)') namBuf(1:iL),'/' |
|
./pkg/autodiff/autodiff_ini_model_io.F |
74 |
AUTODIFF_INI_MODEL_IO |
iL = ILNBLNK( adTapeDir ) -1 |
|
./pkg/autodiff/autodiff_ini_model_io.F |
75 |
AUTODIFF_INI_MODEL_IO |
WRITE(namBuf,'(2A)') ' mkdir -p ', adTapeDir(1:iL) |
|
./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 |
|
./pkg/cfc/cfc_atmos.F |
40 |
CFC_ATMOS |
INTEGER iUnit, i, it, iL |
|
./pkg/cfc/cfc_atmos.F |
48 |
CFC_ATMOS |
iL = ILNBLNK(atmCFC_inpFile) |
|
./pkg/cfc/cfc_atmos.F |
49 |
CFC_ATMOS |
IF ( iL.EQ.0 ) THEN |
|
./pkg/cfc/cfc_atmos.F |
55 |
CFC_ATMOS |
INQUIRE( FILE=atmCFC_inpFile(1:iL), EXIST=exst ) |
|
./pkg/cfc/cfc_atmos.F |
58 |
CFC_ATMOS |
& 'CFC_ATMOS: opening file "', atmCFC_inpFile(1:iL), '"' |
|
./pkg/cfc/cfc_atmos.F |
63 |
CFC_ATMOS |
& 'CFC_ATMOS: File "', atmCFC_inpFile(1:iL),'" does not exist!' |
|
./pkg/cfc/cfc_atmos.F |
70 |
CFC_ATMOS |
OPEN(iUnit,FILE=atmCFC_inpFile(1:iL),STATUS='old') |
|
./pkg/cfc/cfc_atmos.F |
91 |
CFC_ATMOS |
& 'CFC_ATMOS: length of file "',atmCFC_inpFile(1:iL),'"' |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
167 |
CHEAPAML_INIT_FIXED |
iL = ILNBLNK(cheapMaskFile) |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
169 |
CHEAPAML_INIT_FIXED |
& 'Relaxation Mask read from ->', cheapMaskFile(1:iL), '<-' |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
49 |
CHEAPAML_INIT_FIXED |
INTEGER iL, ioUnit |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
80 |
CHEAPAML_INIT_FIXED |
iL = ILNBLNK(cheapMaskFile) |
|
./pkg/cheapaml/cheapaml_init_fixed.F |
82 |
CHEAPAML_INIT_FIXED |
& 'Relaxation Mask read from ->', cheapMaskFile(1:iL), '<-' |
|
./pkg/cheapaml/cheapaml_init_varia.F |
119 |
CHEAPAML_INIT_VARIA |
iL = ILNBLNK(AirQFile) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
121 |
CHEAPAML_INIT_VARIA |
& 'Qair initialized from ->', AirQFile(1:iL), '<-' |
|
./pkg/cheapaml/cheapaml_init_varia.F |
145 |
CHEAPAML_INIT_VARIA |
iL = ILNBLNK(TracerFile) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
147 |
CHEAPAML_INIT_VARIA |
& 'Tracer initialized from ->', TracerFile(1:iL), '<-' |
|
./pkg/cheapaml/cheapaml_init_varia.F |
175 |
CHEAPAML_INIT_VARIA |
iL = ILNBLNK(cheap_hFile) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
177 |
CHEAPAML_INIT_VARIA |
& 'BL thickness taken from ->', cheap_hFile(1:iL), '<-' |
|
./pkg/cheapaml/cheapaml_init_varia.F |
46 |
CHEAPAML_INIT_VARIA |
INTEGER iL, ioUnit |
|
./pkg/cheapaml/cheapaml_init_varia.F |
91 |
CHEAPAML_INIT_VARIA |
iL = ILNBLNK(AirTempFile) |
|
./pkg/cheapaml/cheapaml_init_varia.F |
93 |
CHEAPAML_INIT_VARIA |
& 'Tair initialized from ->', AirTempFile(1:iL), '<-' |
|
./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/diagnostics_calc_phivel.F |
297 |
DIAGNOSTICS_CALC_PHIVEL |
iL = ILNBLNK(dataFName) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
299 |
DIAGNOSTICS_CALC_PHIVEL |
& 'open unit=',diagLoc_ioUnit, ', file: ',dataFName(1:iL) |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
83 |
DIAGNOSTICS_CALC_PHIVEL |
INTEGER iL |
|
./pkg/diagnostics/diagnostics_ini_io.F |
36 |
DIAGNOSTICS_INI_IO |
INTEGER iL, pIL |
|
./pkg/diagnostics/diagnostics_ini_io.F |
48 |
DIAGNOSTICS_INI_IO |
iL = ILNBLNK( diagMdsDir ) |
|
./pkg/diagnostics/diagnostics_ini_io.F |
49 |
DIAGNOSTICS_INI_IO |
WRITE(namBuf,'(3A)') ' mkdir -p ', diagMdsDir(1:iL), ' ' |
|
./pkg/diagnostics/diagstats_close_io.F |
37 |
DIAGSTATS_CLOSE_IO |
INTEGER n, iL, nUnit |
|
./pkg/diagnostics/diagstats_close_io.F |
60 |
DIAGSTATS_CLOSE_IO |
iL = ILNBLNK(diagSt_Fname(n)) |
|
./pkg/diagnostics/diagstats_close_io.F |
62 |
DIAGSTATS_CLOSE_IO |
& diagSt_Fname(n)(1:iL), '.', suff, '.txt' |
|
./pkg/diagnostics/diagstats_close_io.F |
64 |
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 |
59 |
DIAGSTATS_INI_IO |
iL = ILNBLNK(diagSt_Fname(n)) |
|
./pkg/diagnostics/diagstats_ini_io.F |
61 |
DIAGSTATS_INI_IO |
& diagSt_Fname(n)(1:iL), '.', suff, '.txt' |
|
./pkg/diagnostics/diagstats_ini_io.F |
67 |
DIAGSTATS_INI_IO |
& 'open file: ',dataFName(1:iL+15), ' , unit=', nUnit |
|
./pkg/diagnostics/diagstats_ini_io.F |
73 |
DIAGSTATS_INI_IO |
& diagSt_Fname(n)(1:iL) |
|
./pkg/diagnostics/diagstats_ini_io.F |
77 |
DIAGSTATS_INI_IO |
iL = 17 |
|
./pkg/diagnostics/diagstats_ini_io.F |
79 |
DIAGSTATS_INI_IO |
IF (diagSt_region(j,n).GE.1 .AND.iL+3.LE.MAX_LEN_MBUF) THEN |
|
./pkg/diagnostics/diagstats_ini_io.F |
80 |
DIAGSTATS_INI_IO |
tmpBuf(1:iL) = msgBuf(1:iL) |
|
./pkg/diagnostics/diagstats_ini_io.F |
81 |
DIAGSTATS_INI_IO |
WRITE(msgBuf,'(A,I3)') tmpBuf(1:iL),j |
|
./pkg/diagnostics/diagstats_ini_io.F |
82 |
DIAGSTATS_INI_IO |
iL = iL+3 |
|
./pkg/diagnostics/diagstats_ini_io.F |
85 |
DIAGSTATS_INI_IO |
WRITE(nUnit,'(A)') msgBuf(1:iL) |