Fix initialization of i_shallower

TEOS-10 · Nov 8, 2024 · fba2879 · fba2879
1 parent 335fd5b
commit fba2879
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/gsw_oceanographic_toolbox.c b/gsw_oceanographic_toolbox.c
@@ -8908,9 +8908,9 @@ gsw_sa_ct_interp(double *sa, double *ct, double *p, int m,
                 break;
             }
 
-            for (i=0; i < i_2_len; ++i) {
-                if ((i_3[i] - i_frozen) <= 0) {
-                    i_shallower = i;
+            for (i_shallower=i_2_len-1; i_shallower>=0; --i_shallower) {
+                if ((i_3[i_shallower] - i_frozen) <= 0) {
+                    break;
                 }
             }
             i_above = i_2[i_shallower];