RSL v1.43

[~andy/rsl] / radar_to_uf.c

diff --git a/radar_to_uf.c b/radar_to_uf.c
index 0d3af56a2311e6496895e3bb56b8a4fb7777ff3a..0c9ee3dda9a72f48c031ab7a2e2a8dc9f06b28ae 100644 (file)
--- a/radar_to_uf.c
+++ b/radar_to_uf.c
@@ -355,8 +355,12 @@ void RSL_radar_to_uf_fp(Radar *r, FILE *fp)
         /* TODO: Code within "#ifdef LUHDR_VR_AZ" below should be removed
          * once testing of merge_split_cuts is completed.
          */
-/* 5/18/2010 Temporarily define LUHDR_VR_AZ until merge_split_cuts is
-   completed. */
+/* 7/25/2011 There's really no need to remove this code after merge_split_cuts.
+ * We can continue using it for exact VR azimuth in RSL.  Non-RSL programs can
+ * use the mandatory header azimuth, which is exact for DZ and a close
+ * approximation for VR when merge-split-cuts is applied.
+ */
+/* Preprocessor directives are for testing. */
 #define LUHDR_VR_AZ
 #ifdef LUHDR_VR_AZ
         /* If DZ and VR azimuths are different, store VR azimuth in Local Use
@@ -431,7 +435,9 @@ void RSL_radar_to_uf_fp(Radar *r, FILE *fp)
             /* ---- Begining of FIELD HEADER. */
             if (q_fh) {
               uf_fh = uf+current_fh_index;
-              uf_fh[1] = scale_factor = 100;
+             if (k != PH_INDEX) scale_factor = 100;
+             else scale_factor = 10;
+              uf_fh[1] = scale_factor;
               uf_fh[2] = ray->h.range_bin1/1000.0;
               uf_fh[3] = ray->h.range_bin1 - (1000*uf_fh[2]);
               uf_fh[4] = ray->h.gate_size;