character(len=str_len_arr),
|
public, |
parameter
|
:: |
S_name |
= |
"S" |
|
character(len=str_len_arr),
|
public, |
parameter
|
:: |
div_v_name |
= |
"div v" |
|
character(len=str_len_arr),
|
public, |
parameter
|
:: |
curl_v_1_name |
= |
"(curl v)1" |
|
character(len=str_len_arr),
|
public, |
parameter
|
:: |
curl_v_2_name |
= |
"(curl v)2" |
|
character(len=str_len_arr),
|
public, |
parameter
|
:: |
curl_v_3_name |
= |
"(curl v)3" |
|
character(len=str_len_arr),
|
public, |
parameter
|
:: |
B1_name |
= |
"B1" |
|
character(len=str_len_arr),
|
public, |
parameter
|
:: |
B2_name |
= |
"B2" |
|
character(len=str_len_arr),
|
public, |
parameter
|
:: |
B3_name |
= |
"B3" |
|
character(len=str_len_arr),
|
public, |
parameter
|
:: |
div_B_name |
= |
"div B" |
|
character(len=str_len_arr),
|
public, |
parameter
|
:: |
curl_B_1_name |
= |
"(curl B)1" |
|
character(len=str_len_arr),
|
public, |
parameter
|
:: |
curl_B_2_name |
= |
"(curl B)2" |
|
character(len=str_len_arr),
|
public, |
parameter
|
:: |
curl_B_3_name |
= |
"(curl B)3" |
|
character(len=str_len_arr),
|
public, |
parameter
|
:: |
B_para_name |
= |
"B_para" |
|
character(len=str_len_arr),
|
public, |
parameter
|
:: |
B_perp_name |
= |
"B_perp" |
|
character(len=str_len_arr),
|
public, |
parameter
|
:: |
curl_B_para_name |
= |
"(curl B)_para" |
|
character(len=str_len_arr),
|
public, |
parameter
|
:: |
curl_B_perp_name |
= |
"(curl B)_perp" |
|
character(len=str_len_arr),
|
public, |
parameter
|
:: |
v_para_name |
= |
"v_para" |
|
character(len=str_len_arr),
|
public, |
parameter
|
:: |
v_perp_name |
= |
"v_perp" |
|
character(len=str_len_arr),
|
public, |
parameter
|
:: |
curl_v_para_name |
= |
"(curl v)_para" |
|
character(len=str_len_arr),
|
public, |
parameter
|
:: |
curl_v_perp_name |
= |
"(curl v)_perp" |
|
character(len=str_len_arr),
|
public, |
parameter
|
:: |
dB1_name |
= |
"dB1" |
|
character(len=:),
|
private, |
allocatable
|
:: |
state_vector(:) |
|
|
|
logical,
|
private |
|
:: |
can_get_pp |
|
|
|