Symbol Description Uses
iy 7



File Line number Procedure Code
./pkg/diagnostics/diag_calc_psivel.F 195 DIAG_CALC_PSIVEL
         iy = 0
./pkg/diagnostics/diag_calc_psivel.F 199 DIAG_CALC_PSIVEL
           IF ( kPsi(i,j) .AND. iy.EQ.0 ) THEN
./pkg/diagnostics/diag_calc_psivel.F 200 DIAG_CALC_PSIVEL
             iy = i
./pkg/diagnostics/diag_calc_psivel.F 205 DIAG_CALC_PSIVEL
         IF ( iy.NE.0 ) dPsiY (bi,bj) = psiVel(iy,jy,bi,bj)
./pkg/diagnostics/diag_calc_psivel.F 210 DIAG_CALC_PSIVEL
     &                 ' ; ix,jx=', ix,jx, ' ; iy,jy=', iy,jy
./pkg/diagnostics/diag_calc_psivel.F 73 DIAG_CALC_PSIVEL
      INTEGER is, js, ix, jx, iy, jy, ijCnt