The TELEMAC-MASCARET system  trunk
pre2dh.f
Go to the documentation of this file.
1 ! *****************
2  SUBROUTINE pre2dh
3 ! *****************
4 !
5  &(x,y,ikles,ipobo,npoin2,nelem2,nc2dh,ncou,titcas,
6  & fformat,nva3,textlu,x_orig,y_orig)
7 !
8 !***********************************************************************
9 ! POSTEL3D VERSION 5.1 01/09/99 T. DENOT (LNH) 01 30 87 74 89
10 ! FORTRAN90
11 !***********************************************************************
12 !
13 ! FONCTION : PREPARATION DES FICHIERS DES COUPES HORIZONTALES
14 ! CONVENTIONS DU LOGICIEL SELAFIN.
15 !
16 !-----------------------------------------------------------------------
17 ! ARGUMENTS
18 ! .________________.____.______________________________________________.
19 ! ! NOM !MODE! ROLE !
20 ! !________________!____!______________________________________________!
21 ! ! X,Y ! -->! COORDONNEES DU MAILLAGE CURVILIGNE !
22 ! ! IKLES ! -->! TABLE DE CONNECTIVITE !
23 ! ! IPOBO ! -->! INDICATEUR DE LA NATURE DES POINTS !
24 ! ! NPOIN2 ! -->! NOMBRE DE POINTS DU MAILLAGE 2D !
25 ! ! NELEM2 ! -->! NOMBRE D'ELEMENTS DU MAILLAGE 2D !
26 ! ! NC2DH ! -->! NOMBRE DE COUPES HORIZONTALES !
27 ! ! NCOU ! -->! NUMERO DE CANAL - 1 DE LA PREMIERE COUPE !
28 ! ! TITCAS ! -->! TITRE A PORTER SUR CHAQUE COUPE !
29 ! ! SORG3D ! -->! INDICATEUR DES VARIABLES ENREGISTREES !
30 ! !________________!____!______________________________________________!
31 ! MODE : -->(DONNEE NON MODIFIEE), <--(RESULTAT), <-->(DONNEE MODIFIEE)
32 !-----------------------------------------------------------------------
33 !
34 ! SOUS-PROGRAMME APPELE PAR : POSTEL3D
35 ! SOUS-PROGRAMME APPELES : ECRDEB , ECRI2
36 !
37 !***********************************************************************
38 !
39 ! - DOCUMENTATION : NOTICE SELAFIN
40 !
41 !history Y AUDOUIN (LNHE)
42 !+ 25/05/2015
43 !+ V7P0
44 !+ Modification to comply with the hermes module
45 !
46 !***********************************************************************
47 !
48  USE bief
50  USE interface_postel3d, ex_pre2dh => pre2dh
51 !
53  IMPLICIT NONE
54 !
55 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
56 !
57  INTEGER, INTENT(IN) ::NPOIN2,NELEM2,NC2DH
58  INTEGER, INTENT(INOUT) :: NCOU(nc2dh)
59  DOUBLE PRECISION, INTENT(IN) :: X(npoin2),Y(npoin2)
60  CHARACTER(LEN=72), INTENT(IN) :: TITCAS
61  INTEGER , INTENT(INOUT) :: IKLES(3,nelem2),IPOBO(npoin2)
62  CHARACTER(LEN=32), INTENT(IN) :: TEXTLU(100)
63  CHARACTER(LEN=8),INTENT(INOUT) :: FFORMAT
64  INTEGER,INTENT(IN) :: NVA3
65  INTEGER, INTENT(IN) :: X_ORIG,Y_ORIG
66 !
67 !+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
68 !
69 !
70  INTEGER IC,I
71  INTEGER N,IELEM
72 !
73  INTEGER, ALLOCATABLE :: IKLE(:)
74 !
75  INTEGER :: DATE(3), TIME(3), IERR
76 !-----------------------------------------------------------------------
77  n=0
78 !
79 !
80 !-----------------------------------------------------------------------
81 !
82 ! POUR CHAQUE COUPE HORIZONTALE FAIRE :
83 !
84  DO ic = 1,nc2dh
85 !
86 !
87 ! OUVERTURE DU FICHIER + ENREGISTREMENT DES PREMIERS PARAMETRES
88 ! -------------------------------------------------------------
89 !
90  CALL ecrdeb(ncou(ic),fformat,titcas,nva3,.true.,
91  & textlu,ic,n)
92 !
93 ! ENREGISTREMENT DES AUTRES PARAMETRES DE L'ENTETE
94 ! ------------------------------------------------
95 !
96  date = (/0,0,0/)
97  time = (/0,0,0/)
98  ALLOCATE(ikle(nelem2*3),stat=ierr)
99  CALL check_allocate(ierr,'GRETEL:TMP0')
100  DO i = 1,3
101  DO ielem = 1,nelem2
102  ikle((i-1)*nelem2 + ielem) = ikles(i,ielem)
103  ENDDO
104  ENDDO
105  CALL set_mesh(fformat,ncou(ic),2,triangle_elt_type,3,0,0,
106  & nelem2,npoin2,ikle,ipobo,ipobo,x,y,0,
107  & date,time,x_orig,y_orig,ierr)
108  CALL check_call(ierr,'PRED2H:SET_MESH')
109  DEALLOCATE(ikle)
110 !
111  ENDDO
112 !
113 !-----------------------------------------------------------------------
114 !
115  RETURN
116  END SUBROUTINE
subroutine set_mesh(FFORMAT, FILE_ID, MESH_DIM, TYPELM, NDP, NPTFR, NPTIR, NELEM, NPOIN, IKLE, IPOBO, KNOLG, X, Y, NPLAN, DATE, TIME, X_ORIG, Y_ORIG, IERR, Z, IN_PLACE)
Definition: set_mesh.f:9
subroutine ecrdeb(CANAL, FFORMAT, TITCAS, NBVAR, C2DH, TEXTLU, IC, N)
Definition: ecrdeb.f:7
integer, parameter triangle_elt_type
subroutine pre2dh(X, Y, IKLES, IPOBO, NPOIN2, NELEM2, NC2DH, NCOU, TITCAS, FFORMAT, NVA3, TEXTLU, X_ORIG, Y_ORIG)
Definition: pre2dh.f:8
Definition: bief.f:3