open TELEMAC-MASCARET The mathematically superior suite of solvers

Hello,

OK, there is no obvious mistake here, but could you show how you introduce the variable PRIVE%ADR(1)%P ?

REgards,

JMH

Hello

I use subroutine Nomvar and Predes of sisyphe to add the new variables, I verified the calculation in Fudda ( I see the them in the result and they are well calculated).

Hi Jean-Michel,
(Philippe Belleudy writing, beside faracha)
Actualy the problem is that we want to use a private variable, already computed in PREDES.F, in routine QSFORM.F. Is this possible ? or are private variables only for results files ?
If possible, then how is the right way for declaration ?
Merci de ta réponse.
Philippe

Hello,

OK, the solution is in what you tell us : PREDES is called after init_transport, so probably PRIVE%ADR(1)%P is not ready when you use it the first time. Why not getting this variable directly in QSFORM ?

Regards,

JMH

Actually init_transport calls QSFORM before PREDES. So we did a calculation of PRIVE1 in QSFORM as you suggested. But the problem is nowthe sharing of this new variable between QSFORM and PREDES and QSFORM. Is there any possibility to do it ?

For the time being, we did also this new var. calculation in PREDES, it works but it is not very clean !

Anyhow : thank you for your rapid help so far !

Philippe