open TELEMAC-MASCARET The mathematically superior suite of solvers

hi
What is the procedure to convert/generate the 2D mesh to 3D?

Hi,

The 3D mesh is generated based on 2D mesh inside T3D. There are 5 approaches as mentioned in T3D dico file. Well, it depends on the number of planes. and you can have equal depth or more refine at some planes and coarser at the other. have a look at SUBROUTINE CALCOT

here is an example of CONDIM

!
! DATA TO BUILD VERTICAL COORDINATES IN CALCOT
!
! TRANSF IS KEYWORD "MESH TRANSFORMATION"
! IF TRANSF = 0, SUBROUTINE CALCOT MUST BE IMPLEMENTED BY THE USER
!
! AN EQUIVALENT OF TRANSF MUST BE GIVEN FOR EVERY PLANE:
!
! POSSIBLE VALUES OF TRANSF_PLANE :
!
! 1 : SIGMA TRANSFORMATION WITH EVENLY SPACED PLANES
! 2 : SIGMA TRANSFORMATION WITH PROPORTIONS GIVEN IN ZSTAR
! 3 : PRESCRIBED ELEVATION GIVEN IN ZPLANE
!
! STANDARD BELOW IS: EVENLY SPACED PLANES, NO OTHER DATA REQUIRED
!
DO IPLAN = 1,NPLAN
TRANSF_PLANE%I(IPLAN)=1
ENDDO
!
! OTHER EXAMPLES:
!
! EXAMPLE 1: ALL PLANES WITH PRESCRIBED ELEVATION
!
! DO IPLAN = 1,NPLAN
! TRANSF_PLANE%I(IPLAN)=3
! ENDDO
! ZPLANE%R(2)=-7.D0
! ZPLANE%R(3)=-4.D0
! ...
! ZPLANE%R(NPLAN-1)=-0.05D0
!
!
! EXAMPLE 2: SIGMA TRANSFORMATION WITH GIVEN PROPORTIONS
!
! DO IPLAN = 1,NPLAN
! TRANSF_PLANE%I(IPLAN)=2
! ENDDO
! ZSTAR%R(1)=0.D0
! ZSTAR%R(2)=0.02D0
! ZSTAR%R(3)=0.1D0
! ...
! ZSTAR%R(NPLAN-1)=0.95D0
! ZSTAR%R(NPLAN)=1.D0
!
!
! EXAMPLE 3: ONE PLANE (NUMBER 4) WITH PRESCRIBED ELEVATION
! AND SIGMA ELSEWHERE
!
! DO IPLAN = 1,NPLAN
! TRANSF_PLANE%I(IPLAN)=1
! ENDDO
! TRANSF_PLANE%I(4)=3
! ZPLANE%R(4)=-3.D0
!
!
! EXAMPLE 4: ONE PLANE WITH PRESCRIBED ELEVATION
! AND 2 SIGMA TRANSFORMATIONS, WITH NPLAN=7
! SIGMA TRANSFORMATIONS ARE MEANT BETWEEN
! BOTTOM, FIXED ELEVATION PLANES AND FREE SURFACE
! THE VALUES OF ZSTAR ARE LOCAL FOR EVERY
! SIGMA TRANSFORMATION: 0. FOR LOWER FIXED PLANE
! 1. FOR UPPER FIXED PLANE
!
! DO IPLAN = 1,7
! TRANSF_PLANE%I(IPLAN)=2
! ENDDO
! TRANSF_PLANE%I(4)=3
! ZPLANE%R(4)=3.D0
! ZSTAR%R(2)=0.2D0
! ZSTAR%R(3)=0.8D0
! ZSTAR%R(5)=0.1D0
! ZSTAR%R(6)=0.9D0
!
!
!***********************************************************************
!
! COMPUTES ELEVATIONS
! IF IT IS A CONTINUATION, WILL BE DONE AFTER CALLING 'SUITE'
!
IF(DEBU) CALL CALCOT(Z,H%R)
!
!*********************************