Changeset 18498

Timestamp:

09/10/14 14:38:58 (11 years ago)

Author:

Mathieu Morlighem

Message:

BUG: fixed ssh indexing

File:

• issm/trunk-jpl/src/c/analyses/SeaiceAnalysis.cpp (modified) (3 diffs)

issm/trunk-jpl/src/c/analyses/SeaiceAnalysis.cpp

@@ -131 +131 @@
         xDelete<IssmDouble>(xyz_list);
         xDelete<IssmDouble>(B);
+        xDelete<IssmDouble>(M);
         delete gauss;
         return Ke;
@@ -207 +208 @@
                 oceanvx_input->GetInputValue(&oceanvx,gauss);
                 oceanvy_input->GetInputValue(&oceanvy,gauss);
-                oceanssh_input->GetInputDerivativeValue(&dssh[2],xyz_list,gauss);
+                oceanssh_input->GetInputDerivativeValue(&dssh[0],xyz_list,gauss);
 
                 /*Previous speed (finite differencing)*/
@@ -215 +216 @@
                 }
 
-                /*Atmespheric forcing*/
+                /*Atmospheric forcing*/
                 vnorm    = sqrt(windvx*windvx + windvy*windvy);
                 constant_part = concentration*air_coef*rho_air*(air_lin_drag_coef+air_quad_drag_coef*vnorm);