| File |
Line number |
Procedure |
Code |
|
./pkg/ctrl/adctrl_bound.F |
134 |
ADCTRL_BOUND_2D |
_RL tmpCur,xCur,adxCur |
|
./pkg/ctrl/adctrl_bound.F |
160 |
ADCTRL_BOUND_2D |
adxCur=adjFieldCur(i,j,bi,bj) |
|
./pkg/ctrl/adctrl_bound.F |
161 |
ADCTRL_BOUND_2D |
IF ( (xCur.GT.x2).AND.(adxCur.LT.0.) ) THEN |
|
./pkg/ctrl/adctrl_bound.F |
163 |
ADCTRL_BOUND_2D |
adjFieldCur(i,j,bi,bj)=abs(adxCur)* |
|
./pkg/ctrl/adctrl_bound.F |
166 |
ADCTRL_BOUND_2D |
IF ( (xCur.LT.x1).AND.(adxCur.GT.0.) ) THEN |
|
./pkg/ctrl/adctrl_bound.F |
168 |
ADCTRL_BOUND_2D |
adjFieldCur(i,j,bi,bj)=abs(adxCur)* |
|
./pkg/ctrl/adctrl_bound.F |
44 |
ADCTRL_BOUND_3D |
_RL tmpCur,xCur,adxCur |
|
./pkg/ctrl/adctrl_bound.F |
71 |
ADCTRL_BOUND_3D |
adxCur=adjFieldCur(i,j,k,bi,bj) |
|
./pkg/ctrl/adctrl_bound.F |
72 |
ADCTRL_BOUND_3D |
IF ( (xCur.GT.x2).AND.(adxCur.LT.0.) ) THEN |
|
./pkg/ctrl/adctrl_bound.F |
74 |
ADCTRL_BOUND_3D |
adjFieldCur(i,j,k,bi,bj)=abs(adxCur)* |
|
./pkg/ctrl/adctrl_bound.F |
77 |
ADCTRL_BOUND_3D |
IF ( (xCur.LT.x1).AND.(adxCur.GT.0.) ) THEN |
|
./pkg/ctrl/adctrl_bound.F |
79 |
ADCTRL_BOUND_3D |
adjFieldCur(i,j,k,bi,bj)=abs(adxCur)* |