*HEADING
 :  CPS8RT MODEL CHANGE VERIFICATION
*NODE
1,
11,5.
801,,2.
811,5.,2.
*NGEN,NSET=BOT
1,11,1
*NGEN,NSET=TOP
801,811,1
*NFILL,NSET=NALL
BOT,TOP,8,100
*NSET, NSET=LHS, GEN
1, 801, 100
*NSET, NSET=RHS, GEN
11,811,100
*NSET,NSET=NMID,GEN
5,805,100
*NSET, NSET=PINNED
1, 
*ELEMENT,TYPE=CPS8RT,ELSET=EALL
1,1,3,203,201, 2, 103, 202, 101
*ELGEN,ELSET=EALL
1,5,2,1,4,200,5
*ELSET,ELSET=ERHS
5,10,15,20
*ELSET, ELSET=EREM
3,4,5,8,9,10,13,14,15,18,19,20
*SOLID SECTION,MATERIAL=HEAT,ELSET=EALL
1.,
*MATERIAL,NAME=HEAT
*ELASTIC
100.00E4, 0.25
*EXPANSION
1.0E-6, 
*DENSITY
.2829, 
*CONDUCTIVITY
7.872E-4, 
*BOUNDARY
LHS,11
BOT, 2, 2
PINNED, 1, 1
*STEP
 APPLY FILM CONDITION TO RHS
*COUPLED TEMPERATURE-DISPLACEMENT,STEADY STATE
1.,1.
*FILM
ERHS,F2,100.,1.
*NODE PRINT
RF, U, NT11
*EL PRINT
E,
S,
HFL, 
*NODE FILE, FREQ=99
U,RF, NT
*EL FILE, FREQ=99
HFL, S, E
*END STEP
*STEP
REMOVE RIGHT HAND SIDE ELEMENTS
*COUPLED TEMPERATURE-DISPLACEMENT,STEADY STATE
1.,1.
*MODEL CHANGE,REMOVE,TYPE=ELEMENT
EREM, 
*BOUNDARY,FIXED
NMID,11
*END STEP
*STEP
REPLACE RIGHT HAND SIDE ELEMENTS
*COUPLED TEMPERATURE-DISPLACEMENT,STEADY STATE
.25,1.
*BOUNDARY,OP=NEW
LHS,11
BOT, 2, 2
PINNED, 1, 1
*MODEL CHANGE,ADD,TYPE=ELEMENT
EREM, 
*FILM
ERHS,F2,200.,1.
*END STEP