*HEADING
STANDARD:GLOBAL MODEL
ACOUSTIC TO STRUCTURE SUBMODELING [C3D8/AC3D8]
ACOUSTIC PRESSURE APPLIED ON ONE SIDE OF THE SOLID;
*PREPRINT, ECHO=YES, MODEL=YES, HISTORY=YES
*PARAMETER
f=15
T1=1.0/f
T01=0.1*T1
omega=2*3.14159*f
*NODE, NSET=BACK_S
 1,  0.0, 0.0, 1.0
 3,  0.0, 0.0, 0.0
 7,  0.0, 1.0, 0.0
 5,  0.0, 1.0, 1.0
1010,0.0, 0.0, 0.5
1100,0.0, 1.0, 0.5
*NODE, NSET=FRONT_S
 2, 2.0, 0.0, 1.0
 4, 2.0, 0.0, 0.0
 8, 2.0, 1.0, 0.0
 6, 2.0, 1.0, 1.0
1030,2.0, 0.0, 0.5
1300,2.0, 1.0, 0.5
*NODE, NSET = CENTER_S
 101, 1.0, 0.0, 1.0
 102, 1.0, 0.0, 0.0
 103, 1.0, 1.0, 0.0
 104, 1.0, 1.0, 1.0
1020,1.0, 0.0, 0.5
1200,1.0, 1.0, 0.5
*NODE, NSET=BACK_F
 22, 2.0, 0.0, 1.0
 24, 2.0, 0.0, 0.0
 26, 2.0, 1.0, 1.0
 28, 2.0, 1.0, 0.0
1040,2.0, 0.0, 0.5
1400,2.0, 1.0, 0.5
*NODE, NSET=FRONT_F
 12, 3, 0.0, 1.0
 14, 3, 0.0, 0.0
 16, 3, 1.0, 1.0
 18, 3, 1.0, 0.0
1050,3.0, 0.0, 0.5
1500,3.0, 1.0, 0.5
*NSET, NSET=NODE2
FRONT_S,
*NSET, NSET=SOLID
FRONT_S,CENTER_S,BACK_S
*NSET, NSET=QA_TEST
NODE2
*NSET,NSET=ACOUS
BACK_F,FRONT_F
*ELEMENT, TYPE=C3D8, ELSET=SOLID
1,1,1010,1100,5,101,1020,1200,104
2,1010,3,7,1100,1020,102,103,1200
3,101,1020,1200,104,2,1030,1300,6
4,1020,102,103,1200,1030,4,8,1300
*ELEMENT,TYPE=AC3D8, ELSET=FLUID
5, 22,1040,1400,26,12,1050,1500,16
6,1040,24,28,1400,1050,14,18,1500
*SOLID SECTION, ELSET=SOLID, MATERIAL=ELAS
*MATERIAL, NAME=ELAS
*ELASTIC
207E9,0.3
*DENSITY
7800.0
*****
*SOLID SECTION, ELSET=FLUID, MATERIAL=FLUID
*MATERIAL, NAME=FLUID
*ACOUSTIC MEDIUM
2.25E9
*DENSITY
1000.0
**
*SURFACE,NAME=SOLID
3,S2
4,S2
*SURFACE,NAME=FLUID
5,S1
6,S1
*TIE,NAME=COUPLE
SOLID,FLUID
**
*BOUNDARY
BACK_S,1,3
**
*AMPLITUDE,NAME=SINE,DEF=PERIODIC
1,<omega>,0.0,0.0
0,1,0,0
**
** Step 1
**
*STEP, NLGEOM=YES
*DYNAMIC,DIRECT
0.0001,<T01>
*BOUNDARY, AMP=SINE
FRONT_F,8,,1e10
***********************************
*FILE FORMAT, ZERO INCREMENT
*NODE FILE, NSET=ACOUS, FREQ=1
POR,
*NODE FILE, NSET=SOLID, FREQ=1
U,
***************
*OUTPUT,FIELD,FREQ=1
*NODE OUTPUT,NSET=ACOUS
POR,
*NODE OUTPUT,NSET=SOLID
U,
*****************
*OUTPUT,HISTORY, FREQ=1
*NODE OUTPUT,NSET=BACK_F
POR,
*NODE OUTPUT,NSET=NODE2
U1,
*****************QA_TEST***********
*OUTPUT, FIELD, FREQ = 99999
*NODE OUTPUT,NSET=QA_TEST
U,
*END STEP