From 8ce5dfafd45564bb4fbd71424f8b4c46a48717a7 Mon Sep 17 00:00:00 2001 From: Austin Blevins Date: Wed, 19 Oct 2022 15:20:35 -0400 Subject: [PATCH] fixed another small bug in error handling when opening files --- src/io/io_read_regotrack.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/io/io_read_regotrack.f90 b/src/io/io_read_regotrack.f90 index 3acdbb14..0fa7964a 100644 --- a/src/io/io_read_regotrack.f90 +++ b/src/io/io_read_regotrack.f90 @@ -75,7 +75,7 @@ subroutine io_read_regotrack(user,surf) open(FAGE,file=AGEFILE,status='old',form='unformatted',iostat=ioerr) if (ioerr/=0) then - write(*,*) 'Error! Cannot read file ',trim(adjustl(MELTFILE)) + write(*,*) 'Error! Cannot read file ',trim(adjustl(AGEFILE)) stop end if