上部真空領域で周期 k/=0 panel Fourier 和をsource/target因子へ分離する。
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer(kind=i32), | public, | parameter | :: | upper_vacuum_eval_ok | = | 0_i32 | |
| integer(kind=i32), | public, | parameter | :: | upper_vacuum_target_not_above_source | = | 1_i32 |
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer(kind=i32), | public | :: | mode_layers | = | 0_i32 | ||
| integer(kind=i32), | public | :: | nmode | = | 0_i32 | ||
| integer(kind=i32), | public | :: | nelem | = | 0_i32 | ||
| real(kind=dp), | public | :: | length_x | = | 0.0_dp | ||
| real(kind=dp), | public | :: | length_y | = | 0.0_dp | ||
| real(kind=dp), | public | :: | source_z_max | = | 0.0_dp | ||
| real(kind=dp), | public, | allocatable | :: | kx(:) | |||
| real(kind=dp), | public, | allocatable | :: | ky(:) | |||
| real(kind=dp), | public, | allocatable | :: | wave_number(:) | |||
| real(kind=dp), | public, | allocatable | :: | panel_moment_real(:,:) | |||
| real(kind=dp), | public, | allocatable | :: | panel_moment_imag(:,:) |
| procedure, public :: build => build_periodic_nonzero_upper_vacuum_plan | |
| procedure, public :: eval => eval_periodic_nonzero_upper_vacuum |