Changeset 1676 in lmdz_wrf


Ignore:
Timestamp:
Dec 4, 2017, 5:41:30 PM (7 years ago)
Author:
lfita
Message:

Adding atmospheric constants

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/tools/module_definitions.f90

    r1660 r1676  
    2424  CHARACTER(len=10)                                      :: Str10
    2525
     26! Scientific constants
     27  REAL(r_k), PARAMETER                                   :: grav = 9.81 ! gravity [ms-1]
     28  REAL(r_k), PARAMETER                                   :: Cp = 29.07 ! gravity [Jmol-1K-1]
     29  REAL(r_k), PARAMETER                                   :: Cp_g = 1.0035 ! gravity [Jg-1K-1]
     30  REAL(r_k), PARAMETER                                   :: Rd = 8.3144598 ! gravity [JKgm2s-2K-1mol-1/JK-1mol-1]
     31  REAL(r_k), PARAMETER                                   :: RCp = 0.286 ! gravity [-]
     32  REAL(r_k), PARAMETER                                   :: p0ref = 100000 ! gravity [Pa]
     33
    2634END MODULE module_definitions
Note: See TracChangeset for help on using the changeset viewer.