diff --git a/src/MNH/eol_alm.f90 b/src/MNH/eol_alm.f90 index ab533254e9d4fb65551a4d269e29cef05f3eae1e..509a014b15177f20aba4a338929e8ee2ae4b4ab8 100644 --- a/src/MNH/eol_alm.f90 +++ b/src/MNH/eol_alm.f90 @@ -379,8 +379,8 @@ DO KTSUBCOUNT=1,INBSUBCOUNT ! IF (LTIPLOSSG) THEN ZPHI = + ZAOA & - + TFARM%XBLA_PITCH(JROT) & - + XTWIST_ELT(JROT,JBLA,JBELT) + - TFARM%XBLA_PITCH(JROT) & + - XTWIST_ELT(JROT,JBLA,JBELT) IF (ZPHI > 0.0) THEN ZFTIPL = (2.0/XPI)*ACOS(MIN( & 1.0, EXP(-(TTURBINE%NNB_BLADES/2.0) &