chem/module_data_mosaic_constants.F

   1       module module_data_mosaic_constants
   2
   3       use module_data_mosaic_kind, only:  r8
   4
   5       implicit none
   6
   7
   8       real(r8), parameter :: pi = 3.14159265358979323846_r8   ! from shr_const_mod.F90 of CESM
   9
  10       real(r8), parameter :: piover4 = 0.25_r8 * pi
  11
  12       real(r8), parameter :: piover6 = pi/6.0_r8
  13
  14       real(r8), parameter :: deg2rad = pi/180.0_r8
  15
  16       real(r8), parameter :: third = 1.0_r8/3.0_r8
  17
  18       real(r8), parameter :: avogad = 6.02217e23_r8
  19
  20       end module module_data_mosaic_constants