Symbol Description Uses
jPsi0 indices of grid-point location where Psi == 0 15



File Line number Procedure Code
./pkg/diagnostics/DIAGNOSTICS_CALC.h 34 NO PROCEDURE
      INTEGER jPsi0(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 47 DIAG_CALC_PSIVEL
      INTEGER jPsi0(nSx,nSy)
./pkg/diagnostics/diagnostics_calc_phivel.F 283 DIAGNOSTICS_CALC_PHIVEL
     I                         k, iPsi0, jPsi0, uTrans, vTrans,
./pkg/diagnostics/diagnostics_set_calc.F 108 DIAGNOSTICS_SET_CALC
          jPsi0(bi,bj) = 0
./pkg/diagnostics/diagnostics_set_calc.F 129 DIAGNOSTICS_SET_CALC
               jPsi0(bi,bj) = j
./pkg/diagnostics/diagnostics_set_calc.F 159 DIAGNOSTICS_SET_CALC
             jPsi0(bi,bj) =  0
./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 178 DIAGNOSTICS_SET_CALC
               jPsi0(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 54 DIAGNOSTICS_SET_CALC
           jPsi0(bi,bj) =  0