open TELEMAC-MASCARET The mathematically superior suite of solvers

Dear all,

I am once again returning to this topic. I managed to apply spatially and temporally varying wave height at my boundary and the results seem to be quite nice except some minor problems. As you can see in the attached picture, at two nodes of the boudaries, which consequently are the corner nodes where west-north and north-east boundaries meet (nodes 1 and 2) the wae height is not prescribed despite being defined in the formatted file. Is there something that creates this problem inside the limwac subroutine I cannot locate?

Kind regards,
Andreas

Hello Andreas

Your limwac is not made for version V7P3 it is for an older version so the arguments are not correct. When you are using a fortran user subroutine you'd better always start with the subroutine of the version you are using.
I join the limwac i corrected to fit with V7P3 interface and the result i obtain with it.

Best regards

Thierry

Thank you very much Thierry, it works like I charm, I will always be cautious with arguements and trunk versions from now on.

Kind regards,
Andreas

Hello.

I'm trying to create a boundary varying in space but not time and this thread has been a great help. My case is still not working but at least I'm getting somewhere with it. The bottom friction example seems to be a useful example, but my bottom friction folder doesn't contain any limwac file and the wave height on the whole boundary is set to 1.0 in the steering file.

Where might I find this relevant example? I'm getting errors or simulations whith no waves at all and would like to look at this example to try to figure it out.

I'm using version v7p3r1.

I think I almost understand this now and was optimistic it would run but I'm getting Syntax errors in END DO statements and don't understand why.

Can someone please take a look?

Hi
This is just a typo error
You should have ENDDO instead of END DO

I wish it had been that simple.

I found this typo in the file, but not in the line where the error is. Fixed it, and am still getting the same error message.

ENDDO
1
Error: Syntax error in END DO statement at (1)
limwac.f:367.6:

END
1
Error: END DO statement expected at (1)


PS: I doubt it matters for this problem, but I realized I also uploaded the wrong geoemetry file. The right one is attached here.

I think there is a problem on line 255...
As the if as no THEN, endif should not appear...
but the message seems to means there is a do without enddo in your code
You could check all the loop to be sure all it's OK
regards

That's also how I understood it so I've counted the do's and the enddo's many times and they all add up. In the process I changed the spacing (which I was sure didn't matter at all) and now I'm getting a few different errors in the very last lines (return;end).

I am totally new to fortran so it could be something very stupid on my part. Your help in figuring it out is very much appreciated.

Take care about the "tab" in your fortran file...
it's better to remove them and use space...