diff --git a/modules/moordyn/src/MoorDyn.f90 b/modules/moordyn/src/MoorDyn.f90 index a8e5bad50f..e58f5f2949 100644 --- a/modules/moordyn/src/MoorDyn.f90 +++ b/modules/moordyn/src/MoorDyn.f90 @@ -2166,8 +2166,8 @@ SUBROUTINE MD_Init(InitInp, u, p, x, xd, z, other, y, m, DTcoupling, InitOut, Er ! check for non-convergence DO l = 1, p%nLines - DO K = 1,9 - IF ( abs( FairTensIC(l,1)/FairTensIC(l,K+1) - 1.0 ) > InputFileDat%threshIC ) THEN + DO K = 2,10 + IF ( abs( FairTensIC(l,1)/FairTensIC(l,K) - 1.0 ) > InputFileDat%threshIC ) THEN Converged = 0 EXIT END IF