Ticket 741: PI dbmFeatureBranch jenkins-wrwp-38
authorDaniel Michelson <dbm@baltrad.eu>
Fri, 27 Apr 2018 01:58:17 +0000 (21:58 -0400)
committerDaniel Michelson <dbm@baltrad.eu>
Fri, 27 Apr 2018 01:58:17 +0000 (21:58 -0400)
lib/wrwp.c

index 82ac958..f0d621e 100644 (file)
@@ -602,9 +602,9 @@ VerticalProfile_t* Wrwp_generate(Wrwp_t* self, PolarVolume_t* inobj, const char*
       /* wind direction */
       vdir = 0;
       if (alpha < 0) {
-        vdir = (PI/2-beta) * RAD2DEG;
+        vdir = (M_PI/2-beta) * RAD2DEG;
       } else if (alpha > 0) {
-        vdir = (3*PI/2-beta) * RAD2DEG;
+        vdir = (3*M_PI/2-beta) * RAD2DEG;
       }
       if (vdir < 0) {
         vdir = vdir + 360;