#include <Coupling.h>

Collaboration diagram for Control_parameters:

Public Member Functions
	Control_parameters ()

void	read ()

void	print ()

void	update_communicator ()

void	update_start_time (int step, double t)

Public Attributes
char	coupling_scheme [MAXLEN]

char	fluid_module [MAXLEN]

char	solid_module [MAXLEN]

char	burn_module [MAXLEN]

char	output_module [MAXLEN]

MPI_Comm	communicator

double	simue_time

double	init_time

double	current_time

double	time_step

double	maxwalltime

int	maxNumDumps

int	current_dump

int	maxNumPredCorrCycles

int	maxNumTimeSteps

double	outputIntervalTime

double	zoomFactor

double	tolerTract

double	tolerVelo

double	tolerMass

double	tolerDisp

char	timingDataDir [MAXLEN]

std::string	timingDataFile

int	cur_step

double	LastOutputTime

int	LastOutputStep

int	InterruptFlag

int	AutoRestart

int	controlVerb

bool	controlDebug

int	iOutput

int	myRank

double	startTime

Detailed Description

Definition at line 43 of file Coupling.h.

Constructor & Destructor Documentation

Control_parameters ( )

Definition at line 166 of file rocstar_driver.C.

References AutoRestart, communicator, controlVerb, cur_step, current_dump, InterruptFlag, max(), maxNumDumps, maxNumPredCorrCycles, maxNumTimeSteps, maxwalltime, MPI_COMM_WORLD, output_module, simue_time, timingDataDir, tolerDisp, tolerMass, tolerTract, tolerVelo, and zoomFactor.

 {
   // default
   communicator = MPI_COMM_WORLD;
   zoomFactor = 0;
   cur_step = 0;
   maxwalltime = 3.15E7;
   simue_time = 1.0E12;
   strcpy(timingDataDir, "./");
   AutoRestart = 0;
   InterruptFlag = 0;
   maxNumDumps = 0;
   current_dump = 0;
   tolerTract = tolerMass = tolerVelo = tolerDisp = .001;
   maxNumPredCorrCycles = 1;
   maxNumTimeSteps = std::numeric_limits<int>::max();
   strcpy(output_module,"Rocout");
   strcpy(timingDataDir,"Rocman/Profiles");
   controlVerb = 5;
 }

Here is the call graph for this function:

Member Function Documentation

void print ( void )

Definition at line 296 of file rocstar_driver.C.

References AutoRestart, coupling_scheme, current_time, maxNumDumps, maxNumPredCorrCycles, maxNumTimeSteps, maxwalltime, outputIntervalTime, simue_time, time_step, timingDataDir, timingDataFile, tolerDisp, tolerMass, tolerTract, tolerVelo, and zoomFactor.

Referenced by rocstar_driver().

 {
   printf("================  Rocstar Control file ================\n");
   printf("Rocstar: CouplingScheme: '%s'\n", coupling_scheme);
   printf("Rocstar: InitialTime: %f\n", current_time);
   printf("Rocstar: MaximumTime: %f\n", simue_time);
   printf("Rocstar: MaxWallTime: %f\n", maxwalltime);
   printf("Rocstar: AutoRestart: %s\n",(AutoRestart ? "Yes" : "No")); 
   printf("Rocstar: MaxNumPredCorrCycles: %d\n", maxNumPredCorrCycles);
   printf("Rocstar: MaxNumTimeSteps: %d\n", maxNumTimeSteps);
   if(maxNumDumps > 0)
     printf("Rocstar: MaxNumOutputDumps: %d\n", maxNumDumps);
   printf("Rocstar: CurrentTimeStep: %e\n", time_step);
   printf("Rocstar: OutputIntervalTime: %e\n", outputIntervalTime);
   printf("Rocstar: ZoomFactor: %f\n", zoomFactor);
   printf("Rocstar: TolerTract: %f\n", tolerTract);
   printf("Rocstar: TolerVelo: %f\n", tolerVelo);
   printf("Rocstar: TolerMass: %f\n", tolerMass);
   printf("Rocstar: TolerDisp: %f\n", tolerDisp);
   printf("Rocstar: ProfileDir: %s\n", timingDataDir);
   printf("Rocstar: ProfileFile: %s\n", timingDataFile.c_str());
   printf("=======================================================\n");
 }

Here is the caller graph for this function:

void read ( )

Definition at line 187 of file rocstar_driver.C.

References AutoRestart, burn_module, COM_BOOL_ATTRIBUTE, COM_call_function(), COM_delete_window(), COM_DOUBLE_ATTRIBUTE, COM_get_function_handle(), COM_INT_ATTRIBUTE, COM_LOAD_MODULE_STATIC_DYNAMIC, COM_new_window(), COM_STRING_ATTRIBUTE, COM_window_init_done(), COMMPI_Comm_rank(), communicator, coupling_scheme, current_time, fluid_module, get_restart_time(), init_profiling(), init_time, iOutput, MAN_DEBUG, maxNumDumps, maxNumPredCorrCycles, maxNumTimeSteps, maxwalltime, MPI_COMM_WORLD, myRank, output_module, outputIntervalTime, simue_time, solid_module, startTime, time_step, timingDataDir, tolerDisp, tolerMass, tolerTract, tolerVelo, update_communicator(), and zoomFactor.

Referenced by rocstar_driver().

 {
   // Load I/O modules
   COM_LOAD_MODULE_STATIC_DYNAMIC( Rocin, "IN");
 
   string winname = "RocmanParam"; 
   COM_new_window(winname.c_str());
 
   string attr;
   COM_STRING_ATTRIBUTE("CouplingScheme", coupling_scheme);
 
   COM_STRING_ATTRIBUTE("FluidModule", fluid_module);
 
   COM_STRING_ATTRIBUTE("SolidModule", solid_module);
 
   COM_STRING_ATTRIBUTE("BurnModule", burn_module);
 
   COM_STRING_ATTRIBUTE("OutputModule", output_module);
 
   COM_DOUBLE_ATTRIBUTE("InitialTime", current_time);
 
   COM_DOUBLE_ATTRIBUTE("MaximumTime", simue_time);
 
   COM_DOUBLE_ATTRIBUTE("MaxWallTime", maxwalltime);
 
   COM_INT_ATTRIBUTE("MaxNumPredCorrCycles", maxNumPredCorrCycles);
 
   COM_INT_ATTRIBUTE("MaxNumTimeSteps", maxNumTimeSteps);
 
   COM_DOUBLE_ATTRIBUTE("CurrentTimeStep", time_step);
 
   COM_DOUBLE_ATTRIBUTE("OutputIntervalTime", outputIntervalTime);
 
   COM_DOUBLE_ATTRIBUTE("ZoomFactor", zoomFactor);
 
   // Tolerances for convergence check
   COM_DOUBLE_ATTRIBUTE("TolerTract", tolerTract);
 
   COM_DOUBLE_ATTRIBUTE("TolerVelo", tolerVelo);
 
   COM_DOUBLE_ATTRIBUTE("TolerMass", tolerMass);
 
   COM_DOUBLE_ATTRIBUTE("TolerDisp", tolerDisp);
 
   COM_STRING_ATTRIBUTE("GENXTimingDataDir", timingDataDir);
   COM_STRING_ATTRIBUTE("ProfileDir", timingDataDir);
   COM_BOOL_ATTRIBUTE("AutoRestart",AutoRestart);
   COM_INT_ATTRIBUTE("MaxNumDumps",maxNumDumps);
   // 
   COM_window_init_done(winname.c_str());
 
   //===== Read in parameter file using Rocin
   int IN_param = COM_get_function_handle( "IN.read_parameter_file");
 
   COM_call_function(IN_param, "RocstarControl.txt", (winname).c_str());
 
   // post process
   strcat(timingDataDir, "/");
 
   if(AutoRestart)
     current_time = get_restart_time("Restart.txt");
 
   init_time = current_time;       // init time, remain constant
   iOutput = (int)((1.000001*current_time)/outputIntervalTime)+1;
 
   COM_delete_window(winname.c_str());
 
     // load output module
   const std::string &outputModule = output_module;
   if (outputModule == "Rocout") {
     MAN_DEBUG(3, ("[%d] Rocstar: load_module Rocout.\n", COMMPI_Comm_rank(communicator)));
     COM_LOAD_MODULE_STATIC_DYNAMIC( Rocout, "OUT");
   }
 #ifdef WITH_PANDA
   else if (outputModule == "Rocpanda") {
     MAN_DEBUG(3, ("[%d] Rocstar: load_module Rocpanda.\n", COMMPI_Comm_rank(communicator)));
     COM_LOAD_MODULE_STATIC_DYNAMIC( Rocpanda, "OUT");
       // Rocpanda server processes won't return
   }
 #endif
   else {
     if(COMMPI_Comm_rank(communicator) == 0)
       printf("Rocstar: Error: Unknown output module %s!\n", output_module);
     MPI_Abort(MPI_COMM_WORLD, -1);
   }
 
     // get the MPI communicator set by Rocpanda
     // this is important, update communicator if it is Rocpanda
   update_communicator();
 
   myRank = COMMPI_Comm_rank(communicator);
 
     // initialize profiling file
   init_profiling(*this, myRank);
 
   if (myRank == 0) startTime = MPI_Wtime();
   MPI_Bcast( &startTime, 1, MPI_DOUBLE, 0, communicator);
 }

Here is the call graph for this function:

Here is the caller graph for this function:

void update_communicator ( )

Definition at line 287 of file rocstar_driver.C.

References COM_call_function(), COM_get_function_handle(), COM_set_default_communicator(), and communicator.

Referenced by read().

 {
   int get_comm = COM_get_function_handle( "OUT.get_comm");
   if (get_comm > 0) {
     COM_call_function( get_comm, &communicator);
     COM_set_default_communicator( communicator);
   }
 }

Here is the call graph for this function:

Here is the caller graph for this function:

void update_start_time	(	int	step,
		double	t
	)

Definition at line 321 of file rocstar_driver.C.

References cur_step, current_time, iOutput, LastOutputStep, LastOutputTime, and outputIntervalTime.

Referenced by Coupling::read_restart_info(), and Coupling::restart_at_time().

 {
   cur_step = step;
   current_time = t;
   LastOutputTime = t;
   LastOutputStep = cur_step;
     // set output seq no
   iOutput = (int)((1.000001*current_time)/outputIntervalTime)+1;
 }