smurf: Fix sense of WVM pwv correction

Starlink · Feb 5, 2013 · 4c8e9d1 · 4c8e9d1
1 parent 0fd5602
commit 4c8e9d1
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/applications/smurf/wvm/wvmTau.c b/applications/smurf/wvm/wvmTau.c
@@ -140,8 +140,8 @@ 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 (inverted) */
-    mmH2O_z = 1.0788204309 * mmH2O_z - 0.000624813;
+    /* From Per Friberg 20130131 */
+    mmH2O_z = 0.026938322 * mmH2O_z + 0.000579163;
 
   } else {
     /* From Jessica Dempsey 20130204 */