From fabb1e7c191c701fec020295714f4e6e1fd496d0 Mon Sep 17 00:00:00 2001 From: andrew-platt Date: Wed, 2 Dec 2020 14:56:18 -0700 Subject: [PATCH] [BugFix] array bounds issue introduced in PR #602 --- modules/hydrodyn/src/Waves.f90 | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/modules/hydrodyn/src/Waves.f90 b/modules/hydrodyn/src/Waves.f90 index 547a340f14..f8ccc2dad9 100644 --- a/modules/hydrodyn/src/Waves.f90 +++ b/modules/hydrodyn/src/Waves.f90 @@ -1939,13 +1939,13 @@ SUBROUTINE VariousWaves_Init ( InitInp, InitOut, ErrStat, ErrMsg ) ELSE ! The elevation of the point defined by WaveKinzi(J) must lie between the seabed and the mean sea level (inclusive) - InitOut%WaveDynP(:,J ) = WaveDynP0B(:,K) - InitOut%WaveVel (:,J,1) = WaveVel0Hxi(:,K) - InitOut%WaveVel (:,J,2) = WaveVel0Hyi(:,K) - InitOut%WaveVel (:,J,3) = WaveVel0V(:,K) - InitOut%WaveAcc (:,J,1) = WaveAcc0Hxi(:,K) - InitOut%WaveAcc (:,J,2) = WaveAcc0Hyi(:,K) - InitOut%WaveAcc (:,J,3) = WaveAcc0V(:,K) + InitOut%WaveDynP(0:InitOut%NStepWave-1,J ) = WaveDynP0B( 0:InitOut%NStepWave-1,K) + InitOut%WaveVel (0:InitOut%NStepWave-1,J,1) = WaveVel0Hxi(0:InitOut%NStepWave-1,K) + InitOut%WaveVel (0:InitOut%NStepWave-1,J,2) = WaveVel0Hyi(0:InitOut%NStepWave-1,K) + InitOut%WaveVel (0:InitOut%NStepWave-1,J,3) = WaveVel0V( 0:InitOut%NStepWave-1,K) + InitOut%WaveAcc (0:InitOut%NStepWave-1,J,1) = WaveAcc0Hxi(0:InitOut%NStepWave-1,K) + InitOut%WaveAcc (0:InitOut%NStepWave-1,J,2) = WaveAcc0Hyi(0:InitOut%NStepWave-1,K) + InitOut%WaveAcc (0:InitOut%NStepWave-1,J,3) = WaveAcc0V( 0:InitOut%NStepWave-1,K) K = K + 1 END IF