| 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.0721E-5 ! Angular rotation rate of Mars |
|---|
| 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 :: EARTH_RADIUS_M = 3397200. ! same as MM5 system |
|---|
| 17 | real, parameter :: EARTH_CIRC_M = 2.*PI*EARTH_RADIUS_M |
|---|
| 18 | |
|---|
| 19 | real, parameter :: G = 3.72 |
|---|
| 20 | real, parameter :: Rd = 192. |
|---|
| 21 | real, parameter :: Rv = 461.6 |
|---|
| 22 | real, parameter :: Cp = 4.4*Rd |
|---|
| 23 | real, parameter :: Cv = Cp-Rd |
|---|
| 24 | real, parameter :: RCP = Rd/Cp |
|---|
| 25 | real, parameter :: T0 = 273.16 |
|---|
| 26 | real, parameter :: p0 = 610. |
|---|
| 27 | ! real, parameter :: GAMMA = 0.0065 |
|---|
| 28 | real, parameter :: GAMMA = Rd/Cp |
|---|
| 29 | real, parameter :: GAMMA_RIP = Rd/Cp |
|---|
| 30 | |
|---|
| 31 | ! |
|---|
| 32 | ! TODO: modify below for Mars |
|---|
| 33 | ! |
|---|
| 34 | |
|---|
| 35 | real, parameter :: Rm = .608 |
|---|
| 36 | real, parameter :: CPMD = 0.887 |
|---|
| 37 | real, parameter :: GAMMAMD = Rm-CPMD |
|---|
| 38 | |
|---|
| 39 | real, parameter :: CELKEL = 273.15 |
|---|
| 40 | real, parameter :: RHOWAT = 1000. |
|---|
| 41 | real, parameter :: EPS = 0.622 |
|---|
| 42 | real, parameter :: EZERO = 6.112 |
|---|
| 43 | |
|---|
| 44 | real, parameter :: ESLCON1 = 17.67 |
|---|
| 45 | real, parameter :: ESLCON2 = 29.65 |
|---|
| 46 | real, parameter :: THTECON1 = 3376. |
|---|
| 47 | real, parameter :: THTECON2 = 2.54 |
|---|
| 48 | real, parameter :: THTECON3 = 0.81 |
|---|
| 49 | real, parameter :: TLCLC1 = 2840. |
|---|
| 50 | real, parameter :: TLCLC2 = 3.5 |
|---|
| 51 | real, parameter :: TLCLC3 = 4.805 |
|---|
| 52 | real, parameter :: TLCLC4 = 55. |
|---|
| 53 | |
|---|
| 54 | |
|---|
| 55 | END MODULE constants_module |
|---|
