Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
real(kind=real64), | public, | allocatable | :: | Kflh(:) | |||
real(kind=real64), | public | :: | Ks |
saturated hydraulic conductivity |
|||
real(kind=real64), | public | :: | Omega | ||||
real(kind=real64), | public | :: | alpha1 | ||||
real(kind=real64), | public | :: | l | ||||
real(kind=real64), | public | :: | n1 | ||||
integer(kind=int32), | public | :: | nsize | ||||
real(kind=real64), | public | :: | thetaR |
residual water content |
|||
real(kind=real64), | public | :: | thetaS |
saturated water content |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=real64), | intent(in) | :: | Omega | |||
real(kind=real64), | intent(in) | :: | thetaI |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(Abstract_HCF_Base_Impedance), | intent(in) | :: | self | |||
real(kind=real64), | intent(in) | :: | h | |||
real(kind=real64), | intent(in) | :: | thetaI |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(Abstract_HCF_Base_Impedance), | intent(in) | :: | self | |||
real(kind=real64), | intent(in) | :: | h |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(Abstract_HCF_Base_Impedance), | intent(inout) | :: | self | |||
real(kind=real64), | intent(in) | :: | arr_h(:) | |||
real(kind=real64), | intent(in) | :: | arr_thetaI(:) |
type, abstract, extends(Abstract_HCF) :: Abstract_HCF_Base_Impedance real(real64) :: thetaS !! saturated water content real(real64) :: thetaR !! residual water content real(real64) :: alpha1 real(real64) :: n1 real(real64) :: l real(real64) :: Omega contains procedure(Abstract_Calculate_kr_HCF_Base_Impedance), pass(self), deferred :: Calculate_kr procedure(Abstract_Calculate_Impedance), nopass, deferred :: Calculate_Impedance procedure(Abstract_Calculate_Kflh_Base_Impedance), pass(self), deferred :: Calculate_Kflh procedure(Abstract_Update_Kflh_Base_Impedance), pass(self), deferred :: Update_Kflh end type Abstract_HCF_Base_Impedance