Merge pull request #2350 from luwang00/b/WaveSurf_nonSquare

Vis: Fix another bug with vtk writing of non-square wave surface
OpenFAST · Jul 30, 2024 · 50f9ba0 · 50f9ba0
2 parents 4b8eba6 + f7a8aff
commit 50f9ba0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/modules/openfast-library/src/FAST_Subs.f90 b/modules/openfast-library/src/FAST_Subs.f90
@@ -8673,7 +8673,7 @@ SUBROUTINE WrVTK_WaveElevVisGrid(t_global, p_FAST, y_FAST, SeaSt)
 
    do ix=1,p_FAST%VTK_surface%NWaveElevPts(1)
       do iy=1,p_FAST%VTK_surface%NWaveElevPts(2)
-         WRITE(Un,VTK_AryFmt) p_FAST%VTK_surface%WaveElevVisX(ix), p_FAST%VTK_surface%WaveElevVisX(iy), p_FAST%VTK_surface%WaveElevVisGrid(y_FAST%VTK_LastWaveIndx,ix,iy)
+         WRITE(Un,VTK_AryFmt) p_FAST%VTK_surface%WaveElevVisX(ix), p_FAST%VTK_surface%WaveElevVisY(iy), p_FAST%VTK_surface%WaveElevVisGrid(y_FAST%VTK_LastWaveIndx,ix,iy)
       end do
    end do