## 5.23. OBJECT, SPH Object Definitions

Module object contains data pertaining to SPH objects that are used for initializing the model.

          MODULE object
          USE kindef
          IMPLICIT NONE

          SAVE

          INTEGER, PARAMETER :: LIMOBJ = 100
          INTEGER, PARAMETER :: LIMPTS = 112
          INTEGER, PARAMETER :: LIMOBC = 6
          INTEGER, PARAMETER :: LIMSET = 100
          INTEGER, PARAMETER :: LIMSPH = 500000

          INTEGER (INT4) :: NUMOBJ
          INTEGER (INT4), DIMENSION(LIMOBJ) :: NOBJC , NOBJT, NOBJP, NOBJS
          INTEGER (INT4), DIMENSION(LIMOBJ) :: NSPHOB, MATOBJ, IFACOB, MATSET
          INTEGER (INT4), DIMENSION(LIMOBJ) :: NTRIOB, OBJBND
          INTEGER (INT4) :: NOBJ, NOBTYP, NOBCOL, MAXOB, MAXSET, NUMSET
          INTEGER (INT4) :: OSIM
          REAL (REAL8), DIMENSION(LIMOBJ) :: ACTOBJ, DCTOBJ
          REAL (REAL8), DIMENSION(LIMOBJ) :: OBJA  , RPSZOB
          REAL (REAL8), DIMENSION(LIMOBJ,3) :: OBJO, OBJN
          REAL (REAL8), DIMENSION(LIMOBJ,10) :: OBJS
          REAL (REAL8), DIMENSION(LIMOBJ,LIMPTS) :: XOBJ, YOBJ, ZOBJ
          REAL (REAL8), DIMENSION(LIMSET) :: UXNOBJ, UYNOBJ, UZNOBJ
          REAL (REAL8), DIMENSION(LIMSET) :: URNOBJ, RHOOBJ, ENOBJ
          REAL (REAL8) :: XORG, YORG, ZORG, XSIZ, YSIZ, ZSIZ, RSIZ, THETA, THETA0
          REAL (REAL8) :: XDIRN, YDIRN, ZDIRN, ANGOBJ, ROUT1, RIN1, ROUT2, RIN2
          REAL (REAL8) :: ROUT1Y, RIN1Y, ROUT2Y, RIN2Y, ROUT1Z, RIN1Z, ROUT2Z, RIN2Z
          REAL (REAL8) :: RSIZIN, RCOUT, RCIN, CLEN, CTHICK
          CHARACTER (LEN=1),  DIMENSION(LIMOBJ) :: YONO
          CHARACTER (LEN=10), DIMENSION(LIMSET) :: NAMSET
          CHARACTER (LEN=12), DIMENSION(LIMOBJ) :: NAMOBJ
          CHARACTER (LEN=12) :: NAMEO

          ! NAMOBJ(LIMOBJ) - object NAME
          ! NAMEO - CURRENT object NAME
          ! NUMOBJ    - NUMBER OF objectS IN SPH SUBGRID
          ! NOBJ      - CURRENT object NUMBER
          ! NOBJT(LIMOBJ)  - object TYPE
          ! NOBTYP - CURRENT object TYPE
          ! NOBJC(LIMOBJ)  - object COLOUR
          ! NOBCOL - CURRENT object COLOUR
          ! NOBJP(LIMOBJ)  - NUMBER OF POINTS IN object POLYGON
          ! IFACOB(LIMOBJ) - object ACTIVE (PACK) INDICATOR
          ! OBJO(LIMOBJ,2) - object ORIGIN COORDS
          ! XORG, YORG, ZORG - CURRENT object X, Y AND Z ORIGIN
          ! OBJS(LIMOBJ,3) - MAXIMUM object SIZE
          ! XSIZ, YSIZ, ZSIZ - CURRENT object MAXIMUM SIZES
          ! OBJN((LIMOBJ,3) - object PRINCI3PAL DIRECTION
          ! OBJA((LIMOBJ,3) - object ANGLE (PRINCI3PAL DIRECTION)
          ! XOBJ(LIMOBJ,LIMPTS) - X COORD. OF POINTS IN object POLYGON
          ! YOBJ(LIMOBJ,LIMPTS) - Y COORD. OF POINTS IN object POLYGON
          ! ZOBJ(LIMOBJ,LIMPTS) - Z COORD. OF POINTS IN object POLYGON
          ! NSPHOB(LIMOBJ) - NUMBER OF SPH NODES PACKED IN object
          ! RPSZOB(LIMOBJ) - PARTICLE SIZE IN object
          ! MAXOB  - TOTAL NUMBER OF SPH objectS

          ! MATERIAL SET VARIBALES
          ! MATSET(LIMOBJ) - MATERIAL SET FOR object
          ! MAXSET    - NUMBER OF MATERIAL SETS
          ! MATOBJ(LIMSET) - MATERIAL NUMBER FOR MATERIAL ASSIGNED TO SET
          ! UXNOBJ(LIMSET) - INITIAL X-VELOCITY ASSIGNED TO MATERIAL SET
          ! UYNOBJ(LIMSET) - INITIAL Y-VELOCITY ASSIGNED TO MATERIAL SET
          ! UZNOBJ(LIMSET) - INITIAL Z-VELOCITY ASSIGNED TO MATERIAL SET
          ! URNOBJ(LIMSET) - INITIAL R-VELOCITY ASSIGNED TO MATERIAL SET
          ! RHOOBJ(LIMSET) - INITIAL DENSITY ASSIGNED TO MATERIAL SET
          ! ENOBJ(LIMSET)  - INITIAL INTERN3AL ENERGY ASSIGNED TO MATERIAL SET

          END MODULE object

NAMOBJ(LIMOBJ) | Object name
NAMEO | Current object name
NUMOBJ | Number of objects in sph Part
NOBJ | Current object number
NOBJT(LIMOBJ) | Object type
NOBTYP | Current object type
NOBJC(LIMOBJ) | Object color
NOBCOL | Ourrent object color
NOBJP(LIMOBJ) | Number of points in object polygon
IFACOB(LIMOBJ) | Object active (pack) indicator
OBJO(LIMOBJ,2) | Object origin coords
XORG, YORG | Current object x and y origin
OBJS(LIMOBJ,2) | Maximum object size
XSIZ, YSIZ | Current object maximum sizes
XOBJ(LIMOBJ,LIMPTS) | X coord. of points in object polygon
YOBJ(LIMOBJ,LIMPTS) | Y coord. of points in object polygon
NSPHOB(LIMOBJ) | Number of sph nodes packed in object
MAXOB | Total number of sph objects
Material Set Variables
MATSET(LIMOBJ) | Material set for object
MAXSET | Number of material sets
MATOBJ(LIMSET) | Material number for material assigned to set
UXNOBJ(LIMSET) | Initial x-velocity for a set
UYNOBJ(LIMSET) | Initial y-velocity for a set
URNOBJ(LIMSET) | Initial r-velocity for a set
RHOOBJ(LIMSET) | Initial density assigned to material set
ENOBJ(LIMSET) | Initial internal energy assigned to material set

Release 18.2 - © ANSYS, Inc. All rights reserved.