constants_base.f90

Go to the documentation of this file.

!#############################################################################
!#                                                                           #
!# fosite - 3D hydrodynamical simulation program                             #
!# module: constants_generic.f90                                             #
!#                                                                           #
!# Copyright (C) 2007-2008,2011                                              #
!# Tobias Illenseer <tillense@astrophysik.uni-kiel.de>                       #
!#                                                                           #
!# 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 2 of the License, or (at     #
!# your option) any later version.                                           #
!#                                                                           #
!# This program is distributed in the hope that it will be useful, but       #
!# WITHOUT ANY WARRANTY; without even the implied warranty of                #
!# MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE, GOOD TITLE or        #
!# NON INFRINGEMENT.  See the GNU General Public License for more            #
!# details.                                                                  #
!#                                                                           #
!# You should have received a copy of the GNU General Public License         #
!# along with this program; if not, write to the Free Software               #
!# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.                 #
!#                                                                           #
!#############################################################################
!----------------------------------------------------------------------------!
!----------------------------------------------------------------------------!
!----------------------------------------------------------------------------!
MODULE constants_base_mod
  USE logging_base_mod
  IMPLICIT NONE
  !--------------------------------------------------------------------------!
  PRIVATE
  INTEGER, PARAMETER :: si          = 1
  INTEGER, PARAMETER :: cgs         = 2
  INTEGER, PARAMETER :: geometrical = 3
  TYPE, EXTENDS(logging_base) ::  constants_base
     REAL :: c
     REAL :: gn
     REAL :: kb
     REAL :: na
     REAL :: sb
     REAL :: rg
     REAL :: ke
     REAL :: au
     REAL :: msun
     REAL :: mjupiter
     REAL :: mearth
     REAL :: rsun
     REAL :: rjupiter
     REAL :: rearth
     REAL :: day
     REAL :: pi
     REAL :: cf_time
     REAL :: cf_mass
     REAL :: cf_momentum
     REAL :: cf_energy
     REAL :: cf_power
     REAL :: cf_temperature
     REAL :: cf_density
     REAL :: cf_opacity
  CONTAINS
    PROCEDURE :: initconstants
  END TYPE constants_base
  !--------------------------------------------------------------------------!
  PUBLIC :: &
       ! types
       constants_base, &
       ! constant flags
       si, cgs, geometrical
  !--------------------------------------------------------------------------!
 
CONTAINS
 
  SUBROUTINE initconstants(this,units,units_name)
    IMPLICIT NONE
    !------------------------------------------------------------------------!
    CLASS(constants_base),INTENT(INOUT) :: this
    INTEGER                             :: units
    CHARACTER(LEN=*)                    :: units_name
    !------------------------------------------------------------------------!
    INTENT(IN)                          :: units
    !------------------------------------------------------------------------!
    CALL this%InitLogging(units,units_name)
 
    ! derived constants
    this%RG = this%KB * this%NA         ![J/mol/K]    universal gas constant !
 
    ! print some information
    CALL this%Info(" CONSTANTS> physical units:    " // trim(this%GetName()))
  END SUBROUTINE initconstants
 
END MODULE constants_base_mod