| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/diagnostics_set_calc.F |
116 |
DIAGNOSTICS_SET_CALC |
d2Loc = dxLoc*dxLoc + dyLoc*dyLoc |
|
./pkg/diagnostics/diagnostics_set_calc.F |
118 |
DIAGNOSTICS_SET_CALC |
IF ( d2Loc.EQ.d2Min .AND. kPsi(i,j,bi,bj) ) THEN |
|
./pkg/diagnostics/diagnostics_set_calc.F |
120 |
DIAGNOSTICS_SET_CALC |
IF ( d2Loc.EQ.d2Min ) THEN |
|
./pkg/diagnostics/diagnostics_set_calc.F |
170 |
DIAGNOSTICS_SET_CALC |
d2Loc = ABS( xyLoc - xyMin ) |
|
./pkg/diagnostics/diagnostics_set_calc.F |
171 |
DIAGNOSTICS_SET_CALC |
IF ( d2Loc.GE.0.5 _d 0 ) THEN |
|
./pkg/diagnostics/diagnostics_set_calc.F |
41 |
DIAGNOSTICS_SET_CALC |
_RL dxLoc, dyLoc, d2Loc, d2Min |
|
./pkg/diagnostics/diagnostics_set_calc.F |
88 |
DIAGNOSTICS_SET_CALC |
d2Loc = dxLoc*dxLoc + dyLoc*dyLoc |
|
./pkg/diagnostics/diagnostics_set_calc.F |
90 |
DIAGNOSTICS_SET_CALC |
IF ((d2Loc.LT.d2Min .OR. d2Min.EQ.-1. _d 0) |
|
./pkg/diagnostics/diagnostics_set_calc.F |
91 |
DIAGNOSTICS_SET_CALC |
& .AND. kPsi(i,j,bi,bj) ) d2Min = d2Loc |
|
./pkg/diagnostics/diagnostics_set_calc.F |
93 |
DIAGNOSTICS_SET_CALC |
IF ( d2Loc.LT.d2Min .OR. d2Min.EQ.-1. _d 0 ) d2Min = d2Loc |