| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/diagnostics_set_calc.F |
114 |
DIAGNOSTICS_SET_CALC |
IF ( xyMin.EQ.xyLoc ) THEN |
|
./pkg/diagnostics/diagnostics_set_calc.F |
132 |
DIAGNOSTICS_SET_CALC |
xyLoc = xy0 + iPsi0(bi,bj) + (jPsi0(bi,bj)-1)*xLine |
|
./pkg/diagnostics/diagnostics_set_calc.F |
133 |
DIAGNOSTICS_SET_CALC |
d2Loc = ABS( xyLoc - xyMin ) |
|
./pkg/diagnostics/diagnostics_set_calc.F |
137 |
DIAGNOSTICS_SET_CALC |
& ' ; i,j=',iPsi0(bi,bj),jPsi0(bi,bj),' ; ijLoc=',xyLoc |
|
./pkg/diagnostics/diagnostics_set_calc.F |
145 |
DIAGNOSTICS_SET_CALC |
& ' ; i,j=',iPsi0(bi,bj),jPsi0(bi,bj),' ; ijLoc=',xyLoc |
|
./pkg/diagnostics/diagnostics_set_calc.F |
39 |
DIAGNOSTICS_SET_CALC |
_RL xLine, xy0, xyLoc, xyMin |
|
./pkg/diagnostics/diagnostics_set_calc.F |
85 |
DIAGNOSTICS_SET_CALC |
xyLoc = xy0 + i + (j-1)*xLine |
|
./pkg/diagnostics/diagnostics_set_calc.F |
87 |
DIAGNOSTICS_SET_CALC |
xyMin = xyLoc |
|
./pkg/diagnostics/diagnostics_set_calc.F |
89 |
DIAGNOSTICS_SET_CALC |
xyMin = MIN( xyMin, xyLoc ) |
|
./pkg/diagnostics/diagnostics_set_calc.F |
98 |
DIAGNOSTICS_SET_CALC |
xyLoc = (sNx+1)*(sNy+1)*nSx*nSy*nPx*nPy + 2. |
|
./pkg/diagnostics/diagnostics_set_calc.F |
99 |
DIAGNOSTICS_SET_CALC |
IF ( xyMin.EQ.0. _d 0 ) xyMin = xyLoc |