Skip to content

Commit cea23f2

Browse files
author
Daniel Ruprecht
committed
changed value for unit in timestepper to be in range allowed by cray compiler
1 parent a2ed6df commit cea23f2

File tree

1 file changed

+4
-4
lines changed

1 file changed

+4
-4
lines changed

src/run_timestepper.f90

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -67,9 +67,9 @@ PROGRAM run_timestepper
6767

6868
! Load initial value
6969
ALLOCATE(Q(-2:Nx+3,-2:Ny+3,-2:Nz+3))
70-
OPEN(unit=100, file='q0.dat', ACTION='read', STATUS='old')
71-
READ(100,'(F35.25)') Q
72-
CLOSE(100)
70+
OPEN(unit=11, file='q0.dat', ACTION='read', STATUS='old')
71+
READ(11,'(F35.25)') Q
72+
CLOSE(11)
7373

7474
! Output
7575
IF (be_verbose) THEN
@@ -108,4 +108,4 @@ PROGRAM run_timestepper
108108
CALL FinalizeTimestepper
109109
CALL MPI_FINALIZE(ierr)
110110

111-
END PROGRAM run_timestepper
111+
END PROGRAM run_timestepper

0 commit comments

Comments
 (0)