Go to the source code of this file.
subroutine gas_drag_u |
( |
double precision, dimension(dimension_3,-3:3,0:dimensio! n_m), intent(inout) |
A_M, |
|
|
double precision, dimension(dimension_3, 0:dimension_m), intent(inout) |
B_M, |
|
|
integer, intent(inout) |
IER |
|
) |
| |
subroutine gas_drag_v |
( |
double precision, dimension(dimension_3, -3:3, 0:dimens! ion_m), intent(inout) |
A_M, |
|
|
double precision, dimension(dimension_3, 0:dimension_m), intent(inout) |
B_M, |
|
|
integer, intent(inout) |
IER |
|
) |
| |
subroutine gas_drag_w |
( |
double precision, dimension(dimension_3,-3:3,0:dimensio! n_m), intent(inout) |
A_M, |
|
|
double precision, dimension(dimension_3, 0:dimension_m), intent(inout) |
B_M, |
|
|
integer, intent(inout) |
IER |
|
) |
| |