tools_const.F90

Go to the documentation of this file.

!----------------------------------------------------------------------
! Module: tools_const
!> Define usual constants and missing values
! Author: Benjamin Menetrier
! Licensing: this code is distributed under the CeCILL-C license
! Copyright © 2015-... UCAR, CERFACS, METEO-FRANCE and IRIT
!----------------------------------------------------------------------
module tools_const
 
use tools_kinds, only: kind_real
 
implicit none
 
real(kind_real),parameter :: pi = acos(-1.0_kind_real)     ! Pi
real(kind_real),parameter :: deg2rad = pi/180.0_kind_real  ! Degree to radian
real(kind_real),parameter :: rad2deg = 180.0_kind_real/pi  ! Radian to degree
real(kind_real),parameter :: req = 6371229.0_kind_real     ! Earth radius (in m)
real(kind_real),parameter :: reqkm = 6371.229_kind_real    ! Earth radius (in km)
real(kind_real),parameter :: ps = 101325.0_kind_real       ! Reference surface pressure (in Pa)
 
private
public :: pi,deg2rad,rad2deg,req,reqkm,ps
 
end module tools_const