How to add additional wave gauges to OpenFAST output

Wind & Water Computer-Aided Engineering Software Tools
1

Hello,

I am looking to add the additional output of more than 9 wave gauges. I have tried modifiying the source code of SeaState but when examining the outputs, I get an “Invalid” unit and all zeros for the values, however, it does output the “Wave10Elev” just all zeros.

I have made modifications in “SeaState_output” such as
INTEGER(IntKi), PARAMETER :: Wave9Elev = 9
INTEGER(IntKi), PARAMETER :: Wave10Elev = 10

INTEGER(IntKi), PARAMETER :: Wave9Elv1 = 19
INTEGER(IntKi), PARAMETER :: Wave10Elv1 = 20

INTEGER(IntKi), PARAMETER :: Wave9Elv2 = 29
INTEGER(IntKi), PARAMETER :: Wave10Elv2 = 30

INTEGER(IntKi), PARAMETER, PUBLIC :: MaxOutPts = 120

INTEGER, PARAMETER :: WaveElevi(10) = (/Wave1Elev,Wave2Elev,Wave3Elev,Wave4Elev,Wave5Elev,Wave6Elev,Wave7Elev,Wave8Elev,Wave9Elev,Wave10Elev/)
INTEGER, PARAMETER :: WaveElevi1(10) = (/Wave1Elv1,Wave2Elv1,Wave3Elv1,Wave4Elv1,Wave5Elv1,Wave6Elv1,Wave7Elv1,Wave8Elv1,Wave9Elv1,Wave10Elv1/)
INTEGER, PARAMETER :: WaveElevi2(10) = (/Wave1Elv2,Wave2Elv2,Wave3Elv2,Wave4Elv2,Wave5Elv2,Wave6Elv2,Wave7Elv2,Wave8Elv2,Wave9Elv2,Wave10Elv2/)

And modifying “ValidParamAry(120)”, “ParamIndxAry(120)”, “ParamUnitsAry(120)” to include the new variables.

I also modified the SeaState_Input to no longer yield an error if NWaveElev > 9

I would appreciate any help on this. I am assuming there is another location where I need to edit. I assumed it would loop through NWaveElev and calculate the wave elevations of all user-defined locations.

Thank you,
Jacob Fontaine

2

I also edited:

do I=p%NWaveElev+1,10
      InvalidOutput(WaveElevi(I)) = .true.
      InvalidOutput(WaveElevi1(I))= .true.
      InvalidOutput(WaveElevi2(I))= .true.
   end do