Context Navigation

module_definitions.f90 @ 1697

Last change on this file since 1697 was 1676, checked in by lfita, 8 years ago
Adding atmospheric constants
File size: 2.1 KB

Rev	Line
[1609]	1	MODULE module_definitions
	2
[1654]	3	! INTEGER, PARAMETER :: r_k = KIND(1.d0)
	4	INTEGER, PARAMETER :: r_k = KIND(1.)
[1609]	5	REAL(r_k), PARAMETER :: zeroRK = 0.
	6	REAL(r_k), PARAMETER :: oneRK = 1.
	7	REAL(r_k), PARAMETER :: twoRK = 2.
[1655]	8	!REAL(r_k), PARAMETER :: DegRad = 180.d0/DACOS(-1.)
	9	REAL(r_k), PARAMETER :: DegRad = 180./ACOS(-1.)
[1609]	10	CHARACTER(len=100) :: infomsg = 'INFORMATION -- information' // &
	11	' -- INFORMATION -- information'
	12	CHARACTER(len=50) :: warnmsg = 'WARNING -- warning -- ' // &
	13	'WARNING -- warning'
	14	CHARACTER(len=50) :: emsg = 'ERROR -- error -- ERROR -- error'
	15	! Fill value at 64 bits
[1655]	16	!REAL(r_k) :: fillval64 = 1.d20
[1609]	17	REAL(r_k) :: fillval64 = 1.e20
[1621]	18	INTEGER :: fillvalI = -99999
[1609]	19	CHARACTER(len=50) :: fname
[1612]	20	CHARACTER(len=256) :: msg
[1660]	21	! Some all-purpose variables
	22	CHARACTER(len=1) :: Str1
	23	CHARACTER(len=4) :: numSa, numSb
	24	CHARACTER(len=10) :: Str10
[1609]	25
[1676]	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
[1609]	34	END MODULE module_definitions

Note: See TracBrowser for help on using the repository browser.