[Dart-dev] [10678] DART/trunk/diagnostics: in the call to open_file(), action='rewind' isn't legal anymore.

[nancy at ucar.edu]

Revision: 10678
Author:   nancy
Date:     2016-09-06 08:32:51 -0600 (Tue, 06 Sep 2016)
Log Message:
-----------
in the call to open_file(), action='rewind' isn't legal anymore.
actions are 'read', 'write', 'append'.  'write' will start at
the beginning if the file already exists, so i change it to that.

Modified Paths:
--------------
    DART/trunk/diagnostics/oned/obs_diag.f90
    DART/trunk/diagnostics/threed_sphere/obs_diag.f90

-------------- next part --------------
Modified: DART/trunk/diagnostics/oned/obs_diag.f90
===================================================================
--- DART/trunk/diagnostics/oned/obs_diag.f90	2016-09-06 14:29:04 UTC (rev 10677)
+++ DART/trunk/diagnostics/oned/obs_diag.f90	2016-09-06 14:32:51 UTC (rev 10678)
@@ -361,7 +361,7 @@
 ! Open file for histogram of innovations, as a function of standard deviation.
 !----------------------------------------------------------------------
 
-nsigmaUnit = open_file('LargeInnov.txt',form='formatted',action='rewind')
+nsigmaUnit = open_file('LargeInnov.txt',form='formatted',action='write')
 write(nsigmaUnit,'(a)')'Any observations flagged as bad are dumped into the last bin.'
 write(nsigmaUnit,'(a)') '   day   secs    loc            obs         prior   zscore   key   kind'
 

Modified: DART/trunk/diagnostics/threed_sphere/obs_diag.f90
===================================================================
--- DART/trunk/diagnostics/threed_sphere/obs_diag.f90	2016-09-06 14:29:04 UTC (rev 10677)
+++ DART/trunk/diagnostics/threed_sphere/obs_diag.f90	2016-09-06 14:32:51 UTC (rev 10678)
@@ -431,7 +431,7 @@
 ! Open file for histogram of innovations, as a function of standard deviation.
 !----------------------------------------------------------------------
 
-nsigmaUnit = open_file('LargeInnov.txt',form='formatted',action='rewind')
+nsigmaUnit = open_file('LargeInnov.txt',form='formatted',action='write')
 write(nsigmaUnit,'(a)')'Any observations flagged as bad are dumped into the last bin.'
 write(nsigmaUnit,'(a)') '   day   secs    lon      lat    level         obs    prior   zscore   key   kind'