From cf22731cfb85c892618d133435691c8b1692ecb2 Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Mon, 31 Oct 2011 19:15:57 -0400 Subject: [PATCH] Temporarily disabled creation of log file. --- src/logging.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/logging.f90 b/src/logging.f90 index 5c8279e228..377c1ab827 100644 --- a/src/logging.f90 +++ b/src/logging.f90 @@ -15,7 +15,7 @@ contains character(MAX_WORD_LEN) :: path_log ! path of log file logical :: file_exists ! does log file already exist? - integer :: ioError ! error status for file access + ! integer :: ioError ! error status for file access ! Create filename for log file path_log = trim(path_input) // ".log" @@ -27,8 +27,8 @@ contains end if ! Open log file for writing - open(FILE=path_log, UNIT=UNIT_LOG, STATUS='replace', & - & ACTION='write', IOSTAT=ioError) + ! open(FILE=path_log, UNIT=UNIT_LOG, STATUS='replace', & + ! & ACTION='write', IOSTAT=ioError) end subroutine create_log