MD: Bug fix to reading in external damping coefficients

OpenFAST · Jan 30, 2025 · ecc30c0 · ecc30c0
1 parent 017bdd6
commit ecc30c0
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/modules/moordyn/src/MoorDyn.f90 b/modules/moordyn/src/MoorDyn.f90
@@ -1680,7 +1680,7 @@ SUBROUTINE MD_Init(InitInp, u, p, x, xd, z, other, y, m, DTcoupling, InitOut, Er
                      end if
 
                      ! process linear damping coefficient
-                     CALL SplitByBars(tempString4, N, tempStrings)
+                     CALL SplitByBars(tempString3, N, tempStrings)
                      if (N==1) then                                                                                 ! if only one entry, use it for all directions
                         READ(tempString4, *) m%ExtLdList(l)%Blin(1)
                         m%ExtLdList(l)%Blin(2) = m%ExtLdList(l)%Blin(1)