[Dart-dev] [9759] DART/trunk/observations/NCEP: fix a bug where the obs error field was too small

[nancy at ucar.edu]

Revision: 9759
Author:   nancy
Date:     2016-02-16 16:10:42 -0700 (Tue, 16 Feb 2016)
Log Message:
-----------
fix a bug where the obs error field was too small
to contain values > 10.  one of our users has a file
from 2015 which has wind errors of > 10 for satellite winds.

changing the write format in the 2 prepbufr converters
requires a corresponding change in the read format in
real_obs_mod.

the "real" fix is to stop writing ascii intermediate files
and combine these two converters into a single program.
at the end of the prepbufr code we have all the bits we
need to create a dart observation, except the date.  (the
files contain hours only; the date comes from the filename.)

for now this allows users to convert these observations
without error.

Modified Paths:
--------------
    DART/trunk/observations/NCEP/ascii_to_obs/real_obs_mod.f90
    DART/trunk/observations/NCEP/prep_bufr/src/prepbufr.f
    DART/trunk/observations/NCEP/prep_bufr/src/prepbufr_03Z.f

-------------- next part --------------
Modified: DART/trunk/observations/NCEP/ascii_to_obs/real_obs_mod.f90
===================================================================
--- DART/trunk/observations/NCEP/ascii_to_obs/real_obs_mod.f90	2016-02-16 22:38:58 UTC (rev 9758)
+++ DART/trunk/observations/NCEP/ascii_to_obs/real_obs_mod.f90	2016-02-16 23:10:42 UTC (rev 9759)
@@ -223,7 +223,7 @@
       call error_handler(E_ERR,'real_obs_sequence', msgstring1, source, revision, revdate)
    endif
 
- 880 format(f4.2,2f9.4,e12.5,f7.2,f7.2,f9.0,f7.3,i4,i2,1x,a6,i2)
+ 880 format(f5.2,2f9.4,e12.5,f7.2,f7.2,f9.0,f7.3,i4,i2,1x,a6,i2)
 
    read_counter = read_counter + 1
 

Modified: DART/trunk/observations/NCEP/prep_bufr/src/prepbufr.f
===================================================================
--- DART/trunk/observations/NCEP/prep_bufr/src/prepbufr.f	2016-02-16 22:38:58 UTC (rev 9758)
+++ DART/trunk/observations/NCEP/prep_bufr/src/prepbufr.f	2016-02-16 23:10:42 UTC (rev 9759)
@@ -776,7 +776,7 @@
 
       IF ( ierrpb .eq. 0 )  GO TO 10
 
-800   format(f4.2,2f9.4,e12.5,f7.2,f7.2,f9.0,f7.3,i4,i2,1x,a6,i2)
+800   format(f5.2,2f9.4,e12.5,f7.2,f7.2,f9.0,f7.3,i4,i2,1x,a6,i2)
       STOP
       END
 C-----------------------------------------------------------------------

Modified: DART/trunk/observations/NCEP/prep_bufr/src/prepbufr_03Z.f
===================================================================
--- DART/trunk/observations/NCEP/prep_bufr/src/prepbufr_03Z.f	2016-02-16 22:38:58 UTC (rev 9758)
+++ DART/trunk/observations/NCEP/prep_bufr/src/prepbufr_03Z.f	2016-02-16 23:10:42 UTC (rev 9759)
@@ -795,7 +795,7 @@
 
       IF ( ierrpb .eq. 0 )  GO TO 10
 
-800   format(f4.2,2f9.4,e12.5,f7.2,f7.2,f9.0,f7.3,i4,i2,1x,a6,i2)
+800   format(f5.2,2f9.4,e12.5,f7.2,f7.2,f9.0,f7.3,i4,i2,1x,a6,i2)
       STOP
       END
 C-----------------------------------------------------------------------