Startup: rewind scalar.inp

dalesteam · Feb 7, 2025 · 5635e13 · 5635e13
1 parent 5c02e3c
commit 5635e13
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/src/modstartup.f90 b/src/modstartup.f90
@@ -685,6 +685,10 @@ subroutine readinitfiles
                   svprof(k,isv) = vals_at_lev(isv_u)
                 end do
                 found = .true.
+                ! Go back to the start of the file
+                rewind(ifinput)
+                read(ifinput,'(a512)') chmess
+                read(ifinput,'(a512)') chmess
               end if
             end do