Define, set, and get scalar-valued source term coefficients for partial differential equations
Define scalar source term
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(scalar_source), | intent(inout) | :: | src | |||
| character(len=*), | intent(in) | :: | input_file | |||
| character(len=*), | intent(in) | :: | sec | |||
| type(dimensions), | intent(in) | :: | dim |
result specifieds source dimensions
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(scalar_source), | intent(in) | :: | src |
result is the source offset (constant term)
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(scalar_source), | intent(in) | :: | src |
result is the source scaling coefficient
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(scalar_source), | intent(in) | :: | src |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(scalar_source), | intent(in) | :: | src |
Coefficients/dimensions for a PDE source term with linear dependence on a scalar_field (SRC = sc + sp*phi_P)
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| type(dimensions), | private | :: | dim | ||||
| real(kind=psb_dpk_), | private | :: | sc | source offset (constant term) |
|||
| real(kind=psb_dpk_), | private | :: | sp | source scaling coefficient (multiplies scalar_field) |
| generic, public :: create_source => create_scalar_source | |
| generic, public :: dim_ => get_scalar_source_dim | |
| generic, public :: nemo_sizeof => nemo_scalar_source_sizeof | |
| generic, public :: sc_ => get_scalar_source_sc | |
| generic, public :: sp_ => get_scalar_source_sp | |
| procedure, private :: create_scalar_source | |
| procedure, private :: get_scalar_source_dim | |
| procedure, private :: get_scalar_source_sc | |
| procedure, private :: get_scalar_source_sp | |
| procedure, private :: nemo_scalar_source_sizeof |