ugwpv1_gsldrag_init()

subroutine, public ugwpv1_gsldrag::ugwpv1_gsldrag_init	(	integer, intent(in)	me,
		integer, intent(in)	master,
		integer, intent(in)	nlunit,
		character(len=*), dimension(:), intent(in)	input_nml_file,
		integer, intent(in)	logunit,
		character(len=*), intent(in)	fn_nml2,
		integer, dimension(:), intent(in)	jdat,
		integer, intent(in)	lonr,
		integer, intent(in)	latr,
		integer, intent(in)	levs,
		real(kind=kind_phys), dimension(:), intent(in)	ak,
		real(kind=kind_phys), dimension(:), intent(in)	bk,
		real(kind=kind_phys), intent(in)	dtp,
		real(kind=kind_phys), intent(in)	con_pi,
		real(kind=kind_phys), intent(in)	con_rerth,
		real(kind=kind_phys), intent(in)	con_p0,
		real(kind=kind_phys), intent(in)	con_g,
		real(kind=kind_phys), intent(in)	con_omega,
		real(kind=kind_phys), intent(in)	con_cp,
		real(kind=kind_phys), intent(in)	con_rd,
		real(kind=kind_phys), intent(in)	con_rv,
		real(kind=kind_phys), intent(in)	con_fvirt,
		logical, intent(in)	do_ugwp,
		logical, intent(in)	do_ugwp_v0,
		logical, intent(in)	do_ugwp_v0_orog_only,
		logical, intent(in)	do_gsl_drag_ls_bl,
		logical, intent(in)	do_gsl_drag_ss,
		logical, intent(in)	do_gsl_drag_tofd,
		logical, intent(in)	do_ugwp_v1,
		logical, intent(in)	do_ugwp_v1_orog_only,
		logical, intent(in)	do_ugwp_v1_w_gsldrag,
		character(len=*), intent(out)	errmsg,
		integer, intent(out)	errflg )

Argument Table

local_name	standard_name	long_name	units	type	dimensions	kind	intent
me	mpi_rank	MPI rank of current process	index	integer	()		in
master	mpi_root	MPI rank of master process	index	integer	()		in
nlunit	iounit_of_namelist	fortran unit number for opening namelist file	none	integer	()		in
input_nml_file	filename_of_internal_namelist	character string to store full namelist contents	none	character	(ccpp_constant_one:number_of_lines_in_internal_namelist)	len=*	in
logunit	iounit_of_log	fortran unit number for writing logfile	none	integer	()		in
fn_nml2	filename_of_namelist	namelist filename for ugwp	none	character	()	len=*	in
jdat	date_and_time_of_forecast_in_united_states_order	current forecast date and time	none	integer	(ccpp_constant_one:8)		in
lonr	number_of_equatorial_longitude_points	number of global points in x-dir (i) along the equator	count	integer	()		in
latr	number_of_latitude_points	number of global points in y-dir (j) along the meridian	count	integer	()		in
levs	vertical_layer_dimension	number of vertical levels	count	integer	()		in
ak	sigma_pressure_hybrid_coordinate_a_coefficient	a parameter for sigma pressure level calculations	Pa	real	(ccpp_constant_one:vertical_interface_dimension)	kind_phys	in
bk	sigma_pressure_hybrid_coordinate_b_coefficient	b parameter for sigma pressure level calculations	none	real	(ccpp_constant_one:vertical_interface_dimension)	kind_phys	in
dtp	timestep_for_physics	physics timestep	s	real	()	kind_phys	in
con_pi	pi	ratio of a circle's circumference to its diameter	none	real	()	kind_phys	in
con_rerth	radius_of_earth	radius of earth	m	real	()	kind_phys	in
con_p0	standard_atmospheric_pressure	standard atmospheric pressure	Pa	real	()	kind_phys	in
con_g	gravitational_acceleration	gravitational acceleration	m s-2	real	()	kind_phys	in
con_omega	angular_velocity_of_earth	angular velocity of earth	s-1	real	()	kind_phys	in
con_cp	specific_heat_of_dry_air_at_constant_pressure	specific heat !of dry air at constant pressure	J kg-1 K-1	real	()	kind_phys	in
con_rd	gas_constant_of_dry_air	ideal gas constant for dry air	J kg-1 K-1	real	()	kind_phys	in
con_rv	gas_constant_water_vapor	ideal gas constant for water vapor	J kg-1 K-1	real	()	kind_phys	in
con_fvirt	ratio_of_vapor_to_dry_air_gas_constants_minus_one	rv/rd - 1 (rv = ideal gas constant for water vapor)	none	real	()	kind_phys	in
do_ugwp	flag_for_unified_gravity_wave_physics_gravity_wave_drag_scheme	flag to activate CIRES UGWP	flag	logical	()		in
do_ugwp_v0	flag_for_ugwp_version_0	flag to activate ver 0 CIRES UGWP	flag	logical	()		in
do_ugwp_v0_orog_only	flag_for_ugwp_version_0_orographic_gwd	flag to activate ver 0 CIRES UGWP - orographic GWD only	flag	logical	()		in
do_gsl_drag_ls_bl	do_gsl_drag_suite_mesoscale_orographic_and_blocking_drag	flag to activate GSL drag suite - mesoscale GWD and blocking	flag	logical	()		in
do_gsl_drag_ss	do_gsl_drag_suite_small_scale_orographic_drag	flag to activate GSL drag suite - small-scale GWD	flag	logical	()		in
do_gsl_drag_tofd	do_gsl_drag_suite_turbulent_orographic_form_drag	flag to activate GSL drag suite - turb orog form drag	flag	logical	()		in
do_ugwp_v1	flag_for_ugwp_version_1	flag to activate ver 1 CIRES UGWP	flag	logical	()		in
do_ugwp_v1_orog_only	flag_for_ugwp_version_1_orographic_gwd	flag to activate ver 1 CIRES UGWP - orographic GWD only	flag	logical	()		in
do_ugwp_v1_w_gsldrag	flag_for_ugwp_version_1_nonorographic_gwd	flag to activate ver 1 CIRES UGWP - with OGWD of GSL	flag	logical	()		in
errmsg	ccpp_error_message	error message for error handling in CCPP	none	character	()	len=*	out
errflg	ccpp_error_code	error code for error handling in CCPP	1	integer	()		out

Definition at line 67 of file ugwpv1_gsldrag.F90.