File |
Line number |
Procedure |
Code |
./pkg/diagnostics/DIAGNOSTICS_CALC.h |
33 |
NO PROCEDURE |
INTEGER iPsi0(nSx,nSy) |
./pkg/diagnostics/DIAGNOSTICS_CALC.h |
42 |
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 |
253 |
DIAG_CALC_PSIVEL |
IF ( iPsi0(bi,bj)*jPsi0(bi,bj).GT.0 ) |
./pkg/diagnostics/diag_calc_psivel.F |
254 |
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 |
283 |
DIAGNOSTICS_CALC_PHIVEL |
I k, iPsi0, jPsi0, uTrans, vTrans, |
./pkg/diagnostics/diagnostics_set_calc.F |
107 |
DIAGNOSTICS_SET_CALC |
iPsi0(bi,bj) = 0 |
./pkg/diagnostics/diagnostics_set_calc.F |
128 |
DIAGNOSTICS_SET_CALC |
iPsi0(bi,bj) = i |
./pkg/diagnostics/diagnostics_set_calc.F |
158 |
DIAGNOSTICS_SET_CALC |
iPsi0(bi,bj) = -1 |
./pkg/diagnostics/diagnostics_set_calc.F |
165 |
DIAGNOSTICS_SET_CALC |
IF ( iPsi0(bi,bj).GT.0 ) 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 |
174 |
DIAGNOSTICS_SET_CALC |
& ' ; i,j=',iPsi0(bi,bj),jPsi0(bi,bj),' ; ijLoc=',xyLoc |
./pkg/diagnostics/diagnostics_set_calc.F |
177 |
DIAGNOSTICS_SET_CALC |
iPsi0(bi,bj) = 0 |
./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 |
53 |
DIAGNOSTICS_SET_CALC |
iPsi0(bi,bj) = -1 |