*HEADING
: DEBONDING OF AN INTERFACE VIA CRACK LENGTH VS TIME CRITERION
** complete model.
*RESTART,WRITE,FREQ=1
*NODE
*NGEN,NSET=BOT
*NGEN,NSET=BOT2
*NGEN,NSET=TOP
*NFILL, NSET=NTOP
BOT,TOP,4,500
*NSET, NSET=TERM2,GEN
*ELEMENT,TYPE=CPE4
*ELGEN,ELSET=SOL1
**
***
*NCOPY, OLD SET=NTOP, NEW SET=NBOT,REFLECT=LINE,CHANGE NUMBER=3000
*ELCOPY,ELEMENT SHIFT=2000,OLD SET=SOL1, NEW SET=SOL2,SHIFT NODES=3000,REFLECT
** element redefined to get correct node definitions
*ELEMENT, TYPE=CPE4, ELSET=SOL2
*ELSET, ELSET=SOLID
SOL1,SOL2
*SOLID SECTION,ELSET=SOLID,MAT=ELASTIC
1.,
*MATERIAL,NAME=ELASTIC
*ELASTIC
1.E6,.3
**
*** Contact definitions
**
*ELSET, ELSET=TOP
*surface, NAME=BSURF
TOP, S1
*ELSET, ELSET=BOT
*surface, NAME=ASURF
BOT, S4
*SURFACE INTERACTION, NAME=BOTH
1.0,
*CONTACT PAIR,INTERACTION=BOTH,SMALL SLIDING
BSURF, ASURF
*NSET,NSET=N41
*NSET,NSET=N61
*NSET,NSET=N81
*NSET,NSET=N101
*NSET,NSET=NREF
***
**** Nodeset defining the bonded portion of the surface
***
*NSET, NSET=BOND
*INITIAL CONDITIONS, TYPE=CONTACT
BSURF,ASURF,BOND
**
*STEP,INC=10
*STATIC
8.0E-04,0.00287
*BOUNDARY
2001,2,2,1.
2021,2,2,1.
5001,2,2,-1.
5021,2,2,-1.
121,1,2
*DEBOND,SLAVE=BSURF,MASTER=ASURF,TIME INC=.0002, FREQUENCY=1,OUTPUT=BOTH
*FRACTURE CRITERION,TYPE=CRACK LENGTH,TOLERANCE=0.05,NSET=NREF
*ENERGY PRINT
*EL PRINT
S,
E,
*CONTACT PRINT
CSTRESS,CDISP
DBT,DBSF,DBS
*EL PRINT,ELSET=SOLID
S,E
*CONTOUR INTEGRAL,CONT=2,OUTPUT=BOTH
N41,1.0,
*CONTOUR INTEGRAL,CONT=2,OUTPUT=BOTH
N61,1.0,
*CONTOUR INTEGRAL,CONT=2,OUTPUT=BOTH
N81,1.0,
*CONTOUR INTEGRAL,CONT=2,OUTPUT=BOTH
N101,1.0,
*OUTPUT,FIELD
*CONTACT OUTPUT, VARIABLE=ALL
CSTRESS,CDISP
*OUTPUT,FIELD
*ELEMENT OUTPUT,ELSET=SOLID
S, E
*END STEP