H_for_thermal_balance Function

private function H_for_thermal_balance(x)

Arguments

Type IntentOptional Attributes Name
real(kind=dp), intent(in) :: x

Return Value real(kind=dp)