File: /nfs/home/0/users/jenkins/mfix.git/model/cartesian_grid/polygon_mod.f

1           MODULE polygon
2     
3     
4           Use param
5           Use param1
6     
7     !     Maximum of the number of polygons that can be read
8           INTEGER, PARAMETER          :: DIM_POLYGON = 10
9     !     Nnumber of polygons
10           INTEGER                     :: N_POLYGON
11     !     Maximum of the number of Vertices per polygon that can be read
12           INTEGER, PARAMETER          :: DIM_VERTEX = 500
13     !     Vertex Coordinates X and Y
14           DOUBLE PRECISION, DIMENSION(DIM_POLYGON,DIM_VERTEX) :: X_VERTEX,Y_VERTEX
15     !     Sign of polygon interior
16           DOUBLE PRECISION, DIMENSION(DIM_POLYGON) :: POLY_SIGN
17     !     Number of vertices for each polygon
18           INTEGER, DIMENSION(DIM_POLYGON) :: N_VERTEX
19     !     Tolerance for polygone edge detection
20           DOUBLE PRECISION :: TOL_POLY
21     !     Boundary condition ID
22           INTEGER, DIMENSION(DIM_POLYGON,DIM_VERTEX) :: BC_ID_P
23     
24     
25           END MODULE polygon
26