| File |
Line number |
Procedure |
Code |
|
./pkg/ctrl/adctrl_bound.F |
118 |
ADCTRL_BOUND_2D |
_RL tmpCur,xCur,adxCur |
|
./pkg/ctrl/adctrl_bound.F |
149 |
ADCTRL_BOUND_2D |
xCur=fieldCur(i,j,bi,bj) |
|
./pkg/ctrl/adctrl_bound.F |
151 |
ADCTRL_BOUND_2D |
IF ( (xCur.gt.x2).AND.(adxCur.LT.0) ) then |
|
./pkg/ctrl/adctrl_bound.F |
154 |
ADCTRL_BOUND_2D |
& min((xCur-x2p5)/l2p5,tmpCur) |
|
./pkg/ctrl/adctrl_bound.F |
156 |
ADCTRL_BOUND_2D |
IF ( (xCur.lt.x1).AND.(adxCur.GT.0) ) then |
|
./pkg/ctrl/adctrl_bound.F |
159 |
ADCTRL_BOUND_2D |
& max((xCur-x0p5)/l0p5,tmpCur) |
|
./pkg/ctrl/adctrl_bound.F |
34 |
ADCTRL_BOUND_3D |
_RL tmpCur,xCur,adxCur |
|
./pkg/ctrl/adctrl_bound.F |
64 |
ADCTRL_BOUND_3D |
xCur=fieldCur(i,j,k,bi,bj) |
|
./pkg/ctrl/adctrl_bound.F |
66 |
ADCTRL_BOUND_3D |
IF ( (xCur.gt.x2).AND.(adxCur.LT.0) ) then |
|
./pkg/ctrl/adctrl_bound.F |
69 |
ADCTRL_BOUND_3D |
& min((xCur-x2p5)/l2p5,tmpCur) |
|
./pkg/ctrl/adctrl_bound.F |
71 |
ADCTRL_BOUND_3D |
IF ( (xCur.lt.x1).AND.(adxCur.GT.0) ) then |
|
./pkg/ctrl/adctrl_bound.F |
74 |
ADCTRL_BOUND_3D |
& max((xCur-x0p5)/l0p5,tmpCur) |