new_zero_damping Subroutine

public subroutine new_zero_damping(self, param)

Create new zero damping model

Arguments

Type IntentOptional Attributes Name
type(zero_damping_param), intent(out) :: self

Zero damping parameters
type(d3_param), intent(in) :: param

Parameters

Source Code

subroutine new_zero_damping(self, param)

   !> Zero damping parameters
   type(zero_damping_param), intent(out) :: self

   !> Parameters
   type(d3_param), intent(in) :: param

   self%s6 = param%s6   
   self%s8 = param%s8   
   self%s9 = param%s9   
   self%rs6 = param%rs6  
   self%rs8 = param%rs8  
   self%alp = param%alp  

end subroutine new_zero_damping