Add a Coriolis term to a local vector. More...
Public Member Functions | |
subroutine | add_coriolis_v (r_num, c, v, vr) |
Add a Coriolis term to a local vector.
\[ \vect{w}=\vect{w}+C\vect{\Omega}\wedge\vect{u},\quad \text{with }C\text{ a multiplicative coefficient, } \vect{\Omega}\text{ the rotation vector and } \vect{u}\text{ the velocity.} \]
[in] | r_num | rotation number (0 for none, > 0 otherwise) |
[in] | c | multiplicative coefficient |
[in] | v | velocity |
[in,out] | vr | resulting Coriolis term |