smurf: Update WVM corrections

New values from Per Friberg 20130214
Starlink · Feb 16, 2013 · 515eed7 · 515eed7
1 parent d8fe355
commit 515eed7
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/applications/smurf/wvm/wvmTau.c b/applications/smurf/wvm/wvmTau.c
@@ -140,12 +140,12 @@ double pwv2tau_bydate(double mjdate, double mmH2O_z) {
   if (mjdate < 56190.0) { /* 20120920 */
     /* No correction */
   } else if (mjdate >= 56190.0 && mjdate < 56311.0 ) { /* 20120920 to 20130119 */
-    /* From Per Friberg 20130131 */
-    mmH2O_z = 0.926938322 * mmH2O_z + 0.000579163;
+    /* From Per Friberg 20130214 */
+    mmH2O_z = 0.913493433 * mmH2O_z + 0.016493953;
 
   } else {
-    /* From Jessica Dempsey 20130204 */
-    mmH2O_z = 1.0625 * mmH2O_z - 0.35;
+    /* From Per Friberg 20130214 */
+    mmH2O_z = 0.775627101 * mmH2O_z + 0.025099696;
   }
 
   /* APPLY THE CSO TAU CONVERSION */