| File |
Line number |
Procedure |
Code |
|
./model/src/calc_gw.F |
179 |
CALC_GW |
hFacCtmp=max(hFacC(I,J,K-1,bi,bj)-Half,0. _d 0) |
|
./model/src/calc_gw.F |
180 |
CALC_GW |
& + min(hFacC(I,J,K ,bi,bj),Half) |
|
./model/src/calc_gw.F |
207 |
CALC_GW |
hFacStmp=max(hFacS(I,J,K-1,bi,bj)-Half,0. _d 0) |
|
./model/src/calc_gw.F |
208 |
CALC_GW |
& + min(hFacS(I,J,K ,bi,bj),Half) |
|
./model/src/calc_gw.F |
209 |
CALC_GW |
tmp_VbarZ=Half*( |
|
./model/src/calc_gw.F |
213 |
CALC_GW |
& tmp_VbarZ*Half*(wVel(I,J,K,bi,bj)+wVel(I,J-1,K,bi,bj)) |
|
./model/src/calc_gw.F |
239 |
CALC_GW |
hFacWtmp=max(hFacW(I,J,K-1,bi,bj)-Half,0. _d 0) |
|
./model/src/calc_gw.F |
240 |
CALC_GW |
& + min(hFacW(I,J,K ,bi,bj),Half) |
|
./model/src/calc_gw.F |
241 |
CALC_GW |
tmp_UbarZ=Half*( |
|
./model/src/calc_gw.F |
245 |
CALC_GW |
& tmp_UbarZ*Half*(wVel(I,J,K,bi,bj)+wVel(I-1,J,K,bi,bj)) |
|
./model/src/calc_gw.F |
268 |
CALC_GW |
tmp_WbarZ=Half*(wVel(I,J,K,bi,bj) |
|
./model/src/calc_gw.F |
71 |
CALC_GW |
_RL Half |
|
./model/src/calc_gw.F |
72 |
CALC_GW |
PARAMETER(Half=0.5D0) |