Changeset 21754

Timestamp:

06/06/17 16:04:17 (8 years ago)

Author:

Eric.Larour

Message:

CHG: frequency for eustatic shift

File:

• issm/branches/trunk-larour-NatGeoScience2016/src/c/cores/sealevelrise_core.cpp (modified) (2 diffs)

issm/branches/trunk-larour-NatGeoScience2016/src/c/cores/sealevelrise_core.cpp

@@ -34 +34 @@
         IssmDouble          *zz     = NULL;
         IssmDouble          dt,steric_rate;
+        int                 frequency;
 
         /*Recover some parameters: */
@@ -95 +96 @@
 
                 /*Now deal with steric ocean expansion by just shifting Sg by a constant rate: */
+                femmodel->parameters->FindParam(&frequency,SealevelriseRunFrequencyEnum);
                 femmodel->parameters->FindParam(&dt,TimesteppingTimeStepEnum);
                 femmodel->parameters->FindParam(&steric_rate,SealevelriseStericRateEnum);
-                Sg->Shift(dt*steric_rate);
+                Sg->Shift(dt*steric_rate*frequency);
                 
                 /*get results into elements:*/