| File |
Line number |
Procedure |
Code |
|
./pkg/mdsio/mdsio_read_meta.F |
112 |
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 |
349 |
MDS_READ_META |
IF ( nFldFil.GT.nFlds .AND. nFlds.GE.1 ) THEN |
|
./pkg/mdsio/mdsio_read_meta.F |
351 |
MDS_READ_META |
& nFldFil, ' too large ( >', nFlds, ' )' |
|
./pkg/mdsio/mdsio_read_meta.F |
359 |
MDS_READ_META |
IF ( nFldFil.GE.1 .AND. nFlds.GE.1 .AND. |
|
./pkg/mdsio/mdsio_read_meta.F |
403 |
MDS_READ_META |
nFlds = nFldFil |
|
./pkg/mdsio/mdsio_read_meta.F |
65 |
MDS_READ_META |
INTEGER nFlds |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
138 |
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 |
207 |
MDS_WR_METAFILES |
I filePrec, nDims,dimList,map2gl, nFlds, fldList, |
|
./pkg/mdsio/mdsio_wr_metafiles.F |
78 |
MDS_WR_METAFILES |
INTEGER nFlds |
|
./pkg/mdsio/mdsio_write_meta.F |
16 |
MDS_WRITE_META |
I nFlds, fldList, |
|
./pkg/mdsio/mdsio_write_meta.F |
182 |
MDS_WRITE_META |
IF ( nFlds.GT.0 ) THEN |
|
./pkg/mdsio/mdsio_write_meta.F |
183 |
MDS_WRITE_META |
WRITE(mUnit,'(1X,A,I4,A)') 'nFlds = [ ', nFlds, ' ];' |
|
./pkg/mdsio/mdsio_write_meta.F |
186 |
MDS_WRITE_META |
& (" '",fldList(i),"'",i=1,nFlds) |
|
./pkg/mdsio/mdsio_write_meta.F |
61 |
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 |
139 |
READ_MFLDS_SET |
nFlds = 0 |
|
./pkg/rw/read_mflds.F |
150 |
READ_MFLDS_SET |
nFlds = sizFldList |
|
./pkg/rw/read_mflds.F |
157 |
READ_MFLDS_SET |
U nDims, nFlds, nTimRec, |
|
./pkg/rw/read_mflds.F |
165 |
READ_MFLDS_SET |
IF ( nFlds.GE.1 ) THEN |
|
./pkg/rw/read_mflds.F |
167 |
READ_MFLDS_SET |
& .AND. nFlds.LT.nRecords ) THEN |
|
./pkg/rw/read_mflds.F |
168 |
READ_MFLDS_SET |
IF ( MOD( nRecords-nFlds , thirdDim-1 ) .EQ. 0 ) |
|
./pkg/rw/read_mflds.F |
169 |
READ_MFLDS_SET |
& nFl3D = (nRecords-nFlds)/(thirdDim-1) |
|
./pkg/rw/read_mflds.F |
171 |
READ_MFLDS_SET |
IF ( nFlds.NE.nRecords .AND. nFl3D.EQ.0 ) THEN |
|
./pkg/rw/read_mflds.F |
178 |
READ_MFLDS_SET |
& ' does not match Nb of flds=', nFlds |
|
./pkg/rw/read_mflds.F |
209 |
READ_MFLDS_SET |
& ' nFlds =', nFlds, ' , nFl3D =', nFl3D, ' , fields:' |
|
./pkg/rw/read_mflds.F |
211 |
READ_MFLDS_SET |
DO j=1,nFlds,20 |
|
./pkg/rw/read_mflds.F |
213 |
READ_MFLDS_SET |
& (' >', fldList(i), '<', i=j,MIN(j+19,nFlds) ) |
|
./pkg/rw/read_mflds.F |
228 |
READ_MFLDS_SET |
nbFields = nFlds |
|
./pkg/rw/read_mflds.F |
299 |
READ_MFLDS_3D_RL |
IF ( nFlds.GE.1 ) THEN |
|
./pkg/rw/read_mflds.F |
302 |
READ_MFLDS_3D_RL |
DO j=1,nFlds |
|
./pkg/rw/read_mflds.F |
426 |
READ_MFLDS_LEV_RL |
IF ( nFlds.GE.1 ) THEN |
|
./pkg/rw/read_mflds.F |
429 |
READ_MFLDS_LEV_RL |
DO j=1,nFlds |
|
./pkg/rw/read_mflds.F |
46 |
READ_MFLDS_INIT |
nFlds = 0 |
|
./pkg/rw/read_mflds.F |
559 |
READ_MFLDS_CHECK |
& 'which contains ', nFlds, ' fields :' |
|
./pkg/rw/read_mflds.F |
561 |
READ_MFLDS_CHECK |
DO j=1,nFlds,20 |
|
./pkg/rw/read_mflds.F |
563 |
READ_MFLDS_CHECK |
& (' >', fldList(i), '<', i=j,MIN(j+19,nFlds) ) |