open TELEMAC-MASCARET The mathematically superior suite of solvers

Hi community,

As I explained in a previous post, I am trying to add runoff coefficients, read from mesh, in T2D, in order to transform the rain in runoff depending on the zone.

For now I changed the following files (subroutines). Please can you check if I well understand the purpose of each one :

- NOMVAR_TELEMAC2D : define the name of the variable

- POINT_TELEMAC2D : Allocate the memory

- TELEMAC2D : Call the required subroutine

- FONSTR : Is called by TELEMAC2D and used to read the variable in the SELAFIN mesh (using FIND_IN_SEL) and attibute the read coefficient to a variable. For example attribute the friction coefficient to CHESTR.

I also changed the following files (Module) but I don't know when they are calling :

- BIEF

- INTERFACE_TELEMAC2D

- DECLARATION_TELEMAC2D

At the end, my aim is to call in my personnal prosou.f a runoff coefficient which is read in the mesh (exactly like the friction coefficient). If i a right, the line in the prosou.f should be :

PLUIE%R(I)=MAX(RAIN_MPS*RUISS%R(I),-HN%R(I)*SURDT)

The image in attachment show the organisation of these files as i understand it.

Do you know if there is some other files to changed ?

I have also two other problems :

1) I don't manage to add a Print command in the MODULE.f. It works well with subroutines so i can add markers in each file in order to know in which order they are read and from where come the problems. But I can't add such marker in the MODULE. For example i use : PRINT*, 'MARQUEUR 3'

2) To test the changed file, I use only one file containing all the chnged subroutines and modules. Then I add its name in my .cas file. The problem is that when i copy/paste the telemac2d.f, it seems that some LOOP are not closed and then cannot be added in same time of other subrouytines (otherwise the loop are extended to the other subroutines). I tried to add an ENDLOOP at the end but it doesn't work. I also try to only recompile the telemac2d.f or the fonstr.f but it doesn't work because it seems that all the calling subroutines (like bief) have to be recompile in the same time.

Hope you will read this topic until the end.

Thanks for any help.

JP

Hi
Your methodology looks like a little bit complex...
A simple use of variable PRIVE should probably be sufficient to achieve your task.
In my opinion, there is no other file to modify..

Nevertheless, it's logical you cannot add some print in the module, it's not a subroutine. They just contains some global declarations which could be use by different subroutines.

Another point, if you modify a module, you should recompile all the system...

Then, be sure you want to continue in this way...
if you add the keyword "PRIVATE ARRAY = 1" you could use variable PRIVE(1).
you could give your name in nomvar (see prive1), the allocation is already manage by telemac, you add the use of prive in fonstr for the reading and in prosou for using it.

Hope this helps

Hello,

Thanks for your help! I'll try with the variable PRIVE now.

But in any case, i think that i've to add the variable PRIVE in Fonstr.f. So do i have to change the definition of fonstr in the Module BIEF.f and recompile all the system?

Regards

JP