open TELEMAC-MASCARET The mathematically superior suite of solvers

Hi,

I change the subroutine sl.f because my SL change in time and in the space.
When i run telemac2d, I have this error which i don't understand:

1
Error: Cannot assign to a named constant at (1)
t2dfort.f:81.7:

K = N
1
Error: Symbol 'k' at (1) has no IMPLICIT type
... The following command failed for the reason above
gfortran -c -O3 -ffixed-line-length-132 -fconvert=big-endian -frecord-marker=4 -I /PROJETS/oceano/softs/Outils_telemac/v6p2/telemac2d/tel2d_v6p2/ubugfopenmpi -I /PROJETS/oceano/softs/Outils_telemac/v6p2/sisyphe/sisyphe_v6p2/ubugfopenmpi -I /PROJETS/oceano/softs/Outils_telemac/v6p2/tomawac/toma_v6p2/ubugfopenmpi -I /PROJETS/oceano/softs/Outils_telemac/v6p2/bief/bief_v6p2/ubugfopenmpi -I /PROJETS/oceano/softs/Outils_telemac/v6p2/damocles/damo_v6p2/ubugfopenmpi -I /PROJETS/oceano/softs/Outils_telemac/v6p2/mumpsvoid/mumpsvoid_v6p2/ubugfopenmpi -I /PROJETS/oceano/softs/Outils_telemac/v6p2/parallel/parallel_v6p2/ubugfopenmpi -I /PROJETS/oceano/softs/Outils_telemac/v6p2/special/special_v6p2/ubugfopenmpi t2dfort.f


Can you look this error and help me?

Thanks for all

Florian

Hello,

We have an IMPLICIT NONE statement, so you must declare K as an integer, as is declared J for example.

JMH

Thanks for your answer but i have always the same problem.
Can you see my files and say me if there is an error?

Thanks
Regards,

Florian

Hello,

Well I do not really see what you want to do. N is already the global number in the original mesh as it is said in the header, then no need to re-apply MESH2D%KNOLG%I. Then "I" is the boundary number, so I do not understand why the test I.LT.10 is changed into K.LT.10 (and not in the subsequent tests like I.LT.100, etc.)

JMH

My domain change in time and the boundary nodes change during the simulation and you can see these variations in CL_elev_5j.
I want to telemac read this file and these variations.
Also i try to apply some indications which have been posted on the forum.

Dear Jean Michel Hervouet,

Thanks to you, i can run my simulation but i don't think that telemac read my 497 points on my liquid boundary. In fact, I have this message during my run

LE FICHIER DES FRONTIERES LIQUIDES CONTIENT
123 LIGNES AVEC :
(s) ETA(1
USING STREAMLINE VERSION 6.2 FOR CHARACTERISTICS



Regards,

Florian

Hello,

It seems that you have only 123 lines, so the listing is OK, but you have mixed the two comments lines into 1, so it cannot work, you should have:

T ETA(1) ETA(521) etc. , for example
s m m etc.


JMH

Voici le message d'erreur:

... reading module dictionary
... simulation en Francais avec cas.txt
copying: sl.f /NOVELTIS/jeliazovski/Documents/bathy_congo/test_flo/bathy_0.MAT/cas.txt_2013-01-22-08h18min41s/t2dfort.f
re-writing: /NOVELTIS/jeliazovski/Documents/bathy_congo/test_flo/bathy_0.MAT/cas.txt_2013-01-22-08h18min41s/T2DCAS
copying: CL_elevation.txt /NOVELTIS/jeliazovski/Documents/bathy_congo/test_flo/bathy_0.MAT/cas.txt_2013-01-22-08h18min41s/T2DIMP
copying: geom /NOVELTIS/jeliazovski/Documents/bathy_congo/test_flo/bathy_0.MAT/cas.txt_2013-01-22-08h18min41s/T2DGEO
copying: conlim /NOVELTIS/jeliazovski/Documents/bathy_congo/test_flo/bathy_0.MAT/cas.txt_2013-01-22-08h18min41s/T2DCLI
copying: telemac2dv6p2.dico /NOVELTIS/jeliazovski/Documents/bathy_congo/test_flo/bathy_0.MAT/cas.txt_2013-01-22-08h18min41s/T2DDICO
gfortran -c -O3 -ffixed-line-length-132 -fconvert=big-endian -frecord-marker=4 -I /PROJETS/oceano/softs/Outils_telemac/v6p2/telemac2d/tel2d_v6p2/ubugfopenmpi -I /PROJETS/oceano/softs/Outils_telemac/v6p2/sisyphe/sisyphe_v6p2/ubugfopenmpi -I /PROJETS/oceano/softs/Outils_telemac/v6p2/tomawac/toma_v6p2/ubugfopenmpi -I /PROJETS/oceano/softs/Outils_telemac/v6p2/bief/bief_v6p2/ubugfopenmpi -I /PROJETS/oceano/softs/Outils_telemac/v6p2/damocles/damo_v6p2/ubugfopenmpi -I /PROJETS/oceano/softs/Outils_telemac/v6p2/mumpsvoid/mumpsvoid_v6p2/ubugfopenmpi -I /PROJETS/oceano/softs/Outils_telemac/v6p2/parallel/parallel_v6p2/ubugfopenmpi -I /PROJETS/oceano/softs/Outils_telemac/v6p2/special/special_v6p2/ubugfopenmpi t2dfort.f
t2dfort.f:58.18:

INTEGER J, K
1
Error: Symbol 'k' at (1) already has basic type of INTEGER
t2dfort.f:82.23:

IF (NCSIZE.GT.1) K= MESH2D%KNOLG%I(N)
1
Error: Cannot assign to a named constant at (1)
t2dfort.f:65.12:

DO J=1,MAXFRO
1
Error: Symbol 'j' at (1) has no IMPLICIT type
t2dfort.f:53.34:

INTEGER, INTENT(IN) :: I,N,K
1
Error: Symbol at (1) is not a DUMMY variable
t2dfort.f:81.6:

K = N
1
Error: Cannot assign to INTENT(IN) variable 'k' at (1)

Hello,

This error looks very strange, it seems that K is already declared as INTENT(IN), which is not the case, it is not in the modules used like DECLARATIONS_TELEMAC and DECLARATIONS_TELEMAC2D (at least not in my version)

your line :

FCT(1:4) = 'ETA( '

is also an error, it should be FCT(1:4) = 'ETA('


JMH

and the error messages do not correspond to the subroutine you have attached, as the lines INTEGER, INTENT(IN) :: I,N,K are not in it.

jmh