From b8e6cbf5b9dfb1e3f1039e22207026163c751e25 Mon Sep 17 00:00:00 2001 From: Chris Fischer Date: Mon, 8 May 2017 12:57:19 -0600 Subject: [PATCH] Fix bug where file drv_flds_in wasn't being closed after being opened. Test suite: ./create_test cime_developer Test baseline: Test namelist changes: Test status: bit for bit Fixes #1489 User interface changes?: Code review: --- src/drivers/mct/shr/seq_drydep_mod.F90 | 2 +- src/drivers/mct/shr/shr_ndep_mod.F90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/drivers/mct/shr/seq_drydep_mod.F90 b/src/drivers/mct/shr/seq_drydep_mod.F90 index b072eb1b473..03e877a371f 100644 --- a/src/drivers/mct/shr/seq_drydep_mod.F90 +++ b/src/drivers/mct/shr/seq_drydep_mod.F90 @@ -566,10 +566,10 @@ subroutine seq_drydep_readnl(NLFilename, ID, seq_drydep_fields) call shr_sys_abort( subName//'ERROR: encountered end-of-file on namelist read' ) endif end do - close( unitn ) else write(s_logunit,*) 'seq_drydep_read: no drydep_inparm namelist found in ',NLFilename endif + close( unitn ) call shr_file_freeUnit( unitn ) end if end if diff --git a/src/drivers/mct/shr/shr_ndep_mod.F90 b/src/drivers/mct/shr/shr_ndep_mod.F90 index 64cadf107f3..d7ac81459da 100644 --- a/src/drivers/mct/shr/shr_ndep_mod.F90 +++ b/src/drivers/mct/shr/shr_ndep_mod.F90 @@ -87,10 +87,10 @@ subroutine shr_ndep_readnl(NLFilename, ID, ndep_fields, add_ndep_fields) call shr_sys_abort( subName//'ERROR: encountered end-of-file on namelist read' ) endif end do - close( unitn ) else write(s_logunit,*) 'shr_ndep_readnl: no ndep_inparm namelist found in ',NLFilename endif + close( unitn ) call shr_file_freeUnit( unitn ) end if end if