vh0(i) = h0byz0 * vz0(i)
if(vz0(i).ge.z0vegm)vh0(i) = h0veg
vzh(i) = vz0(i) * 0.5
if(vz0(i).ge.2.)vzh(i) = 0.9
if(vz0(i).ge.2.)then
vzh(i) = vz0(i) * 0.1