Welcome, Guest
Username: Password: Remember me
Forgot your password? Forgot your username? Create an account
Forum
System Modules
TELEMAC-2D
Questions about difsou.f
Flat Threaded

TOPIC: Questions about difsou.f

Questions about difsou.f 4 years 5 months ago #36168

  • ArthurCardiff
  • ArthurCardiff's Avatar
I am currently reading difsou.f in TELEMAC2D, aiming at modifying the code. However, I come across the lines of programs below and I am not sure what are they trying to do. Can anyone please tell me?

!
!
!
! EXPLICIT SOURCE TERMS
!
DO ITRAC=1,NTRA
CALL OS('X=0 ',X=TSCEXP%ADR(ITRAC)%P)
CALL OS('X=0 ',X=TEXP%ADR(ITRAC)%P)
CALL OS('X=0 ',X=TIMP%ADR(ITRAC)%P)
MASSOU(ITRAC) = 0.D0
ENDDO
!
The administrator has disabled public write access.

Questions about difsou.f 4 years 5 months ago #36169

  • goeury
  • goeury's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 16
  • Thank you received: 6
Good evening,
The fortran lines of your post concern a classical initialization process of source term. The description of TELEMAC functions such as 'OS' can be found in the developer guide in Telemac documentation.
Best regards
Cedric
The administrator has disabled public write access.
Flat Threaded
Moderators: pham
Forum
System Modules
TELEMAC-2D
Questions about difsou.f

The open TELEMAC-MASCARET template for Joomla!2.5, the HTML 4 version.