open TELEMAC-MASCARET The mathematically superior suite of solvers

Dear everyone,
I'm using Telemac3d, version v6p3 with one tracer. I would like to know what's the name of variable which define the coefficient of horizontal diffusion of tracer with Telemac3d ? (in my fortran I use subroutine UTIMP to define this coefficient). I have used VISCT%ADR(K)%P%R(I)=xxx (I=1,NPOIN) in Telemac2d, it's seem correct name. Thank you very much in advance.
Best regards
Thong NGUYEN
HCMUT, VN

Hello Thong,

For the velocities :

VISCVI%ADR(1)%P%R(I) for I=1,NPOIN3 for velocity U
VISCVI%ADR(2)%P%R(I) for I=1,NPOIN3 for velocity V
VISCVI%ADR(3)%P%R(I) for I=1,NPOIN3 for velocity W

For tracer ITRAC :

VISCTA%ADR(ITRAC)%P%ADR(1)%P%R(I) for I=1,NPOIN3 for diffusion along x
VISCTA%ADR(ITRAC)%P%ADR(2)%P%R(I) for I=1,NPOIN3 for diffusion along y
VISCTA%ADR(ITRAC)%P%ADR(3)%P%R(I) for I=1,NPOIN3 for diffusion along z

With best regards,

Jean-Michel

Dear M. J. M. Hervouet,
Thankyou very much for your response. By the way, I would like to know do we have a similar subroutine CORVIS.f (Telemac2D) in Telemac3D? Thank you for your help in advance.
With my best regards
Thong NGUYEN
HCMUT, VN

Hello,

You can modify the viscosities in subroutine VISCLIP, but it is called only with OPTION FOR THE TIDAL FLATS = 1.

With best regards,

Jean-Michel Hervouet

Cher Monsieur Jean-Michel Hervouet,
Je vous remercie beaucoup de votre aide. Ca me permet de résoudre pas mal de mon problème. J'espère que j'aurais de l'ocassion de vous voir au VN un jour.
Très amitiés
Thong NGUYEN
HCMUT, VN

Dear M. J. M. Hervouet,
I would like to use the coordinates x(I) and y(I), (I=1,NPOIN3) in subroutine VISCLIP. What does the instruction the I must add in this subroutine? Thank you very much for your help.
With best regards
Thong NGUYEN
HCMUT, VN

Hello Thong,

You can either do:

USE DECLARATIONS_TELEMAC3D, ONLY : MESH3D

and then the array X is MESH3D%X%R, Y is MESH3D%Y%R

or do:

USE DECLARATIONS_TELEMAC3D, ONLY : X,Y

X and Y are pointers to MESH3D%X%R and MESH3D%Y%R, this is perhaps simpler.

You can see the available aliases in the beginning of point_telemac3d.f.

With best regards,

Jean-Michel Hervouet

Dear M. J. M. Hervouet,
Thank you very much for your prompt response.
With best regards
Thong NGUYEN
HCMUT, VN