Merge pull request #7 from ebranlard/f/fix-vtk-wave

Bug Fix: Wrong ErrStat preventing wave elev VTK outputs

modules/seastate/src/SeaState.f90

@@ -564,7 +564,7 @@ SUBROUTINE SeaSt_Init( InitInp, u, p, x, xd, z, OtherState, y, m, Interval, Init
       IF (ALLOCATED(InitInp%WaveElevXY)) THEN
       ! maybe instead of getting these requested points, we just output the grid that SeaState is generated on?
          ALLOCATE(InitOut%WaveElevSeries( 0:InitOut%NStepWave, 1:SIZE(InitInp%WaveElevXY, DIM=2)),STAT=ErrStat2)
-         if (ErrStat /= 0) then
+         if (ErrStat2 /= 0) then
             CALL SetErrStat(ErrID_Fatal,"Error allocating InitOut%WaveElevSeries.",ErrStat,ErrMsg,RoutineName)
             CALL CleanUp()
             RETURN