w[k_,h_] =  Sqrt[k Tanh[k h]]

vg[k_,h_] = D[w[k,h],k]
vp[k_,h_ ] = w[k,h]/k

Plot3D[N[vg[k,h]],{k,.1,2},{h,0,3}]
Plot3D[N[vp[k,h]],{k,.1,2},{h,0,3}]

Plot3D[N[vp[k,h]-vg[k,h]],{k,0,10},{h,0,1}]