calcBario edit page

Syntax

[bario,tId] = calcBario(sT,v,tId)