balancevelocity_core.cpp File Reference

: core of the balancevelocity solution More...

#include "./cores.h"
#include "../toolkits/toolkits.h"
#include "../classes/classes.h"
#include "../shared/shared.h"
#include "../modules/modules.h"
#include "../solutionsequences/solutionsequences.h"

Go to the source code of this file.

Functions
void	balancevelocity_core (FemModel *femmodel)

Detailed Description

: core of the balancevelocity solution

Definition in file balancevelocity_core.cpp.

Function Documentation

balancevelocity_core()

void balancevelocity_core

(

FemModel *

femmodel

)

Definition at line 12 of file balancevelocity_core.cpp.

                                             {
 
   /*parameters: */
   bool        save_results;
   IssmDouble  l = 8.;
 
   /*recover parameters: */
   femmodel->parameters->FindParam(&save_results,SaveResultsEnum);
 
   if(VerboseSolution()) _printf0_("computing smooth driving stress:\n");
   femmodel->parameters->SetParam(l,SmoothThicknessMultiplierEnum);
   femmodel->SetCurrentConfiguration(SmoothAnalysisEnum);
   femmodel->parameters->SetParam(DrivingStressXEnum,InputToSmoothEnum);
   solutionsequence_linear(femmodel);
   femmodel->parameters->SetParam(DrivingStressYEnum,InputToSmoothEnum);
   solutionsequence_linear(femmodel);
 
   if(VerboseSolution()) _printf0_("   call computational core:\n");
   femmodel->SetCurrentConfiguration(BalancevelocityAnalysisEnum);
   solutionsequence_linear(femmodel);
 
   if(save_results){
      if(VerboseSolution()) _printf0_("   saving results\n");
      int outputs[3] = {DrivingStressXEnum,DrivingStressYEnum,VelEnum};
      femmodel->RequestedOutputsx(&femmodel->results,&outputs[0],3);
   }
 
}