2012-07-22 12:30:20 -03:00
|
|
|
!!******************************************************************************
|
2010-12-08 11:56:44 -02:00
|
|
|
!!
|
2012-07-22 12:30:20 -03:00
|
|
|
!! This file is part of the AMUN source code, a program to perform
|
|
|
|
!! Newtonian or relativistic magnetohydrodynamical simulations on uniform or
|
|
|
|
!! adaptive mesh.
|
2010-12-08 11:56:44 -02:00
|
|
|
!!
|
2021-02-04 17:35:04 -03:00
|
|
|
!! Copyright (C) 2008-2021 Grzegorz Kowal <grzegorz@amuncode.org>
|
2010-12-08 11:56:44 -02:00
|
|
|
!!
|
2012-07-22 12:30:20 -03:00
|
|
|
!! This program is free software: you can redistribute it and/or modify
|
|
|
|
!! it under the terms of the GNU General Public License as published by
|
|
|
|
!! the Free Software Foundation, either version 3 of the License, or
|
|
|
|
!! (at your option) any later version.
|
2010-12-08 11:56:44 -02:00
|
|
|
!!
|
2011-04-29 11:21:30 -03:00
|
|
|
!! This program is distributed in the hope that it will be useful,
|
2010-12-08 11:56:44 -02:00
|
|
|
!! but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
!! MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
!! GNU General Public License for more details.
|
|
|
|
!!
|
|
|
|
!! You should have received a copy of the GNU General Public License
|
2012-07-22 12:30:20 -03:00
|
|
|
!! along with this program. If not, see <http://www.gnu.org/licenses/>.
|
2010-12-08 11:56:44 -02:00
|
|
|
!!
|
|
|
|
!!*****************************************************************************
|
|
|
|
!!
|
2014-01-10 11:31:29 -02:00
|
|
|
!! module: CONSTANTS
|
|
|
|
!!
|
2014-01-10 11:32:27 -02:00
|
|
|
!! This module provides mathematical, physical, and unit conversion
|
2014-01-10 11:31:29 -02:00
|
|
|
!! constants and factors.
|
2012-07-22 12:30:20 -03:00
|
|
|
!!
|
|
|
|
!!*****************************************************************************
|
2010-12-08 11:56:44 -02:00
|
|
|
!
|
|
|
|
module constants
|
|
|
|
|
2013-12-12 16:09:47 -02:00
|
|
|
! module variables are not implicit by default
|
|
|
|
!
|
2010-12-08 11:56:44 -02:00
|
|
|
implicit none
|
|
|
|
|
2013-12-12 16:09:47 -02:00
|
|
|
! π and its multiplications
|
|
|
|
!
|
|
|
|
real(kind=8), parameter :: pi = 3.14159265358979323846264338327950d+00
|
|
|
|
real(kind=8), parameter :: pi2 = 6.28318530717958647692528676655900d+00
|
|
|
|
real(kind=8), parameter :: pi4 = 1.25663706143591729538505735331180d+01
|
|
|
|
|
|
|
|
! exp(-1/2)
|
|
|
|
!
|
|
|
|
real(kind=8), parameter :: ehi = 0.60653065971263342360379953499118d+00
|
|
|
|
|
|
|
|
! conversion between angular units (degree to radian and radian to degree)
|
|
|
|
!
|
|
|
|
real(kind=8), parameter :: d2r = 1.74532925199432954743716805978693d-02
|
|
|
|
real(kind=8), parameter :: r2d = 5.72957795130823228646477218717337d+01
|
|
|
|
|
|
|
|
! by default everything is public
|
2010-12-08 11:56:44 -02:00
|
|
|
!
|
2013-12-12 16:09:47 -02:00
|
|
|
public
|
2010-12-08 11:56:44 -02:00
|
|
|
|
2013-12-12 16:09:47 -02:00
|
|
|
!===============================================================================
|
|
|
|
!
|
2010-12-08 11:56:44 -02:00
|
|
|
end module constants
|