Symbol Description Uses
a2dMax 9


File Line number Procedure Code
./pkg/diagnostics/diagnostics_calc_phivel.F 119 DIAGNOSTICS_CALC_PHIVEL 
              a2dMax = MAX(a2dMax,aW2d(i,j,bi,bj))
./pkg/diagnostics/diagnostics_calc_phivel.F 120 DIAGNOSTICS_CALC_PHIVEL 
              a2dMax = MAX(a2dMax,aS2d(i,j,bi,bj))
./pkg/diagnostics/diagnostics_calc_phivel.F 193 DIAGNOSTICS_CALC_PHIVEL 
          _GLOBAL_MAX_RL( a2dMax, myThid )
./pkg/diagnostics/diagnostics_calc_phivel.F 194 DIAGNOSTICS_CALC_PHIVEL 
          IF ( a2dMax .GT. 0. _d 0 ) a2dNorm = 1. _d 0/a2dMax
./pkg/diagnostics/diagnostics_calc_phivel.F 73 DIAGNOSTICS_CALC_PHIVEL 
      _RL  a2dMax, a2dNorm
./pkg/diagnostics/diagnostics_calc_phivel.F 97 DIAGNOSTICS_CALC_PHIVEL 
        a2dMax = 0. _d 0