[Dart-dev] [4765] DART/trunk/observations/NCEP/prep_bufr/src: Add a missing divide by 1000 in the computation of

[nancy at ucar.edu]

Revision: 4765
Author:   nancy
Date:     2011-02-25 12:45:16 -0700 (Fri, 25 Feb 2011)
Log Message:
-----------
Add a missing divide by 1000 in the computation of
surface Relative Humidity observations.  The upper
air RH computation was ok.

Modified Paths:
--------------
    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/prep_bufr/src/prepbufr.f
===================================================================
--- DART/trunk/observations/NCEP/prep_bufr/src/prepbufr.f	2011-02-24 22:31:13 UTC (rev 4764)
+++ DART/trunk/observations/NCEP/prep_bufr/src/prepbufr.f	2011-02-25 19:45:16 UTC (rev 4765)
@@ -592,7 +592,7 @@
 
              !  write RH data to file
              qdata(1) = qoe_rh
-             qdata(5) = qob / qsat
+             qdata(5) = qob / (qsat * 1000.0)
              qdata(6) = 1.0
              write(lunobs, 800) qdata, qtype, qqm, subset(1:6), pc_q
 

Modified: DART/trunk/observations/NCEP/prep_bufr/src/prepbufr_03Z.f
===================================================================
--- DART/trunk/observations/NCEP/prep_bufr/src/prepbufr_03Z.f	2011-02-24 22:31:13 UTC (rev 4764)
+++ DART/trunk/observations/NCEP/prep_bufr/src/prepbufr_03Z.f	2011-02-25 19:45:16 UTC (rev 4765)
@@ -611,7 +611,7 @@
 
              !  write RH data to file
              qdata(1) = qoe_rh
-             qdata(5) = qob / qsat
+             qdata(5) = qob / (qsat * 1000.0)
              qdata(6) = 1.0
              write(lunobs, 800) qdata, qtype, qqm, subset(1:6), pc_q