*HEADING
STD_TWINIT_3D_DCAY: VERIFICATION OF INITIALIZATION OF ACOUSTIC FIELDS
*PREPRINT,ECHO=NO,HISTORY=yes,MODEL=no
***********************************************************
*PART,NAME=AC3D4
*NODE, Nset=ODB_NSET
*NGEN,NSET=ALL
*NSET,NSET=QA_TEST,GENERATE
*NSET,NSET=LOAD
*ELEMENT,TYPE=AC3D4
*ELSET,ELSET=CHANNEL,generate
*ELSET,elset=CHANNEL,generate
*SOLID SECTION,MATERIAL=AIR,ELSET=CHANNEL
**
*Elset,Elset=ODB_ELSET
channel,
**
*END PART
*part,name=ac3d6
*NODE, Nset=ODB_NSET
*NGEN,NSET=ALL
*NSET,NSET=QA_TEST,GENERATE
*NSET,NSET=LOAD
*ELEMENT,TYPE=AC3D6
*ELSET,ELSET=CHANNEL,generate
*ELSET,ELSET=CHANNEL,generate
*SOLID SECTION,MATERIAL=AIR,ELSET=CHANNEL
*Elset,Elset=ODB_ELSET
channel,
*end part
*part,name=ac3d8
*NODE, Nset=ODB_NSET
*NGEN,NSET=ALL
*NSET,NSET=QA_TEST,GENERATE
*NSET,NSET=LOAD
*ELEMENT,TYPE=AC3D8,ELSET=channel
*ELGEN,ELSET=CHANNEL
*SOLID SECTION,MATERIAL=AIR,ELSET=CHANNEL
*Elset,Elset=ODB_ELSET
channel,
*endpart
***********************************************************
*PART,NAME=AC3D10
*NODE, Nset=ODB_NSET
*NGEN,NSET=ALL
*NSET,NSET=QA_TEST,GENERATE
*NSET,NSET=CRNRLOAD
*NSET,NSET=SIDELOAD
*ELEMENT,TYPE=AC3D10
*ELset,ELSET=CHANNEL,generate
*ELsEt,ELSET=CHANNEL,generate
*elset,elset=one
*SOLID SECTION,MATERIAL=AIR,ELSET=CHANNEL
*Elset,Elset=ODB_ELSET
channel,
*endpart
************************************************
*part,name=ac3d15
*NODE, Nset=ODB_NSET
*NGEN,NSET=ALL
*NSET,NSET=QA_TEST,GENERATE
*NSET,NSET=CRNRLOAD
*NSET,NSET=SIDELOAD
*ELEMENT,TYPE=AC3D15
*ELset,ELSET=CHANNEL,generate
*elset,elset=one
*SOLID SECTION,MATERIAL=AIR,ELSET=CHANNEL
*Elset,Elset=ODB_ELSET
channel,
*END PART
*PART,NAME=AC3D20
*NODE, Nset=ODB_NSET
*NGEN,NSET=ALL
*NSET,NSET=QA_TEST,GENERATE
*NSET,NSET=CRNRLOAD
*NSET,NSET=SIDELOAD
*ELEMENT,TYPE=AC3D20
*ELGEN,ELSET=CHANNEL
*ELEMENT,TYPE=AC3D20
*ELGEN,ELSET=CHANNEL
*elset,elset=one
*SOLID SECTION,MATERIAL=AIR,ELSET=CHANNEL
*Elset,Elset=ODB_ELSET
channel,
*END PART
************************************************
*ASSEMBLY,NAME=ALL
*INSTANCE,PART=AC3D4,NAME=AC3D4
*ENDINSTANCE
*INSTANCE,PART=AC3D6,NAME=AC3D6
*ENDINSTANCE
*INSTANCE,PART=AC3D8,NAME=AC3D8
*ENDINSTANCE
*INSTANCE,PART=AC3D10,NAME=AC3D10
*ENDINSTANCE
*INSTANCE,PART=AC3D15,NAME=AC3D15
*ENDINSTANCE
*INSTANCE,PART=AC3D20,NAME=AC3D20
*ENDINSTANCE
*surface,name=iw_load
AC3D4.2,s4
AC3D4.1,s2
ac3d6.1,s3
ac3d8.1,s6
ac3d10.2,s4
ac3d10.1,s2
ac3d15.1,s3
AC3D20.1,s6
*ENDASSEMBLY
************************************************
*MATERIAL,NAME=AIR
*DENSITY
 1.21,
*ACOUSTIC MEDIUM,BULK MODULUS
**
*ACOUSTICWAVEFORMULATION,TYPE=TOT
**
*INCIDENT WAVE PROPERTY,NAME=IWPROP,TYPE=s
*INCIDENT WAVE FLUID PROPERTY
*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.e2,0.0,0,
0,1,0,0,
**************************
**
*STEP
*STEADYSTATE DYNAMICS,DIRECT
*NODE PRINT,F=0
*EL PRINT,F=0
*OUTPUT,FIELD,Frequency=0
*END STEP
**
*STEP
*DYNAMIC,direct
 0.01,.04,
**
*INCIDENT WAVE,PRESSUREAMPLITUDE=PULSE-D-2,PROPERTY=IWPROP
IW_LOAD,1.000
**
*EL PRINT,FREQUENCY=0
*OUTPUT,FIELD,FREQ=1
*NODE OUTPUT
 POR,
*OUTPUT,HISTORY,frequency=0
*ENDSTEP