open TELEMAC-MASCARET The mathematically superior suite of solvers

Hi everybody,

I'm trying to add a weir in my model, with the subroutine loiden.f.

In order to know my discharge during the simulation, I modified the subroutine to add a text with the values. I used what is already use in the routines buse.f or siphon.f, but I got an error : segmentation fault - invalid memory reference. I don't understand because I often use buse.f and siphon.f, and it works correctly.

I attached my .f modified.

Anyone understands what's going wrong with my file ?

Regards,

You change the header of the subroutine!
Did you also change all other file (interface_telemac2d.f) and the subroutine which calls loiden?

No, I only edit loiden.f to get loiden_modif.f and I called this Fortran File in my cas.txt file.

What I'm supposed to do?

which version did you use?
in the latest, there is no entet in the header

I'm using V7P2R1

In V7P2, ENTET is not in the list of arguments of the subroutine
Using user fortran means modifying sources, not argument list...

So what you're supposed to do, in my opinion, is learning fortran!

Okay, I'm not a regular user of routines Fortran, but I just tried to re-apply what I see in the source siphon.f in the V7p2 sources, because it's very useful

Is there a posibility to know the discharge in a weir, like we can see discharge in buse or siphon?

Thanks for your help

First, never change the argument list of a subroutine
Second you could do the write, without the if condition

OKay, thank you!

I originally did only the "write" but I got too many informartions (at each time step) but I will do with this!

You could use entet as a condition but you shouldn't change the list of arguments
It should work if you add:
USE DECLARATIONS_TELEMAC2D, ONLY : ENTET
in the subroutine