test_parallel_map3d_m Module

Tests for the map routines in 3d stellarator geometries


Uses


Contents

Variables

trace_prec ref_dpar_fwd_half ref_dpar_bwd_half ref_dpar_fwd_full ref_dpar_bwd_full ref_fluxbox_vol ref_dpar_fwd_half_stag ref_dpar_bwd_half_stag ref_dpar_fwd_full_stag ref_dpar_bwd_full_stag ref_fluxbox_vol_stag ref_map_stag_cano_fwd_nnz ref_map_stag_cano_fwd_j ref_map_stag_cano_fwd_val ref_map_stag_cano_fwd_dsum ref_map_stag_cano_bwd_nnz ref_map_stag_cano_bwd_j ref_map_stag_cano_bwd_val ref_map_stag_cano_bwd_dsum ref_map_cano_stag_fwd_nnz ref_map_cano_stag_fwd_j ref_map_cano_stag_fwd_val ref_map_cano_stag_fwd_dsum ref_map_cano_stag_bwd_nnz ref_map_cano_stag_bwd_j ref_map_cano_stag_bwd_val ref_map_cano_stag_bwd_dsum ref_grad_stag_cano_fwd_nnz ref_grad_stag_cano_fwd_j ref_grad_stag_cano_fwd_val ref_grad_stag_cano_fwd_dsum ref_grad_stag_cano_bwd_nnz ref_grad_stag_cano_bwd_j ref_grad_stag_cano_bwd_val ref_grad_stag_cano_bwd_dsum ref_pdiv_cano_stag_fwd_nnz ref_pdiv_cano_stag_fwd_j ref_pdiv_cano_stag_fwd_val ref_pdiv_cano_stag_fwd_dsum ref_pdiv_cano_stag_bwd_nnz ref_pdiv_cano_stag_bwd_j ref_pdiv_cano_stag_bwd_val ref_pdiv_cano_stag_bwd_dsum ref_map_cano_cano_fwd_nnz ref_map_cano_cano_fwd_j ref_map_cano_cano_fwd_val ref_map_cano_cano_fwd_dsum ref_map_cano_cano_bwd_nnz ref_map_cano_cano_bwd_j ref_map_cano_cano_bwd_val ref_map_cano_cano_bwd_dsum ref_map_stag_stag_fwd_nnz ref_map_stag_stag_fwd_j ref_map_stag_stag_fwd_val ref_map_stag_stag_fwd_dsum ref_map_stag_stag_bwd_nnz ref_map_stag_stag_bwd_j ref_map_stag_stag_bwd_val ref_map_stag_stag_bwd_dsum ref_map_cano_cano_fwd2_nnz ref_map_cano_cano_fwd2_j ref_map_cano_cano_fwd2_val ref_map_cano_cano_fwd2_dsum ref_map_cano_cano_bwd2_nnz ref_map_cano_cano_bwd2_j ref_map_cano_cano_bwd2_val ref_map_cano_cano_bwd2_dsum

Subroutines


Variables

Type Visibility Attributes Name Initial
real(kind=GP), public, parameter :: trace_prec = 10E-7_GP
real(kind=GP), public, parameter, dimension(4) :: ref_dpar_fwd_half = [8.109940915299E-01_GP, 8.044066191614E-01_GP, 8.298382641725E-01_GP, 8.371604916492E-01_GP]
real(kind=GP), public, parameter, dimension(4) :: ref_dpar_bwd_half = [8.097832649010E-01_GP, 8.202903105972E-01_GP, 8.471039311781E-01_GP, 8.355766086507E-01_GP]
real(kind=GP), public, parameter, dimension(4) :: ref_dpar_fwd_full = [1.596287027802E+00_GP, 1.611192453990E+00_GP, 1.647061165634E+00_GP, 1.629495083576E+00_GP]
real(kind=GP), public, parameter, dimension(4) :: ref_dpar_bwd_full = [1.646852278182E+00_GP, 1.633834783669E+00_GP, 1.675962788927E+00_GP, 1.693809193333E+00_GP]
real(kind=GP), public, parameter, dimension(4) :: ref_fluxbox_vol = [1.604679369248E-04_GP, 1.602771975793E-04_GP, 1.725651938550E-04_GP, 1.726492995507E-04_GP]
real(kind=GP), public, parameter, dimension(4) :: ref_dpar_fwd_half_stag = [8.391447748292E-01_GP, 8.252207747489E-01_GP, 8.026059378764E-01_GP, 8.154286539574E-01_GP]
real(kind=GP), public, parameter, dimension(4) :: ref_dpar_bwd_half_stag = [8.471918318741E-01_GP, 8.200521764416E-01_GP, 8.099458741252E-01_GP, 8.355591111122E-01_GP]
real(kind=GP), public, parameter, dimension(4) :: ref_dpar_fwd_full_stag = [1.645662688617E+00_GP, 1.609375378967E+00_GP, 1.596802539322E+00_GP, 1.632191638072E+00_GP]
real(kind=GP), public, parameter, dimension(4) :: ref_dpar_bwd_full_stag = [1.694765877082E+00_GP, 1.672732839240E+00_GP, 1.631689585973E+00_GP, 1.651271938455E+00_GP]
real(kind=GP), public, parameter, dimension(4) :: ref_fluxbox_vol_stag = [1.753256596058E-04_GP, 1.664289926310E-04_GP, 1.580065973086E-04_GP, 1.662010377293E-04_GP]
integer, public, parameter, dimension(4) :: ref_map_stag_cano_fwd_nnz = [3032, 3008, 3029, 3011]
integer, public, parameter, dimension(4) :: ref_map_stag_cano_fwd_j = [257, 223, 161, 194]
real(kind=GP), public, parameter, dimension(4) :: ref_map_stag_cano_fwd_val = [3.374995633528E-04_GP, 1.222234982036E-03_GP, 1.598124000418E-03_GP, 1.436909739511E-03_GP]
real(kind=GP), public, parameter, dimension(4) :: ref_map_stag_cano_fwd_dsum = [2.690000000000E+02_GP, 2.690000000000E+02_GP, 2.750000000000E+02_GP, 2.630000000000E+02_GP]
integer, public, parameter, dimension(4) :: ref_map_stag_cano_bwd_nnz = [3011, 3029, 3008, 3032]
integer, public, parameter, dimension(4) :: ref_map_stag_cano_bwd_j = [184, 253, 144, 172]
real(kind=GP), public, parameter, dimension(4) :: ref_map_stag_cano_bwd_val = [9.730549633343E-02_GP, 8.423970861761E-01_GP, 4.096881745275E-03_GP, 3.426701368566E-03_GP]
real(kind=GP), public, parameter, dimension(4) :: ref_map_stag_cano_bwd_dsum = [2.630000000000E+02_GP, 2.750000000000E+02_GP, 2.690000000000E+02_GP, 2.690000000000E+02_GP]
integer, public, parameter, dimension(4) :: ref_map_cano_stag_fwd_nnz = [3061, 3108, 3061, 2981]
integer, public, parameter, dimension(4) :: ref_map_cano_stag_fwd_j = [210, 143, 245, 264]
real(kind=GP), public, parameter, dimension(4) :: ref_map_cano_stag_fwd_val = [3.460249705519E-03_GP, 1.998407315066E-03_GP, 4.888856946138E-04_GP, 1.613797275680E-01_GP]
real(kind=GP), public, parameter, dimension(4) :: ref_map_cano_stag_fwd_dsum = [2.710000000000E+02_GP, 2.700000000000E+02_GP, 2.710000000000E+02_GP, 2.630000000000E+02_GP]
integer, public, parameter, dimension(4) :: ref_map_cano_stag_bwd_nnz = [3061, 2981, 3061, 3108]
integer, public, parameter, dimension(4) :: ref_map_cano_stag_bwd_j = [239, 125, 173, 249]
real(kind=GP), public, parameter, dimension(4) :: ref_map_cano_stag_bwd_val = [1.366779434239E-03_GP, 1.492377500038E-03_GP, 4.108573911257E-03_GP, 2.134135175149E-01_GP]
real(kind=GP), public, parameter, dimension(4) :: ref_map_cano_stag_bwd_dsum = [2.710000000000E+02_GP, 2.630000000000E+02_GP, 2.710000000000E+02_GP, 2.700000000000E+02_GP]
integer, public, parameter, dimension(4) :: ref_grad_stag_cano_fwd_nnz = [4521, 4442, 4567, 4460]
integer, public, parameter, dimension(4) :: ref_grad_stag_cano_fwd_j = [257, 215, 160, 193]
real(kind=GP), public, parameter, dimension(4) :: ref_grad_stag_cano_fwd_val = [3.982309700978E-04_GP, 5.728191225148E-04_GP, 6.346928619128E-05_GP, 5.296650445312E-04_GP]
real(kind=GP), public, parameter, dimension(4) :: ref_grad_stag_cano_fwd_dsum = [1.716142759309E+02_GP, 1.729354151250E+02_GP, 1.753824705662E+02_GP, 1.674894722847E+02_GP]
integer, public, parameter, dimension(4) :: ref_grad_stag_cano_bwd_nnz = [4460, 4567, 4442, 4521]
integer, public, parameter, dimension(4) :: ref_grad_stag_cano_bwd_j = [174, 239, 136, 166]
real(kind=GP), public, parameter, dimension(4) :: ref_grad_stag_cano_bwd_val = [8.796162159344E-05_GP, 4.580986364616E-04_GP, 3.281858157403E-04_GP, 2.749827551295E-04_GP]
real(kind=GP), public, parameter, dimension(4) :: ref_grad_stag_cano_bwd_dsum = [1.674894727016E+02_GP, 1.753824710060E+02_GP, 1.729354147046E+02_GP, 1.716142754954E+02_GP]
integer, public, parameter, dimension(4) :: ref_pdiv_cano_stag_fwd_nnz = [4460, 4567, 4442, 4521]
integer, public, parameter, dimension(4) :: ref_pdiv_cano_stag_fwd_j = [156, 151, 199, 196]
real(kind=GP), public, parameter, dimension(4) :: ref_pdiv_cano_stag_fwd_val = [-5.845057707572E-07_GP, 1.316895418855E-04_GP, -1.827118536358E-04_GP, -9.238020016211E-05_GP]
real(kind=GP), public, parameter, dimension(4) :: ref_pdiv_cano_stag_fwd_dsum = [-1.674437972331E+02_GP, -1.766337369756E+02_GP, -1.744762490743E+02_GP, -1.727737730022E+02_GP]
integer, public, parameter, dimension(4) :: ref_pdiv_cano_stag_bwd_nnz = [4460, 4521, 4442, 4567]
integer, public, parameter, dimension(4) :: ref_pdiv_cano_stag_bwd_j = [142, 54, 176, 200]
real(kind=GP), public, parameter, dimension(4) :: ref_pdiv_cano_stag_bwd_val = [3.034447258607E-05_GP, -3.201678639284E-04_GP, -4.445158439019E-02_GP, -6.503608420823E-04_GP]
real(kind=GP), public, parameter, dimension(4) :: ref_pdiv_cano_stag_bwd_dsum = [-1.674437971647E+02_GP, -1.727737720537E+02_GP, -1.744762482897E+02_GP, -1.766337370860E+02_GP]
integer, public, parameter, dimension(4) :: ref_map_cano_cano_fwd_nnz = [3045, 3017, 3085, 3040]
integer, public, parameter, dimension(4) :: ref_map_cano_cano_fwd_j = [202, 182, 223, 230]
real(kind=GP), public, parameter, dimension(4) :: ref_map_cano_cano_fwd_val = [1.407753994887E-03_GP, 2.714439376066E-06_GP, 1.418522821409E-03_GP, 3.744379122314E-01_GP]
real(kind=GP), public, parameter, dimension(4) :: ref_map_cano_cano_fwd_dsum = [2.730000000000E+02_GP, 2.750000000000E+02_GP, 2.710000000000E+02_GP, 2.770000000000E+02_GP]
integer, public, parameter, dimension(4) :: ref_map_cano_cano_bwd_nnz = [3045, 3040, 3085, 3017]
integer, public, parameter, dimension(4) :: ref_map_cano_cano_bwd_j = [178, 169, 102, 158]
real(kind=GP), public, parameter, dimension(4) :: ref_map_cano_cano_bwd_val = [1.124360392877E-03_GP, 9.364405067968E-04_GP, 1.358226668233E-03_GP, 4.304396154699E-01_GP]
real(kind=GP), public, parameter, dimension(4) :: ref_map_cano_cano_bwd_dsum = [2.730000000000E+02_GP, 2.770000000000E+02_GP, 2.710000000000E+02_GP, 2.750000000000E+02_GP]
integer, public, parameter, dimension(4) :: ref_map_stag_stag_fwd_nnz = [3126, 3088, 2990, 3017]
integer, public, parameter, dimension(4) :: ref_map_stag_stag_fwd_j = [235, 218, 193, 203]
real(kind=GP), public, parameter, dimension(4) :: ref_map_stag_stag_fwd_val = [6.474938589139E-04_GP, 3.485006669940E-03_GP, 9.738190800335E-04_GP, 2.998704589256E-03_GP]
real(kind=GP), public, parameter, dimension(4) :: ref_map_stag_stag_fwd_dsum = [2.700000000000E+02_GP, 2.800000000000E+02_GP, 2.750000000000E+02_GP, 2.690000000000E+02_GP]
integer, public, parameter, dimension(4) :: ref_map_stag_stag_bwd_nnz = [3017, 2990, 3088, 3126]
integer, public, parameter, dimension(4) :: ref_map_stag_stag_bwd_j = [94, 169, 185, 161]
real(kind=GP), public, parameter, dimension(4) :: ref_map_stag_stag_bwd_val = [2.717561639101E-03_GP, 4.551374492498E-01_GP, 2.022067797877E-04_GP, 1.668248076998E-03_GP]
real(kind=GP), public, parameter, dimension(4) :: ref_map_stag_stag_bwd_dsum = [2.690000000000E+02_GP, 2.750000000000E+02_GP, 2.800000000000E+02_GP, 2.700000000000E+02_GP]
integer, public, parameter, dimension(4) :: ref_map_cano_cano_fwd2_nnz = [2990, 3038, 3112, 3116]
integer, public, parameter, dimension(4) :: ref_map_cano_cano_fwd2_j = [187, 212, 209, 207]
real(kind=GP), public, parameter, dimension(4) :: ref_map_cano_cano_fwd2_val = [1.388401141315758E-003_GP, 3.237923035015976E-003_GP, 2.109140503404123E-003_GP, 8.092166928255919E-002_GP]
real(kind=GP), public, parameter, dimension(4) :: ref_map_cano_cano_fwd2_dsum = [269.0_GP, 272.0_GP, 271.0_GP, 278.0_GP]
integer, public, parameter, dimension(4) :: ref_map_cano_cano_bwd2_nnz = [2990, 3116, 3112, 3038]
integer, public, parameter, dimension(4) :: ref_map_cano_cano_bwd2_j = [41, 22, 8, 27]
real(kind=GP), public, parameter, dimension(4) :: ref_map_cano_cano_bwd2_val = [2.022131891398691E-003_GP, 3.394727559428792E-004_GP, 2.387225561809455E-003_GP, 3.119472216713043E-002_GP]
real(kind=GP), public, parameter, dimension(4) :: ref_map_cano_cano_bwd2_dsum = [269.0_GP, 278.0_GP, 271.0_GP, 272.0_GP]

Subroutines

public subroutine parallel_map_dommaschk(this)

Arguments

Type IntentOptional Attributes Name
class(MpiTestMethod), intent(inout) :: this