*HEADING
EXPLICIT: SUBMODEL from ac2solid_g_cps4r_ac2d4r_xpl
ACOUSTIC TO STRUCTURE SUBMODELING [CPS4R]
ACOUSTIC PRESSURE DRIVES ONE SIDE OF THE STRUCTURE;
DISPLACEMENTS DRIVE THE SECOND SIDE of THE STRUCTURE;
*PREPRINT,ECHO=YES,MODEL=YES,HISTORY=YES
*PARAMETER
F=15.0
T=1.0/F
T10=10*T
T2=2*T
T4=4*T
T6=6*T
T01=0.1*T
OUT_HIST=T/1000
*NODE,NSET=SOLID
*NGEN,NSET=SOLID
***
***
*NSET,NSET=QA_TEST
SOLID,
*ELEMENT,TYPE=CPS4R,ELSET=SOLID
*ELGEN,ELSET=SOLID
*SOLID SECTION, MATERIAL=STEEL,ELSET=SOLID
1.0,
*MATERIAL,NAME=STEEL
*DENSITY
7800.0,
*ELASTIC
207E9,0.3
*SURFACE,TYPE=ELEMENT,NAME=SOLID_B
1,s1
2,s1
3,s1
4,s1
*NSET,NSET=SOLID_T
*SUBMODEL,ACOUSTIC TO STRUCTURE,ABSOLUTE=0.0501
SOLID_B,
*SUBMODEL,ABSOLUTE=0.0501
SOLID_T,
*NSET,NSET=DRIV_A
*NSET,NSET=DRIV_U
*STEP
*DYNAMIC,EXPLICIT
,<T01>
*BOUNDARY,SUBMODEL,STEP=1
DRIV_A,8,8
DRIV_U,1,2
*OUTPUT,FIELD,NUM=20
*NODE OUTPUT,NSET=SOLID
U,RF
*ELEMENT OUTPUT,ELSET=SOLID
S,
*OUTPUT,HISTORY,TIME INTERVAL=<OUT_HIST>
*NODE OUTPUT,NSET=SOLID
U,RF
*ELEMENT OUTPUT, ELSET=SOLID
S,
*****************QA_TEST***********
*OUTPUT, FIELD, NUMBER INTERVAL = 1
*NODE OUTPUT,NSET=QA_TEST
U,
*END STEP