00001 /* _______ __ 00002 / ___/ / ___ __ _ / / ___ 00003 / /__/ _ \/ _ \/ V \/ _ \/ _ \ 00004 \___/_//_/\___/_/_/_/_.__/\___/ 00005 */ 00006 // CHOMBO Copyright (c) 2000-2004, The Regents of the University of 00007 // California, through Lawrence Berkeley National Laboratory (subject to 00008 // receipt of any required approvals from U.S. Dept. of Energy). All 00009 // rights reserved. 00010 // 00011 // Redistribution and use in source and binary forms, with or without 00012 // modification, are permitted provided that the following conditions are met: 00013 // 00014 // (1) Redistributions of source code must retain the above copyright 00015 // notice, this list of conditions and the following disclaimer. 00016 // (2) Redistributions in binary form must reproduce the above copyright 00017 // notice, this list of conditions and the following disclaimer in the 00018 // documentation and/or other materials provided with the distribution. 00019 // (3) Neither the name of Lawrence Berkeley National Laboratory, U.S. 00020 // Dept. of Energy nor the names of its contributors may be used to endorse 00021 // or promote products derived from this software without specific prior 00022 // written permission. 00023 // 00024 // THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS 00025 // "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED 00026 // TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A 00027 // PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER 00028 // OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, 00029 // EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, 00030 // PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR 00031 // PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF 00032 // LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 00033 // NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 00034 // SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 00035 // 00036 // You are under no obligation whatsoever to provide any bug fixes, 00037 // patches, or upgrades to the features, functionality or performance of 00038 // the source code ("Enhancements") to anyone; however, if you choose to 00039 // make your Enhancements available either publicly, or directly to 00040 // Lawrence Berkeley National Laboratory, without imposing a separate 00041 // written license agreement for such Enhancements, then you hereby grant 00042 // the following license: a non-exclusive, royalty-free perpetual license 00043 // to install, use, modify, prepare derivative works, incorporate into 00044 // other computer software, distribute, and sublicense such Enhancements or 00045 // derivative works thereof, in binary and source code form. 00046 // 00047 // TRADEMARKS. Product and company names mentioned herein may be the 00048 // trademarks of their respective owners. Any rights not expressly granted 00049 // herein are reserved. 00050 // 00051 00052 #ifndef _EXPLOSIONIBC_H_ 00053 #define _EXPLOSIONIBC_H_ 00054 00055 #include <iostream> 00056 00057 #include "LevelData.H" 00058 #include "FArrayBox.H" 00059 #include "Vector.H" 00060 #include "RealVect.H" 00061 #include "AMRIO.H" 00062 #include "PhysIBC.H" 00063 00065 00080 class ExplosionIBC: public PhysIBC 00081 { 00082 public: 00084 00086 ExplosionIBC(); 00087 00089 00104 ExplosionIBC(Real& a_smallPressure, 00105 const Real& a_gamma, 00106 const Real& a_pressure_jump, 00107 const Real& a_density_jump, 00108 const Real& a_p0, 00109 const Real& a_rho0, 00110 const int& a_B_direction, 00111 const Real& a_B_magnitude, 00112 const RealVect& a_center, 00113 const Real& a_size, 00114 const RealVect& a_velocity, 00115 const Real& a_artvisc); 00116 00118 00120 virtual ~ExplosionIBC(); 00121 00123 00125 void setFortranCommon(Real& a_smallPressure, 00126 const Real& a_gamma, 00127 const Real& a_pressure_jump, 00128 const Real& a_density_jump, 00129 const Real& a_p0, 00130 const Real& a_rho0, 00131 const int& a_B_direction, 00132 const Real& a_B_magnitude, 00133 const RealVect& a_center, 00134 const Real& a_size, 00135 const RealVect& a_velocity, 00136 const Real& a_artvisc); 00137 00139 00144 PhysIBC *new_physIBC(); 00145 00147 00149 void initialize(LevelData<FArrayBox>& a_U); 00150 00152 00154 void primBC(FArrayBox& a_WGdnv, 00155 const FArrayBox& a_Wextrap, 00156 const FArrayBox& a_W, 00157 const int& a_dir, 00158 const Side::LoHiSide& a_side, 00159 const Real& a_time); 00160 00162 00167 void setBdrySlopes(FArrayBox& a_dW, 00168 const FArrayBox& a_W, 00169 const int& a_dir, 00170 const Real& a_time); 00171 00173 00175 void artViscBC(FArrayBox& a_F, 00176 const FArrayBox& a_U, 00177 const FArrayBox& a_divVel, 00178 const int& a_dir, 00179 const Real& a_time); 00180 00181 00182 protected: 00183 // True if the Fortran common block has been set 00184 bool m_isFortranCommonSet; 00185 }; 00186 00187 #endif