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 |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(type_sph_3phase), | intent(in) | :: | self | |||
type(type_gauss_point_state), | intent(in) | :: | state |
type, extends(abst_sph) :: type_sph_3phase contains procedure :: calc_gauss_point => calc_sph_gauss_point_3phase end type type_sph_3phase