ugwpv0_oro_init Module Reference

This module contains orographic wave source schemes for UGWP v0. More...

Functions/Subroutines
subroutine	init_oro_gws_v0 (nwaves, nazdir, nstoch, effac, lonr, kxw, cdmbgwd)

Variables
character(len=8)	strver = 'gfs_2018'
character(len=8)	strbase = 'gfs_2018'
real, parameter	rimin =-10.
real, parameter	ric =0.25
real, parameter	efmin =0.5
real, parameter	efmax =10.0
real, parameter	hpmax =2400.0
real, parameter	hpmin =25.0
real, parameter	sigma_std =1./100.
real, parameter	gamm_std =1.0
real, parameter	frmax =10.
real, parameter	frc =1.0
real, parameter	frmin =0.01
real, parameter	ce =0.8
real, parameter	ceofrc =ce/frc
real, parameter	cg =0.5
real, parameter	gmax =1.0
real, parameter	veleps =1.0
real, parameter	factop =0.5
real, parameter	rlolev =50000.0
real, parameter	hncrit =9000.
real, parameter	sigfac =4.0
real, parameter	hminmt =50.
real, parameter	minwnd =1.0
real, parameter	dpmin =5000.0
real, parameter	kxoro =6.28e-3/200.
real, parameter	coro = 0.0
integer, parameter	nridge =2
real	cdmb
real	cleff
integer	nworo
integer	nazoro
integer	nstoro
integer, parameter	mdir = 8
real, parameter	fdir =.5*mdir/pi
integer, dimension(mdir), save	nwdir
real, parameter	odmin = 0.1
real, parameter	odmax = 10.0
integer, parameter	n_tofd = 2
real, parameter	const_tofd = 0.0759
real, parameter	ze_tofd = 1500.0
real, parameter	a12_tofd = 0.0002662*0.005363
real, parameter	ztop_tofd = 10.*ze_tofd
real, parameter	fcrit_sm = 0.7
real, parameter	fcrit_sm2 = fcrit_sm * fcrit_sm
real, parameter	fcrit_gfs = 0.7
real, parameter	fcrit_mtb = 0.7
real, parameter	lzmax = 18.e3
real, parameter	mkzmin = 6.28/lzmax
real, parameter	mkz2min = mkzmin*mkzmin
real, parameter	zbr_pi = (3.0/2.0)*pi
real, parameter	zbr_ifs = 0.5*pi

Detailed Description

This module contains orographic wave source schemes for UGWP v0.

Function/Subroutine Documentation

init_oro_gws_v0()

subroutine ugwpv0_oro_init::init_oro_gws_v0	(	integer	nwaves,
		integer	nazdir,
		integer	nstoch,
		real	effac,
		integer	lonr,
		real	kxw,
		real, dimension(2)	cdmbgwd
	)

Definition at line 176 of file cires_ugwp_initialize.F90.

Variable Documentation

a12_tofd

real, parameter ugwpv0_oro_init::a12_tofd = 0.0002662*0.005363

Definition at line 160 of file cires_ugwp_initialize.F90.

cdmb

real ugwpv0_oro_init::cdmb

Definition at line 139 of file cires_ugwp_initialize.F90.

ce

real, parameter ugwpv0_oro_init::ce =0.8

Definition at line 121 of file cires_ugwp_initialize.F90.

ceofrc

real, parameter ugwpv0_oro_init::ceofrc =ce/frc

Definition at line 121 of file cires_ugwp_initialize.F90.

cg

real, parameter ugwpv0_oro_init::cg =0.5

Definition at line 121 of file cires_ugwp_initialize.F90.

cleff

real ugwpv0_oro_init::cleff

Definition at line 140 of file cires_ugwp_initialize.F90.

const_tofd

real, parameter ugwpv0_oro_init::const_tofd = 0.0759

Definition at line 158 of file cires_ugwp_initialize.F90.

coro

real, parameter ugwpv0_oro_init::coro = 0.0

Definition at line 136 of file cires_ugwp_initialize.F90.

dpmin

real, parameter ugwpv0_oro_init::dpmin =5000.0

Definition at line 133 of file cires_ugwp_initialize.F90.

efmax

real, parameter ugwpv0_oro_init::efmax =10.0

Definition at line 114 of file cires_ugwp_initialize.F90.

efmin

real, parameter ugwpv0_oro_init::efmin =0.5

Definition at line 114 of file cires_ugwp_initialize.F90.

factop

real, parameter ugwpv0_oro_init::factop =0.5

Definition at line 122 of file cires_ugwp_initialize.F90.

fcrit_gfs

real, parameter ugwpv0_oro_init::fcrit_gfs = 0.7

Definition at line 165 of file cires_ugwp_initialize.F90.

fcrit_mtb

real, parameter ugwpv0_oro_init::fcrit_mtb = 0.7

Definition at line 166 of file cires_ugwp_initialize.F90.

fcrit_sm

real, parameter ugwpv0_oro_init::fcrit_sm = 0.7

Definition at line 164 of file cires_ugwp_initialize.F90.

fcrit_sm2

real, parameter ugwpv0_oro_init::fcrit_sm2 = fcrit_sm * fcrit_sm

Definition at line 164 of file cires_ugwp_initialize.F90.

fdir

real, parameter ugwpv0_oro_init::fdir =.5*mdir/pi

Definition at line 146 of file cires_ugwp_initialize.F90.

frc

real, parameter ugwpv0_oro_init::frc =1.0

Definition at line 118 of file cires_ugwp_initialize.F90.

frmax

real, parameter ugwpv0_oro_init::frmax =10.

Definition at line 118 of file cires_ugwp_initialize.F90.

frmin

real, parameter ugwpv0_oro_init::frmin =0.01

Definition at line 118 of file cires_ugwp_initialize.F90.

gamm_std

real, parameter ugwpv0_oro_init::gamm_std =1.0

Definition at line 116 of file cires_ugwp_initialize.F90.

gmax

real, parameter ugwpv0_oro_init::gmax =1.0

Definition at line 122 of file cires_ugwp_initialize.F90.

hminmt

real, parameter ugwpv0_oro_init::hminmt =50.

Definition at line 131 of file cires_ugwp_initialize.F90.

hncrit

real, parameter ugwpv0_oro_init::hncrit =9000.

Definition at line 126 of file cires_ugwp_initialize.F90.

hpmax

real, parameter ugwpv0_oro_init::hpmax =2400.0

Definition at line 115 of file cires_ugwp_initialize.F90.

hpmin

real, parameter ugwpv0_oro_init::hpmin =25.0

Definition at line 115 of file cires_ugwp_initialize.F90.

kxoro

real, parameter ugwpv0_oro_init::kxoro =6.28e-3/200.

Definition at line 135 of file cires_ugwp_initialize.F90.

lzmax

real, parameter ugwpv0_oro_init::lzmax = 18.e3

Definition at line 168 of file cires_ugwp_initialize.F90.

mdir

integer, parameter ugwpv0_oro_init::mdir = 8

Definition at line 145 of file cires_ugwp_initialize.F90.

minwnd

real, parameter ugwpv0_oro_init::minwnd =1.0

Definition at line 132 of file cires_ugwp_initialize.F90.

mkz2min

real, parameter ugwpv0_oro_init::mkz2min = mkzmin*mkzmin

Definition at line 170 of file cires_ugwp_initialize.F90.

mkzmin

real, parameter ugwpv0_oro_init::mkzmin = 6.28/lzmax

Definition at line 169 of file cires_ugwp_initialize.F90.

n_tofd

integer, parameter ugwpv0_oro_init::n_tofd = 2

Definition at line 157 of file cires_ugwp_initialize.F90.

nazoro

integer ugwpv0_oro_init::nazoro

Definition at line 142 of file cires_ugwp_initialize.F90.

nridge

integer, parameter ugwpv0_oro_init::nridge =2

Definition at line 137 of file cires_ugwp_initialize.F90.

nstoro

integer ugwpv0_oro_init::nstoro

Definition at line 143 of file cires_ugwp_initialize.F90.

nwdir

integer, dimension(mdir), save ugwpv0_oro_init::nwdir

Definition at line 148 of file cires_ugwp_initialize.F90.

nworo

integer ugwpv0_oro_init::nworo

Definition at line 141 of file cires_ugwp_initialize.F90.

odmax

real, parameter ugwpv0_oro_init::odmax = 10.0

Definition at line 152 of file cires_ugwp_initialize.F90.

odmin

real, parameter ugwpv0_oro_init::odmin = 0.1

Definition at line 152 of file cires_ugwp_initialize.F90.

ric

real, parameter ugwpv0_oro_init::ric =0.25

Definition at line 111 of file cires_ugwp_initialize.F90.

rimin

real, parameter ugwpv0_oro_init::rimin =-10.

Definition at line 111 of file cires_ugwp_initialize.F90.

rlolev

real, parameter ugwpv0_oro_init::rlolev =50000.0

Definition at line 124 of file cires_ugwp_initialize.F90.

sigfac

real, parameter ugwpv0_oro_init::sigfac =4.0

Definition at line 130 of file cires_ugwp_initialize.F90.

sigma_std

real, parameter ugwpv0_oro_init::sigma_std =1./100.

Definition at line 116 of file cires_ugwp_initialize.F90.

strbase

character(len=8) ugwpv0_oro_init::strbase = 'gfs_2018'

Definition at line 110 of file cires_ugwp_initialize.F90.

strver

character(len=8) ugwpv0_oro_init::strver = 'gfs_2018'

Definition at line 109 of file cires_ugwp_initialize.F90.

veleps

real, parameter ugwpv0_oro_init::veleps =1.0

Definition at line 122 of file cires_ugwp_initialize.F90.

zbr_ifs

real, parameter ugwpv0_oro_init::zbr_ifs = 0.5*pi

Definition at line 172 of file cires_ugwp_initialize.F90.

zbr_pi

real, parameter ugwpv0_oro_init::zbr_pi = (3.0/2.0)*pi

Definition at line 171 of file cires_ugwp_initialize.F90.

ze_tofd

real, parameter ugwpv0_oro_init::ze_tofd = 1500.0

Definition at line 159 of file cires_ugwp_initialize.F90.

ztop_tofd

real, parameter ugwpv0_oro_init::ztop_tofd = 10.*ze_tofd

Definition at line 161 of file cires_ugwp_initialize.F90.