Changeset 25407

Timestamp:

08/16/20 16:36:34 (5 years ago)

Author:

Mathieu Morlighem

Message:

BUG: fixing ADOLC

File:

• issm/trunk-jpl/src/c/modules/SurfaceMassBalancex/Gembx.cpp (modified) (3 diffs)

issm/trunk-jpl/src/c/modules/SurfaceMassBalancex/Gembx.cpp

@@ -980 +980 @@
                 E_diff = E_used - E_sup;
 
-                if abs(E_diff) > 1E-6 || isnan(E_diff)
+                if fabs(E_diff) > 1E-6 || isnan(E_diff)
                 disp(T(1))
                 _error_("energy not conserved in thermodynamics equations");
@@ -2101 +2101 @@
                                 // ERA5 new aIdx=1, swIdx=0
                                 if (aIdx==1 && swIdx==0){
-                                        if (abs(adThresh - 820) < Dtol){
+                                        if (fabs(adThresh - 820) < Dtol){
                                                 // ERA5 new aIdx=1, swIdx=0, MODIS 820
                                                 M0 = max(1.8785 - (0.1811 * log(C)),0.25);
@@ -2145 +2145 @@
                                 // ERA5 new aIdx=1, swIdx=0
                                 if (aIdx==1 && swIdx==0){
-                                        if (abs(adThresh - 820) < Dtol){
+                                        if (fabs(adThresh - 820) < Dtol){
                                                 // ERA5 new aIdx=1, swIdx=0, MODIS 820
                                                 M0 = max(1.4174 - (0.1037 * log(C)),0.25);