Go to the source code of this file.
|
subroutine | correct_0 () |
|
subroutine | correct_0g (PP_G, UR_FAC, D_E, D_N, D_T, P_G, U_G, V_G, W_G) |
|
subroutine | correct_0s (PP_G, D_E, D_N, D_T, U_S, V_S, W_S) |
|
subroutine correct_0g |
( |
double precision, dimension(dimension_3), intent(in) |
PP_G, |
|
|
double precision, intent(in) |
UR_FAC, |
|
|
double precision, dimension(dimension_3, 0:dimension_m), intent(in) |
D_E, |
|
|
double precision, dimension(dimension_3, 0:dimension_m), intent(in) |
D_N, |
|
|
double precision, dimension(dimension_3, 0:dimension_m), intent(in) |
D_T, |
|
|
double precision, dimension(dimension_3), intent(inout) |
P_G, |
|
|
double precision, dimension(dimension_3), intent(inout) |
U_G, |
|
|
double precision, dimension(dimension_3), intent(inout) |
V_G, |
|
|
double precision, dimension(dimension_3), intent(inout) |
W_G |
|
) |
| |
subroutine correct_0s |
( |
double precision, dimension(dimension_3), intent(in) |
PP_G, |
|
|
double precision, dimension(dimension_3, 0:dimension_m), intent(in) |
D_E, |
|
|
double precision, dimension(dimension_3, 0:dimension_m), intent(in) |
D_N, |
|
|
double precision, dimension(dimension_3, 0:dimension_m), intent(in) |
D_T, |
|
|
double precision, dimension(dimension_3, dimension_m), intent(inout) |
U_S, |
|
|
double precision, dimension(dimension_3, dimension_m), intent(inout) |
V_S, |
|
|
double precision, dimension(dimension_3, dimension_m), intent(inout) |
W_S |
|
) |
| |