& SItrExpand0(SItrMaxNum)
& SItrFromFloodFrac, SItrExpand0
SItrExpand0(iTracer) =ONE
SItrExpand0(iTracer) =ZERO
& SItrFromFloodFrac, SItrExpand0,
SItrExpand0(iTracer) = ZERO
CALL WRITE_0D_RL ( SItrExpand0(iTracer), INDEX_NONE,
SItrExpand(i,j)=SItrExpand0(iTr)