diff --git a/src/epanet.c b/src/epanet.c index 1464e7a..0179b7e 100644 --- a/src/epanet.c +++ b/src/epanet.c @@ -2628,7 +2628,7 @@ int DLLEXPORT EN_settankdata(EN_Project p, int index, double elev, Network *net = &p->network; int i, j, n, curveIndex = 0; - double area, elevation = elev; + double area, elevation = elev / Ucf[ELEV]; double *Ucf = p->Ucf; Stank *Tank = net->Tank; Scurve *curve; @@ -2666,11 +2666,11 @@ int DLLEXPORT EN_settankdata(EN_Project p, int index, double elev, else area = PI * diam * diam / 4.0; // Assign parameters to tank object - net->Node[Tank[j].Node].El = elevation / Ucf[ELEV]; + net->Node[Tank[j].Node].El = elevation; Tank[j].A = area / Ucf[ELEV] / Ucf[ELEV]; - Tank[j].H0 = (elevation + initlvl) / Ucf[ELEV]; - Tank[j].Hmin = (elevation + minlvl) / Ucf[ELEV]; - Tank[j].Hmax = (elevation + maxlvl) / Ucf[ELEV]; + Tank[j].H0 = elevation + initlvl / Ucf[ELEV]; + Tank[j].Hmin = elevation + minlvl / Ucf[ELEV]; + Tank[j].Hmax = elevation + maxlvl / Ucf[ELEV]; Tank[j].Vcurve = curveIndex; if (curveIndex == 0) {