open TELEMAC-MASCARET The mathematically superior suite of solvers

Can someone tell me how can I specify the initial conditions in TELEMAC-2D to be constant flow or constant velocity. I know that this has to be added by setting the initial condition in the steering file to be PARTICULAR and modify the CONDIN subroutine, however, I don't know how to modify the CONDIN subroutine

thanks a lot

Hello,

When you have INITIAL CONDITIONS = PARTICULAR and want to have a constant velocity, you can add in the section dedicated to particular conditions the lines :

CALL OS('X=C ',X=U,C=1.2D0)
CALL OS('X=C ',X=V,C=0.5D0)

This is an example, you can find explanations on subroutine OS in the guide for programming in the Telemac system which can be downloaded on this site.

With best regards,

Jean-Michel Hervouet

first of all thank you very much. secondly, how I can recall the CONDIN subroutine is it simply by adding a Fortran file in the Steering file (FORTRAN FILE : condin.f).

Hello,

Yes, you just take condin.f in your FORTRAN FILE.
and add the keyword FORTRAN FILE = name_of-the-file

in your steering file

JMH

I have made the changes you told me in the CONDIN subroutine, however when running telemac it gives me a message that the CONDIN subroutine has to be changed although I have already changed it.

Attached here is the CONDIN subroutine after I made the changes, probably I made something wrong

Hi

You've made some changes but you keep in this file the warning message and also the stop instruction so the treatment is similar.
Try co comment the lines with the message and moreover the line with the stop instruction

Hope this helps

Attached the corrected file.

JMH

thank you very much, now it is working