diff --git a/modules/hydrodyn/src/UserWaves.f90 b/modules/hydrodyn/src/UserWaves.f90
index a979b5df93..4689ba2438 100644
--- a/modules/hydrodyn/src/UserWaves.f90
+++ b/modules/hydrodyn/src/UserWaves.f90
@@ -944,7 +944,7 @@ FUNCTION ExtractFields(FU, s, n) result(OK)
       CHARACTER(*), INTENT(OUT) :: s(n)     !< Fields
       LOGICAL                   :: OK
       ! Local var
-      CHARACTER(2048)           :: TextLine          !< One line of text read from the file
+      CHARACTER(65536)          :: TextLine          !< One line of text read from the file
       OK=.TRUE.
 
       ! Read line