| File |
Line number |
Procedure |
Code |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1007 |
GMREDI_CALC_TENSOR |
& )*SlopeY(i,j)*taperFct(i,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
1036 |
GMREDI_CALC_TENSOR |
& )*SlopeY(i,j)*taperFct(i,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
306 |
GMREDI_CALC_TENSOR |
taperFct(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_calc_tensor.F |
424 |
GMREDI_CALC_TENSOR |
O SlopeSqr, taperFct, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
452 |
GMREDI_CALC_TENSOR |
Kwx(i,j,k,bi,bj)= SlopeX(i,j)*taperFct(i,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
453 |
GMREDI_CALC_TENSOR |
Kwy(i,j,k,bi,bj)= SlopeY(i,j)*taperFct(i,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
454 |
GMREDI_CALC_TENSOR |
Kwz(i,j,k,bi,bj)= SlopeSqr(i,j)*taperFct(i,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
465 |
GMREDI_CALC_TENSOR |
Ssq(i,j)=SlopeSqr(i,j)*taperFct(i,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
703 |
GMREDI_CALC_TENSOR |
O SlopeSqr, taperFct, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
737 |
GMREDI_CALC_TENSOR |
& )*taperFct(i,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
789 |
GMREDI_CALC_TENSOR |
& )*SlopeX(i,j)*taperFct(i,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
818 |
GMREDI_CALC_TENSOR |
& )*SlopeX(i,j)*taperFct(i,j) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
82 |
GMREDI_CALC_TENSOR |
_RL taperFct(1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
|
./pkg/gmredi/gmredi_calc_tensor.F |
918 |
GMREDI_CALC_TENSOR |
O SlopeSqr, taperFct, |
|
./pkg/gmredi/gmredi_calc_tensor.F |
955 |
GMREDI_CALC_TENSOR |
& )*taperFct(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
14 |
GMREDI_SLOPE_LIMIT |
O SlopeSqr, taperFct, |
|
./pkg/gmredi/gmredi_slope_limit.F |
219 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j)=1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
243 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
255 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
260 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
408 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
425 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = maxSlopeSqr/SlopeSqr(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
427 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
499 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
502 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 0. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
517 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
520 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = SQRT(maxSlopeSqr / SlopeSqr(i,j)) |
|
./pkg/gmredi/gmredi_slope_limit.F |
535 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
538 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = maxSlopeSqr/SlopeSqr(i,j) |
|
./pkg/gmredi/gmredi_slope_limit.F |
551 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
554 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j)=op5*( 1. _d 0 + tanh( (GM_Scrit-Smod)/GM_Sd )) |
|
./pkg/gmredi/gmredi_slope_limit.F |
566 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
576 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j)=f1*f2 |
|
./pkg/gmredi/gmredi_slope_limit.F |
610 |
GMREDI_SLOPE_LIMIT |
taperFct(i,j) = 1. _d 0 |
|
./pkg/gmredi/gmredi_slope_limit.F |
84 |
GMREDI_SLOPE_LIMIT |
_RL taperFct (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |