diff --git a/modules/seastate/src/SeaState.f90 b/modules/seastate/src/SeaState.f90 index 1babf1a6f6..8547a19ddb 100644 --- a/modules/seastate/src/SeaState.f90 +++ b/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