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)	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_ngw_ec,
		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

Definition at line 70 of file ugwpv1_gsldrag.F90.