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 _WAVEMHDIBC_H_ 00053 #define _WAVEMHDIBC_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 00078 class WaveMHDIBC: public PhysIBC 00079 { 00080 public: 00082 00084 WaveMHDIBC(); 00085 00087 00089 WaveMHDIBC(Real& a_smallPressure, 00090 const Real& a_gamma, 00091 const Real& a_alpha, 00092 const int& a_pdir, 00093 const int& a_kratio, 00094 const int& a_waveNumber, 00095 const Real& a_pertAmplitude); 00096 00098 00100 virtual ~WaveMHDIBC(); 00101 00103 00105 void setFortranCommon(Real& a_smallPressure, 00106 const Real& a_gamma, 00107 const Real& a_alpha, 00108 const int& a_pdir, 00109 const int& a_kratio, 00110 const int& a_waveNumber, 00111 const Real& a_pertAmplitude); 00112 00114 00119 PhysIBC *new_physIBC(); 00120 00122 00124 void initialize(LevelData<FArrayBox>& a_U); 00125 00127 00129 void primBC(FArrayBox& a_WGdnv, 00130 const FArrayBox& a_Wextrap, 00131 const FArrayBox& a_W, 00132 const int& a_dir, 00133 const Side::LoHiSide& a_side, 00134 const Real& a_time); 00135 00137 00142 void setBdrySlopes(FArrayBox& a_dW, 00143 const FArrayBox& a_W, 00144 const int& a_dir, 00145 const Real& a_time); 00146 00148 00150 void artViscBC(FArrayBox& a_F, 00151 const FArrayBox& a_U, 00152 const FArrayBox& a_divVel, 00153 const int& a_dir, 00154 const Real& a_time); 00155 00157 void initializePhi(LevelData<FArrayBox>& a_U); 00158 00160 void phiBC(FArrayBox& a_U, 00161 const ProblemDomain& a_domain, 00162 const Real& a_dxLevel); 00163 00164 00166 void fluxBC(FArrayBox& a_F, 00167 const FArrayBox& a_W, 00168 const FArrayBox& a_Wextrap, 00169 const int& a_dir, 00170 const Side::LoHiSide& a_side, 00171 const Real& a_time); 00172 00174 virtual void parabolicFluxBC(FArrayBox& a_F, 00175 FArrayBox& a_W, 00176 const int& a_dir, 00177 const Side::LoHiSide& a_side, 00178 const Real& a_time); 00179 00180 00181 protected: 00182 // True if the Fortran common block has been set 00183 bool m_isFortranCommonSet; 00184 }; 00185 00186 #endif