File |
Line number |
Procedure |
Code |
./pkg/mdsio/mdsio_writemeta.F |
102 |
MDSWRITEMETA |
write(mUnit,'(1x,a,i5,a)') 'nrecords = [ ',nrecords,' ];' |
./pkg/mdsio/mdsio_writemeta.F |
112 |
MDSWRITEMETA |
& write(mUnit,'(1x,a,i10,a)') 'timeStepNumber = [ ',myIter,' ];' |
./pkg/mdsio/mdsio_writemeta.F |
115 |
MDSWRITEMETA |
close(mUnit) |
./pkg/mdsio/mdsio_writemeta.F |
47 |
MDSWRITEMETA |
integer i,ii,mUnit |
./pkg/mdsio/mdsio_writemeta.F |
63 |
MDSWRITEMETA |
call MDSFINDUNIT( mUnit, mythid ) |
./pkg/mdsio/mdsio_writemeta.F |
66 |
MDSWRITEMETA |
open( mUnit, file=mFileName, status='unknown', |
./pkg/mdsio/mdsio_writemeta.F |
70 |
MDSWRITEMETA |
write(mUnit,'(1x,a,i3,a)') 'nDims = [ ',ndims,' ];' |
./pkg/mdsio/mdsio_writemeta.F |
77 |
MDSWRITEMETA |
write(mUnit,'(1x,a)') 'dimList = [' |
./pkg/mdsio/mdsio_writemeta.F |
80 |
MDSWRITEMETA |
write(mUnit,'(10x,3(i5,","))') (dimList(i,ii),i=1,3) |
./pkg/mdsio/mdsio_writemeta.F |
82 |
MDSWRITEMETA |
write(mUnit,'(10x,i5,",",i5,",",i5)') (dimList(i,ii),i=1,3) |
./pkg/mdsio/mdsio_writemeta.F |
85 |
MDSWRITEMETA |
write(mUnit,'(10x,a)') '];' |
./pkg/mdsio/mdsio_writemeta.F |
89 |
MDSWRITEMETA |
write(mUnit,'(1x,a)') "format = [ 'float32' ];" |
./pkg/mdsio/mdsio_writemeta.F |
91 |
MDSWRITEMETA |
write(mUnit,'(1x,a)') "format = [ 'float64' ];" |
./eesupp/src/dfile.F |
189 |
DFILE_OPEN |
INTEGER mUnit |
./eesupp/src/dfile.F |
208 |
DFILE_OPEN |
mUnit = mUnitNumber(I,myThid) |
./eesupp/src/dfile.F |
225 |
DFILE_OPEN |
OPEN(UNIT=mUnit,FILE=fNamMeta(i2Lo:i2Hi), |
./eesupp/src/dfile.F |
227 |
DFILE_OPEN |
CLOSE(mUnit,ERR=899) |
./eesupp/src/dfile.F |
228 |
DFILE_OPEN |
OPEN(UNIT=mUnit,FILE=fNamMeta(i2Lo:i2Hi), |
./eesupp/src/dfile.F |
81 |
DFILE_CLOSE |
INTEGER mUnit |
./eesupp/src/dfile.F |
91 |
DFILE_CLOSE |
mUnit = mUnitNumber(I,myThid) |
./eesupp/src/dfile.F |
94 |
DFILE_CLOSE |
CLOSE(mUnit,ERR=999) |