From 6af1a8027ffff02a39b39a913782de464cf4538a Mon Sep 17 00:00:00 2001 From: Alistair Adcroft Date: Thu, 16 Jul 2015 16:34:02 -0400 Subject: [PATCH] Corrected terminal message for creating trajectory file - Message used to say "creating" even when appending. - No answer changes. --- icebergs_io.F90 | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/icebergs_io.F90 b/icebergs_io.F90 index 38314d7..cfff9ca 100644 --- a/icebergs_io.F90 +++ b/icebergs_io.F90 @@ -910,7 +910,6 @@ subroutine write_trajectory(trajectory) write(filename,'(A,".",I6.6)') trim(filename), mpp_pe() endif endif - if (verbose) write(*,'(2a)') 'diamonds, write_trajectory: creating ',filename io_is_in_append_mode = .false. iret = nf_create(filename, NF_NOCLOBBER, ncid) @@ -919,6 +918,13 @@ subroutine write_trajectory(trajectory) io_is_in_append_mode = .true. if (iret .ne. NF_NOERR) write(stderrunit,*) 'diamonds, write_trajectory: nf_open failed' endif + if (verbose) then + if (io_is_in_append_mode) then + write(*,'(2a)') 'diamonds, write_trajectory: appending to ',filename + else + write(*,'(2a)') 'diamonds, write_trajectory: creating ',filename + endif + endif if (io_is_in_append_mode) then iret = nf_inq_dimid(ncid, 'i', i_dim)