Scrambler
1
|
00001 !######################################################################### 00002 ! 00003 ! Copyright (C) 2003-2012 Department of Physics and Astronomy, 00004 ! University of Rochester, 00005 ! Rochester, NY 00006 ! 00007 ! source_declarations.f90 is part of AstroBEAR. 00008 ! 00009 ! AstroBEAR is free software: you can redistribute it and/or modify 00010 ! it under the terms of the GNU General Public License as published by 00011 ! the Free Software Foundation, either version 3 of the License, or 00012 ! (at your option) any later version. 00013 ! 00014 ! AstroBEAR is distributed in the hope that it will be useful, 00015 ! but WITHOUT ANY WARRANTY; without even the implied warranty of 00016 ! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 00017 ! GNU General Public License for more details. 00018 ! 00019 ! You should have received a copy of the GNU General Public License 00020 ! along with AstroBEAR. If not, see <http://www.gnu.org/licenses/>. 00021 ! 00022 !######################################################################### 00025 00029 00032 MODULE SourceDeclarations 00033 00034 USE GlobalDeclarations 00035 00036 IMPLICIT NONE 00037 PUBLIC 00038 00039 TYPE SourcesDef 00040 INTEGER :: iSrcSolveType 00041 INTEGER :: iVerbosity 00042 INTEGER :: level 00043 LOGICAL :: lPrimitive 00044 ! tolerance for source terms (may vary with AMR level) 00045 REAL(KIND=qPrec) :: SrcTol 00046 LOGICAL :: lCooling 00047 LOGICAL :: lCylindrical 00048 LOGICAL :: luniformgravity 00049 LOGICAL :: lPointGravity 00050 LOGICAL :: lOutflows 00051 END TYPE SourcesDef 00052 00053 !!$ TYPE CoolingParamsDef 00054 !!$ REAL(KIND=qPrec) :: alpha,beta 00055 !!$ INTEGER :: coolingtype 00056 !!$ END TYPE CoolingParamsDef 00057 !!$ 00058 !!$ TYPE CylindricalParamsDef 00059 !!$ 00060 !!$ END TYPE CylindricalParamsDef 00061 00062 00063 ! multiplicative (alpha) and exponent (beta) constants for analytic cooling 00064 !REAL(KIND=qPrec) :: GravNormalVector(3),GravAccel 00065 !REAL(KIND=qPrec) :: GravPoint(3),mCentral 00066 00067 00068 ! Parameters for iSrcSolveType 00069 INTEGER,PARAMETER :: NoSource=0,ExplicitSource=1,ImplicitSource=2,ExactSource=3 00070 00071 LOGICAL, PARAMETER :: PRIMITIVE=.true., CONSERVATIVE=.false. 00072 00073 INTEGER :: SourceMethod=0 00074 00075 INTEGER, PARAMETER :: OPERATORSPLIT=0, NONOPERATORSPLIT=1 00076 00077 !! Parameters for iSrcType 00078 !INTEGER,PARAMETER :: coolingtype=1,cylindricaltype=2,outflowtype=3,uniformgravitytype=4,pointgravitytype=5 00079 00080 00081 00082 00083 END MODULE SourceDeclarations