WPS/geogrid/src/constants_module.F

   1 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   2 ! MODULE CONSTANTS_MODULE
   3 !
   4 ! This module defines constants that are used by other modules
   5 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
   6 module constants_module
   7
   8    real, parameter :: PI = 3.141592653589793
   9    real, parameter :: OMEGA_E = 7.292e-5 ! Angular rotation rate of the earth
  10
  11    real, parameter :: DEG_PER_RAD = 180./PI
  12    real, parameter :: RAD_PER_DEG = PI/180.
  13
  14    ! Mean Earth Radius in m.  The value below is consistent
  15    ! with NCEP's routines and grids.
  16    real, parameter :: A_WGS84  = 6378137.
  17    real, parameter :: B_WGS84  = 6356752.314
  18    real, parameter :: RE_WGS84 = A_WGS84
  19    real, parameter :: E_WGS84  = 0.081819192
  20
  21    real, parameter :: A_NAD83  = 6378137.
  22    real, parameter :: RE_NAD83 = A_NAD83
  23    real, parameter :: E_NAD83  = 0.0818187034
  24
  25    real, parameter :: EARTH_RADIUS_M = 6370000.   ! same as MM5 system
  26    real, parameter :: EARTH_CIRC_M = 2.*PI*EARTH_RADIUS_M
  27
  28 end module constants_module