Changeset 27218

Timestamp:

08/17/22 16:59:42 (3 years ago)

Author:

Eric.Larour

Message:

CHG: new post core phase to cleanup datasets that are analysis specific.

Location:

issm/branches/trunk-larour-SLPS2022/src/c/cores

Files:

• cores.h (modified) (2 diffs)
• sealevelchange_core.cpp (modified) (1 diff)
• transient_core.cpp (modified) (2 diffs)

issm/branches/trunk-larour-SLPS2022/src/c/cores/cores.h

@@ -47 +47 @@
 void transient_core(FemModel* femmodel);
 void transient_precore(FemModel* femmodel);
+void transient_postcore(FemModel* femmodel);
 void dakota_core(FemModel* femmodel);
 void ad_core(FemModel* femmodel);
@@ -63 +64 @@
 void sealevelchange_core(FemModel* femmodel);
 void sealevelchange_initialgeometry(FemModel* femmodel);
+void sealevelchange_finalize(FemModel* femmodel);
 SealevelGeometry* sealevelchange_geometry(FemModel* femmodel);
 #endif

issm/branches/trunk-larour-SLPS2022/src/c/cores/sealevelchange_core.cpp

@@ -704 +704 @@
 
         return slgeom;
+
+}/*}}}*/
+void              sealevelchange_finalize(FemModel* femmodel) {  /*{{{*/
+
+        BarystaticContributions* barycontrib=NULL;
+        GenericParam<BarystaticContributions*>* barycontribparam=NULL;
+        
+        /*Erase barycontrib object: */
+        barycontribparam = xDynamicCast<GenericParam<BarystaticContributions*>*>(femmodel->parameters->FindParamObject(BarystaticContributionsEnum));
+        barycontrib=barycontribparam->GetParameterValue();
+        delete barycontrib;
+
+        return;
 
 }/*}}}*/

issm/branches/trunk-larour-SLPS2022/src/c/cores/transient_core.cpp

@@ -126 +126 @@
 
         if(!iscontrol || !isautodiff) femmodel->RequestedDependentsx();
+
+        /*finalize:*/
+        transient_postcore(femmodel);
+
+
 }/*}}}*/
 void transient_step(FemModel* femmodel){/*{{{*/
@@ -286 +291 @@
 
 }/*}}}*/
+void transient_postcore(FemModel* femmodel){/*{{{*/
+
+        bool       isslc;
+        femmodel->parameters->FindParam(&isslc,TransientIsslcEnum);
+
+        #if defined(_HAVE_SEALEVELCHANGE_)
+        if(isslc) sealevelchange_finalize(femmodel);
+        #endif
+        
+}/*}}}*/
 
 #ifdef _HAVE_CODIPACK_