Welcome, Guest
Username: Password: Remember me

TOPIC: subroutine user_t3d_trsce.f

subroutine user_t3d_trsce.f 5 months 5 days ago #44969

  • G_G_H
  • G_G_H's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 17
Hi Everyone,

Can subroutine user_t3d_trsce.f be used for specifying the concentration for sediments at the sources as well, for both TELEMAC3D + GAIA and T3D+GAIA+WAQ cases?

Thanks
The administrator has disabled public write access.

subroutine user_t3d_trsce.f 5 months 4 days ago #45005

  • pham
  • pham's Avatar
  • OFFLINE
  • Administrator
  • Posts: 1559
  • Thank you received: 602
Hello,

Do you mean by WAQ the water quality module WAQTEL?
If it is the case, I would say it should.

Sources of tracers is managed with this subroutine for every tracer managed by TELEMAC-3D: tracers given to TELEMAC-3D (with names of tracers) + specific tracers defined by WAQTEL and sediments defined by GAIA.

Hope this helps,

Chi-Tuan
The administrator has disabled public write access.

subroutine user_t3d_trsce.f 5 months 3 days ago #45020

  • G_G_H
  • G_G_H's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 17
Hi Chi-Tuan,

Thank you.
There is no problem for T3D+WAQTEL case.
The problem I am facing is for the case T3D+WAQTEL + GAIA. There are 5 tracers defined for WAQTEL(WATER QUALITY PROCESS : 17) in the main .CAS file, 2 classes of sediment. In the subroutine user_t3d_trsce.f, it seems the loop for number of tracers only go up to 5. I have got it running for using the subroutine user_t3d_trsce.f for time various input for the 5 WAQTEL tracers and only constant input for the sediments from the GAIA .CAS file. However, I need sediment concentration to be various over time as well. Any reasons you can think of have caused this?

I ran a case before for T3D+ GAIA, with constant source concentration, the sources sediment concentration input need to be from GAIA .CAS file, which is different from WAQTEL where the concentration inputs are from the main T3D .CAS file. I am not sure if that is the reason?
Any suggestion on this ?
Hope I have not confused you.
Thanks a lot.
Gao
The administrator has disabled public write access.

subroutine user_t3d_trsce.f 5 months 3 days ago #45021

  • pham
  • pham's Avatar
  • OFFLINE
  • Administrator
  • Posts: 1559
  • Thank you received: 602
Hello Gao,

Can you upload:
- the 3 steering files (T3D, GAIA, WAQTEL),
- your modified user_t3d_trsce.f subroutine,
- SOURCES FILE (with extension .txt e.g. so that it can be read).

Could you also try to modify t3d_trsce (you can do it in your FORTRAN FILE) by moving the
CALL USER_T3D_TRSCE(T3D_TRSCE, TIME, I, ITRAC)

outside the condition
      IF(.NOT.OKTRSCE(I,ITRAC).OR.
     &   T3D_FILES(T3DVEF)%NAME(1:1).EQ.' ') THEN
e.g. moving it 3 lines after after the last ENDIF but before RETURN.
With the current implementation of T3D_TRSCE, USER_T3D_TRSCE is only called if you do not use a SOURCE FILE or if there is no information for the specific tracer in the SOURCE FILE.

If you want to apply your modifications implemented in USER_T3D_TRSCE for tracers at sources read in a SOURCE FILE, it should be modified that way (I think it is a bug).

Chi-Tuan
The administrator has disabled public write access.

subroutine user_t3d_trsce.f 5 months 3 days ago #45022

  • pham
  • pham's Avatar
  • OFFLINE
  • Administrator
  • Posts: 1559
  • Thank you received: 602
and also other Fortran files if you have any.
The administrator has disabled public write access.

subroutine user_t3d_trsce.f 5 months 3 days ago #45028

  • G_G_H
  • G_G_H's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 17
Hi Chi-Tuan,

Here are the files. Please take a look.
Thanks
Gao
Attachments:
The administrator has disabled public write access.

subroutine user_t3d_trsce.f 5 months 2 days ago #45047

  • G_G_H
  • G_G_H's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 17
Hi Chi-Tuan,
It worked.
Thank you so much.
The administrator has disabled public write access.

subroutine user_t3d_trsce.f 5 months 2 days ago #45053

  • pham
  • pham's Avatar
  • OFFLINE
  • Administrator
  • Posts: 1559
  • Thank you received: 602
Hello Gao,

Just to be sure, can you confirm that post #45021 solves your issue please?
If yes, I will fix the bug for T3D_TRSCE and T3D_DEBSCE as well, for next release in particular.

Chi-Tuan
The administrator has disabled public write access.

subroutine user_t3d_trsce.f 5 months 2 days ago #45059

  • G_G_H
  • G_G_H's Avatar
  • OFFLINE
  • Fresh Boarder
  • Posts: 17
Hi Chi-Tuan,

Yes it has solved the issue. Thank you so much.

Regards
Gao
The administrator has disabled public write access.
Moderators: pham

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