FV3 Bundle
fv3jedi_lm_const_mod.F90
Go to the documentation of this file.
1 
2 !> Constants for the FV3 model
3 
5 
7 
8 implicit none
9 private
10 
11 real(kind=kind_real), parameter, public :: rad2deg = 57.29577954572
12 real(kind=kind_real), parameter, public :: deg2rad = 0.01745329251
13 
14 !--- Dimensional parameters
15 real(kind=8) , parameter, public :: pi_r8 = 3.14159265358979323846
16 real(kind=kind_real), parameter, public :: pi = real(pi_r8,kind_real)
17 real(kind=kind_real), parameter, public :: grav = 9.80665_kind_real
18 real(kind=kind_real), parameter, public :: radius = 6371.0e3_kind_real
19 real(kind=kind_real), parameter, public :: omega = 2.0_kind_real*pi/86164.0_kind_real
20 real(kind=kind_real), parameter, public :: stfbol = 5.6734e-8_kind_real
21 real(kind=kind_real), parameter, public :: airmw = 28.965_kind_real
22 real(kind=kind_real), parameter, public :: h2omw = 18.015_kind_real
23 real(kind=kind_real), parameter, public :: o3mw = 47.9982_kind_real
24 real(kind=kind_real), parameter, public :: runiv = 8314.47_kind_real
25 real(kind=kind_real), parameter, public :: alhl = 2.4665e6_kind_real
26 real(kind=kind_real), parameter, public :: alhf = 3.3370e5_kind_real
27 real(kind=kind_real), parameter, public :: alhs = alhl+alhf
28 real(kind=kind_real), parameter, public :: rdry = runiv/airmw
29 real(kind=kind_real), parameter, public :: cpdry = 3.5_kind_real*rdry
30 real(kind=kind_real), parameter, public :: cvdry = cpdry-rdry
31 real(kind=kind_real), parameter, public :: rvap = runiv/h2omw
32 real(kind=kind_real), parameter, public :: cpvap = 4._kind_real*rvap
33 real(kind=kind_real), parameter, public :: cvvap = cpvap-rvap
34 real(kind=kind_real), parameter, public :: kappa = rdry/cpdry
35 real(kind=kind_real), parameter, public :: epsilon = h2omw/airmw
36 real(kind=kind_real), parameter, public :: deltap = cpvap/cpdry
37 real(kind=kind_real), parameter, public :: deltav = cvvap/cvdry
38 real(kind=kind_real), parameter, public :: gammad = cpdry/cvdry
39 real(kind=kind_real), parameter, public :: rgas = rdry
40 real(kind=kind_real), parameter, public :: cp = rgas/kappa
41 real(kind=kind_real), parameter, public :: zvir = rvap/rgas - 1._kind_real
42 real(kind=kind_real), parameter, public :: vireps = 1.0_kind_real/epsilon-1.0_kind_real
43 real(kind=kind_real), parameter, public :: p00 = 100000.0_kind_real
44 real(kind=kind_real), parameter, public :: capice = 2000._kind_real
45 real(kind=kind_real), parameter, public :: capwtr = 4218._kind_real
46 real(kind=kind_real), parameter, public :: rhowtr = 1000._kind_real
47 real(kind=kind_real), parameter, public :: nuair = 1.533e-5_kind_real
48 real(kind=kind_real), parameter, public :: tice = 273.16_kind_real
49 real(kind=kind_real), parameter, public :: srfprs = 98470_kind_real
50 real(kind=kind_real), parameter, public :: karman = 0.40_kind_real
51 real(kind=kind_real), parameter, public :: usmin = 1.00_kind_real
52 real(kind=kind_real), parameter, public :: avogad = 6.023e26_kind_real
53 real(kind=kind_real), parameter, public :: rho_seawater = 1026.0_kind_real
54 real(kind=kind_real), parameter, public :: rho_seaice = 917.0_kind_real
55 real(kind=kind_real), parameter, public :: rho_snow = 330.0_kind_real
56 real(kind=kind_real), parameter, public :: f_coriolis_angle = 0.0_kind_real
57 real(kind=kind_real), parameter, public :: constoz = 604229.0_kind_real
58 
59 end module fv3jedi_lm_const_mod
real(kind=kind_real), parameter, public avogad
real(kind=kind_real), parameter, public cvdry
real(kind=kind_real), parameter, public grav
real(kind=kind_real), parameter, public gammad
real(kind=kind_real), parameter, public p00
real(kind=kind_real), parameter, public omega
real(kind=kind_real), parameter, public constoz
real(kind=kind_real), parameter, public nuair
real(kind=kind_real), parameter, public epsilon
real(kind=kind_real), parameter, public rho_seawater
real(kind=kind_real), parameter, public rhowtr
real(kind=kind_real), parameter, public cpdry
real(kind=kind_real), parameter, public o3mw
real(kind=kind_real), parameter, public airmw
real(kind=kind_real), parameter, public deltap
real(kind=8), parameter, public pi_r8
real(kind=kind_real), parameter, public radius
real(kind=kind_real), parameter, public capice
real(kind=kind_real), parameter, public cvvap
real(kind=kind_real), parameter, public rad2deg
real(kind=kind_real), parameter, public runiv
real(kind=kind_real), parameter, public rho_snow
real(kind=kind_real), parameter, public deltav
real(kind=kind_real), parameter, public zvir
real(kind=kind_real), parameter, public srfprs
real(kind=kind_real), parameter, public cp
real(kind=kind_real), parameter, public vireps
real(kind=kind_real), parameter, public rho_seaice
real(kind=kind_real), parameter, public tice
real(kind=kind_real), parameter, public f_coriolis_angle
real(kind=kind_real), parameter, public cpvap
real(kind=kind_real), parameter, public usmin
real(kind=kind_real), parameter, public alhf
real(kind=kind_real), parameter, public h2omw
real(kind=kind_real), parameter, public alhs
real(kind=kind_real), parameter, public deg2rad
real(kind=kind_real), parameter, public rgas
integer, parameter, public kind_real
real(kind=kind_real), parameter, public rdry
real(kind=kind_real), parameter, public capwtr
real(kind=kind_real), parameter, public karman
real(kind=kind_real), parameter, public stfbol
real(kind=kind_real), parameter, public kappa
real(kind=kind_real), parameter, public rvap
Constants for the FV3 model.
real(kind=kind_real), parameter, public alhl
real(fp), parameter, public pi