!!****if* source/Simulation/SimulationMain/Test/Simulation_data !! !! NAME !! Simulation_data !! !! SYNOPSIS !! !! use Simulation_data !! !! DESCRIPTION !! !! Store the simulation data for the Sod problem !! !! ARGUMENTS !! !! !! PARAMETERS !! !! sim_rhoTarg Density in the left part of the grid !! sim_rhoAtm Density in the right part of the grid !! sim_pTarg Pressure in the left part of the grid !! sim_pAtm Pressure in the righ part of the grid !! sim_uTarg fluid velocity in the left part of the grid !! sim_uAtm fluid velocity in the right part of the grid !! sim_xangle Angle made by diaphragm normal w/x-axis (deg) !! sim_yangle Angle made by diaphragm normal w/y-axis (deg) !! sim_posSurf Point of intersection between the shock plane and the x-axis !! sim_rhoObj Density of impactor !! sim_radiusObj Radius of impactor !! !! !! left is bottom, right is top !! !! !!*** module Simulation_data #include "Flash.h" implicit none !! *** Runtime Parameters *** !! real, save :: sim_rhoTarg, sim_rhoAtm, sim_pTarg, sim_pAtm real, save :: sim_uTarg, sim_uAtm, sim_xAngle, sim_yAngle, sim_posSurf real, save :: sim_gamma, sim_smallP, sim_smallX, sim_rhoObj, sim_radiusObj real, save :: sim_xObj, sim_yObj,sim_uObj #ifdef SIMULATION_TWO_MATERIALS real, save :: sim_abarTarg, sim_zbarTarg, sim_abarAtm, sim_zbarAtm #endif #ifdef FLASH_3T !! 3T Variables: real, save :: sim_pionTarg real, save :: sim_pionAtm real, save :: sim_peleTarg real, save :: sim_peleAtm real, save :: sim_pradTarg real, save :: sim_pradAtm real, save :: sim_gammaIon, sim_gammaEle #endif !! *** Variables pertaining to Simulation Setup 'Sod' *** !! real, save :: sim_xCos, sim_yCos, sim_zCos logical, save :: sim_gCell integer, save :: sim_meshMe end module Simulation_data