!   TITLE:  scr.parm (BLACKHAWK)
!
!---------------------------------------------------------------------------
!       Rev -   04/29/2003      D. Edwards
!       Rev A   07/02/2003      D. Edwards
!               Added corner raddi at gap (see r1 & r2)
!       Rev B   12/13/2005      D. Edwards
!               Added nrotat to polar coords on ID of ring for 
!---------------------------------------------------------------------------
!
!   This parameter file is used by scr.mac (SLIP CLUTCH RING) for the
!   Blackhawk project.
!
!---------------------- a.) Title and Units Declaration --------------------
!
/units,bin
!
!--------------------- b.) Part Name Selection Variable --------------------
!
name='slp_ring'
arry_nam='slpr'
!
!--------------------------- c.) Model C.S. Names --------------------------
!
ct_name='CSscr0'            ! cartesian
cyl_name='CSscr1'           ! cylindrical
sph_name='CSscr2'           ! spherical
!
!--------------------------- d.) Model Parameters --------------------------
!
ODhub=.2275             ! OD of hub that ring rests on (2.31185+/-.00015)
IDring=.225             ! ID of ring before assembly
ODring=.275             ! OD of ring
ecc=-.01 !-0.10             ! Eccentricity of OD/ID centers
tring=.025                  ! Thickness of ring
gap=.025                    ! Undeflected gap width
r1=.005                     ! Corner break at ring OD and gap
r2=.005                     ! Corner break at ring ID and gap

/title,SCR:  ecc=%ecc%, gap=%gap%, OD=%ODring%, ID=%IDring%, thick=%tring%
!
!----------------------- e.) Material and Element Type ---------------------
!
mat_select,'c410'               ! Material Properties
mp,mu,2,.2
!
et,1,plane42,,,3
r,1,tring

! KEYOPT(1)   Used only with MU > 0.0
! 0 --    Elastic coulomb friction (KS used for sticking stiffness)
! 1 --    Rigid coulomb friction (resisting force only)
!
! KEYOPT(2)
! 0 --    Orientation determined by Theta real constant
! 1 --    Circular gap option (THETA orientation determined from direction
!         of motion) (ignore THETA real constant)
!
! KEYOPT(3)
! 0 --    No weak spring across an open gap
! 1 --    Use a weak spring across an open gap
!
! KEYOPT(4)
! 0 --    Interference (or gap) based on INTF real constant
! 1 --    Interference (or gap) based on initial node locations
!         (ignore INTF real constant)
!et,2,contac12,,1,0,0   ! 2-D version needs a closer look to make it work
et,2,contac52,,,0,0

! KEYOPT(7)   Element level time incrementation control. Note that
! this option should be activated first at the procedure level if
! SOLCONTROL is ON. SOLCONTROL,ON, ON is the most frequent usage with
! this element. If SOLCONTROL,ON,OFF, this keyoption is not activated.
! 0 --    Predictions are made to achieve the minimum time (or load)
! increment whenever a change in contact status occurs
! 1 --    Predictions are made to maintain a reasonable time (or load)
! increment (recommended)
keyopt,2,7,1

! THETA, KN, INTF, START, KS, REDFACT
! In .mac file, reassign KN as follows:
!   KN = KN/N where N = # of contact elems.
! See hub_spring_rate.{pdf,mcd} for derivation of base KN value listed below.
! KS = sliding spring rate
KN2=5.5E5
INTF2=(ODhub-IDring)/2
START2=3
!
!------------------------ f.) Model C.S. Coordinates -----------------------
!
acs=0                           ! active coordinate system
!
xc=0                            ! x coordinate center
yc=0                            ! y coordinate center
zc=0                            ! z coordinate center
!
rotxyc=0                        ! xy rotation
rotyzc=0                        ! yz rotation
rotzxc=0                        ! zx rotation
!
!---------------------------------------------------------------------------