anchor.diff:                    if (p%DBEMT_Mod == DBEMT_none) then
   
                        call calculate_Inductions_from_BEMT(i, j, p, y%phi(i,j), u, OtherState, AFInfo, y%axInduction(i,j), y%tanInduction(i,j), ErrStat2,ErrMsg2)
  -                        call SetErrStat(ErrStat2,ErrMsg2,ErrStat,ErrMsg,RoutineName//trim(NodeTxt))
  -                        if (errStat >= AbortErrLev) return
  +                        if (ErrStat2 /= ErrID_None) then
  +                           call SetErrStat(ErrStat2,ErrMsg2,ErrStat,ErrMsg,RoutineName//trim(NodeText(i,j)))
  +                           if (errStat >= AbortErrLev) return
  +                        end if
   
                     else ! if (p%DBEMT_Mod /= DBEMT_none) then
                        
  
positive.code:                   if (errStat >= AbortErrLev) return
                    
                 call DBEMT_UpdateStates(i, j, t, DBEMT_u, p%DBEMT, x%DBEMT, OtherState%DBEMT, m%DBEMT, errStat2, errMsg2)
                    call SetErrStat(ErrStat2,ErrMsg2,ErrStat,ErrMsg,RoutineName//trim(NodeTxt))
                       if (errStat >= AbortErrLev) return
              end if
              
           else
  
negative.code:          ! over the blade elements.
           do j = 1,p%numBlades
              do i = 1,p%numBladeNodes
  
                 call calculate_Inductions_from_BEMT(i, j, p, z%phi(i,j), u1, OtherState, AFInfo, m%axInduction(i,j), m%tanInduction(i,j), ErrStat2,ErrMsg2)
                    if (ErrStat2 /= ErrID_None) then
                       call SetErrStat(ErrStat2,ErrMsg2,ErrStat,ErrMsg,RoutineName//trim(NodeText(i,j)))
                       if (errStat >= AbortErrLev) return
                    end if
  
              end do
           end do
  