![]() |
programmer's documentation
|
Add a Coriolis term to a vector. More...
Public Member Functions | |
subroutine | add_coriolis_v (r_num, c, v, vr) |
Add a Coriolis term to a vector.
[in] | r_num | rotation number (0 for none, > 0 otherwise) |
[in] | c | multiplicative coefficient |
[in] | v | velocity |
[in,out] | vr | resulting Coriolis term |
subroutine add_coriolis_v | ( | integer(c_int) | r_num, |
real(c_double) | c, | ||
real(c_double), dimension(3), intent(in) | v, | ||
real(c_double), dimension(3), intent(inout) | vr | ||
) |