open TELEMAC-MASCARET The mathematically superior suite of solvers

HELLO

Please, I have a question about Qsform ? I’d like to use a new formula to compute the suspension sediment (the equilibrium concentration) can I use the QSform to introduce the new formula to compute suspension sediment?
The problem in the subroutine Qsform , there is only these variable that I can use (U2D, V2D, TOB, HN, XMVE, TETAP, MU, NPOIN, DM, DENS, GRAV, DSTAR, AC, QSC, QSS)
I need to use TYPE(BIEF_OBJ), INTENT(INOUT) :: CSTAEQ to compute the suspension sediment which is didn’t exist in this subroutine !
In addition, for me I won’t calculate bedload transport, so I can’t use (FORMULE DE TRANSPORT SOLIDE = 0 to use qsform
I try to define another Qsform for suspension sediment, and I define (FORMULE POUR LA CONCENTRATION DE REFERENCE=0
But I find the following error
FORMULE POUR LA CONCENTRATION DE REFERENCE
VALEUR NON PREVUE : 0
If I can add CSTAEQ as a variable in the subroutine QSform , which is other subroutine that I should to add , because in this case CSTAEQ is INTENT(INOUT) not INTENT(IN)
OR How can I defined and use another qsform, using variable of suspension sediment ? Which is subroutine should I use to add that?

thank you

Jean

Hello,

I can answer on the problem of variables which are not in the arguments of a subroutine. In this case you need to add at the beginning of the subroutine:

USE DECLARATIONS_SISYPHE, ONLY : CSTAEQ

and you can give a list with commas.

Maybe it will solve the other problems, so let's see..

With best regards,

Jean-Michel Hervouet

HI

Thank you for your fast reply, I run the simulation using USE DECLARATIONS_SISYPHE, ONLY : CSTAEQ, but this the error:
t2dfort.f:1735.57:

TYPE(BIEF_OBJ), INTENT(INOUT) :: QSC, QSS, CSTAEQ
1
t2dfort.f:1719.9:

USE DECLARATIONS_SISYPHE, ONLY : CSTAEQ
2
Error: Symbol 'cstaeq' at (1) conflicts with symbol from module 'declarations_si
syphe', use-associated at (2)
t2dfort.f:1793.9:

QSC%R(N) = C3 * (T**2.1D0)
1
Error: Unclassifiable statement at (1)
t2dfort.f:1801.10:

CSTAEQ%R(N)=0.015*DM*SQRT(AUX**3)/HP*DSTAR**0.3D0)
1
Error: Unclassifiable statement at (1)



thank you in Advance
jean

Hello,

With the USE DECLARATIONS_SISYPHE, you must not add the declaration of DSTAEQ.

Regards,

JMH

HELLO

yes , I corrected that , thank you but here I find an error that I didn't understand!!


gfortran -c -O3 -ffixed-line-length-132 -fconvert=big-endian -frecord-marker=4 -
I C:\opentelemac-mascaret\v6p2\telemac2d\tel2d_v6p2\win7gfor -I C:\opentelemac-m
ascaret\v6p2\sisyphe\sisyphe_v6p2\win7gfor -I C:\opentelemac-mascaret\v6p2\tomaw
ac\toma_v6p2\win7gfor -I C:\opentelemac-mascaret\v6p2\bief\bief_v6p2\win7gfor -I
C:\opentelemac-mascaret\v6p2\damocles\damo_v6p2\win7gfor -I C:\opentelemac-masc
aret\v6p2\mumpsvoid\mumpsvoid_v6p2\win7gfor -I C:\opentelemac-mascaret\v6p2\para
void\paravoid_v6p2\win7gfor -I C:\opentelemac-mascaret\v6p2\special\special_v6p2
\win7gfor t2dfort.f
Error: Unexpected end of file in 't2dfort.f'
... The following command failed for the reason above
gfortran -c -O3 -ffixed-line-length-132 -fconvert=big-endian -frecord-marker=4 -
I C:\opentelemac-mascaret\v6p2\telemac2d\tel2d_v6p2\win7gfor -I C:\opentelemac-m
ascaret\v6p2\sisyphe\sisyphe_v6p2\win7gfor -I C:\opentelemac-mascaret\v6p2\tomaw
ac\toma_v6p2\win7gfor -I C:\opentelemac-mascaret\v6p2\bief\bief_v6p2\win7gfor -I
C:\opentelemac-mascaret\v6p2\damocles\damo_v6p2\win7gfor -I C:\opentelemac-masc
aret\v6p2\mumpsvoid\mumpsvoid_v6p2\win7gfor -I C:\opentelemac-mascaret\v6p2\para
void\paravoid_v6p2\win7gfor -I C:\opentelemac-mascaret\v6p2\special\special_v6p2
\win7gfor t2dfort.f

regards
JEAN

Hello,

I have never seen this error yet, t2dfort.f is the parameterised name of your FORTRAN FILE, so you should have a look at it, maybe a part has been erased...

Regards,

JMH