*HEADING
 1D transient wave propagation in acoustic medium with incident wave load
 defined through bubble-load amplitude. Both waveless and wave bubble models.
**
*PREPRINT,ECHO=NO,HISTORY=NO,MODEL=YES
*NODE
*NGEN,NSET=CHANNEL
*ELEMENT,TYPE=AC2D3
*ELGEN,ELSET=CHANNEL1
*NCOPY,OLDSET=CHANNEL,NEWSET=CHANNEL,SHIFT,CHANGENUMBER=10000
*NSET,NSET=QA_TEST,GENERATE
*ELCOPY,ELEMENTSHIFT=1000,OLDSET=CHANNEL1,NEWSET=CHANNEL2,SHIFTNODES=10000
**************************
*SURFACE,NAME=IW_LOAD1
2,S2
*SURFACE,NAME=IW_LOAD2
1002,S2
**************************
*SOLID SECTION,MATERIAL=WATER,ELSET=CHANNEL1
 1.E-2,
*SOLID SECTION,MATERIAL=WATER,ELSET=CHANNEL2
 1.E-2,
**
*MATERIAL,NAME=WATER
*DENSITY
 1.0E3,
*ACOUSTIC MEDIUM,BULK MODULUS
**************************
*INCIDENT WAVE PROPERTY,NAME=IWPROP,TYPE=SPHERE
*INCIDENT WAVE FLUID PROPERTY
*AMPLITUDE,DEFINITION=BUBBLE,NAME=WAVES_ON
52.1E6, 0.09E-3, 0.18, 0.185, 839.6E6, 1.27, 1.5E3, 226.8, 137.16
1.0E3, 1.5E3, 1.0, 0.0, 0.0
9.8E0, 9.8E4,1.0
2.5,1400,1e-12,1e-12,0.2
*AMPLITUDE,DEFINITION=BUBBLE,NAME=WAVES_OFF
52.1E6, 0.09E-3, 0.18, 0.185, 839.6E6, 1.27, 1.5E3, 226.8, 137.16
1.0E3, 1.5E3, 1.0, 0.0, 0.0
9.8E0, 9.8E4,0.0
2.5,1500,1e-12,1e-12,0.2
**************************
*RESTART,WRITE,FREQUENCY=10000
**
*STEP,INC=100000
*DYNAMIC,DIRECT
.0001,.25
** DEFINE NONREFLECTIVE BOUNDARY AT X=1
*IMPEDANCE
 199,I2
1199,I2
**
*INCIDENT WAVE,PRESSUREAMPLITUDE=WAVES_ON, PROPERTY=IWPROP
IW_LOAD1,-1.0
*INCIDENT WAVE,PRESSUREAMPLITUDE=WAVES_OFF,PROPERTY=IWPROP
IW_LOAD2,-1.0
**
*OUTPUT,FIELD, FREQUENCY=200
*NODE OUTPUT
 POR,
*OUTPUT,HISTORY,OP=ADD,FREQUENCY=20
*NODE OUTPUT,NSET=qa_test
 POR,
*ENDSTEP