The TELEMAC-MASCARET system  trunk
interface_postel3d.f
Go to the documentation of this file.
1 ! *************************
2  MODULE interface_postel3d
3 ! *************************
4 !
5 !
6 !***********************************************************************
7 ! POSTEL3D 7.1
8 !***********************************************************************
9 !
10 !
11 !-----------------------------------------------------------------------
12 !
13 ! DEFINITION OF INTERFACES
14 !
15 !-----------------------------------------------------------------------
16 !
17  INTERFACE
18  SUBROUTINE coupeh
19  &(irec,at,z,u,v,w,href,nplref,plinf,nc2dh,npoin2,nplan,ncou,
20  & fformat,var,shz,nva3,tab,textelu)
21  USE bief
22  IMPLICIT NONE
23  INTEGER, INTENT(IN) :: NC2DH,NPOIN2,NPLAN
24  INTEGER, INTENT(INOUT) :: NCOU(nc2dh)
25  INTEGER, INTENT(IN) :: IREC
26  DOUBLE PRECISION, INTENT(IN) :: U(npoin2,nplan)
27  DOUBLE PRECISION, INTENT(IN) :: V(npoin2,nplan)
28  DOUBLE PRECISION, INTENT(IN) :: W(npoin2,nplan)
29  DOUBLE PRECISION, INTENT(IN) :: Z(npoin2,nplan)
30  DOUBLE PRECISION, INTENT(INOUT) :: AT
31  DOUBLE PRECISION, INTENT(IN) :: HREF(9)
32  INTEGER , INTENT(IN) :: NPLREF(9)
33  INTEGER , INTENT(INOUT) :: PLINF(npoin2)
34  type(bief_obj), INTENT(INOUT) :: tab
35  INTEGER, INTENT(IN) :: NVA3
36  CHARACTER(LEN=8) :: FFORMAT
37  DOUBLE PRECISION,INTENT(INOUT) :: VAR(npoin2),SHZ(npoin2)
38  CHARACTER(LEN=32), INTENT(IN) :: TEXTELU(100)
39  END SUBROUTINE
40  END INTERFACE
41 !
42 !-----------------------------------------------------------------------
43 !
44  INTERFACE
45  SUBROUTINE coupev
46  &(at,z,u,v,w,
47  & shp,imseg,x2dv,y2dv,distor,ikles,
48  & elem,nc2dv,npoin2,nelem2,ncou,fformat,im,jm,
49  & titcas,nva3,tab,textlu,n)
50  USE bief
51  IMPLICIT NONE
52  INTEGER,INTENT(IN) :: NPOIN2,NELEM2,IM,JM,NC2DV
53  INTEGER, INTENT(INOUT) :: NCOU(nc2dv)
54  DOUBLE PRECISION ,INTENT(IN) ::AT
55  DOUBLE PRECISION , INTENT(INOUT) :: SHP(im,3,nc2dv)
56  type(bief_obj), INTENT(INOUT) :: tab
57  INTEGER , INTENT(IN) :: N
58  DOUBLE PRECISION, INTENT(IN) :: U(npoin2,jm),V(npoin2,jm)
59  DOUBLE PRECISION, INTENT(IN) :: Z(npoin2,jm),W(npoin2,jm)
60  INTEGER, INTENT(IN) :: IKLES(3,nelem2)
61  INTEGER, INTENT(IN) :: ELEM(im,nc2dv)
62  INTEGER, INTENT(INOUT) :: NVA3
63  INTEGER, INTENT(IN) :: IMSEG(49,nc2dv)
64  DOUBLE PRECISION, INTENT(IN) :: X2DV(50,nc2dv),Y2DV(50,nc2dv)
65  DOUBLE PRECISION, INTENT(IN) :: DISTOR(nc2dv)
66  CHARACTER(LEN=8), INTENT(INOUT) :: FFORMAT
67  CHARACTER(LEN=32), INTENT(IN) ::TEXTLU(100)
68  CHARACTER(LEN=72), INTENT(IN) ::TITCAS
69  END SUBROUTINE
70  END INTERFACE
71 !
72 !-----------------------------------------------------------------------
73 !
74  INTERFACE
75  SUBROUTINE ecrdeb
76  &(canal,fformat,titcas,nbvar,c2dh,textlu,ic,n)
77  IMPLICIT NONE
78  INTEGER ,INTENT(IN) :: NBVAR
79  INTEGER, INTENT(INOUT) :: CANAL
80  INTEGER, INTENT(IN) :: IC,N
81  LOGICAL, INTENT(IN) :: C2DH
82  CHARACTER(LEN=72), INTENT(IN) :: TITCAS
83  CHARACTER(LEN=32), INTENT(IN) :: TEXTLU(100)
84  CHARACTER(LEN=8), INTENT(INOUT) :: FFORMAT
85  END SUBROUTINE
86  END INTERFACE
87 !
88 !-----------------------------------------------------------------------
89 !
90  INTERFACE
91  SUBROUTINE lecdon_postel3d
92  &(motcar,file_desc,path,ncar)
94  IMPLICIT NONE
95  INTEGER, INTENT(IN) :: NCAR
96  CHARACTER(LEN=PATH_LEN), INTENT(IN) :: PATH
97  CHARACTER(LEN=PATH_LEN), INTENT(INOUT) :: FILE_DESC(4,maxkeyword)
98  CHARACTER(LEN=PATH_LEN), INTENT(INOUT) :: MOTCAR(maxkeyword)
99  END SUBROUTINE
100  END INTERFACE
101 !
102 !-----------------------------------------------------------------------
103 !
104  INTERFACE
105  SUBROUTINE lecr3d
106  &(irec,at,z,u,v,w,npoin3,npoin2,nplan,nres,fformat,nva3,tab)
107  USE bief
108  IMPLICIT NONE
109  INTEGER, INTENT(IN) :: IREC
110  INTEGER, INTENT(IN) :: NPOIN3,NPOIN2,NPLAN,NRES
111  CHARACTER(LEN=8), INTENT(IN) :: FFORMAT
112  INTEGER, INTENT(INOUT) :: NVA3
113  type(bief_obj) , INTENT(INOUT) :: tab
114  DOUBLE PRECISION , INTENT(INOUT) :: AT
115  DOUBLE PRECISION , INTENT(INOUT) :: U(npoin3)
116  DOUBLE PRECISION , INTENT(INOUT) :: V(npoin3)
117  DOUBLE PRECISION , INTENT(INOUT) :: W(npoin3)
118  DOUBLE PRECISION , INTENT(INOUT) :: Z(npoin2,nplan)
119  END SUBROUTINE
120  END INTERFACE
121 !
122 !-----------------------------------------------------------------------
123 !
124  INTERFACE
125  SUBROUTINE pre2dh
126  &(x,y,ikles,ipobo,npoin2,nelem2,nc2dh,ncou,titcas,
127  & fformat,nva3,textlu,x_orig,y_orig)
128  IMPLICIT NONE
129  INTEGER, INTENT(IN) ::NPOIN2,NELEM2,NC2DH
130  INTEGER, INTENT(INOUT) :: NCOU(nc2dh)
131  DOUBLE PRECISION, INTENT(IN) :: X(npoin2),Y(npoin2)
132  CHARACTER(LEN=72), INTENT(IN) :: TITCAS
133  INTEGER , INTENT(INOUT) :: IKLES(3,nelem2),IPOBO(npoin2)
134  CHARACTER(LEN=32), INTENT(IN) :: TEXTLU(100)
135  CHARACTER(LEN=8),INTENT(INOUT) :: FFORMAT
136  INTEGER,INTENT(IN) :: NVA3
137  INTEGER, INTENT(IN) :: X_ORIG,Y_ORIG
138  END SUBROUTINE
139  END INTERFACE
140 !
141 !-----------------------------------------------------------------------
142 !
143  INTERFACE
144  SUBROUTINE pre2dv
145  &(x,y,shp,nseg,imseg,x2dv,y2dv,ikles,elem,npoin2,nelem2,
146  & im,nc2dv)
147  IMPLICIT NONE
148  INTEGER, INTENT(IN) :: NPOIN2,NELEM2,IM,NC2DV
149  DOUBLE PRECISION, INTENT(IN) :: X(npoin2),Y(npoin2)
150  DOUBLE PRECISION , INTENT(INOUT) :: SHP(im,3,nc2dv)
151  DOUBLE PRECISION, INTENT(IN) :: X2DV(50,nc2dv),Y2DV(50,nc2dv)
152  INTEGER, INTENT(INOUT) :: IKLES(3,nelem2)
153  INTEGER, INTENT(INOUT) :: ELEM(im,nc2dv)
154  INTEGER, INTENT(INOUT) :: NSEG(nc2dv),IMSEG(49,nc2dv)
155  END SUBROUTINE
156  END INTERFACE
157 !
158 !-----------------------------------------------------------------------
159 !
160  INTERFACE
161  SUBROUTINE nomtra
162  &(nomtac,nomtpa,ntrac,ntrpa)
163  IMPLICIT NONE
164  INTEGER, INTENT(IN) :: NTRAC,NTRPA
165  CHARACTER(LEN=32), INTENT(INOUT) :: NOMTAC(ntrac),NOMTPA(ntrpa)
166  END SUBROUTINE
167  END INTERFACE
168 !
169 !-----------------------------------------------------------------------
170 !
171  END MODULE interface_postel3d
subroutine pre2dv(X, Y, SHP, NSEG, IMSEG, X2DV, Y2DV, IKLES, ELEM, NPOIN2, NELEM2, IM, NC2DV)
Definition: pre2dv.f:8
subroutine ecrdeb(CANAL, FFORMAT, TITCAS, NBVAR, C2DH, TEXTLU, IC, N)
Definition: ecrdeb.f:7
integer, parameter maxkeyword
subroutine href
Definition: href.f:4
subroutine coupev(AT, Z, U, V, W, SHP, IMSEG, X2DV, Y2DV, DISTOR, IKLES, ELEM, NC2DV, NPOIN2, NELEM2, NCOU, FFORMAT, IM, JM, TITCAS, NVA3, TAB, TEXTLU, IENRE)
Definition: coupev.f:10
subroutine pre2dh(X, Y, IKLES, IPOBO, NPOIN2, NELEM2, NC2DH, NCOU, TITCAS, FFORMAT, NVA3, TEXTLU, X_ORIG, Y_ORIG)
Definition: pre2dh.f:8
subroutine lecr3d(IREC, AT, Z, U, V, W, NPOIN3, NPOIN2, NPLAN, NRES, FFORMAT, NVA3, TAB)
Definition: lecr3d.f:7
subroutine coupeh(IREC, AT, Z, U, V, W, HREF, NPLREF, PLINF, NC2DH, NPOIN2, NPLAN, NCOU, FFORMAT, VAR, SHZ, NVA3, TAB, TEXTELU)
Definition: coupeh.f:8
subroutine nomtra(NOMTAC, NOMTPA, NTRAC, NTRPA)
Definition: nomtra.f:7
subroutine lecdon_postel3d(MOTCAR, FILE_DESC, PATH, NCAR)
Definition: bief.f:3