| File |
Line number |
Procedure |
Code |
|
./model/src/calc_gw.F |
100 |
CALC_GW |
PARAMETER( halfRS = 0.5 , zeroRS = 0. ) |
|
./model/src/calc_gw.F |
221 |
CALC_GW |
& ( drF(k-1)*halfRS |
|
./model/src/calc_gw.F |
222 |
CALC_GW |
& + drF( k )*MIN( _hFacC(i,j, k ,bi,bj), halfRS ) |
|
./model/src/calc_gw.F |
228 |
CALC_GW |
& drF(k-1)*MAX( h0FacC(i,j,k-1,bi,bj)-halfRS, zeroRS ) |
|
./model/src/calc_gw.F |
229 |
CALC_GW |
& + drF( k )*MIN( h0FacC(i,j,k ,bi,bj), halfRS ) |
|
./model/src/calc_gw.F |
232 |
CALC_GW |
& drF(k-1)*MAX( _hFacC(i,j,k-1,bi,bj)-halfRS, zeroRS ) |
|
./model/src/calc_gw.F |
233 |
CALC_GW |
& + drF( k )*MIN( _hFacC(i,j,k ,bi,bj), halfRS ) |
|
./model/src/calc_gw.F |
236 |
CALC_GW |
& drF(k-1)*MAX( _hFacW(i,j,k-1,bi,bj)-halfRS, zeroRS ) |
|
./model/src/calc_gw.F |
237 |
CALC_GW |
& + drF( k )*MIN( _hFacW(i,j,k ,bi,bj), halfRS ) |
|
./model/src/calc_gw.F |
239 |
CALC_GW |
& drF(k-1)*MAX( _hFacS(i,j,k-1,bi,bj)-halfRS, zeroRS ) |
|
./model/src/calc_gw.F |
240 |
CALC_GW |
& + drF( k )*MIN( _hFacS(i,j, k ,bi,bj), halfRS ) |
|
./model/src/calc_gw.F |
98 |
CALC_GW |
_RS halfRS, zeroRS |