CalcWaterContent