| File |
Line number |
Procedure |
Code |
|
./model/src/calc_gw.F |
240 |
CALC_GW |
& - (viscAh_W(i,j,k,bi,bj)+viscAh_W(i-1,j,k,bi,bj))*halfRL |
|
./model/src/calc_gw.F |
245 |
CALC_GW |
& + (viscA4_W(i,j,k,bi,bj)+viscA4_W(i-1,j,k,bi,bj))*halfRL |
|
./model/src/calc_gw.F |
260 |
CALC_GW |
& - (viscAh_W(i,j,k,bi,bj)+viscAh_W(i,j-1,k,bi,bj))*halfRL |
|
./model/src/calc_gw.F |
267 |
CALC_GW |
& + (viscA4_W(i,j,k,bi,bj)+viscA4_W(i,j-1,k,bi,bj))*halfRL |
|
./model/src/calc_gw.F |
343 |
CALC_GW |
& )*halfRL*_dyG(i,j,bi,bj) |
|
./model/src/calc_gw.F |
346 |
CALC_GW |
& uTrans*(wVel(i,j,k,bi,bj)+wVel(i-1,j,k,bi,bj))*halfRL |
|
./model/src/calc_gw.F |
356 |
CALC_GW |
& )*halfRL*_dxG(i,j,bi,bj) |
|
./model/src/calc_gw.F |
359 |
CALC_GW |
& vTrans*(wVel(i,j,k,bi,bj)+wVel(i,j-1,k,bi,bj))*halfRL |
|
./model/src/calc_gw.F |
365 |
CALC_GW |
tmp_WbarZ = halfRL*( wVel(i,j, k ,bi,bj) |
|
./model/src/calc_gw.F |
91 |
CALC_GW |
_RL halfRL |
|
./model/src/calc_gw.F |
93 |
CALC_GW |
PARAMETER( halfRL = 0.5D0 ) |