|
complex,
|
private, |
dimension(:), allocatable
|
:: |
g_buffer0 |
|
|
|
|
complex,
|
private, |
dimension(:), allocatable
|
:: |
g_buffer1 |
|
|
|
|
complex,
|
public, |
dimension(:), allocatable
|
:: |
phi_buffer0 |
|
|
|
|
complex,
|
public, |
dimension(:), allocatable
|
:: |
phi_buffer1 |
|
|
|
|
complex,
|
private, |
dimension(:), allocatable
|
:: |
fsa_x |
|
|
|
|
real,
|
private, |
dimension(:), allocatable
|
:: |
copy_mask_left |
|
|
|
|
real,
|
private, |
dimension(:), allocatable
|
:: |
copy_mask_right |
|
|
|
|
real,
|
private, |
dimension(:), allocatable
|
:: |
krook_mask_left |
|
|
|
|
real,
|
private, |
dimension(:), allocatable
|
:: |
krook_mask_right |
|
|
|
|
real,
|
private, |
dimension(:), allocatable
|
:: |
krook_fac |
|
|
|
|
real,
|
private, |
dimension(:), allocatable
|
:: |
b_mat |
|
|
|
|
real,
|
private, |
dimension(:), allocatable
|
:: |
x_mb |
|
|
|
|
real,
|
private, |
dimension(:), allocatable
|
:: |
rho_mb |
|
|
|
|
real,
|
private, |
dimension(:), allocatable
|
:: |
rho_mb_clamped |
|
|
|
|
real,
|
public, |
dimension(2, 2)
|
:: |
time_multibox |
= |
0. |
|
|
real,
|
private |
|
:: |
dx_mb |
|
|
|
|
complex,
|
private, |
dimension(:, :), allocatable
|
:: |
fft_kxky |
|
|
|
|
complex,
|
private, |
dimension(:, :), allocatable
|
:: |
fft_xky |
|
|
|
|
real,
|
private, |
dimension(:, :), allocatable
|
:: |
fft_xy |
|
|
|
|
type(fft_type),
|
private |
|
:: |
yf_fft |
|
|
|
|
type(fft_type),
|
private |
|
:: |
yb_fft |
|
|
|
|
type(fft_type),
|
private |
|
:: |
xf_fft |
|
|
|
|
type(fft_type),
|
private |
|
:: |
xb_fft |
|
|
|
|
complex,
|
private, |
dimension(:), allocatable
|
:: |
fft_x_k |
|
|
|
|
complex,
|
private, |
dimension(:), allocatable
|
:: |
fft_x_x |
|
|
|
|
complex,
|
private, |
dimension(:), allocatable
|
:: |
fft_y_k |
|
|
|
|
real,
|
private, |
dimension(:), allocatable
|
:: |
fft_y_y |
|
|
|
|
logical,
|
private |
|
:: |
mb_transforms_initialized |
= |
.false. |
|
|
logical,
|
private |
|
:: |
get_phi_initialized |
= |
.false. |
|
|
logical,
|
private |
|
:: |
use_multibox |
|
|
|
|
integer,
|
private |
|
:: |
temp_ind |
= |
0 |
|
|
integer,
|
public |
|
:: |
bs_fullgrid |
|
|
|
|
integer,
|
private |
|
:: |
mb_debug_step |
|
|
|
|
integer,
|
private |
|
:: |
x_fft_size |
|
|
|
|
integer,
|
private |
|
:: |
phi_bound |
|
|
|
|
integer,
|
private |
|
:: |
phi_pow |
|
|
|
|
integer,
|
private |
|
:: |
ikymin |
|
|
|
|
real,
|
public |
|
:: |
xL |
= |
0. |
|
|
real,
|
public |
|
:: |
xR |
= |
0. |
|
|
real,
|
public |
|
:: |
rhoL |
= |
0. |
|
|
real,
|
public |
|
:: |
rhoR |
= |
0. |
|
|
real,
|
public |
|
:: |
kx0_L |
|
|
|
|
real,
|
public |
|
:: |
kx0_R |
|
|
|
|
real,
|
private |
|
:: |
nu_krook_mb |
|
|
|
|
real,
|
private |
|
:: |
krook_exponent |
|
|
|
|
real,
|
private |
|
:: |
krook_efold |
|
|
|
|
logical,
|
private |
|
:: |
smooth_ZFs |
|
|
|
|
logical,
|
public |
|
:: |
use_dirichlet_BC |
|
|
|
|
logical,
|
public |
|
:: |
RK_step |
|
|
|
|
logical,
|
public |
|
:: |
include_multibox_krook |
|
|
|
|
logical,
|
public |
|
:: |
comm_at_init |
|
|
|
|
integer,
|
private |
|
:: |
krook_option_switch |
|
|
|
|
integer,
|
private, |
parameter
|
:: |
krook_option_default |
= |
2 |
|
|
integer,
|
private, |
parameter
|
:: |
krook_option_flat |
= |
0 |
|
|
integer,
|
private, |
parameter
|
:: |
krook_option_linear |
= |
1 |
|
|
integer,
|
private, |
parameter
|
:: |
krook_option_exp |
= |
2 |
|
|
integer,
|
private, |
parameter
|
:: |
krook_option_exp_rev |
= |
3 |
|
|
integer,
|
private |
|
:: |
mb_zf_option_switch |
|
|
|
|
integer,
|
private, |
parameter
|
:: |
mb_zf_option_default |
= |
0 |
|
|
integer,
|
private, |
parameter
|
:: |
mb_zf_option_skip_ky0 |
= |
1 |
|
|
integer,
|
private, |
parameter
|
:: |
mb_zf_option_zero_ky0 |
= |
2 |
|
|
integer,
|
private, |
parameter
|
:: |
mb_zf_option_zero_fsa |
= |
3 |
|
|
integer,
|
private |
|
:: |
LR_debug_switch |
|
|
|
|
integer,
|
private, |
parameter
|
:: |
LR_debug_option_default |
= |
0 |
|
|
integer,
|
private, |
parameter
|
:: |
LR_debug_option_L |
= |
1 |
|
|
integer,
|
private, |
parameter
|
:: |
LR_debug_option_R |
= |
2 |
|