The lowest element of a member must not cross the free surface

[Ry8icks]

Bug description
The error :
"The lowest element of a member must not cross the free surface. This is true for MemberID .. '
is issued.

To Reproduce
This is for a member crossing the free water surface.
However I've gotten rid of the error message by rewriting the code slightly (Morison.f90).

The new code looks like:

!
! Correction next line. B. Melhus, 29.09.2021
! else if (0.0 > Zb) then
else if (0.0 >= Zb) then
! fully submerged elements.
! NOTE: For an element which is fractionaly in the seabed, the entire element volume is added to totals
member%Vinner = member%Vinner + Vinner_l + Vinner_u
member%Vouter = member%Vouter + Vouter_l + Vouter_u
member%Vsubmerged = member%Vsubmerged + Vouter_l + Vouter_u
!
! Correction next line. B. Melhus, 29.09.2021
! else if ((0.0 > Za) .AND. (0.0 <= Zb)) then
else if ((0.0 > Za) .AND. (0.0 < Zb)) then
if (i == 1) then
call SetErrStat(ErrID_Fatal, 'The lowest element of a member must not cross the free surface. This is true for MemberID '//trim(num2lstr(member%MemberID)), errStat, errMsg, 'SetMemberProperties')
end if

and the error message is not issued. The error was issued because Zb=0 (i.e. exactly equal zero). Having rewritten to 0<Zb will make it work.

OpenFAST Version
OpenFAST-v3.0.0-dirty
Compile Info:

• Compiler: Intel(R) Fortran Compiler 1910
• Architecture: 64 bit
• Precision: single
• OpenMP: No
• Date: Sep 27 2021
• Time: 16:55:23
  Execution Info:
• Date: 09/29/2021
• Time: 13:40:11+0200

---