Skip to content

Commit

Permalink
AD: remove extra debugging print statement
Browse files Browse the repository at this point in the history
Also changed a couple of `print*` to `call WrScr()`
  • Loading branch information
andrew-platt committed Apr 3, 2024
1 parent 9c682a6 commit c228bd3
Show file tree
Hide file tree
Showing 2 changed files with 5 additions and 3 deletions.
6 changes: 4 additions & 2 deletions modules/aerodyn/src/AeroDyn.f90
Original file line number Diff line number Diff line change
Expand Up @@ -360,7 +360,6 @@ subroutine AD_Init( InitInp, u, p, x, xd, z, OtherState, y, m, Interval, InitOut
endif
enddo

print*,'AD_Init: AeroProjMod B:',AeroProjMod

! -----------------------------------------------------------------
! Read the AeroDyn blade files, or copy from passed input
Expand Down Expand Up @@ -4495,6 +4494,9 @@ SUBROUTINE Init_BEMTmodule( InputFileData, RotInputFileData, u_AD, u, p, p_AD, x
elseif (p%AeroProjMod==APM_LiftingLine) then
Label='Projection: Lifting Line'
else
! Normally we wouldn't want to do a print or STOP, but we
! should never get here unless a programmer made a mistake.
! I'll leave this as is for now. - ADP
print*,'Invalid projection method'
STOP
endif
Expand Down Expand Up @@ -4745,7 +4747,7 @@ SUBROUTINE TFin_CalcOutput(p, p_AD, u, m, y, ErrStat, ErrMsg )
V_ind = 0.0_ReKi
elseif(p%TFin%TFinIndMod==TFinIndMod_rotavg) then
! TODO TODO
print*,'TODO TailFin: compute rotor average induced velocity'
call WrScr('TODO TailFin: compute rotor average induced velocity')
V_ind = 0.0_ReKi
else
STOP ! Will never happen
Expand Down
2 changes: 1 addition & 1 deletion modules/aerodyn/src/AeroDyn_IO.f90
Original file line number Diff line number Diff line change
Expand Up @@ -2409,7 +2409,7 @@ subroutine calcCantAngle(f, xi,stencilSize,n,cantAngle)
call differ_stencil ( xi(i), 1, 2, xiIn, cx, info )
!call differ_stencil ( xi(i), 1, 2, fIn, cf, info )
if (info /= 0) then
print*,'Cant Calc failed at i=',i
call WrScr('Cant Calc failed at i='//trim(Num2LStr(i)))
else
cPrime(i) = 0.0
fPrime(i) = 0.0
Expand Down

0 comments on commit c228bd3

Please sign in to comment.