| File |
Line number |
Procedure |
Code |
|
./pkg/diagnostics/DIAGNOSTICS_CALC.h |
32 |
NO PROCEDURE |
INTEGER iPsi0(nSx,nSy) |
|
./pkg/diagnostics/DIAGNOSTICS_CALC.h |
40 |
NO PROCEDURE |
& iPsi0, jPsi0 |
|
./pkg/diagnostics/diag_calc_psivel.F |
10 |
DIAG_CALC_PSIVEL |
I k, iPsi0, jPsi0, uTrans, vTrans, |
|
./pkg/diagnostics/diag_calc_psivel.F |
249 |
DIAG_CALC_PSIVEL |
IF ( iPsi0(bi,bj)*jPsi0(bi,bj).GT.0 ) |
|
./pkg/diagnostics/diag_calc_psivel.F |
250 |
DIAG_CALC_PSIVEL |
& offSet = -psiVel(iPsi0(bi,bj),jPsi0(bi,bj),bi,bj) |
|
./pkg/diagnostics/diag_calc_psivel.F |
46 |
DIAG_CALC_PSIVEL |
INTEGER iPsi0(nSx,nSy) |
|
./pkg/diagnostics/diag_calc_psivel.F |
84 |
DIAG_CALC_PSIVEL |
zeroPsi = iPsi0(1,1).GE.0 |
|
./pkg/diagnostics/diagnostics_calc_phivel.F |
257 |
DIAGNOSTICS_CALC_PHIVEL |
I k, iPsi0, jPsi0, uTrans, vTrans, |
|
./pkg/diagnostics/diagnostics_set_calc.F |
121 |
DIAGNOSTICS_SET_CALC |
iPsi0(bi,bj) = -1 |
|
./pkg/diagnostics/diagnostics_set_calc.F |
128 |
DIAGNOSTICS_SET_CALC |
IF ( iPsi0(bi,bj).GT.0 ) 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 |
137 |
DIAGNOSTICS_SET_CALC |
& ' ; i,j=',iPsi0(bi,bj),jPsi0(bi,bj),' ; ijLoc=',xyLoc |
|
./pkg/diagnostics/diagnostics_set_calc.F |
140 |
DIAGNOSTICS_SET_CALC |
iPsi0(bi,bj) = 0 |
|
./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 |
47 |
DIAGNOSTICS_SET_CALC |
iPsi0(bi,bj) = -1 |
|
./pkg/diagnostics/diagnostics_set_calc.F |
74 |
DIAGNOSTICS_SET_CALC |
iPsi0(bi,bj) = 0 |
|
./pkg/diagnostics/diagnostics_set_calc.F |
91 |
DIAGNOSTICS_SET_CALC |
iPsi0(bi,bj) = i |