TELEMAC-MASCARET Forum: adding new variables (1/1)

Welcome, Guest

TOPIC: adding new variables

adding new variables 9 years 2 weeks ago #18838

zqzuoan

Hi, everyone

I modified the soubroutine NOMVAR-TELEMAC2D and PRERES_TELEMAC2D respectively to give the names of the new variables and how to caculate them.
DO N=1,NPOIN
if(ABS(H%R(I)).LT.0.5D0) then
PRIVE%ADR(1)%P%R(I)=0.D0
else
PRIVE%ADR(1)%P%R(I)=0.0273D0*2650.D0*(U%R(I)**2+V%R(I)**2)/
& (GRAV*H%R(I)) !挟沙力公式S*=0.0681*U**3/(ghw)+0.0295
endif
ENDDO

DO N=1,NPOIN
if(PRIVE%ADR(1)%P%R(N)>CS%ADR(1)%P%R(N)) then
PRIVE%ADR(2)%P%R(N)=1.D0
else
PRIVE%ADR(2)%P%R(N)=0.25D0
endif
ENDDO

DO N=1,NPOIN
PRIVE%ADR(3)%P%R(N)=PRIVE%ADR(1)%P%R(N)-CS%ADR(1)%P%R(N)
ENDDO

There is three new variables needed to be added. Is it right? And whether I can use them directly in other soubroutine, such as difsou.f by added PRIVE%ADR(1)%P%R(N),PRIVE%ADR(2)%P%R(N),PRIVE%ADR(3)%P%R(N).

The administrator has disabled public write access.

adding new variables 9 years 2 weeks ago #18848

OBD OFFLINE Junior Boarder Posts: 33 Thank you received: 16	Hi, You have right. Before using the PRIVE... variables in diffsou, you have to define it in the "USE DECLARATIONS_TELEMAC2D". Regards, Olivier
	The administrator has disabled public write access.

adding new variables 9 years 2 weeks ago #18849

zqzuoan	Hi,Thank you very much. I have defined it in the "USE DECLARATIONS_TELEMAC2D". I have another question. I coupled telemac2d with sisyphe. I use CS%ADR(1)%P%R(N) in the difsou.f, but the resultes show that the CS%ADR(1)%P%R(N) used in difsou is different from the result of CS (CONC MAS CL1). Do you know why? zqzuoan
	The administrator has disabled public write access.

adding new variables 9 years 2 weeks ago #18850

OBD OFFLINE Junior Boarder Posts: 33 Thank you received: 16	CS is normally not known in diffsou. You have to use (for example) the "USE DECLARATIONS_SISYPHE" before using CS. Regards, Olivier
	The administrator has disabled public write access.

adding new variables 9 years 2 weeks ago #18851

zqzuoan	Yes, I use the "USE DECLARATIONS_SISYPHE" before using CS. Are tehre other things I should pay attention to?
	The administrator has disabled public write access.

adding new variables 9 years 2 weeks ago #18852

OBD OFFLINE Junior Boarder Posts: 33 Thank you received: 16	If you do an internal coupling, no other thing to do!
	The administrator has disabled public write access.

adding new variables 9 years 2 weeks ago #18853

zqzuoan	You mean if I do an internal coupling, I can use CS in the difsou.f just by using USE DECLARATIONS_SISYPHE: CS ? And sorry, another question, CS%ADR(1)%P%R(N) is the same with the result CONC MAS CL1?
	The administrator has disabled public write access.