| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(type_thermal_crs), | intent(inout) | :: | self | |||
| type(type_domain), | intent(inout) | :: | domain | |||
| type(type_properties_manager), | intent(in) | :: | property | |||
| type(type_variable), | intent(inout) | :: | temperature | |||
| type(type_variable), | intent(inout) | :: | porosity | |||
| type(type_controls), | intent(inout) | :: | controls | |||
| type(type_bc), | intent(inout) | :: | bc |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(type_input), | intent(inout) | :: | input | |||
| type(type_dp_3d), | intent(inout), | pointer | :: | coordinate | ||
| type(type_domain), | intent(inout) | :: | domain |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(type_thermal_crs), | intent(inout) | :: | self |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(type_thermal_crs), | intent(inout) | :: | self | |||
| type(type_variable), | intent(inout) | :: | temperature | |||
| type(type_controls), | intent(in) | :: | controls |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(type_thermal_crs), | intent(inout) | :: | self | |||
| type(type_domain), | intent(inout), | target | :: | domain | ||
| type(type_properties_manager), | intent(inout) | :: | property | |||
| real(kind=real64), | intent(in) | :: | temperature(:) | |||
| real(kind=real64), | intent(in) | :: | porosity(:) | |||
| type(type_controls), | intent(in) | :: | controls |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(abst_thermal), | intent(inout) | :: | self | |||
| type(type_domain), | intent(inout) | :: | domain | |||
| type(type_properties_manager), | intent(in) | :: | property | |||
| type(type_variable), | intent(inout) | :: | temperature | |||
| type(type_variable), | intent(inout) | :: | porosity | |||
| type(type_controls), | intent(inout) | :: | controls | |||
| type(type_bc), | intent(inout) | :: | bc |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(abst_thermal), | intent(inout) | :: | self |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(abst_thermal), | intent(inout) | :: | self | |||
| type(type_variable), | intent(inout) | :: | temperature | |||
| type(type_controls), | intent(in) | :: | controls |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(abst_thermal), | intent(inout) | :: | self | |||
| type(type_domain), | intent(inout), | target | :: | domain | ||
| type(type_properties_manager), | intent(inout) | :: | property | |||
| real(kind=real64), | intent(in) | :: | temperature(:) | |||
| real(kind=real64), | intent(in) | :: | porosity(:) | |||
| type(type_controls), | intent(in) | :: | controls |
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=real64), | public, | allocatable | :: | FT(:) | |||
| type(type_crs), | public | :: | KT_star | ||||
| real(kind=real64), | public, | allocatable | :: | PHIT(:) |
Nonlinear solver |
||
| type(type_variable), | public | :: | Qice | ||||
| type(type_variable), | public | :: | Qw | ||||
| type(type_variable), | public | :: | Si | ||||
| character(len=:), | public, | allocatable | :: | algorithm |
Solver |
||
| procedure(abst_assemble_global_thermal), | public, | nopass, pointer | :: | assemble_global | => | null() | |
| integer(kind=int32), | public | :: | order | ||||
| class(abst_solver), | public, | allocatable | :: | solver |
| procedure(abst_compute), public, deferred, pass(self) :: compute | |
| procedure(abst_shift), public, deferred, pass(self) :: shift | |
| procedure(abst_solve), public, deferred, pass(self) :: solve | |
| procedure(abst_update), public, deferred, pass(self) :: update |
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=real64), | public, | allocatable | :: | FT(:) | |||
| type(type_crs), | public | :: | KT_star | ||||
| real(kind=real64), | public, | allocatable | :: | PHIT(:) |
Nonlinear solver |
||
| type(type_variable), | public | :: | Qice | ||||
| type(type_variable), | public | :: | Qw | ||||
| type(type_variable), | public | :: | Si | ||||
| character(len=:), | public, | allocatable | :: | algorithm |
Solver |
||
| procedure(abst_assemble_global_thermal), | public, | nopass, pointer | :: | assemble_global | => | null() | |
| integer(kind=int32), | public | :: | order | ||||
| class(abst_solver), | public, | allocatable | :: | solver |
| private interface construct_type_thermal_crs () |
| procedure, public :: compute => compute_type_thermal_crs | |
| procedure, public :: shift => shift_type_thermal_crs | |
| procedure, public :: solve => solve_type_thermal_crs | |
| procedure, public :: update => update_type_thermal_crs |