open TELEMAC-MASCARET The mathematically superior suite of solvers

In v6p2 I have encountered a problem, which did not arise in earlier versions up to v6p1, on reading in to Telemac2D three clandestine variables from a wave file generated by Tomawac:
NAMES OF CLANDESTINE VARIABLES =
'MEAN DIRECTION DEG ';
'WAVE HEIGHT HM0 M ';
'PEAK PERIOD TPR5S '

The first, and only the first, of these variables apparently cannot be read in by T2D, giving an error message:
PROSOU : CLANDESTINE VARIABLE:
MEAN DIRECTION D
NOT FOUND
IN THE WAVE RESULTS FILE

It seems that, in Subroutine PROSOU, variable VARCLA(1)(1:16) = ‘MEAN DIRECTION D’
However in Subroutine FIND_IN_SEL this is then being compared with TEXTLU(2)(1:16)='MEAN DIRECTION '

If in FIND_IN_SEL I overwrite the string as follows, the program then picks up all three clandestine variables and runs correctly:

TEXTLU(2)(1:16)='MEAN DIRECTION D'
followed by (unchanged)
IF(TEXTLU(I)(1:16).EQ.NAME.AND.REC.EQ.IREC) THEN
CALL LIT(RES%R,W,IB,CB,NPOIN,'R4',NFIC,'STD',ISTAT)
OK=.TRUE.
Etc.

Since I cannot work out what is going on, with Bief variables seeming not to be readily changeable, I thought that I might point this out in case anyone else has noticed this issue in 6.2.

Regards, Alan Davies

Hi,

I have one question on your post. When you talk about a wave file generated by Tomawac, you speak about the result file generated by Tomawac?

What is the keyword in telemac2d to read the wave file generated by Tomawac? Binary data file 1?

Thanks

florian

Hello Florian,

Yes, it is Binary data file 1. This is a standard, simple beach test case that normally works perfectly under a new version. I'll send it tomorrow to Jean-Michel Hervouet who has offered to run it at EDF. It works using 6.1 but, without any changes at all (other than Release), gives the error I described when using 6.2.

Regards, Alan D.

Hello Alan,

This is indeed very strange, as we did not change subroutine find_in_sel, the best would be that you send me your case, directly on my E-mail, so that I can try to reproduce it here and see what happens.

With best regards,

Jean-Michel Hervouet