Changeset 6b22af9 in flexpart.git for src/concoutput.f90

Timestamp:

Nov 20, 2015, 5:41:29 PM (8 years ago)

Author:

Espen Sollum ATMOS <eso@…>

Branches:

master, 10.4.1_pesei, GFS_025, bugfixes+enhancements, dev, release-10, release-10.4.1, scaling-bug, univie

Children:

a1f4dd6

Parents:

df967a99

Message:

Local branch for espen, working with OpenMP version of readwind

File:

• src/concoutput.f90 (modified) (2 diffs)

src/concoutput.f90

@@ -118 +118 @@
 ! This fixes a bug where the dates file kept growing across multiple runs
 
-! If 'dates' file exists, make a backup
+! If 'dates' file exists in output directory, make a backup
   inquire(file=path(2)(1:length(2))//'dates', exist=ldates_file)
   if (ldates_file.and.init) then
@@ -129 +129 @@
       if (ierr.ne.0) exit
       write(unit=unittmp, fmt='(a)', iostat=ierr, advance='yes') trim(dates_char)
-!      if (ierr.ne.0) write(*,*) "Write error, ", ierr
     end do
     close(unit=unitdates)