Adjust loop indexing

RyanDavies19 · Oct 17, 2023 · c77b2fb · c77b2fb
1 parent 6422a88
commit c77b2fb
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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