$-----------------------------------------------------------------------------
$
$ Example provided by Iñaki (LSTC)
$
$ E-Mail: info@dynamore.de
$ Web: http://www.dynamore.de
$
$ Copyright, 2015 DYNAmore GmbH
$ Copying for non-commercial usage allowed if
$ copy bears this notice completely.
$
$X------------------------------------------------------------------------------
$X
$X 1. Run file as is.
$X Requires LS-DYNA MPP R8.0.0 (or higher) with double precision
$X
$X------------------------------------------------------------------------------
$# UNITS: (g/cm/mus)
$X------------------------------------------------------------------------------
$X
*KEYWORD
*TITLE
CESE Axisymmetric example
$---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
$ $
$ PARAMETERS $
$ $
$---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
*PARAMETER
R T_end 5000
R dt_plot 50
$
$--- Fluid
$
R dt_fluid 0.0001
Rcfl_fluid 0.5
R T_1 293
R P_1 1e-6
R T_2 353
R P_2 3e-4
R cv 717.5e-8
R cp 1004.5e-8
R W 130
*INCLUDE
mesh.k
*INCLUDE
struc.k
$---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
$ $
$ CESE CONTROL CARDS $
$ $
$---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
*CONTROL_TERMINATION
$ endtim endcyc dtmin endeng endmas
&T_end
*CESE_CONTROL_SOLVER
$ iframe iflow igeom
200 1 101
*CESE_CONTROL_TIMESTEP
$ iddt cfl dtint
2&cfl_fluid &dt_fluid
*CESE_CONTROL_LIMITER
$ idlmt alfa beta epsr
0 0.0 1.0 0.5
$---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
$ $
$ CESE PARTS/ EOS/ MATERIAL $
$ $
$---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
*CESE_PART
$ pid mid eosid
1 3
*CESE_EOS_IDEAL_GAS
$ eosid cv cp
3 &cv &cp
$---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
$ $
$ CESE BOUNDARY/INITIAL CONDITIONS $
$ $
$---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
*CESE_INITIAL
$# u v w rho p t
&P_1 &T_1
*CESE_INITIAL_SET
$ setID Duic vic wic rhoic pic tic
111 &P_2 &T_2
*CESE_BOUNDARY_NON_REFLECTIVE_SET
$ ssid
5
*CESE_BOUNDARY_REFLECTIVE_SET
1
2
3
4
6
*CESE_BOUNDARY_AXISYMMETRIC_SET
7
$---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
$ $
$ DATABASE (OUTPUT) $
$ $
$---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
*DATABASE_BINARY_D3PLOT
&dt_plot
*END
