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, &
10 h_phi_per, la_h, la_pmag, la_phi, la_mhd, sigma_ns, jj_v_to_h)
18 TYPE(mesh_type),
INTENT(IN) :: h_mesh, phi_mesh, pmag_mesh
19 TYPE(interface_type),
INTENT(IN) :: interface_h_phi, interface_h_mu
20 INTEGER,
DIMENSION(:),
INTENT(IN) :: list_mode
21 REAL(KIND=8),
DIMENSION(:,:,:),
INTENT(INOUT) :: vel
22 REAL(KIND=8),
DIMENSION(H_mesh%np,6,SIZE(list_mode)),
INTENT(INOUT) :: hn, hn1
23 REAL(KIND=8),
DIMENSION(H_mesh%np,6,SIZE(list_mode)),
INTENT(INOUT) :: bn, bn1
24 REAL(KIND=8),
DIMENSION(:,:,:),
INTENT(INOUT) :: phin, phin1
25 REAL(KIND=8),
DIMENSION(3),
INTENT(IN) :: stab_in
26 REAL(KIND=8),
INTENT(IN) :: r_fourier
27 INTEGER,
INTENT(IN) :: index_fourier
28 REAL(KIND=8),
INTENT(IN) :: mu_phi, time, dt, rem
29 REAL(KIND=8),
DIMENSION(:),
INTENT(IN) :: sigma_in, mu_h_field
31 REAL(KIND=8),
DIMENSION(:,:,:),
INTENT(IN) :: sigma_ns
32 INTEGER,
DIMENSION(:),
INTENT(IN) :: jj_v_to_h
38 #include "petsc/finclude/petsc.h"
39 mpi_comm,
DIMENSION(:),
POINTER :: comm_one_d
41 IF (inputs%if_maxwell_with_H)
THEN
43 interface_h_mu, hn, bn, phin, hn1, bn1, phin1, vel, stab_in, sigma_in, &
44 r_fourier, index_fourier, mu_h_field, mu_phi, time, dt, rem, list_mode, &
45 h_phi_per, la_h, la_pmag, la_phi, la_mhd, sigma_ns, jj_v_to_h)
53 interface_h_mu, hn, bn, phin, hn1, bn1, phin1, vel, stab_in, sigma_in, &
54 r_fourier, index_fourier, mu_h_field, mu_phi, time, dt, rem, list_mode, &
55 h_phi_per, la_h, la_pmag, la_phi, la_mhd, 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, sigma_ns_in, jj_v_to_H)
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, 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, H_phi_per, LA_H, LA_pmag, LA_phi, LA_mhd, sigma_ns, jj_v_to_H)