From eb7d6bef6cd2ae3605da9b81b319b2ea9a729ee2 Mon Sep 17 00:00:00 2001 From: Austin Blevins Date: Sun, 24 Jul 2022 22:45:43 -0400 Subject: [PATCH] fixed a bug in error handling --- src/io/io_read_surf.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/io/io_read_surf.f90 b/src/io/io_read_surf.f90 index af611eea..4b52660d 100644 --- a/src/io/io_read_surf.f90 +++ b/src/io/io_read_surf.f90 @@ -69,7 +69,7 @@ subroutine io_read_surf(user,surf) open(LUN,file=TIMEFILE,status='old',form='unformatted',recl=recsize,access='direct',iostat=ioerr) if (ioerr/=0) then - write(*,*) 'Error! Cannot read file ',trim(adjustl(DIAMFILE)) + write(*,*) 'Error! Cannot read file ',trim(adjustl(TIMEFILE)) stop end if do i=1,user%numlayers