7 SUBROUTINE maxwell_decouple(comm_one_d, H_mesh, pmag_mesh, phi_mesh, interface_H_phi, &
8 interface_h_mu, hn, bn, phin, hn1, bn1, phin1, vel, stab_in, sigma_in, &
9 r_fourier, index_fourier, mu_h_field, mu_phi, time, dt, rem, list_mode, &
12 h_phi_per, la_h, la_pmag, la_phi, la_mhd, one_over_sigma_ns, jj_v_to_h)
21 TYPE(
mesh_type),
INTENT(IN) :: H_mesh, phi_mesh, pmag_mesh
22 TYPE(
interface_type),
INTENT(IN) :: interface_H_phi, interface_H_mu
23 INTEGER,
DIMENSION(:),
INTENT(IN) :: list_mode
24 REAL(KIND=8),
DIMENSION(:,:,:),
INTENT(INOUT) :: vel
25 REAL(KIND=8),
DIMENSION(H_mesh%np,6,SIZE(list_mode)),
INTENT(INOUT) :: Hn, Hn1
26 REAL(KIND=8),
DIMENSION(H_mesh%np,6,SIZE(list_mode)),
INTENT(INOUT) :: Bn, Bn1
27 REAL(KIND=8),
DIMENSION(:,:,:),
INTENT(INOUT) :: phin, phin1
28 REAL(KIND=8),
DIMENSION(3),
INTENT(IN) :: stab_in
29 REAL(KIND=8),
INTENT(IN) :: R_fourier
30 INTEGER,
INTENT(IN) :: index_fourier
31 REAL(KIND=8),
INTENT(IN) :: mu_phi, time, dt, Rem
32 REAL(KIND=8),
DIMENSION(:),
INTENT(IN) :: sigma_in, mu_H_field
36 REAL(KIND=8),
DIMENSION(:,:,:),
INTENT(IN) :: one_over_sigma_ns
38 INTEGER,
DIMENSION(:),
INTENT(IN) :: jj_v_to_H
44 #include "petsc/finclude/petsc.h" 45 mpi_comm,
DIMENSION(:),
POINTER :: comm_one_d
47 IF (
inputs%if_maxwell_with_H)
THEN 49 interface_h_mu, hn, bn, phin, hn1, bn1, phin1, vel, stab_in, sigma_in, &
50 r_fourier, index_fourier, mu_h_field, mu_phi, time, dt, rem, list_mode, &
53 h_phi_per, la_h, la_pmag, la_phi, la_mhd, one_over_sigma_ns, jj_v_to_h)
62 interface_h_mu, hn, bn, phin, hn1, bn1, phin1, vel, stab_in, sigma_in, &
63 r_fourier, index_fourier, mu_h_field, mu_phi, time, dt, rem, list_mode, &
66 h_phi_per, la_h, la_pmag, la_phi, la_mhd, one_over_sigma_ns, jj_v_to_h)
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, one_over_sigma_ns_in, jj_v_to_H)
subroutine, public maxwell_decouple(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,
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_in, Rem, list_mode, H_phi_per, LA_H, LA_pmag, LA_phi, LA_mhd, one_over_sigma_ns_in, jj_v_to_H)