| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/diagnostics_set_calc.F |
122 |
DIAGNOSTICS_SET_CALC |
xyLoc = xy0 + i + (j-1)*xLine |
|
./pkg/diagnostics/diagnostics_set_calc.F |
124 |
DIAGNOSTICS_SET_CALC |
xyMin = xyLoc |
|
./pkg/diagnostics/diagnostics_set_calc.F |
126 |
DIAGNOSTICS_SET_CALC |
xyMin = MIN( xyMin, xyLoc ) |
|
./pkg/diagnostics/diagnostics_set_calc.F |
135 |
DIAGNOSTICS_SET_CALC |
xyLoc = (sNx+1)*(sNy+1)*nSx*nSy*nPx*nPy + 2. |
|
./pkg/diagnostics/diagnostics_set_calc.F |
136 |
DIAGNOSTICS_SET_CALC |
IF ( xyMin.EQ.0. _d 0 ) xyMin = xyLoc |
|
./pkg/diagnostics/diagnostics_set_calc.F |
151 |
DIAGNOSTICS_SET_CALC |
IF ( xyMin.EQ.xyLoc ) THEN |
|
./pkg/diagnostics/diagnostics_set_calc.F |
169 |
DIAGNOSTICS_SET_CALC |
xyLoc = xy0 + iPsi0(bi,bj) + (jPsi0(bi,bj)-1)*xLine |
|
./pkg/diagnostics/diagnostics_set_calc.F |
170 |
DIAGNOSTICS_SET_CALC |
d2Loc = ABS( xyLoc - xyMin ) |
|
./pkg/diagnostics/diagnostics_set_calc.F |
174 |
DIAGNOSTICS_SET_CALC |
& ' ; i,j=',iPsi0(bi,bj),jPsi0(bi,bj),' ; ijLoc=',xyLoc |
|
./pkg/diagnostics/diagnostics_set_calc.F |
182 |
DIAGNOSTICS_SET_CALC |
& ' ; i,j=',iPsi0(bi,bj),jPsi0(bi,bj),' ; ijLoc=',xyLoc |
|
./pkg/diagnostics/diagnostics_set_calc.F |
42 |
DIAGNOSTICS_SET_CALC |
_RL xLine, xy0, xyLoc, xyMin |