constants_cgs.f90

Go to the documentation of this file.

!#############################################################################
!#                                                                           #
!# fosite - 3D hydrodynamical simulation program                             #
!# module: constants_cgs.f90                                                 #
!#                                                                           #
!# Copyright (C) 2007-2018                                                   #
!# Tobias Illenseer <tillense@astrophysik.uni-kiel.de>                       #
!# Jannes Klee      <jklee@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_cgs_mod
  USE constants_base_mod
  USE constants_si_mod
  IMPLICIT NONE
  !--------------------------------------------------------------------------!
  PRIVATE
  TYPE, EXTENDS(constants_si) :: constants_cgs
  CONTAINS
    PROCEDURE :: initconstants_cgs
  END TYPE
  CHARACTER(LEN=32), PARAMETER :: units_name = 'cgs'
  !--------------------------------------------------------------------------!
  PUBLIC :: &
       ! classes
       constants_cgs
  !--------------------------------------------------------------------------!

CONTAINS

  SUBROUTINE initconstants_cgs(this)
    IMPLICIT NONE
    !------------------------------------------------------------------------!
    CLASS(constants_cgs), INTENT(INOUT) :: this
    !------------------------------------------------------------------------!
    ! assign numerical values of physical constants in cgs units;
    this%C  = c*1.0e2           
    this%GN = gn*1.0e3          
    this%KB = kb*1.0e7          
    this%NA = na                
    this%SB = sb*1.0e3          
    this%KE = ke*1.0e1          
    ! conversion factors to from SI to cgs
    this%cf_time = 1.0          
    this%cf_mass = 1.0e3        
    this%cf_momentum = 1.0e5    
    this%cf_energy = 1.0e7      
    this%cf_power = 1.0e7       
    this%cf_temperature = 1.0   
    this%cf_density = 1.0e-3    
    this%cf_opacity = 1.0e1     

    CALL this%InitConstants(cgs,units_name)
  END SUBROUTINE initconstants_cgs

END MODULE constants_cgs_mod