*HEADING
 1D transient wave propagation, solid-acoustic coupling (between ACAX3 and CAX3 elements), 
 incident wave load, spherical and defined through pressure amplitude
**
** C = root (K/rho)= 343.05 m/s   (in acoustic medium)  
**
** C = root (K/rho)=  31.62 m/s   (in solid medium) K=bulk mod, rho=density.
**
*PREPRINT,ECHO=NO,HISTORY=NO,MODEL=YES
*NODE,NSET=ACOUSTIC
 1, 0, 0
 2, 1, 0
 3, 1, 1
 4, 0, 1
*NODE, NSET=SOLID
 1001, 0, 1
 1002, 1, 1
 1003, 1, 2
 1004, 0, 2
*ELEMENT,TYPE=ACAX3,ELSET=ACOUSTIC
 1, 1,2,3
 2, 3,4,1
*ELEMENT,TYPE=CAX3,ELSET=SOLID
 1001, 1001,1002,1003
 1002, 1003,1004,1001
*NSET,NSET=SYMM
 1,4
 1001,1004
**************************
*SURFACE,NAME=IW_LOAD_ACOUSTIC
2,S1
*SURFACE,NAME=IW_LOAD_SOLID
1001,S1
*SURFACE,NAME=TIE_ACOUSTIC
2,S1
*SURFACE,NAME=TIE_SOLID
1001,S1
**************************
** CROSS-SECTION IS Pi*1.E-4  
*SOLID SECTION,MATERIAL=AIR,ELSET=ACOUSTIC
 1.E-4, 
**
*MATERIAL,NAME=AIR
*DENSITY
 1.21,
*ACOUSTIC MEDIUM,BULK MODULUS
 0.1424E6,
**
*SOLID SECTION,,MATERIAL=SOLID,ELSET=SOLID
 1.E-4,
**
*MATERIAL,NAME=SOLID
*DENSITY
 1.E3,
*ELASTIC
 1.E6,0.0
**
**************************
*INCIDENT WAVE PROPERTY,NAME=IWPROP,TYPE=SPHERE
0.0,0.0,
0.0,-10.0E04,
*INCIDENT WAVE FLUID PROPERTY
0.1424E6,1.21,0.0
*AMPLITUDE,DEFINITION=TABULAR,NAME=PRESSUREVTIME_ACOUSTIC
0.0,0.0,1.0,-1.0
*AMPLITUDE,DEFINITION=TABULAR,NAME=PRESSUREVTIME_SOLID
0.0,0.0,1.0,-1.0
**************************
**
*BOUNDARY
SYMM,XSYMM
1003,2,2
1004,2,2
**************************
**
*TIE,NAME=COUPLING
TIE_ACOUSTIC,TIE_SOLID
**************************
*RESTART,WRITE
**
*STEP
*DYNAMIC,EXPLICIT,DIRECT USER CONTROL
 0.00001,.005,
**
*INCIDENT WAVE,PRESSUREAMPLITUDE=PRESSUREVTIME_ACOUSTIC,PROPERTY=IWPROP
IW_LOAD_ACOUSTIC,415.09517
*INCIDENT WAVE,PRESSUREAMPLITUDE=PRESSUREVTIME_SOLID,PROPERTY=IWPROP
IW_LOAD_SOLID,415.09517
**
*OUTPUT,FIELD,NUMBER INTERVAL=2
*NODE OUTPUT,NSET=ACOUSTIC
 POR,
*NODE OUTPUT,NSET=SOLID
 U,
*ELEMENT OUTPUT,ELSET=SOLID
 S,
*OUTPUT,HISTORY,TIME INTERVAL=0.1E-3
*NODE OUTPUT,NSET=ACOUSTIC
 POR,
*NODE OUTPUT,NSET=SOLID
 U,
*ELEMENT OUTPUT,ELSET=SOLID
 S,
*ENDSTEP