Z0 ta.rho0*ta.c Characteristic impedance
k0 ta.omega/ta.c Acoustic wave number
kv sqrt(-i*ta.omega*ta.rho0/ta.mu) Viscous wave number
kth sqrt(-i*ta.omega*ta.rho0*ta.Cp/ta.kcond) Thermal wave number
Pv 1-cos(kv*z)/cos(kv*H/2) Scalar viscous field
Pth 1-cos(kth*z)/cos(kth*H/2) Scalar thermal field
Uana -Pv*(pin/L)/(i*k0*Z0) Analytical x-velocity profile
Tana Pth*(pin/2)/(ta.rho0*ta.Cp) Analytical temperature profile