5.6. JETDEF, Jetting Variables

Module jetdef includes variables associated with the jetting option. (Autodyn-2D only)

      MODULE jetdef
      USE kindef
      IMPLICIT NONE

      SAVE

      INTEGER, PARAMETER :: LIMJET = 100
      INTEGER, PARAMETER :: MAXJVR = 21
      INTEGER (INT4) :: NUMJET, NXTJET, JETSUB, JETRAP
      INTEGER (INT4), DIMENSION(LIMJET), TARGET :: NPJET, JPJET
      REAL (REAL8) :: VSLBAR, PMSLUG, XMOMSL
      REAL (REAL8), DIMENSION(LIMJET), TARGET :: TIMJET, PMJET, XZJET
      REAL (REAL8), DIMENSION(LIMJET), TARGET :: YZJET
      REAL (REAL8), DIMENSION(LIMJET), TARGET :: XJET, YJET, UXJET, UYJET
      REAL (REAL8), DIMENSION(LIMJET), TARGET :: DXJET, DYJET, VLJET
      REAL (REAL8), DIMENSION(LIMJET), TARGET :: THKJET

      END MODULE jetdef

LIMJET

Limit on number of jetting points

NUMJET

Number of jetting points

NXTJET

Next point to jet

JETSUB

Part containing jetting points

JETRAP

Wrapup indicator

NPJET

Array of jetted points

JPJET

Jetting point index

VSLBAR

Mean slug velocity

PMSLUG

Total slug mass

XMOMSL

Total slug momentum

TIMJET

Time of jetting

PMJET

Jet mass

XZJET

Initial X-coordinate

YZJET

Initial Y-coordinate

XJET

X coordinate at jet formation

YJET

Y coordinate at jet formation

UXJET

X component of collapse velocity

UYJET

Y component of collapse velocity

DXJET

DX of segment at jet formation

DYJET

DY of segment at jet formation

VLJET

Initial volume

THKJET

Initial thickness