open TELEMAC-MASCARET The mathematically superior suite of solvers

Hello,

OK it is clear now, I thought you had seen the many posts on this subject and were aware of this problem, but actually not so the situation is simple: in coupling the canal 26 is no longer the canal 26 and must be parameterised in your implementation. Instead of 26 you must take :

WAC_FILES(WACFO1)%LU

and that will force you to add at the beginning of your subroutine:

USE DECLARATIONS_TOMAWAC, ONLY : WACFO1,WAC_FILES

because they are not in the arguments.

The empty fort.26 is probably created when you try to read canal 26.

With best regards,

Jean-Michel Hervouet

Yes, but what I don't understand is where I should put the code WAC_FILES(WACFO1)%LU. Should I replace all the 26 with this in the princi.f file?

Thank you for your patience!
//Björn

Exactly, this is to be done in your specific limwac. Declare an integer N26, then do:
N26=WAC_FILES(WACFO1)%LU

then every time you have READ(26,... replace 26 by READ(N26,...

We are forced to redistribute the canals in coupling, because the two or three programs coupled may need the same canal number.

Regards,

JMH

Hello friends! I'm working on the TELEMAC3D-TOMAWAC coupling, v7p0 version. As separate simulations run perfectly. I made the coupling as ordered by the manual and got the same problem for the wind file. Conflict on the T3DFO1 that carries the wind on telemac3d.f. As suggested, include in the was.f subroutine no fortran tomawac.f file,
USE DECLARATIONS_TOMAWAC, ONLY : WAC_FILES,WACFO1

before reading the wind file, including REWIND (WACFO1)% LU)

and READ(WAC_FILES(WACFO1)%LU,*)WX3(L,I),WY3(L,I)
where WX3 (L, I), WY3 (L, I) are as wind components x and y are read and in tomawac.f.

displays the following error:

t3dfort.f:4162:31:

REWIND(WAC_FILES(WACFO1)%LU)
1
Error: Syntax error in REWIND statement at (1)
t3dfort.f:4170:33:

READ(WAC_FILES(WACFO1)%LU,*)WX3(L,I),WY3(L,I)
1
Has anyone had this problem?

Thank you for your attention.

Sorry, the error displayed is in the %