| File |
Line number |
Procedure |
Code |
|
./pkg/flt/flt_traj.F |
155 |
FLT_TRAJ |
DO ii=1,nFlds |
|
./pkg/flt/flt_traj.F |
179 |
FLT_TRAJ |
CALL MDS_READVEC_LOC( fn, fp, ioUnit, 'RL', nFlds, |
|
./pkg/flt/flt_traj.F |
188 |
FLT_TRAJ |
IF ( ii.NE.nFlds ) THEN |
|
./pkg/flt/flt_traj.F |
190 |
FLT_TRAJ |
& 'FLT_TRAJ: nFlds=', nFlds,' different from' |
|
./pkg/flt/flt_traj.F |
222 |
FLT_TRAJ |
tmp(7) = nFlds |
|
./pkg/flt/flt_traj.F |
223 |
FLT_TRAJ |
DO ii=8,nFlds |
|
./pkg/flt/flt_traj.F |
227 |
FLT_TRAJ |
CALL MDS_WRITEVEC_LOC( fn, fp, ioUnit, 'RL', nFlds, |
|
./pkg/flt/flt_traj.F |
235 |
FLT_TRAJ |
CALL MDS_WRITEVEC_LOC( fn, fp, ioUnit, 'RL', nFlds, |
|
./pkg/flt/flt_traj.F |
47 |
FLT_TRAJ |
INTEGER bi, bj, nFlds |
|
./pkg/flt/flt_traj.F |
68 |
FLT_TRAJ |
nFlds = 0 |
|
./pkg/flt/flt_traj.F |
69 |
FLT_TRAJ |
IF ( flt_selectTrajOutp.GE.1 ) nFlds = nFlds + 8 |
|
./pkg/flt/flt_traj.F |
70 |
FLT_TRAJ |
IF ( flt_selectTrajOutp.GE.2 ) nFlds = nFlds + 5 |
|
./pkg/flt/flt_traj.F |
73 |
FLT_TRAJ |
IF ( nFlds.GT.fltBufDim ) THEN |
|
./pkg/flt/flt_traj.F |
76 |
FLT_TRAJ |
& ' too small (<', nFlds, ' )' |
|
./pkg/flt/flt_up.F |
146 |
FLT_UP |
DO ii=9,nFlds |
|
./pkg/flt/flt_up.F |
151 |
FLT_UP |
DO ii=1,nFlds |
|
./pkg/flt/flt_up.F |
177 |
FLT_UP |
CALL MDS_READVEC_LOC( fn, fp, ioUnit, 'RL', nFlds, |
|
./pkg/flt/flt_up.F |
186 |
FLT_UP |
IF ( ii.NE.nFlds ) THEN |
|
./pkg/flt/flt_up.F |
188 |
FLT_UP |
& 'FLT_UP: nFlds=', nFlds,' different from' |
|
./pkg/flt/flt_up.F |
220 |
FLT_UP |
tmp(7) = nFlds |
|
./pkg/flt/flt_up.F |
221 |
FLT_UP |
DO ii=8,nFlds |
|
./pkg/flt/flt_up.F |
225 |
FLT_UP |
CALL MDS_WRITEVEC_LOC( fn, fp, ioUnit, 'RL', nFlds, |
|
./pkg/flt/flt_up.F |
233 |
FLT_UP |
CALL MDS_WRITEVEC_LOC( fn, fp, ioUnit, 'RL', nFlds, |
|
./pkg/flt/flt_up.F |
45 |
FLT_UP |
INTEGER bi, bj, nFlds |
|
./pkg/flt/flt_up.F |
62 |
FLT_UP |
nFlds = 0 |
|
./pkg/flt/flt_up.F |
63 |
FLT_UP |
IF ( flt_selectProfOutp.GE.1 ) nFlds = nFlds + 8 |
|
./pkg/flt/flt_up.F |
64 |
FLT_UP |
IF ( flt_selectProfOutp.GE.2 ) nFlds = nFlds + 1 + 4*Nr |
|
./pkg/flt/flt_up.F |
67 |
FLT_UP |
IF ( nFlds.GT.fltBufDim ) THEN |
|
./pkg/flt/flt_up.F |
70 |
FLT_UP |
& ' too small (<', nFlds, ' )' |
|
./pkg/mdsio/mdsio_read_meta.F |
113 |
MDS_READ_META |
DO i=1,nFlds |
|
./pkg/mdsio/mdsio_read_meta.F |
14 |
MDS_READ_META |
U nDims, nFlds, nTimRec, |
|
./pkg/mdsio/mdsio_read_meta.F |
358 |
MDS_READ_META |
IF ( nFldFil.GT.nFlds .AND. nFlds.GE.1 ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
360 |
MDS_READ_META |
& nFldFil, ' too large ( >', nFlds, ' )' |
|
./pkg/mdsio/mdsio_read_meta.F |
368 |
MDS_READ_META |
IF ( nFldFil.GE.1 .AND. nFlds.GE.1 .AND. |
|
./pkg/mdsio/mdsio_read_meta.F |
412 |
MDS_READ_META |
nFlds = nFldFil |
|
./pkg/mdsio/mdsio_read_meta.F |
66 |
MDS_READ_META |
INTEGER nFlds |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
141 |
MDS_WR_METAFILES |
I filePrec, nDims,dimList,map2gl, nFlds, fldList, |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
17 |
MDS_WR_METAFILES |
I nFlds, fldList, |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
210 |
MDS_WR_METAFILES |
I filePrec, nDims,dimList,map2gl, nFlds, fldList, |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
80 |
MDS_WR_METAFILES |
INTEGER nFlds |
|
./pkg/mdsio/mdsio_write_meta.F |
16 |
MDS_WRITE_META |
I nFlds, fldList, |
|
./pkg/mdsio/mdsio_write_meta.F |
188 |
MDS_WRITE_META |
IF ( nFlds.GT.0 ) THEN |
|
./pkg/mdsio/mdsio_write_meta.F |
189 |
MDS_WRITE_META |
WRITE(mUnit,'(1X,A,I4,A)') 'nFlds = [ ', nFlds, ' ];' |
|
./pkg/mdsio/mdsio_write_meta.F |
192 |
MDS_WRITE_META |
& (" '",fldList(i),"'",i=1,nFlds) |
|
./pkg/mdsio/mdsio_write_meta.F |
62 |
MDS_WRITE_META |
INTEGER nFlds |
|
./pkg/rw/RW_MFLDS.h |
28 |
NO PROCEDURE |
& thirdDim, nFl3D, nFlds, nMissFld |
|
./pkg/rw/RW_MFLDS.h |
32 |
NO PROCEDURE |
INTEGER nFlds |
|
./pkg/rw/read_mflds.F |
141 |
READ_MFLDS_SET |
nFlds = 0 |
|
./pkg/rw/read_mflds.F |
152 |
READ_MFLDS_SET |
nFlds = sizFldList |
|
./pkg/rw/read_mflds.F |
159 |
READ_MFLDS_SET |
U nDims, nFlds, nTimRec, |
|
./pkg/rw/read_mflds.F |
167 |
READ_MFLDS_SET |
IF ( nFlds.GE.1 ) THEN |
|
./pkg/rw/read_mflds.F |
169 |
READ_MFLDS_SET |
& .AND. nFlds.LT.nRecords ) THEN |
|
./pkg/rw/read_mflds.F |
170 |
READ_MFLDS_SET |
IF ( MOD( nRecords-nFlds , thirdDim-1 ) .EQ. 0 ) |
|
./pkg/rw/read_mflds.F |
171 |
READ_MFLDS_SET |
& nFl3D = (nRecords-nFlds)/(thirdDim-1) |
|
./pkg/rw/read_mflds.F |
173 |
READ_MFLDS_SET |
IF ( nFlds.NE.nRecords .AND. nFl3D.EQ.0 ) THEN |
|
./pkg/rw/read_mflds.F |
180 |
READ_MFLDS_SET |
& ' does not match Nb of flds=', nFlds |
|
./pkg/rw/read_mflds.F |
212 |
READ_MFLDS_SET |
& ' nFlds =', nFlds, ' , nFl3D =', nFl3D, ' , fields:' |
|
./pkg/rw/read_mflds.F |
214 |
READ_MFLDS_SET |
DO j=1,nFlds,20 |
|
./pkg/rw/read_mflds.F |
216 |
READ_MFLDS_SET |
& (' >', fldList(i), '<', i=j,MIN(j+19,nFlds) ) |
|
./pkg/rw/read_mflds.F |
232 |
READ_MFLDS_SET |
nbFields = nFlds |
|
./pkg/rw/read_mflds.F |
305 |
READ_MFLDS_3D_RL |
IF ( nFlds.GE.1 ) THEN |
|
./pkg/rw/read_mflds.F |
308 |
READ_MFLDS_3D_RL |
DO j=1,nFlds |
|
./pkg/rw/read_mflds.F |
434 |
READ_MFLDS_LEV_RL |
IF ( nFlds.GE.1 ) THEN |
|
./pkg/rw/read_mflds.F |
437 |
READ_MFLDS_LEV_RL |
DO j=1,nFlds |
|
./pkg/rw/read_mflds.F |
47 |
READ_MFLDS_INIT |
nFlds = 0 |
|
./pkg/rw/read_mflds.F |
563 |
READ_MFLDS_LEV_RS |
IF ( nFlds.GE.1 ) THEN |
|
./pkg/rw/read_mflds.F |
566 |
READ_MFLDS_LEV_RS |
DO j=1,nFlds |
|
./pkg/rw/read_mflds.F |
697 |
READ_MFLDS_CHECK |
& 'which contains ', nFlds, ' fields :' |
|
./pkg/rw/read_mflds.F |
699 |
READ_MFLDS_CHECK |
DO j=1,nFlds,20 |
|
./pkg/rw/read_mflds.F |
701 |
READ_MFLDS_CHECK |
& (' >', fldList(i), '<', i=j,MIN(j+19,nFlds) ) |
|
./pkg/rw/read_mflds.F |
796 |
READ_MFLDS_RENAME |
DO i=1,nFlds |
|
./pkg/rw/read_mflds.F |
810 |
READ_MFLDS_RENAME |
DO i=1,nFlds |