From b742505d519a9942cb1101ba9c418c846d1f7c09 Mon Sep 17 00:00:00 2001 From: Erik Kluzek Date: Sat, 18 Jan 2025 14:37:58 -0700 Subject: [PATCH] Add more error messaging fixing #524 --- cesm/driver/esm_time_mod.F90 | 3 +++ 1 file changed, 3 insertions(+) diff --git a/cesm/driver/esm_time_mod.F90 b/cesm/driver/esm_time_mod.F90 index c423b96f..4a81cc68 100644 --- a/cesm/driver/esm_time_mod.F90 +++ b/cesm/driver/esm_time_mod.F90 @@ -141,6 +141,7 @@ subroutine esm_time_clockinit(ensemble_driver, instance_driver, logunit, maintas inquire( file=trim(restart_pfile), exist=exists) if (.not. exists) then rc = ESMF_FAILURE + write(logunit,*) " drv_restart_pointer file does NOT exist, correct this and rerun = "//trim(restart_pfile) call ESMF_LogWrite(trim(subname)//' ERROR rpointer file '//trim(restart_pfile)//' not found', & ESMF_LOGMSG_ERROR, line=__LINE__, file=__FILE__) return @@ -150,6 +151,7 @@ subroutine esm_time_clockinit(ensemble_driver, instance_driver, logunit, maintas open(newunit=unitn, file=restart_pfile, form='FORMATTED', status='old',iostat=ierr) if (ierr < 0) then rc = ESMF_FAILURE + write(logunit,*) " error opening rpointer file " call ESMF_LogWrite(trim(subname)//' ERROR rpointer file open returns error', & ESMF_LOGMSG_ERROR, line=__LINE__, file=__FILE__) return @@ -157,6 +159,7 @@ subroutine esm_time_clockinit(ensemble_driver, instance_driver, logunit, maintas read(unitn,'(a)', iostat=ierr) restart_file if (ierr < 0) then rc = ESMF_FAILURE + write(logunit,*) " error in read of rpointer file " call ESMF_LogWrite(trim(subname)//' ERROR rpointer file read returns error', & ESMF_LOGMSG_INFO, line=__LINE__, file=__FILE__) return