| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| real(kind=real64), | private | :: | alpha1 | ||||
| real(kind=real64), | private | :: | alpha2 | ||||
| real(kind=real64), | private | :: | h_crit | ||||
| real(kind=real64), | private | :: | l | ||||
| real(kind=real64), | private | :: | m1 | ||||
| real(kind=real64), | private | :: | m2 | ||||
| real(kind=real64), | private | :: | n1 | ||||
| real(kind=real64), | private | :: | n2 | ||||
| real(kind=real64), | private | :: | theta_r | ||||
| real(kind=real64), | private | :: | theta_s | ||||
| real(kind=real64), | private | :: | w1 | ||||
| real(kind=real64), | private | :: | w2 |
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(abst_hcf_base), | intent(in) | :: | self | |||
| real(kind=real64), | intent(in) | :: | h |
type, abstract :: abst_hcf_base private real(real64) :: theta_r real(real64) :: theta_s real(real64) :: alpha1 real(real64) :: alpha2 real(real64) :: n1 real(real64) :: n2 real(real64) :: m1 real(real64) :: m2 real(real64) :: w1 real(real64) :: w2 real(real64) :: h_crit real(real64) :: l contains procedure(abst_calc_base_kr), pass(self), public, deferred :: calc_kr end type abst_hcf_base