get_rational_damping_id Subroutine

private subroutine get_rational_damping_id(id, param, s9)

Retrieve rational damping parameters from functional ID

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: id
class(damping_param), intent(out), allocatable :: param
real(kind=wp), intent(in), optional :: s9

Source Code

subroutine get_rational_damping_id(id, param, s9)
   !DEC$ ATTRIBUTES DLLEXPORT :: get_rational_damping_id
   integer, intent(in) :: id
   class(damping_param), allocatable, intent(out) :: param
   real(wp), intent(in), optional :: s9
   logical :: mbd

   mbd = .true.
   if (present(s9)) mbd = s9 /= 0.0_wp

   if (mbd) then
      call get_d4eeq_bjatm_parameter(id, param, s9)
      if (.not.allocated(param)) then
         call get_d4eeq_bj_parameter(id, param, s9)
      end if
   else
      call get_d4eeq_bj_parameter(id, param, s9)
      if (.not.allocated(param)) then
         call get_d4eeq_bjatm_parameter(id, param, s9)
      end if
   end if

end subroutine get_rational_damping_id