48 |
#endif |
#endif |
49 |
#ifdef DIC_BIOTIC |
#ifdef DIC_BIOTIC |
50 |
LOGICAL glf |
LOGICAL glf |
51 |
|
_RL timList(1) |
52 |
INTEGER j, nj |
INTEGER j, nj |
53 |
INTEGER listDim, nWrFlds |
INTEGER listDim, nWrFlds |
54 |
PARAMETER( listDim = 2 ) |
PARAMETER( listDim = 2 ) |
56 |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
CHARACTER*(MAX_LEN_MBUF) msgBuf |
57 |
#endif |
#endif |
58 |
|
|
|
|
|
59 |
c IF ( DIC_pickup_write_mdsio ) THEN |
c IF ( DIC_pickup_write_mdsio ) THEN |
60 |
prec = precFloat64 |
prec = precFloat64 |
61 |
|
|
111 |
nj = nWrFlds |
nj = nWrFlds |
112 |
ENDIF |
ENDIF |
113 |
glf = globalFiles |
glf = globalFiles |
114 |
|
timList(1) = myTime |
115 |
CALL MDS_WR_METAFILES( fn, prec, glf, .FALSE., |
CALL MDS_WR_METAFILES( fn, prec, glf, .FALSE., |
116 |
& 0, 0, j, ' ', |
& 0, 0, j, ' ', |
117 |
& nWrFlds, wrFldList, |
& nWrFlds, wrFldList, |
118 |
& 1, myTime, |
& 1, timList, |
119 |
& nj, myIter, myThid ) |
& nj, myIter, myThid ) |
120 |
#endif /* ALLOW_MDSIO */ |
#endif /* ALLOW_MDSIO */ |
121 |
C-------------------------- |
C-------------------------- |