| File |
Line number |
Procedure |
Code |
|
./model/src/calc_gw.F |
335 |
CALC_GW |
& - (viscAh_W(i,j,k,bi,bj)+viscAh_W(i-1,j,k,bi,bj))*halfRL |
|
./model/src/calc_gw.F |
339 |
CALC_GW |
& + (viscA4_W(i,j,k,bi,bj)+viscA4_W(i-1,j,k,bi,bj))*halfRL |
|
./model/src/calc_gw.F |
353 |
CALC_GW |
& - (viscAh_W(i,j,k,bi,bj)+viscAh_W(i,j-1,k,bi,bj))*halfRL |
|
./model/src/calc_gw.F |
359 |
CALC_GW |
& + (viscA4_W(i,j,k,bi,bj)+viscA4_W(i,j-1,k,bi,bj))*halfRL |
|
./model/src/calc_gw.F |
455 |
CALC_GW |
& )*halfRL*_dyG(i,j,bi,bj)*deepFacF(k) |
|
./model/src/calc_gw.F |
456 |
CALC_GW |
flx_EW(i,j) = uTrans*(wFld(i,j)+wFld(i-1,j))*halfRL |
|
./model/src/calc_gw.F |
470 |
CALC_GW |
& )*halfRL*_dxG(i,j,bi,bj)*deepFacF(k) |
|
./model/src/calc_gw.F |
471 |
CALC_GW |
flx_NS(i,j) = vTrans*(wFld(i,j)+wFld(i,j-1))*halfRL |
|
./model/src/calc_gw.F |
482 |
CALC_GW |
tmp_WbarZ = halfRL* |
|
./model/src/calc_gw.F |
486 |
CALC_GW |
rTrans = halfRL* |
|
./model/src/calc_gw.F |
97 |
CALC_GW |
_RL halfRL |
|
./model/src/calc_gw.F |
99 |
CALC_GW |
PARAMETER( halfRL = 0.5 _d 0 ) |