Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=real64), | intent(in) | :: | lambda_soil | |||
real(kind=real64), | intent(in) | :: | phi_soil | |||
real(kind=real64), | intent(in) | :: | lambda_water | |||
real(kind=real64), | intent(in) | :: | phi_water | |||
real(kind=real64), | intent(in) | :: | lambda_ice | |||
real(kind=real64), | intent(in) | :: | phi_ice |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(type_thc_3phase), | intent(in) | :: | self | |||
type(type_gauss_point_state), | intent(in) | :: | state |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
type(type_input), | intent(in) | :: | Input | |||
integer(kind=int32), | intent(in) | :: | i_material |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(holder_thcs), | intent(inout) | :: | self | |||
type(type_input), | intent(in) | :: | Input | |||
integer(kind=int32), | intent(in) | :: | i_material |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(abst_thc), | intent(in) | :: | self | |||
type(type_gauss_point_state), | intent(in) | :: | state |
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
real(kind=real64), | public, | allocatable | :: | dispersity(:) | |||
real(kind=real64), | public | :: | material1 |
like a soil or a rock, a concrete |
|||
real(kind=real64), | public | :: | material2 |
like a water |
|||
real(kind=real64), | public | :: | material3 |
like a ice |
|||
real(kind=real64), | public | :: | material4 |
like a gas |
|||
integer(kind=int32), | public | :: | material_id |
procedure(abst_calc_thc_gauss_point), public, deferred, pass(self) :: calc_gauss_point |
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
class(abst_thc), | public, | allocatable | :: | p |
procedure, public, pass(self) :: initialize => initialize_holder_thcs |
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
real(kind=real64), | public, | allocatable | :: | dispersity(:) | |||
real(kind=real64), | public | :: | material1 |
like a soil or a rock, a concrete |
|||
real(kind=real64), | public | :: | material2 |
like a water |
|||
real(kind=real64), | public | :: | material3 |
like a ice |
|||
real(kind=real64), | public | :: | material4 |
like a gas |
|||
integer(kind=int32), | public | :: | material_id |
private interface construct_thc_3 () |
procedure, public, pass(self) :: calc_gauss_point => calc_thc_gauss_point_3phase |