diff --git a/modules/aerodyn/src/FVW.f90 b/modules/aerodyn/src/FVW.f90 index 2c55f4dc27..7f2bc8a9e5 100644 --- a/modules/aerodyn/src/FVW.f90 +++ b/modules/aerodyn/src/FVW.f90 @@ -1601,7 +1601,7 @@ subroutine UA_Init_Wrapper(AFInfo, InitInp, interval, p, x, xd, OtherState, m, E do i = 1,InitInp%numBladeNodes InitInp%UA_Init%c(i,1) = p%W(iW)%chord_LL(i) ! NOTE: InitInp chord move-allocd to p end do - InitInp%UA_Init%OutRootName = trim(InitInp%RootName)//'W'//num2lstr(iW)//'.UA' + InitInp%UA_Init%OutRootName = trim(InitInp%RootName)//'W'//trim(num2lstr(iW))//'.UA' InitInp%UA_Init%ShedEffect = .False. ! Important, when coupling UA wih vortex code, shed vorticity is inherently accounted for InitInp%UA_Init%UAOff_innerNode(1) = InitInp%W(iW)%UAOff_innerNode