SFEMaNS
version 4.1 (work in progress)
Reference documentation for SFEMaNS
|
Public Member Functions | |
subroutine, public | maxwell_decouple_with_h (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, 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, 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, H_ext, 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, H_ext) |
subroutine | rhs_dirichlet (H_mesh, Dirichlet_bdy_H_sides, sigma, mu_H_field, time, mode, nl, stab, LA_H, vb_1, vb_2, H_ext, J_over_sigma, sigma_curl_bdy) |
subroutine | dirichlet_cavities (communicator, interface_H_phi, mesh, js_D) |
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_H.f90.
subroutine update_maxwell_with_h::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) | H_ext, | ||
real(kind=8), dimension(:,:), intent(in) | sigma_curl, | ||
real(kind=8), dimension(:,:), intent(in) | J_over_sigma | ||
) |
Definition at line 2644 of file maxwell_update_time_with_H.f90.
subroutine update_maxwell_with_h::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) | H_ext | ||
) |
Definition at line 3906 of file maxwell_update_time_with_H.f90.
subroutine update_maxwell_with_h::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 4236 of file maxwell_update_time_with_H.f90.
subroutine update_maxwell_with_h::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, | ||
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 2273 of file maxwell_update_time_with_H.f90.
subroutine update_maxwell_with_h::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 592 of file maxwell_update_time_with_H.f90.
subroutine update_maxwell_with_h::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 3306 of file maxwell_update_time_with_H.f90.
subroutine, public update_maxwell_with_h::maxwell_decouple_with_h | ( | 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, | ||
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 16 of file maxwell_update_time_with_H.f90.
subroutine update_maxwell_with_h::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) | H_ext, | ||
real(kind=8), dimension(:,:), intent(in) | J_over_sigma, | ||
real(kind=8), dimension(:,:), intent(in) | sigma_curl_bdy | ||
) |
Definition at line 4081 of file maxwell_update_time_with_H.f90.
subroutine update_maxwell_with_h::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 4566 of file maxwell_update_time_with_H.f90.
subroutine update_maxwell_with_h::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 4346 of file maxwell_update_time_with_H.f90.
subroutine update_maxwell_with_h::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 4447 of file maxwell_update_time_with_H.f90.
subroutine update_maxwell_with_h::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 3019 of file maxwell_update_time_with_H.f90.
|
private |
Definition at line 10 of file maxwell_update_time_with_H.f90.