subroutine calc_gw_hw_cw |
( |
double precision, intent(in) |
g0, |
|
|
double precision, intent(in) |
EPS, |
|
|
double precision, intent(in) |
EPG, |
|
|
double precision, intent(in) |
ep_star_avg, |
|
|
double precision, intent(in) |
g0EP_avg, |
|
|
double precision, intent(inout) |
TH, |
|
|
double precision, intent(in) |
Mu_g_avg, |
|
|
double precision, intent(in) |
RO_g_avg, |
|
|
double precision, intent(in) |
ROs_avg, |
|
|
double precision, intent(in) |
DP_avg, |
|
|
double precision, intent(in) |
K_12_avg, |
|
|
double precision, intent(in) |
Tau_12_avg, |
|
|
double precision, intent(in) |
Tau_1_avg, |
|
|
double precision, intent(in) |
VREL, |
|
|
double precision, intent(in) |
VSLIP, |
|
|
double precision, intent(in) |
DEL_U, |
|
|
double precision, intent(in) |
S_S, |
|
|
double precision, intent(in) |
S_dd, |
|
|
double precision, intent(in) |
VEL, |
|
|
double precision, intent(in) |
W_VEL, |
|
|
integer, intent(in) |
M, |
|
|
double precision, intent(inout) |
gw, |
|
|
double precision, intent(inout) |
hw, |
|
|
double precision, intent(inout) |
cw |
|
) |
| |