*HEADING
:SUBMODEL [AC2D4] from submodelacoust_gd_ac2d4_std
ABAQUS/Standard
**********************************************
** The speed of sound c=sqrt(K/rho)=330m/s  
** The pressure wave will reach the nodes (33,833)
** (and it will drive the pressure wave farther)
** in about t=8.0/c=0.024 sec
**********************************************
*PARAMETER
f=25.0
T=1.0/f
out_hist=T/100
omega=2*3.14159*f
******************
*NODE, Nset=ODB_NSET
33,,8.5
55,,10.
833,1.,8.5
855,1.,10.
*NSET,NSET=QA_TEST
ODB_NSET
*NGEN,NSET=NALL
33,55
833,855
33,833,100
55,855,100
233,255
433,455
633,655
*ELEMENT,TYPE=AC2D4,ELSET=EALL
1,33,233,235,35
*ELGEN,ELSET=EALL
1,4,200,1,11,2,4,1
*ELSET,ELSET=LINER3
41,42,43,44
*MATERIAL,NAME=AIR
*DENSITY
1.293, 
*ACOUSTIC MEDIUM,BULK MODULUS
1.42176E5, 
*SOLID SECTION,MATERIAL=AIR,ELSET=EALL
*IMPEDANCE PROPERTY,NAME=IMPED
0.0,2.3323E-3
*NGEN,NSET=DRIV
33,833,200
*SUBMODEL,ABSOLUTE=0.03
DRIV
**
*AMPLITUDE,NAME=SINE,DEF=PERIODIC
1,<omega>,0.0,0.0
0,1,0,0
******************************
*STEP
*DYNAMIC
1e-3,<T>
*IMPEDANCE
LINER3,I3,IMPED
*BOUNDARY,submodel,step=1
DRIV,8,8
*********************
*OUTPUT,FIELD,FREQ=100
*NODE OUTPUT,NSET=QA_TEST
POR,
*********************
*OUTPUT,FIELD,FREQ=10
*NODE OUTPUT
POR,
*********************
*OUTPUT,HISTORY,FREQ=1
*NODE OUTPUT,NSET=ODB_NSET
POR,
*********************
*END STEP