open TELEMAC-MASCARET The mathematically superior suite of solvers

Hello,
I wanted to set up BUSE.F to send tube discharges to a results file. My edits to BUSE.F are attached.

When I run a steering file with this version of BUSE.F, I get the error:

WRITE(T2D_FILES(T2DRFO)%LU,*) AT,DBUS(12)
1
Error: Syntax error in WRITE statement at (1)
ERROR : COMPILATION

I thought T2DRFO was defined in DECLARATIONS_TELEMAC2D, and would still be acknowledged by BUSE.F. Is this not the case?

Hello,

Look at the USE DECLARATIONS_TELEMAC2D, ONLY : ...

line at the beginning at the subroutine, did you add T2D_FILES and T2DRFO in the list? This should solve the problem. We have to restrict the USE because H, ZF, U and V would make a conflict as they are here only double precision arrays, not the original bief_obj structure.

With best regards,

Jean-Michel Hervouet

I see. Thank you Jean-Michel.

I also included variable AT. Things seem to be working now!

USE DECLARATIONS_TELEMAC2D, ONLY : V2DPAR,DT,T2D_FILES,AT,T2DRFO

I should have done this a while ago.
For anyone interested, my edits to BUSE.F to print discharge from the tubes.