Scrambler  1
source_declarations.f90
Go to the documentation of this file.
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
 All Classes Files Functions Variables