qg_constants.f90 File Reference

Go to the source code of this file.

Modules
module	qg_constants
	Constants for the QG model.

Variables
real(kind=kind_real), parameter	qg_constants::domain_zonal =12e6_kind_real
	model domain (m) in zonal direction More...
real(kind=kind_real), parameter	qg_constants::domain_meridional =6.3e6_kind_real
	meridional model domain (m) More...
real(kind=kind_real), parameter	qg_constants::scale_length = 1e6_kind_real
	horizontal length scale (m) More...
real(kind=kind_real), parameter	qg_constants::ubar = 10.0_kind_real
	typical verlocity (m/s) More...
real(kind=kind_real), parameter	qg_constants::ubar1 = 40.0_kind_real
	mean zonal wind in the top layer (m/s) More...
real(kind=kind_real), parameter	qg_constants::ubar2 = 10.0_kind_real
	mean zonal wind in the bottom layer (m/s) More...
real(kind=kind_real), parameter	qg_constants::dlogtheta = 0.1_kind_real
	difference in log(pot. T) across boundary More...
real(kind=kind_real), parameter	qg_constants::g =10.0_kind_real
	gravity (m^2 s^{-2}) More...
real(kind=kind_real), parameter	qg_constants::f0 = 1e-4_kind_real
	Coriolis parameter at southern boundary. More...
real(kind=kind_real), parameter	qg_constants::bet0 = 1.5e-11_kind_real
	Meridional gradient of f (s^{-1} m^{-1}) More...
real(kind=kind_real), parameter	qg_constants::horog = 2000.0_kind_real
	height of orography (m) More...
real(kind=kind_real), parameter	qg_constants::worog = 1000e3_kind_real
	e-folding width of orography (m) More...
real(kind=kind_real), parameter	qg_constants::req = 6371229.0
	Earth radius at equator (m) More...
real(kind=kind_real), parameter	qg_constants::omega = 7.2921e-5
	Rotation rate of the Earth (rad/s) More...
real(kind=kind_real), parameter	qg_constants::u1 = ubar1/ubar
real(kind=kind_real), parameter	qg_constants::u2 = ubar2/ubar
real(kind=kind_real), parameter	qg_constants::bet = bet0*scale_length*scale_length/ubar
real(kind=kind_real), parameter	qg_constants::rossby_number = ubar/(f0*scale_length)
real(kind=kind_real), parameter	qg_constants::pi = acos(-1.0)