Go to the source code of this file.
|
subroutine | calc_tau_w_s (lTAU_W_S) |
|
subroutine | calc_reg_tau_w_s (IJK, M, SSX, SSY, SSZ, SBV, VXZ) |
|
subroutine | calc_cg_tau_w_s (IJK, M, SSX, SSY, SSZ, SBV) |
|
subroutine calc_cg_tau_w_s |
( |
integer, intent(in) |
IJK, |
|
|
integer, intent(in) |
M, |
|
|
double precision, intent(out) |
SSX, |
|
|
double precision, intent(out) |
SSY, |
|
|
double precision, intent(out) |
SSZ, |
|
|
double precision, intent(out) |
SBV |
|
) |
| |
subroutine calc_reg_tau_w_s |
( |
integer, intent(in) |
IJK, |
|
|
integer, intent(in) |
M, |
|
|
double precision, intent(out) |
SSX, |
|
|
double precision, intent(out) |
SSY, |
|
|
double precision, intent(out) |
SSZ, |
|
|
double precision, intent(out) |
SBV, |
|
|
double precision, intent(out) |
VXZ |
|
) |
| |
subroutine calc_tau_w_s |
( |
double precision, dimension(dimension_3, dimension_m! ), intent(out) |
lTAU_W_S | ) |
|