1つのテンプレート形状の有効化フラグと幾何パラメータを保持する。
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| logical, | public | :: | enabled | = | .false. | ||
| character(len=16), | public | :: | kind | = | 'plane' | ||
| real(kind=dp), | public | :: | center(3) | = | 0.0d0 | ||
| real(kind=dp), | public | :: | size_x | = | 1.0d0 | ||
| real(kind=dp), | public | :: | size_y | = | 1.0d0 | ||
| real(kind=dp), | public | :: | size(3) | = | [1.0d0, 1.0d0, 1.0d0] | ||
| integer(kind=i32), | public | :: | nx | = | 1 | ||
| integer(kind=i32), | public | :: | ny | = | 1 | ||
| integer(kind=i32), | public | :: | nz | = | 1 | ||
| real(kind=dp), | public | :: | radius | = | 0.5d0 | ||
| real(kind=dp), | public | :: | inner_radius | = | 0.25d0 | ||
| real(kind=dp), | public | :: | height | = | 1.0d0 | ||
| integer(kind=i32), | public | :: | n_theta | = | 24 | ||
| integer(kind=i32), | public | :: | n_r | = | 4 | ||
| integer(kind=i32), | public | :: | n_z | = | 1 | ||
| logical, | public | :: | cap | = | .true. | ||
| logical, | public | :: | cap_top | = | .true. | ||
| logical, | public | :: | cap_bottom | = | .true. | ||
| logical, | public | :: | has_cap_top | = | .false. | ||
| logical, | public | :: | has_cap_bottom | = | .false. | ||
| integer(kind=i32), | public | :: | n_lon | = | 24 | ||
| integer(kind=i32), | public | :: | n_lat | = | 12 |
type :: template_spec logical :: enabled = .false. character(len=16) :: kind = 'plane' real(dp) :: center(3) = 0.0d0 real(dp) :: size_x = 1.0d0 real(dp) :: size_y = 1.0d0 real(dp) :: size(3) = [1.0d0, 1.0d0, 1.0d0] integer(i32) :: nx = 1 integer(i32) :: ny = 1 integer(i32) :: nz = 1 real(dp) :: radius = 0.5d0 real(dp) :: inner_radius = 0.25d0 real(dp) :: height = 1.0d0 integer(i32) :: n_theta = 24 integer(i32) :: n_r = 4 integer(i32) :: n_z = 1 logical :: cap = .true. logical :: cap_top = .true. logical :: cap_bottom = .true. logical :: has_cap_top = .false. logical :: has_cap_bottom = .false. integer(i32) :: n_lon = 24 integer(i32) :: n_lat = 12 end type template_spec