Hello,
No, it has not been programmed, and it is too short for release 6.2. So you will have to implement it yourself :
In telemac3d.f array ALIRE2D in data must have positions 37 to 36+NTRAC set to 1, so that the tracers are read in the 2D file. I'll do that at least for version 6.2.
Then the 2D tracers will be read and will be available for a use in condim.f, they will be stored in bief objects :
T2_14 on, depending on the number of tracers.
Then instead of putting the initial value you can copy your 2D tracer on the vertical.
Something like , if you have 1 tracer:
DO IPLAN=1,NPLAN
CALL OV('X=Y ',TA%ADR(1)%P%R((IPLAN-1)*NPOIN2+1),
& T2_14%R,T2_14%R,0.D0,NPOIN2)
ENDO
and for a second tracer:
DO IPLAN=1,NPLAN
CALL OV('X=Y ',TA%ADR(2)%P%R((IPLAN-1)*NPOIN2+1),
& T2_15%R,T2_15%R,0.D0,NPOIN2)
ENDO
I hope it works (not tested), tell me. If yes, we can put this in version 6.3.
With best regards,
Jean-Michel Hervouet