_GLOBAL_MAX_RL( d2Min, myThid )
d2Min = -d2Min
IF ( d2Loc.EQ.d2Min .AND. kPsi(i,j,bi,bj) ) THEN
IF ( d2Loc.EQ.d2Min ) THEN
& 'DIAGNOSTICS_SET_CALC: d2Min=',d2Min, ', ijMin=',xyMin
_RL dxLoc, dyLoc, d2Loc, d2Min
d2Min = -1. _d 0
IF ((d2Loc.LT.d2Min .OR. d2Min.EQ.-1. _d 0)
& .AND. kPsi(i,j,bi,bj) ) d2Min = d2Loc
IF ( d2Loc.LT.d2Min .OR. d2Min.EQ.-1. _d 0 ) d2Min = d2Loc