VFRIC_COEF

User subroutine to define the frictional coefficient for contact surfaces.

User subroutine VFRIC_COEF:

can be used to define the isotropic frictional coefficient between contacting surfaces;
corresponds to the classical Coulomb friction model; and
can be used only with the general contact algorithm.

The following topics are discussed:

User subroutine interface
Variables to be defined
Variables passed in for information

User subroutine interface

      subroutine vfric_coef (
C Write only - 
     *   fCoef, fCoefDeriv, 
C Read only - 
     *   nBlock, nProps, nTemp, nFields, 
     *   jFlags, rData, 
     *   surfInt, surfSlv, surfMst, 
     *   props, slipRate, pressure, 
     *   tempAvg, fieldAvg )
C
      include 'vaba_param.inc'
C
      dimension fCoef(nBlock), 
     *   fCoefDeriv(nBlock,3),
     *   props(nProps),
     *   slipRate(nBlock),
     *   pressure(nBlock),
     *   tempAvg(nBlock), 
     *   fieldAvg(nBlock,nFields)
C
      parameter( iKStep   = 1,
     *           iKInc    = 2,
     *           nFlags   = 2 )
C
      parameter( iTimStep = 1,
     *           iTimGlb  = 2,
     *           iDTimCur = 3,
     *           nData    = 3 )
C
      dimension jFlags(nFlags), rData(nData)
C
      character*80 surfInt, surfSlv, surfMst 
C
      user coding to define fCoef
C
      return
      end

Variables to be defined

fCoef(nBlock): This array must be updated to the current values of the friction coefficient for all contacting points.
fCoefDeriv(nBlock,3): This array is not applicable to Abaqus/Explicit analyses.

Variables passed in for information

nBlock: Number of contacting points to be processed in this call to VFRIC_COEF.
nProps: User-specified number of property values associated with this friction model.
nTemp: 1 if the temperature is defined and 0 if the temperature is not defined.
nFields: Number of user-specified field variables.
jFlag(1): Step number.
jFlag(2): Increment number.
rData(1): Value of step time.
rData(2): Value of total time.
rData(3): Current increment in time from $t = t_{c u r r} - Δ t$ to $t = t_{c u r r}$ .
surfInt: User-specified surface interaction name, left justified.
surfSlv: Slave surface name, not applicable to general contact.
surfMst: Master surface name, not applicable to general contact.
props(nProps): User-specified vector of property values to define the frictional coefficient at contacting points.
slipRate(nBlock): This array contains the rate of tangential slip at the contacting points for the current time increment.
pressure(nBlock): This array contains the pressure at the contacting points applied at the end of the current time increment.
tempAvg(nBlock): Average current temperature between the master and slave surfaces at the contacting points.
fieldAvg(nBlock,nFields): Average current value of all the user-specified field variables between the master and slave surfaces at the contacting points.