swe_free_current_term Function

public function swe_free_current_term(p, n_swe_inf_m3, a_swe) result(term)

Arguments

Type IntentOptional Attributes Name
type(zhao_params_type), intent(in) :: p
real(kind=dp), intent(in) :: n_swe_inf_m3
real(kind=dp), intent(in) :: a_swe

Return Value real(kind=dp)


Called by

proc~~swe_free_current_term~~CalledByGraph proc~swe_free_current_term swe_free_current_term proc~zhao_residuals_type_a zhao_residuals_type_a proc~zhao_residuals_type_a->proc~swe_free_current_term proc~zhao_residuals_type_b zhao_residuals_type_b proc~zhao_residuals_type_b->proc~swe_free_current_term proc~zhao_residuals_type_c zhao_residuals_type_c proc~zhao_residuals_type_c->proc~swe_free_current_term

Source Code

  real(dp) function swe_free_current_term(p, n_swe_inf_m3, a_swe) result(term)
    type(zhao_params_type), intent(in) :: p
    real(dp), intent(in) :: n_swe_inf_m3, a_swe

    term = n_swe_inf_m3*(sqrt(p%t_swe_ev/p%t_phe_ev)*exp(-(a_swe*a_swe)) + &
                         sqrt(pi)*(p%v_d_electron_mps/p%v_phe_th_mps)*erfc(a_swe))
  end function swe_free_current_term