Feature/issue246 (OpenFAST#247)

* WaveMode was set to 0 instead of WaveDirMod (Fixes OpenFAST#246)
ashesh2512 · Mar 21, 2019 · 1329d74 · 1329d74
1 parent 9c0ae40
commit 1329d74
Showing 1 changed file with 0 additions and 1 deletion.
diff --git a/modules-local/hydrodyn/src/HydroDyn_Input.f90 b/modules-local/hydrodyn/src/HydroDyn_Input.f90
@@ -2604,7 +2604,6 @@ SUBROUTINE HydroDynInput_ProcessInitData( InitInp, ErrStat, ErrMsg )
       InitInp%Waves%WaveMultiDir = .TRUE.
    ELSEIF ( (InitInp%Waves%WaveMod < 2 .OR. InitInp%Waves%WaveMod >4) .AND. InitInp%Waves%WaveDirMod == 1 ) THEN
       CALL SetErrStat( ErrID_Warn,'WaveDirMod unused unless WaveMod == 2, 3, or 4.  Ignoring WaveDirMod.',ErrStat,ErrMsg,RoutineName)
-      InitInp%Waves%WaveMod   = 0
    ENDIF