Welcome, Guest
Username: Password: Remember me

TOPIC: telemac2d log

telemac2d log 7 years 5 months ago #26556

  • mourad
  • mourad's Avatar
  • OFFLINE
  • Expert Boarder
  • Posts: 155
  • Thank you received: 6
Hello everyone,
I'm conducting some simulation in parallel mode with many source points. In the log file sources are duplicated as follow :
SOURCES : Q(1) = ...
SOURCES : Q(1) = ...
SOURCES : Q(2) = ...
SOURCES : Q(2) = ...
SOURCES : Q(3) = ...
SOURCES : Q(3) = ...
until the last one
SOURCES : Q(n) = ...
SOURCES : Q(n) = ...

Is there a possibility to control what will be displayed? may a subroutine is dedicated to that?
T thank you in advance,
Any tip,trick and any kind of information will be sure appreciated
The administrator has disabled public write access.

telemac2d log 7 years 5 months ago #26563

  • riadh
  • riadh's Avatar
hello mourad
what do you mean by 'control what will be displayed'?
if you want to change what is injected in source points, you can use the sources file and introduce time variation, like what is done with liquid boundary condition.

with kind regards

Riadh
The administrator has disabled public write access.

telemac2d log 7 years 5 months ago #26566

  • mourad
  • mourad's Avatar
  • OFFLINE
  • Expert Boarder
  • Posts: 155
  • Thank you received: 6
thank you riadh for the rapif reply
I mean that in the simulation log, each source point is highlited twice. Rather to get this :
SOURCES : Q(1) = ...
SOURCES : Q(2) = ...
SOURCES : Q(3) = ...
I got this :
SOURCES : Q(1) = ...
SOURCES : Q(1) = ...
SOURCES : Q(2) = ...
SOURCES : Q(2) = ...
SOURCES : Q(3) = ...
SOURCES : Q(3) = ...
The administrator has disabled public write access.

telemac2d log 7 years 5 months ago #26905

  • kingja.x
  • kingja.x's Avatar
Hi Mourad,

The action to print the value of the sources is at the end of read_fic_sources.f (line 294 in v7p1r0):
!
!     PRINTS ONLY IF NEW TIME OR NEW VALUE IS ASKED
!
      IF(LISTIN) THEN
        IF(ABS(AT-LASTAT).GT.TOL.OR.LASTWHAT.NE.WHAT) THEN
          WRITE(LU,*) 'SOURCES : ',WHAT,'=',Q
        ENDIF
      ENDIF
      LASTAT=AT
      LASTWHAT=WHAT

You will need to edit the IF statement. I hope this helps.

Jonathan
The administrator has disabled public write access.

telemac2d log 7 years 5 months ago #26911

  • mourad
  • mourad's Avatar
  • OFFLINE
  • Expert Boarder
  • Posts: 155
  • Thank you received: 6
ahhh thanks Jonathan,
this is realy smart
The administrator has disabled public write access.
Moderators: pham

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