40 use json_module,
only: json_file
57 type(json_file),
intent(inout) :: json
59 character(len=:),
allocatable :: zone_type
61 call json_get(json,
"geometry", zone_type)
63 if (trim(zone_type) .eq.
"box")
then
65 else if (trim(zone_type) .eq.
"sphere")
then
67 else if (trim(zone_type) .eq.
"cylinder")
then
70 call neko_error(
"Unknown source term "//trim(zone_type)//
"! Valid &
71 &source terms are 'box', 'sphere', 'cylinder'.")
Retrieves a parameter by name or throws an error.
Implements a cylinder geometry subset.
Defines a mapping of the degrees of freedom.
Utilities for retrieving parameters from the case files.
Defines a factory subroutine for point zones.
subroutine, public point_zone_factory(point_zone, json, dof)
Point zone factory. Constructs, initializes, and maps the point zone object.
A cylindrical point zone.
Base abstract type for point zones.
A sphere-shaped point zone.