Diameter Effect Factor
function K_1 input SI.Length D_hyd "Hydraulic diameter of subchannel"; output Real K "Correction factor"; end K_1;