anchor.diff:      ENDDO
   END SUBROUTINE TipNois
   !==================================================================================================================================!
  -SUBROUTINE InflowNoise(AlphaNoise,Chord,U,THETA,PHI,d,RObs,MeanVNoise,TINoise,LE_Location,dissip,ufluct,p,SPLti,errStat,errMsg)
  -  REAL(ReKi),                                 INTENT(IN   ) :: AlphaNoise        ! AOA
  -  REAL(ReKi),                                 INTENT(IN   ) :: Chord          ! Chord Length
  -  REAL(ReKi),                                 INTENT(IN   ) :: U              !
  -  REAL(ReKi),                                 INTENT(IN   ) :: d              ! element span
  -  REAL(ReKi),                                 INTENT(IN   ) :: RObs           ! distance to observer
  -  REAL(ReKi),                                 INTENT(IN   ) :: THETA          !
  -  REAL(ReKi),                                 INTENT(IN   ) :: PHI            ! Spanwise directivity angle
  -  REAL(ReKi),                                 INTENT(IN   ) :: MeanVNoise     !
  -  REAL(ReKi),                                 INTENT(IN   ) :: TINoise        !
  -  REAL(ReKi),                                 INTENT(IN   ) :: LE_Location    !
  +SUBROUTINE InflowNoise(AlphaNoise,Chord,U,THETA,PHI,d,RObs,MeanVNoise,TINoise,LE_Location,dissip,p,SPLti,errStat,errMsg)
  +!  REAL(ReKi),                                 INTENT(IN   ) :: AlphaNoise        ! AOA
  +!  REAL(ReKi),                                 INTENT(IN   ) :: Chord          ! Chord Length
  +!  REAL(ReKi),                                 INTENT(IN   ) :: U              !
  +!  REAL(ReKi),                                 INTENT(IN   ) :: d              ! element span
  +!  REAL(ReKi),                                 INTENT(IN   ) :: RObs           ! distance to observer
  +!  REAL(ReKi),                                 INTENT(IN   ) :: THETA          !
  +!  REAL(ReKi),                                 INTENT(IN   ) :: PHI            ! Spanwise directivity angle
  +!  REAL(ReKi),                                 INTENT(IN   ) :: MeanVNoise     !
  +!  REAL(ReKi),                                 INTENT(IN   ) :: TINoise        !
  +!  REAL(ReKi),                                 INTENT(IN   ) :: LE_Location    !
  +  
  +  REAL(ReKi)                               :: AlphaNoise        ! AOA
  +  REAL(ReKi)                                 :: Chord          ! Chord Length
  +  REAL(ReKi)                                 :: U              !
  +  REAL(ReKi)                                 :: d              ! element span
  +  REAL(ReKi)                                 :: RObs           ! distance to observer
  +  REAL(ReKi)                                 :: THETA          !
  +  REAL(ReKi)                                 :: PHI            ! Spanwise directivity angle
  +  REAL(ReKi)                                 :: MeanVNoise     !
  +  REAL(ReKi)                                 :: TINoise        !
  +  REAL(ReKi)                                 :: LE_Location    !
  +
     REAL(ReKi),                                 INTENT(IN   ) :: dissip         !
  -  REAL(ReKi),                                 INTENT(IN   ) :: ufluct         !
     TYPE(AA_ParameterType),                     INTENT(IN   ) :: p              ! Parameters
     REAL(ReKi),DIMENSION(size(p%FreqList)),     INTENT(  OUT) :: SPLti         !
     INTEGER(IntKi),                             INTENT(  OUT) :: errStat        ! Error status of the operation
  
positive.code:             ENDIF
              AlphaNoise= u%AoANoise(J,I) * R2D_D 
  
              !--------Read in Boundary Layer Data-------------------------!
              IF (p%X_BLMethod .EQ. 2) THEN
                  call BL_Param_Interp(p,m,Unoise,AlphaNoise,p%BlChord(J,I),p%BlAFID(J,I), errStat2, errMsg2)
  
negative.code:         P2  = 10.**(SPLS(I) / 10.)				! SPL_Suction
          P4  = 10.**(SPLALPH(I) / 10.)			! SPL_AoA	
          SPLTBL(I) = 10. * LOG10(P1 + P2 + P4)										! Eq 24 from BPM Airfoil Self-noise and Prediction paper
  		
  
  		
  	ENDDO
  	
  	
  END SUBROUTINE TBLTE
  !==================================================================================================================================!
  SUBROUTINE TIPNOIS(ALPHTIP,ALPRAT2,C,U ,THETA,PHI, R,p,SPLTIP, errStat, errMsg)
  