|
complex,
|
public, |
dimension(:, :, :, :), allocatable
|
:: |
phi |
|
|
|
|
complex,
|
public, |
dimension(:, :, :, :), allocatable
|
:: |
phi_old |
|
|
|
|
complex,
|
public, |
dimension(:, :, :, :), allocatable
|
:: |
apar |
|
|
|
|
complex,
|
public, |
dimension(:, :, :, :), allocatable
|
:: |
apar_old |
|
|
|
|
complex,
|
public, |
dimension(:, :, :, :), allocatable
|
:: |
bpar |
|
|
|
|
complex,
|
public, |
dimension(:, :, :, :), allocatable
|
:: |
bpar_old |
|
|
|
|
complex,
|
public, |
dimension(:, :, :, :), pointer
|
:: |
phi_shared |
|
|
|
|
complex,
|
public, |
dimension(:, :, :, :), allocatable
|
:: |
phi_corr_QN |
|
|
|
|
complex,
|
public, |
dimension(:, :, :, :), allocatable
|
:: |
apar_corr_QN |
|
|
|
|
complex,
|
public, |
dimension(:, :, :), allocatable
|
:: |
phi_proj |
|
|
|
|
complex,
|
public, |
dimension(:, :, :), allocatable
|
:: |
phi_proj_stage |
|
|
|
|
complex,
|
public, |
dimension(:, :, :, :, :), allocatable
|
:: |
phi_corr_GA |
|
|
|
|
complex,
|
public, |
dimension(:, :, :, :, :), allocatable
|
:: |
apar_corr_GA |
|
|
|
|
type(response_matrix_type),
|
public, |
dimension(:), allocatable
|
:: |
response_matrix |
|
|
|
|
integer,
|
public |
|
:: |
response_window |
= |
MPI_WIN_NULL |
|
|
real,
|
public, |
dimension(:), allocatable
|
:: |
shift_state |
|
|
|
|
real,
|
public, |
dimension(:, :, :), allocatable
|
:: |
gamtot |
|
|
|
|
real,
|
public, |
dimension(:, :, :), allocatable
|
:: |
dgamtotdr |
|
|
|
|
real,
|
public, |
dimension(:, :, :), allocatable
|
:: |
gamtot13 |
|
|
|
|
real,
|
public, |
dimension(:, :, :), allocatable
|
:: |
gamtot31 |
|
|
|
|
real,
|
public, |
dimension(:, :, :), allocatable
|
:: |
gamtot33 |
|
|
|
|
real,
|
public, |
dimension(:, :, :), allocatable
|
:: |
gamtotinv11 |
|
|
|
|
real,
|
public, |
dimension(:, :, :), allocatable
|
:: |
gamtotinv13 |
|
|
|
|
real,
|
public, |
dimension(:, :, :), allocatable
|
:: |
gamtotinv31 |
|
|
|
|
real,
|
public, |
dimension(:, :, :), allocatable
|
:: |
gamtotinv33 |
|
|
|
|
real,
|
public, |
dimension(:, :), allocatable
|
:: |
gamtot3 |
|
|
|
|
real,
|
public, |
dimension(:, :, :), allocatable
|
:: |
apar_denom |
|
|
|
|
complex,
|
public, |
dimension(:, :, :), allocatable
|
:: |
theta |
|
|
|
|
complex,
|
public, |
dimension(:, :), allocatable
|
:: |
c_mat |
|
|
|
|
complex,
|
public, |
dimension(:), pointer
|
:: |
phi_ext |
=> |
null() |
|
|
type(eigen_type),
|
public, |
dimension(:, :), allocatable
|
:: |
phi_solve |
|
|
|
|
type(eigen_type),
|
public |
|
:: |
phizf_solve |
|
|
|
|
logical,
|
public |
|
:: |
exclude_boundary_regions_qn |
|
|
|
|
real,
|
public |
|
:: |
tcorr_source_qn |
|
|
|
|
real,
|
public |
|
:: |
exp_fac_qn |
|
|
|
|
integer,
|
public |
|
:: |
qn_window |
= |
MPI_WIN_NULL |
|
|
integer,
|
public |
|
:: |
qn_zf_window |
= |
MPI_WIN_NULL |
|
|
real,
|
public |
|
:: |
gamtot_h |
|
|
|
|
real,
|
public |
|
:: |
gamtot3_h |
|
|
|
|
real,
|
public |
|
:: |
efac |
|
|
|
|
real,
|
public |
|
:: |
efacp |
|
|
|
|
real,
|
public, |
dimension(2, 5)
|
:: |
time_field_solve |
= |
0. |
|