open TELEMAC-MASCARET The mathematically superior suite of solvers

Now I understand why. I found several similar problem in my old code and they have been fixed. Thanks a lot!

Hello,

Thanks for the previous help! Now I got a new problem about the binary data file. In my old code, the variable "NBI1" was used to reference to the binary data file and it's not found in the TelemacV6.1 any more. I looked the code and I think in the latest version a variable called "T2DBI1" is used instead of "NBI1". I was trying to replace the "NBI1" with "T2DBI1" but I got errors:

=======================================
*** LINKING ***

t2dfort.o: In function `prosou_':
t2dfort.f:(.text+0x2e8e): undefined reference to `allvec_'
t2dfort.f:(.text+0x2ec1): undefined reference to `allvec_'
ERROR : DURING LINKING
=======================================

What is the reason for this problem and is there any way to fix this?

Hello,

Now I figured out that the function "ALLVEC" has been replaced by function "BIEF_ALLVEC". But the arguments don't match. In the declaration of "BIEF_ALLVEC":

subroutine BIEF::interface::BIEF_ALLVEC ( INTEGER,intent(in) NAT,
TYPE(BIEF_OBJ),intent(inout) VEC,
CHARACTER*6,intent(in) NOM,
INTEGER,intent(in) IELM,
INTEGER,intent(in),optional DIM2,
INTEGER,intent(in),optional STATUT,
TYPE(BIEF_MESH),intent(in) MESH
)

But in the old code, they just used "CALL ALLVEC(1,FXH ,'FXH ',IELMU, 1 , 2 )" . There is one missing argument "MESH".

How to fix this problem? Thanks!

Hi,

I have solved this problem by changing the function name and adding "MESH" as an extra argument.

Hello,

You can keep locally your old READ statements with NBI1, if you declare NBI1 as integer and add the line:

NBI1=T2D_FILES(T2DBI1)%LU

which could force you to add also at the beginning of your subroutine the line:

USE DECLARATIONS_TELEMAC2D, ONLY : T2D_FILES,T2DBI1

Note that T2D_FILES(T2DBI1)%LU=T2DBI1 when you have no coupling.

Regards,

JMH