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~evaluate_monotonic_stationary_phi evaluate_monotonic_stationary_phi proc~evaluate_monotonic_stationary_phi->proc~swe_free_current_term proc~zhao_residuals_type_b zhao_residuals_type_b proc~evaluate_monotonic_stationary_phi->proc~zhao_residuals_type_b proc~zhao_residuals_type_c zhao_residuals_type_c proc~evaluate_monotonic_stationary_phi->proc~zhao_residuals_type_c proc~evaluate_surface_current_model evaluate_surface_current_model proc~evaluate_surface_current_model->proc~swe_free_current_term proc~try_solve_zhao_unknowns try_solve_zhao_unknowns proc~evaluate_surface_current_model->proc~try_solve_zhao_unknowns proc~zhao_residuals_type_a zhao_residuals_type_a proc~zhao_residuals_type_a->proc~swe_free_current_term proc~zhao_residuals_type_b->proc~swe_free_current_term proc~zhao_residuals_type_c->proc~swe_free_current_term proc~evaluate_surface_closure evaluate_surface_closure proc~evaluate_surface_closure->proc~evaluate_surface_current_model proc~try_solve_zhao_monotonic_scalar try_solve_zhao_monotonic_scalar proc~try_solve_zhao_monotonic_scalar->proc~evaluate_monotonic_stationary_phi proc~try_solve_zhao_monotonic_scalar->proc~zhao_residuals_type_b proc~try_solve_zhao_monotonic_scalar->proc~zhao_residuals_type_c proc~try_solve_zhao_branch_b try_solve_zhao_branch_b proc~try_solve_zhao_branch_b->proc~try_solve_zhao_monotonic_scalar proc~try_solve_zhao_branch_c try_solve_zhao_branch_c proc~try_solve_zhao_branch_c->proc~try_solve_zhao_monotonic_scalar proc~solve_zhao_branch_b solve_zhao_branch_b proc~solve_zhao_branch_b->proc~try_solve_zhao_branch_b proc~solve_zhao_branch_c solve_zhao_branch_c proc~solve_zhao_branch_c->proc~try_solve_zhao_branch_c proc~try_solve_zhao_unknowns->proc~try_solve_zhao_branch_b proc~try_solve_zhao_unknowns->proc~try_solve_zhao_branch_c proc~solve_zhao_unknowns solve_zhao_unknowns proc~solve_zhao_unknowns->proc~try_solve_zhao_unknowns

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