SFEMaNS
version 4.1 (work in progress)
Reference documentation for SFEMaNS
|
Public Member Functions | |
subroutine, public | maxwell_decouple_with_b (comm_one_d, H_mesh, pmag_mesh, phi_mesh, interface_H_phi, interface_H_mu, Hn, Bn, phin, Hn1, Bn1, phin1, vel, stab_in, sigma_in, R_fourier, index_fourier, mu_H_field, mu_phi, time, dt_in, Rem, list_mode, H_phi_per, LA_H, LA_pmag, LA_phi, LA_mhd, sigma_ns_in, jj_v_to_H) |
subroutine | mat_h_p_phi_maxwell (H_mesh, pmag_mesh, phi_mesh, interface_H_phi, mode, mu_H_field, mu_phi, c_mass, stab, R_fourier, index_fourier, LA_H, LA_pmag, LA_phi, H_p_phi_mat1, H_p_phi_mat2, sigma_np) |
subroutine | mat_dirichlet_maxwell (H_mesh, Dirichlet_bdy_H_sides, mode, stab, mu_H_field, LA_H, H_p_phi_mat1, H_p_phi_mat2, sigma_np) |
subroutine | courant_int_by_parts (H_mesh, phi_mesh, interface_H_phi, sigma, mu_phi, mu_H_field, time, mode, rhs_H, nl, LA_H, LA_phi, vb_1, vb_2, B_ext, H_pert, sigma_curl, J_over_sigma) |
subroutine | surf_int (H_mesh, phi_mesh, interface_H_phi, interface_H_mu, list_dirichlet_sides_H, sigma, mu_phi, mu_H_field, time, mode, LA_H, LA_phi, vb_1, vb_2, R_fourier, index_fourier) |
subroutine | mat_maxwell_mu (H_mesh, interface_H_mu, mode, stab, mu_H_field, sigma, LA_H, H_p_phi_mat1, H_p_phi_mat2) |
subroutine | courant_mu (H_mesh, interface_H_mu, sigma, mu_H_field, time, mode, nl, LA_H, vb_1, vb_2, B_ext) |
subroutine | rhs_dirichlet (H_mesh, Dirichlet_bdy_H_sides, sigma, mu_H_field, time, mode, nl, stab, LA_H, vb_1, vb_2, B_ext, J_over_sigma, sigma_curl_bdy_in) |
subroutine | dirichlet_cavities (communicator, interface_H_phi, mesh, js_D) |
real(kind=8) function, dimension(nb_angles, ne-nb+1) | minus_one_over_mu (H_mesh, angles, nb_angles, nb, ne, time) |
real(kind=8) function, dimension(nb_angles, ne-nb+1) | one_over_mu (H_mesh, angles, nb_angles, nb, ne, time) |
subroutine | smb_sigma_prod_curl (communicator, mesh, list_mode, H_in, sigma_bar, sigma_in, V_out) |
subroutine | smb_sigma_prod_curl_bdy (communicator, mesh, Dirichlet_bdy_H_sides, list_mode, H_in, sigma_bar, sigma_in, V_out) |
subroutine | smb_current_over_sigma (communicator, mesh, list_mode, mu_H_field, mu_phi, sigma_tot, time, J_over_sigma) |
Private Attributes | |
real(kind=8), parameter, private | alpha =0.6d0 |
Definition at line 6 of file maxwell_update_time_with_B.f90.
subroutine update_maxwell_with_b::courant_int_by_parts | ( | type(mesh_type), intent(in) | H_mesh, |
type(mesh_type), intent(in) | phi_mesh, | ||
type(interface_type), intent(in) | interface_H_phi, | ||
real(kind=8), dimension(:), intent(in) | sigma, | ||
real(kind=8), intent(in) | mu_phi, | ||
real(kind=8), dimension(:), intent(in) | mu_H_field, | ||
real(kind=8), intent(in) | time, | ||
integer, intent(in) | mode, | ||
real(kind=8), dimension(:,:), intent(in) | rhs_H, | ||
real(kind=8), dimension(:,:), intent(in) | nl, | ||
type(petsc_csr_la) | LA_H, | ||
type(petsc_csr_la) | LA_phi, | ||
vb_1, | |||
vb_2, | |||
real(kind=8), dimension(:,:), intent(in) | B_ext, | ||
real(kind=8), dimension(:,:), intent(in) | H_pert, | ||
real(kind=8), dimension(:,:), intent(in) | sigma_curl, | ||
real(kind=8), dimension(:,:), intent(in) | J_over_sigma | ||
) |
Definition at line 3146 of file maxwell_update_time_with_B.f90.
subroutine update_maxwell_with_b::courant_mu | ( | type(mesh_type), intent(in) | H_mesh, |
type(interface_type), intent(in) | interface_H_mu, | ||
real(kind=8), dimension(h_mesh%me), intent(in) | sigma, | ||
real(kind=8), dimension(:), intent(in) | mu_H_field, | ||
real(kind=8), intent(in) | time, | ||
integer, intent(in) | mode, | ||
real(kind=8), dimension(:,:), intent(in) | nl, | ||
type(petsc_csr_la) | LA_H, | ||
vb_1, | |||
vb_2, | |||
real(kind=8), dimension(:,:), intent(in) | B_ext | ||
) |
Definition at line 4553 of file maxwell_update_time_with_B.f90.
subroutine update_maxwell_with_b::dirichlet_cavities | ( | intent(in) | communicator, |
type(interface_type), intent(in) | interface_H_phi, | ||
type(mesh_type), intent(in) | mesh, | ||
integer, dimension(:), pointer | js_D | ||
) |
Definition at line 4875 of file maxwell_update_time_with_B.f90.
subroutine update_maxwell_with_b::mat_dirichlet_maxwell | ( | type(mesh_type), intent(in) | H_mesh, |
integer, dimension(:), intent(in) | Dirichlet_bdy_H_sides, | ||
integer, intent(in) | mode, | ||
real(kind=8), dimension(3), intent(in) | stab, | ||
real(kind=8), dimension(:), intent(in) | mu_H_field, | ||
type(petsc_csr_la) | LA_H, | ||
H_p_phi_mat1, | |||
H_p_phi_mat2, | |||
real(kind=8), dimension(:), intent(in) | sigma_np | ||
) |
Definition at line 2692 of file maxwell_update_time_with_B.f90.
subroutine update_maxwell_with_b::mat_h_p_phi_maxwell | ( | type(mesh_type), intent(in) | H_mesh, |
type(mesh_type), intent(in) | pmag_mesh, | ||
type(mesh_type), intent(in) | phi_mesh, | ||
type(interface_type), intent(in) | interface_H_phi, | ||
integer, intent(in) | mode, | ||
real(kind=8), dimension(:), intent(in) | mu_H_field, | ||
real(kind=8), intent(in) | mu_phi, | ||
real(kind=8), intent(in) | c_mass, | ||
real(kind=8), dimension(3), intent(in) | stab, | ||
real(kind=8), optional | R_fourier, | ||
integer, optional | index_fourier, | ||
type(petsc_csr_la) | LA_H, | ||
type(petsc_csr_la) | LA_pmag, | ||
type(petsc_csr_la) | LA_phi, | ||
H_p_phi_mat1, | |||
H_p_phi_mat2, | |||
real(kind=8), dimension(:), intent(in) | sigma_np | ||
) |
Definition at line 713 of file maxwell_update_time_with_B.f90.
subroutine update_maxwell_with_b::mat_maxwell_mu | ( | type(mesh_type), intent(in) | H_mesh, |
type(interface_type), intent(in) | interface_H_mu, | ||
integer, intent(in) | mode, | ||
real(kind=8), dimension(3), intent(in) | stab, | ||
real(kind=8), dimension(:), intent(in) | mu_H_field, | ||
real(kind=8), dimension(:), intent(in) | sigma, | ||
type(petsc_csr_la) | LA_H, | ||
H_p_phi_mat1, | |||
H_p_phi_mat2 | |||
) |
Definition at line 3886 of file maxwell_update_time_with_B.f90.
subroutine, public update_maxwell_with_b::maxwell_decouple_with_b | ( | pointer | comm_one_d, |
type(mesh_type), intent(in) | H_mesh, | ||
type(mesh_type), intent(in) | pmag_mesh, | ||
type(mesh_type), intent(in) | phi_mesh, | ||
type(interface_type), intent(in) | interface_H_phi, | ||
type(interface_type), intent(in) | interface_H_mu, | ||
real(kind=8), dimension(h_mesh%np,6,size(list_mode)), intent(inout) | Hn, | ||
real(kind=8), dimension(h_mesh%np,6,size(list_mode)), intent(inout) | Bn, | ||
real(kind=8), dimension(:,:,:), intent(inout) | phin, | ||
real(kind=8), dimension(h_mesh%np,6,size(list_mode)), intent(inout) | Hn1, | ||
real(kind=8), dimension(h_mesh%np,6,size(list_mode)), intent(inout) | Bn1, | ||
real(kind=8), dimension(:,:,:), intent(inout) | phin1, | ||
real(kind=8), dimension(:,:,:), intent(inout) | vel, | ||
real(kind=8), dimension(3), intent(in) | stab_in, | ||
real(kind=8), dimension(:), intent(in) | sigma_in, | ||
real(kind=8), intent(in) | R_fourier, | ||
integer, intent(in) | index_fourier, | ||
real(kind=8), dimension(:), intent(in) | mu_H_field, | ||
real(kind=8), intent(in) | mu_phi, | ||
real(kind=8), intent(in) | time, | ||
real(kind=8), intent(in) | dt_in, | ||
real(kind=8), intent(in) | Rem, | ||
integer, dimension(:), intent(in) | list_mode, | ||
type(periodic_type), intent(in) | H_phi_per, | ||
type(petsc_csr_la) | LA_H, | ||
type(petsc_csr_la) | LA_pmag, | ||
type(petsc_csr_la) | LA_phi, | ||
type(petsc_csr_la) | LA_mhd, | ||
real(kind=8), dimension(:,:,:), intent(in) | sigma_ns_in, | ||
integer, dimension(:), intent(in) | jj_v_to_H | ||
) |
Definition at line 17 of file maxwell_update_time_with_B.f90.
real(kind=8) function, dimension(nb_angles,ne-nb+1) update_maxwell_with_b::minus_one_over_mu | ( | type(mesh_type), intent(in) | H_mesh, |
real(kind=8), dimension(:), intent(in) | angles, | ||
integer, intent(in) | nb_angles, | ||
integer, intent(in) | nb, | ||
integer, intent(in) | ne, | ||
real(kind=8), intent(in) | time | ||
) |
Definition at line 4986 of file maxwell_update_time_with_B.f90.
real(kind=8) function, dimension(nb_angles,ne-nb+1) update_maxwell_with_b::one_over_mu | ( | type(mesh_type), intent(in) | H_mesh, |
real(kind=8), dimension(:), intent(in) | angles, | ||
integer, intent(in) | nb_angles, | ||
integer, intent(in) | nb, | ||
integer, intent(in) | ne, | ||
real(kind=8), intent(in) | time | ||
) |
Definition at line 5002 of file maxwell_update_time_with_B.f90.
subroutine update_maxwell_with_b::rhs_dirichlet | ( | type(mesh_type), intent(in) | H_mesh, |
integer, dimension(:), intent(in) | Dirichlet_bdy_H_sides, | ||
real(kind=8), dimension(h_mesh%me), intent(in) | sigma, | ||
real(kind=8), dimension(:), intent(in) | mu_H_field, | ||
real(kind=8), intent(in) | time, | ||
integer, intent(in) | mode, | ||
real(kind=8), dimension(:,:), intent(in) | nl, | ||
real(kind=8), dimension(3), intent(in) | stab, | ||
type(petsc_csr_la) | LA_H, | ||
vb_1, | |||
vb_2, | |||
real(kind=8), dimension(:,:), intent(in) | B_ext, | ||
real(kind=8), dimension(:,:), intent(in) | J_over_sigma, | ||
real(kind=8), dimension(:,:), intent(in) | sigma_curl_bdy_in | ||
) |
Definition at line 4722 of file maxwell_update_time_with_B.f90.
subroutine update_maxwell_with_b::smb_current_over_sigma | ( | communicator, | |
type(mesh_type), intent(in) | mesh, | ||
integer, dimension(:), intent(in) | list_mode, | ||
real(kind=8), dimension(:), intent(in) | mu_H_field, | ||
real(kind=8), intent(in) | mu_phi, | ||
real(kind=8), dimension(:,:,:), intent(in) | sigma_tot, | ||
real(kind=8), intent(in) | time, | ||
real(kind=8), dimension(:,:,:), intent(out) | J_over_sigma | ||
) |
Definition at line 5222 of file maxwell_update_time_with_B.f90.
subroutine update_maxwell_with_b::smb_sigma_prod_curl | ( | communicator, | |
type(mesh_type), intent(in) | mesh, | ||
integer, dimension(:), intent(in) | list_mode, | ||
real(kind=8), dimension(:,:,:), intent(in) | H_in, | ||
real(kind=8), dimension(:), intent(in) | sigma_bar, | ||
real(kind=8), dimension(:,:,:), intent(in) | sigma_in, | ||
real(kind=8), dimension(:,:,:) | V_out | ||
) |
Definition at line 5017 of file maxwell_update_time_with_B.f90.
subroutine update_maxwell_with_b::smb_sigma_prod_curl_bdy | ( | communicator, | |
type(mesh_type), intent(in) | mesh, | ||
integer, dimension(:), intent(in) | Dirichlet_bdy_H_sides, | ||
integer, dimension(:), intent(in) | list_mode, | ||
real(kind=8), dimension(:,:,:), intent(in) | H_in, | ||
real(kind=8), dimension(:), intent(in) | sigma_bar, | ||
real(kind=8), dimension(:,:,:), intent(in) | sigma_in, | ||
real(kind=8), dimension(:,:,:) | V_out | ||
) |
Definition at line 5110 of file maxwell_update_time_with_B.f90.
subroutine update_maxwell_with_b::surf_int | ( | type(mesh_type), intent(in) | H_mesh, |
type(mesh_type), intent(in) | phi_mesh, | ||
type(interface_type), intent(in) | interface_H_phi, | ||
type(interface_type), intent(in) | interface_H_mu, | ||
integer, dimension(:), intent(in) | list_dirichlet_sides_H, | ||
real(kind=8), dimension(h_mesh%me), intent(in) | sigma, | ||
real(kind=8), intent(in) | mu_phi, | ||
real(kind=8), dimension(:), intent(in) | mu_H_field, | ||
real(kind=8), intent(in) | time, | ||
integer, intent(in) | mode, | ||
type(petsc_csr_la) | LA_H, | ||
type(petsc_csr_la) | LA_phi, | ||
vb_1, | |||
vb_2, | |||
real(kind=8), optional | R_fourier, | ||
integer, optional | index_fourier | ||
) |
Definition at line 3601 of file maxwell_update_time_with_B.f90.
|
private |
Definition at line 10 of file maxwell_update_time_with_B.f90.