Welcome, Guest
Username: Password: Remember me
  • Page:
  • 1
  • 2

TOPIC: How to set the multiple layers and the depth of each layers

How to set the multiple layers and the depth of each layers 9 years 8 months ago #15997

  • harryyao
  • harryyao's Avatar
  • OFFLINE
  • Expert Boarder
  • Posts: 190
  • Thank you received: 3
Dear all,

When I running the 2 layers sediment problems, I found it is OK.

But, I try to define a 5 layers in the sedimeent transport. I use the 'SUBROUTINE INIT_COMPO' to define it

Set the 'NCOUCHES(J)=5', and then set

ES (J,1)= 0.01.D0
...
ES (J,5)= 0.4.D0

After that, I set the sediment diameter on each layer.


MEAN DIAMETER OF THE SEDIMENT =0.72D-3;2.49D-3;3.57D-3;4.62D-3;5.59D-3

And also fraction on each layers.


INITIAL FRACTION FOR PARTICULAR SIZE CLASS = 0.567;0.119;0.175;0.067;0.072

But when I runing it, it show a problem in it.

Capture_2015-02-27.jpg


I think may be some thing wrong with my set, or I misunderstand some parameters

File Attachment:

File Name: cas_sis.cas
File Size: 7 KB


File Attachment:

File Name: Geo_mesh_case06.slf
File Size: 171 KB


File Attachment:

File Name: principal_mutiplelayer.f
File Size: 3 KB


File Attachment:

File Name: r2d_telcas6.cas
File Size: 4 KB
The administrator has disabled public write access.

How to set the multiple layers and the depth of each layers 9 years 8 months ago #15999

  • cyamin
  • cyamin's Avatar
  • OFFLINE
  • openTELEMAC Guru
  • Posts: 997
  • Thank you received: 234
Hello,

Just to be clear, you want 5 sediment classes AND 5 sediment layers, or just 5 sediment classes?

Here are some suggestions for your init_compo:
!
      INTEGER I, J, K
!
!-----------------------------------------------------------------------
!
      DO J=1,NPOIN
!
!  TO BE FILLED BY THE USER
        NCOUCHES(J) = 10
        ES(J,1) = 0.01.D0
        ES(J,2) = 0.1.D0
        ES(J,3) = 0.2.D0
        ES(J,4) = 0.3.D0
        ES(J,5) = 0.4.D0
        DO I = 1, NSICLA
          DO K = 1, NCOUCHES(J)
            AVAIL(J,K,I) = AVA0(I)
          ENDDO
        ENDDO
      ENDDO

Regards,
Costas
The administrator has disabled public write access.

How to set the multiple layers and the depth of each layers 9 years 8 months ago #16001

  • harryyao
  • harryyao's Avatar
  • OFFLINE
  • Expert Boarder
  • Posts: 190
  • Thank you received: 3
Thanks cyamin and Pablo, I am read the materails you give to me.


I want 5 sediment classes AND 5 sediment layers, For the 5 layers, I think we should set NCOUCHES(J) = 5,
The administrator has disabled public write access.

How to set the multiple layers and the depth of each layers 9 years 8 months ago #16002

  • cyamin
  • cyamin's Avatar
  • OFFLINE
  • openTELEMAC Guru
  • Posts: 997
  • Thank you received: 234
Yes, I missed it. :(
The administrator has disabled public write access.

How to set the multiple layers and the depth of each layers 9 years 8 months ago #16000

  • Pablo
  • Pablo's Avatar
  • OFFLINE
  • Moderator
  • Posts: 316
  • Thank you received: 121
Dear Harry,
your screen capture shows serious (basic) fortran programming issues, e.g syntax problems 0.01.D0, undefined variables, etc.

Please take a look to the attached file for inspiration.

I hope it helps,

Pablo


File Attachment:

File Name: epi_NON_UNIFORM_LAYERS_2.zip
File Size: 1,161 KB
The administrator has disabled public write access.
The following user(s) said Thank You: harryyao

How to set the multiple layers and the depth of each layers 9 years 8 months ago #16004

  • harryyao
  • harryyao's Avatar
  • OFFLINE
  • Expert Boarder
  • Posts: 190
  • Thank you received: 3
Dear Pablo,

I changed the fortran file in the right way, for 5 layers depth defined.


NCOUCHES(J) = 6

ES(J,1) = 0.01D0

...

ES(J,5) = 0.4D0

I also define the fraction of each layers


AVAIL(J,1,1) = AVA0(1)
AVAIL(J,1,2) = AVA0(2)
AVAIL(J,1,3) = AVA0(3)
...

AVAIL(J,5,1) = 0.2D0
AVAIL(J,5,2) = 0.5D0
AVAIL(J,5,3) = 0.3D0

For the value of AVA0(1), AVA0(2), AVA0(3). I defined through the sis.cas files

INITIAL FRACTION FOR PARTICULAR SIZE CLASS = 0.6; 0.3; 0.1


For the 5 sediment types on 5 different layers are defined

MEAN DIAMETER OF THE SEDIMENT =0.72D-3;2.49D-3;3.57D-3;4.62D-3;5.59D-3

In here I don't know how to define the sediment grading curves on each layers, so I hide the 'SEDIMENT DIAMETERS '

There still an unknow errors.


Capture_2015-02-27-2.jpg



I think I made errors in the parameters 'MEAN DIAMETER OF THE SEDIMENT ' , Maybe this is not for the mean diameter for different layer.

For me, I think the parameters 'SEDIMENT DIAMETERS ' is only the sediment compostion for 1 layer.
The administrator has disabled public write access.

How to set the multiple layers and the depth of each layers 9 years 8 months ago #16006

  • cyamin
  • cyamin's Avatar
  • OFFLINE
  • openTELEMAC Guru
  • Posts: 997
  • Thank you received: 234
Hello,

You defined NCOUCHES(J) = 6. Shouldn't it be NCOUCHES(J) = 5?

Costas
The administrator has disabled public write access.

How to set the multiple layers and the depth of each layers 9 years 8 months ago #16007

  • harryyao
  • harryyao's Avatar
  • OFFLINE
  • Expert Boarder
  • Posts: 190
  • Thank you received: 3
I think for 5 defined layers the NCOUCHES(J) should be = 6. Because there always have a solid layer on the bottom.

I already check it
The administrator has disabled public write access.

How to set the multiple layers and the depth of each layers 9 years 8 months ago #16010

  • cyamin
  • cyamin's Avatar
  • OFFLINE
  • openTELEMAC Guru
  • Posts: 997
  • Thank you received: 234
The solid bottom is defined separately at the noerod subroutine. Init_compo deals with the transportable layers above the sold bed. I strongly believe that NCOUCHES(J) should not include the solid bed, but I am not an expert.
The administrator has disabled public write access.

How to set the multiple layers and the depth of each layers 9 years 8 months ago #16019

  • harryyao
  • harryyao's Avatar
  • OFFLINE
  • Expert Boarder
  • Posts: 190
  • Thank you received: 3
I am also not sure about whether it is include the solid bed. but I know the NCOUCHES(J) must one more than the ES(J,5) = 0.4D0.

Thant is what I am sure.
The administrator has disabled public write access.
  • Page:
  • 1
  • 2
Moderators: Pablo, pavans

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