source: issm/oecreview/Archive/26740-27031/ISSM-27022-27023.diff@ 27032

../trunk-jpl/src/c/cores/bmb_core.cpp

@@ -35 +35 @@
         /*Call module now*/
         FloatingiceMeltingRatex(femmodel);
 
-        /*Extrude basal melt*/
-        femmodel->parameters->SetParam(BasalforcingsFloatingiceMeltingRateEnum,InputToExtrudeEnum);
-        extrudefrombase_core(femmodel);
+        /*Extrude basal melt if not default melting rate (which may be a transient input that can't be extruded)*/
+        if(basalforcing_model!=FloatingMeltRateEnum){
+                femmodel->parameters->SetParam(BasalforcingsFloatingiceMeltingRateEnum,InputToExtrudeEnum);
+                extrudefrombase_core(femmodel);
+        }
 }