49 use json_module,
only : json_file
64 character(len=:),
allocatable :: greeting
86 type(json_file),
intent(inout) :: json
88 type(
coef_t),
intent(in),
target :: coef
89 character(len=*),
intent(in) :: variable_name
90 real(kind=
rp) :: start_time, end_time
98 call this%init_base(fields, coef, start_time, end_time)
100 call json_get(json,
"greeting", this%greeting)
108 if (
allocated(this%greeting))
then
109 deallocate(this%greeting)
111 call this%free_base()
120 write(*,*) this%greeting
136 call register_source_term(
"my_source_term", allocator)
Retrieves a parameter by name or assigns a provided default value. In the latter case also adds the m...
Retrieves a parameter by name or throws an error.
Source term factory. Both constructs and initializes the object.
In this module we implement a custom source term, my_source_term and prep it for being recognized by ...
subroutine my_source_term_compute(this, time)
Will just bring our greeting to the console.
subroutine my_source_term_allocate(obj)
subroutine, public custom_types_register_types()
subroutine my_source_term_free(this)
Destructor.
subroutine my_source_term_init_from_json(this, json, fields, coef, variable_name)
The common constructor using a JSON object.
Utilities for retrieving parameters from the case files.
integer, parameter, public rp
Global precision used in computations.
Implements the source_term_t type and a wrapper source_term_wrapper_t.
Module with things related to the simulation time.
Coefficients defined on a given (mesh, ) tuple. Arrays use indices (i,j,k,e): element e,...
field_list_t, To be able to group fields together
Base abstract type for source terms.
A struct that contains all info about the time, expand as needed.