| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| real(kind=real64), | intent(in) | :: | density_soil | |||
| real(kind=real64), | intent(in) | :: | phi_soil | |||
| real(kind=real64), | intent(in) | :: | density_water | |||
| real(kind=real64), | intent(in) | :: | phi_water | |||
| real(kind=real64), | intent(in) | :: | density_ice | |||
| real(kind=real64), | intent(in) | :: | phi_ice |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(type_den_3phase), | intent(in) | :: | self | |||
| type(type_state), | intent(in) | :: | state |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| type(type_input), | intent(in) | :: | input | |||
| integer(kind=int32), | intent(in) | :: | material_id |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(holder_dens), | intent(inout) | :: | self | |||
| type(type_input), | intent(in) | :: | input | |||
| integer(kind=int32), | intent(in) | :: | material_id |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(abst_den), | intent(in) | :: | self | |||
| type(type_state), | intent(in) | :: | state |
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=real64), | public | :: | material1 |
soil, rock, concrete |
|||
| real(kind=real64), | public | :: | material2 |
water |
|||
| real(kind=real64), | public | :: | material3 |
ice |
|||
| real(kind=real64), | public | :: | material4 |
gas |
|||
| integer(kind=int32), | public | :: | material_id |
| procedure(abst_calc_den_gauss_point), public, deferred, pass(self) :: calc |
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| class(abst_den), | public, | allocatable | :: | p |
| procedure, public, pass(self) :: initialize => initialize_holder_dens |
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=real64), | public | :: | material1 |
soil, rock, concrete |
|||
| real(kind=real64), | public | :: | material2 |
water |
|||
| real(kind=real64), | public | :: | material3 |
ice |
|||
| real(kind=real64), | public | :: | material4 |
gas |
|||
| integer(kind=int32), | public | :: | material_id |
| private interface construct_den_3phase () |
| procedure, public :: calc => calc_den_gauss_point_3phase |