*HEADING
 STD_TWINIT_2D: INITIALIZATION OF ACOUSTIC FIELDS IN TOTAL WAVE FORMULATION
*PREPRINT,ECHO=NO,HISTORY=yes,MODEL=NO
*****************************************
*part, name = ac2D3
*NODE, Nset=ODB_NSET
    1, 1.0 ,0.0,0.0
  401, 1.0 ,4.0,0.0
  501, 0.99,0.0,0.0
  901, 0.99,4.0,0.0
 1001, 0.98,0.0,0.0
 1401, 0.98,4.0,0.0
*NGEN,NSET=ALL
    1,401
  501,901
 1001,1401
*NSET,NSET=QA_TEST,GENERATE
 1,101
*ELEMENT,TYPE=AC2D3
 1,1,2,1002
 2,1,1002,1001
*ELGEN,ELSET=CHANNEL
 1,400,1,2
 2,400,1,2
*SOLID SECTION,MATERIAL=AIR,ELSET=CHANNEL
1.e-2,
*end part
***************************************
*part,name = ac2D4
*NODE, Nset=ODB_NSET
    1, 1.0 ,0.0,0.0
  401, 1.0 ,4.0,0.0
  501, 0.99,0.0,0.0
  901, 0.99,4.0,0.0
 1001, 0.98,0.0,0.0
 1401, 0.98,4.0,0.0
*NGEN,NSET=ALL
    1,401
  501,901
 1001,1401
*NSET,NSET=QA_TEST,GENERATE
 1,401,10
*NSET,NSET=LOAD
 1,501,1001
*ELEMENT,TYPE=AC2D4r
 1,1,2,1002,1001
*ELGEN,ELSET=CHANNEL
 1,400
*SOLID SECTION,MATERIAL=AIR,ELSET=CHANNEL
1.e-2,
*end part
************************************************
*assembly,name=all
*instance,part=ac2D3,name=ac2D3
*endinstance
*instance,part=ac2D4,name=ac2D4
0.05,0,0
*endinstance
**************************
*SURFACE,NAME=IW_LOAD
ac2D3.2,S3
ac2D4.1,S4
**************************
*endassembly
***************************************
*MATERIAL,NAME=AIR
*DENSITY
 1.21,
*ACOUSTIC MEDIUM,BULK MODULUS
 0.1424E6,
**
*acousticwaveformulation,type=tot
**************************
*INCIDENT WAVE PROPERTY,NAME=IWPROP,TYPE=PLANE
0.0,  2.0,
0.0,-10.0,
*INCIDENT WAVE FLUID PROPERTY
0.1424E6,1.21,0.0
*AMPLITUDE,DEFINITION=TABULAR,NAME=PRESSUREVTIME
0.0,0.0,.03,1.0,.06,0.0
*AMPLITUDE, NAME=PULSE-D-2, DEFINITION=DECAY, TIME=TOTAL TIME, VALUE=RELATIVE
0.0, 1.0,  0.0, 0.01
*amplitude,name=sine2,definition=periodic,time=totaltime,value=relative
1,48.e0,0.0,0,
0,1,0,0,
**************************
*RESTART,WRITE
**
*STEP
*DYNAMIC,explicit
,.004,
**
*INCIDENT WAVE,PRESSUREAMPLITUDE=SINE2,PROPERTY=IWPROP
IW_LOAD,1.000
**
*OUTPUT,FIELD
*NODE OUTPUT
 POR,
*OUTPUT,HISTORY,frequency=0
*ENDSTEP