fstr_contact_param.f90

Go to the documentation of this file.

!-------------------------------------------------------------------------------
! Copyright (c) 2021 FrontISTR Commons
! This software is released under the MIT License, see LICENSE.txt
!-------------------------------------------------------------------------------
module mcontactparam
 
  use hecmw
 
  implicit none
 
  private
  public :: tcontactparam
  public :: init_contactparam
 
  type tcontactparam
    character(HECMW_NAME_LEN) :: name
    real(kind=kreal) :: clearance        
    real(kind=kreal) :: clr_same_elem    
    real(kind=kreal) :: clr_difflpos     
    real(kind=kreal) :: clr_cal_norm     
    real(kind=kreal) :: distclr_init     
    real(kind=kreal) :: distclr_free     
    real(kind=kreal) :: distclr_nocheck  
    real(kind=kreal) :: tensile_force    
    real(kind=kreal) :: box_exp_rate     
  end type tcontactparam
 
contains
 
  subroutine init_contactparam( cparam )
    type(tcontactparam), intent(out) :: cparam
    cparam%name            = ''
    cparam%CLEARANCE       = 1.d-4
    cparam%CLR_SAME_ELEM   = 5.d-3
    cparam%CLR_DIFFLPOS    = 1.d-2
    cparam%CLR_CAL_NORM    = 1.d-4
    cparam%DISTCLR_INIT    = 1.d-6
    cparam%DISTCLR_FREE    =-1.d-6
    cparam%DISTCLR_NOCHECK = 1.d0
    cparam%TENSILE_FORCE   =-1.d-8
    cparam%BOX_EXP_RATE    = 1.05d0
  end subroutine init_contactparam
 
end module mcontactparam