test_cases_mod Module Reference

Data Types
interface	mp_update_dwinds

Functions/Subroutines
subroutine	init_winds (UBar, u, v, ua, va, uc, vc, defOnGrid, npx, npy, ng, ndims, nregions, bounded_domain, gridstruct, domain, tile, bd)
subroutine, public	init_case (u, v, w, pt, delp, q, phis, ps, pe, peln, pk, pkz, uc, vc, ua, va, ak, bk, gridstruct, flagstruct, npx, npy, npz, ng, ncnst, nwat, ndims, nregions, dry_mass, mountain, moist_phys, hydrostatic, hybrid_z, delz, ze0, adiabatic, ks, npx_global, ptop, domain_in, tile_in, bd)
subroutine	get_vorticity (isc, iec, jsc, jec, isd, ied, jsd, jed, npz, u, v, vort, dx, dy, rarea)
subroutine, public	checker_tracers (i0, i1, j0, j1, ifirst, ilast, jfirst, jlast, nq, km, q, lon, lat, nx, ny, rn)
subroutine	terminator_tracers (i0, i1, j0, j1, ifirst, ilast, jfirst, jlast, km, q, delp, ncnst, lon, lat, bd)
subroutine	rankine_vortex (ubar, r0, p1, u, v, grid, bd)
real function	gh_jet (npy, lat_in)
real function	u_jet (lat)
subroutine	get_case9_b (B, agrid, isd, ied, jsd, jed)
subroutine, public	case9_forcing1 (phis, time_since_start, isd, ied, jsd, jed)
subroutine, public	case9_forcing2 (phis, isd, ied, jsd, jed)
subroutine, public	case51_forcing (delp, uc, vc, u, v, ua, va, pe, time, dt, gridstruct, npx, npy, npz, ptop, domain, bd)
subroutine	get_pt_on_great_circle (p1, p2, dist, heading, p3)
subroutine, public	init_double_periodic (u, v, w, pt, delp, q, phis, ps, pe, peln, pk, pkz, uc, vc, ua, va, ak, bk, gridstruct, flagstruct, npx, npy, npz, ng, ncnst, nwat, ndims, nregions, dry_mass, mountain, moist_phys, hydrostatic, hybrid_z, delz, ze0, ks, ptop, domain_in, tile_in, bd)
subroutine, public	read_namelist_test_case_nml (nml_filename)
subroutine	superk_sounding (km, pe, p00, ze, pt, qz)
subroutine	balanced_k (km, is, ie, js, je, ng, ps0, ze1, ts1, qs1, uz1, dudz, pe, pk, pt, delz, zvir, ptop, ak, bk, agrid)
subroutine	superk_u (km, zz, um, dudz)
subroutine	supercell_sounding (km, ps, pk1, tp, qp)
subroutine	dcmip16_bc (delp, pt, u, v, q, w, delz, is, ie, js, je, isd, ied, jsd, jed, npz, nq, ak, bk, ptop, pk, peln, pe, pkz, gz, phis, ps, grid, agrid, hydrostatic, nwat, adiabatic, do_pert, domain, bd)
subroutine	dcmip16_tc (delp, pt, u, v, q, w, delz, is, ie, js, je, isd, ied, jsd, jed, npz, nq, ak, bk, ptop, pk, peln, pe, pkz, gz, phis, ps, grid, agrid, hydrostatic, nwat, adiabatic)
subroutine	atod (uin, vin, uout, vout, dxa, dya, dxc, dyc, npx, npy, ng, bounded_domain, domain, bd)
subroutine	dtoa (uin, vin, uout, vout, dx, dy, dxa, dya, dxc, dyc, npx, npy, ng, bd)
subroutine	atoc (uin, vin, uout, vout, dx, dy, dxa, dya, npx, npy, ng, bounded_domain, domain, bd, noComm)
subroutine	ctoa (uin, vin, uout, vout, dx, dy, dxc, dyc, dxa, dya, npx, npy, ng, bd)
subroutine	rotate_winds (myU, myV, p1, p2, p3, p4, t1, ndims, dir)
subroutine	mp_update_dwinds_2d (u, v, npx, npy, domain, bd)
subroutine	mp_update_dwinds_3d (u, v, npx, npy, npz, domain, bd)
real function	globalsum (p, npx, npy, ifirst, ilast, jfirst, jlast, isd, ied, jsd, jed, gridstruct, tile)
subroutine	get_unit_vector (p1, p2, p3, uvect)
subroutine	normalize_vect (np, e)
subroutine	mp_ghost_ew (im, jm, km, nq, ifirst, ilast, jfirst, jlast, kfirst, klast, ng_w, ng_e, ng_s, ng_n, q_ghst, q)
subroutine	interp_left_edge_1d (qout, qin, dx, ifirst, ilast, order)
subroutine	vpol5 (u, v, im, jm, coslon, sinlon, cosl5, sinl5, ng_d, ng_s, jfirst, jlast)
subroutine	prt_m1 (qname, q, is, ie, js, je, n_g, km, fac)
subroutine	var_dz (km, ztop, ze)
subroutine	sm1_edge (is, ie, js, je, km, i, j, ze, ntimes)

Variables
integer	sphum
integer	theta_d
real(kind=r_grid), parameter	radius = cnst_radius
real(kind=r_grid), parameter	one = 1.d0
integer	test_case = 11
logical	bubble_do = .false.
real, public	alpha = 0.0
integer	nsolitons = 1
real	soliton_size = 750.e3
real	soliton_umax = 50.
real	p0_c0 = 3.0
real	rgamma = 5.0
real	lat0 = pi/2.0
	pi/4.8 More...
real	lon0 = 0.0
	pi-0.8 More...
real, parameter	pi_shift = 0.0
	3.0*pi/4. More...
integer, parameter	initwindscase0 =-1
integer, parameter	initwindscase1 = 1
integer, parameter	initwindscase2 = 5
integer, parameter	initwindscase5 = 5
integer, parameter	initwindscase6 =-1
integer, parameter	initwindscase9 =-1
real, dimension(:), allocatable, public	pz0
real, dimension(:), allocatable, public	zz0
integer	tracer_test
integer	wind_field
real	ubar
real	vbar
real	gh0
real, dimension(:,:), allocatable	case9_b
real, dimension(2)	aoft
real, dimension(:,:,:), allocatable	phi0
	Validating Field. More...
real, dimension(:,:,:), allocatable	ua0
	Validating U-Wind. More...
real, dimension(:,:,:), allocatable	va0
	Validating V-Windfms_io_exit, get_tile_string, &. More...
real, dimension(:), allocatable	gh_table
real, dimension(:), allocatable	lats_table
logical	gh_initialized = .false.
real	tmass_orig
	total mass More...
real	tvort_orig
	enstrophy (integral of total vorticity) More...
real	tener_orig
	energy More...
integer, parameter	interporder = 1

Function/Subroutine Documentation

atoc()

subroutine test_cases_mod::atoc ( real, dimension(bd%isd:bd%ied ,bd%jsd:bd%jed ), intent(in)  uin, real, dimension(bd%isd:bd%ied ,bd%jsd:bd%jed ), intent(in)  vin, real, dimension(bd%isd:bd%ied+1,bd%jsd:bd%jed ), intent(out)  uout, real, dimension(bd%isd:bd%ied ,bd%jsd:bd%jed+1), intent(out)  vout, real, dimension(bd%isd:bd%ied,bd%jsd:bd%jed+1), intent(in)  dx, real, dimension(bd%isd:bd%ied+1,bd%jsd:bd%jed), intent(in)  dy, real, dimension(bd%isd:bd%ied,bd%jsd:bd%jed), intent(in)  dxa, real, dimension(bd%isd:bd%ied,bd%jsd:bd%jed), intent(in)  dya, integer, intent(in)  npx, integer, intent(in)  npy, integer, intent(in)  ng, logical, intent(in)  bounded_domain, type(domain2d), intent(inout)  domain, type(fv_grid_bounds_type), intent(in)  bd, logical, intent(in), optional  noComm  )

private

Definition at line 8878 of file test_cases.F90.

atod()

subroutine test_cases_mod::atod ( real, dimension(bd%isd:bd%ied ,bd%jsd:bd%jed ), intent(in)  uin, real, dimension(bd%isd:bd%ied ,bd%jsd:bd%jed ), intent(in)  vin, real, dimension(bd%isd:bd%ied ,bd%jsd:bd%jed+1), intent(out)  uout, real, dimension(bd%isd:bd%ied+1,bd%jsd:bd%jed ), intent(out)  vout, real, dimension(bd%isd:bd%ied,bd%jsd:bd%jed), intent(in)  dxa, real, dimension(bd%isd:bd%ied,bd%jsd:bd%jed), intent(in)  dya, real, dimension(bd%isd:bd%ied+1,bd%jsd:bd%jed), intent(in)  dxc, real, dimension(bd%isd:bd%ied,bd%jsd:bd%jed+1), intent(in)  dyc, integer, intent(in)  npx, integer, intent(in)  npy, integer, intent(in)  ng, logical, intent(in)  bounded_domain, type(domain2d), intent(inout)  domain, type(fv_grid_bounds_type), intent(in)  bd  )

private

Parameters

[in]	uin	A-grid u-wind field
[in]	vin	A-grid v-wind field
[out]	uout	D-grid u-wind field
[out]	vout	D-grid v-wind field

Definition at line 8754 of file test_cases.F90.

balanced_k()

subroutine test_cases_mod::balanced_k ( integer, intent(in)  km, integer, intent(in)  is, integer, intent(in)  ie, integer, intent(in)  js, integer, intent(in)  je, integer, intent(in)  ng, real, intent(in)  ps0, real, dimension(km+1), intent(in)  ze1, real, dimension(km ), intent(in)  ts1, real, dimension(km ), intent(in)  qs1, real, dimension(km ), intent(in)  uz1, real, dimension(km ), intent(in)  dudz, real, dimension(is-1:ie+1,km+1,js-1:je+1), intent(inout)  pe, real, dimension(is:ie,js:je,km+1), intent(out)  pk, real, dimension(is:ie,js:je,km), intent(inout)  pt, real, dimension(is:,js:,1:), intent(inout)  delz, real, intent(in)  zvir, real, intent(inout)  ptop, real, dimension(km+1), intent(inout)  ak, real, dimension(km+1), intent(inout)  bk, real(kind=r_grid), dimension(is-ng:ie+ng,js-ng:je+ng,2), intent(in)  agrid  )

private

Definition at line 7068 of file test_cases.F90.

case51_forcing()

subroutine, public test_cases_mod::case51_forcing	(	real, dimension(bd%isd:bd%ied,bd%jsd:bd%jed,npz), intent(inout)	delp,
		real, dimension(bd%isd:bd%ied+1,bd%jsd:bd%jed,npz), intent(inout)	uc,
		real, dimension(bd%isd:bd%ied,bd%jsd:bd%jed+1,npz), intent(inout)	vc,
		real, dimension(bd%isd:bd%ied,bd%jsd:bd%jed+1,npz), intent(inout)	u,
		real, dimension(bd%isd:bd%ied+1,bd%jsd:bd%jed,npz), intent(inout)	v,
		real, dimension(bd%isd:bd%ied,bd%jsd:bd%jed,npz), intent(inout)	ua,
		real, dimension(bd%isd:bd%ied,bd%jsd:bd%jed,npz), intent(inout)	va,
		real, dimension(bd%is-1:bd%ie+1, npz+1,bd%js-1:bd%je+1), intent(inout)	pe,
		real, intent(in)	time,
		real, intent(in)	dt,
		type(fv_grid_type), intent(in), target	gridstruct,
		integer, intent(in)	npx,
		integer, intent(in)	npy,
		integer, intent(in)	npz,
		real, intent(inout)	ptop,
		type(domain2d), intent(inout)	domain,
		type(fv_grid_bounds_type), intent(in)	bd
	)

Definition at line 4262 of file test_cases.F90.

case9_forcing1()

subroutine, public test_cases_mod::case9_forcing1	(	real, dimension(isd:ied ,jsd:jed ), intent(inout)	phis,
		real, intent(in)	time_since_start,
		integer, intent(in)	isd,
		integer, intent(in)	ied,
		integer, intent(in)	jsd,
		integer, intent(in)	jed
	)

Definition at line 4207 of file test_cases.F90.

case9_forcing2()

subroutine, public test_cases_mod::case9_forcing2	(	real, dimension(isd:ied ,jsd:jed ), intent(inout)	phis,
		integer, intent(in)	isd,
		integer, intent(in)	ied,
		integer, intent(in)	jsd,
		integer, intent(in)	jed
	)

Definition at line 4243 of file test_cases.F90.

checker_tracers()

subroutine, public test_cases_mod::checker_tracers	(	integer, intent(in)	i0,
		integer, intent(in)	i1,
		integer, intent(in)	j0,
		integer, intent(in)	j1,
		integer, intent(in)	ifirst,
		integer, intent(in)	ilast,
		integer, intent(in)	jfirst,
		integer, intent(in)	jlast,
		integer, intent(in)	nq,
		integer, intent(in)	km,
		real, dimension(ifirst:ilast,jfirst:jlast,km,nq), intent(out)	q,
		real(kind=r_grid), dimension(i0:i1,j0:j1), intent(in)	lon,
		real(kind=r_grid), dimension(i0:i1,j0:j1), intent(in)	lat,
		real, intent(in)	nx,
		real, intent(in)	ny,
		real, intent(in), optional	rn
	)

Definition at line 3884 of file test_cases.F90.

ctoa()

subroutine test_cases_mod::ctoa ( real, dimension(bd%isd:bd%ied+1,bd%jsd:bd%jed ), intent(in)  uin, real, dimension(bd%isd:bd%ied ,bd%jsd:bd%jed+1), intent(in)  vin, real, dimension(bd%isd:bd%ied ,bd%jsd:bd%jed ), intent(out)  uout, real, dimension(bd%isd:bd%ied ,bd%jsd:bd%jed ), intent(out)  vout, real, dimension(bd%isd:bd%ied,bd%jsd:bd%jed+1), intent(in)  dx, real, dimension(bd%isd:bd%ied+1,bd%jsd:bd%jed), intent(in)  dy, real, dimension(bd%isd:bd%ied+1,bd%jsd:bd%jed), intent(in)  dxc, real, dimension(bd%isd:bd%ied,bd%jsd:bd%jed+1), intent(in)  dyc, real, dimension(bd%isd:bd%ied,bd%jsd:bd%jed), intent(in)  dxa, real, dimension(bd%isd:bd%ied,bd%jsd:bd%jed), intent(in)  dya, integer, intent(in)  npx, integer, intent(in)  npy, integer, intent(in)  ng, type(fv_grid_bounds_type), intent(in)  bd  )

private

Parameters

[in]	uin	C-grid u-wind field
[in]	vin	C-grid v-wind field
[out]	uout	A-grid u-wind field
[out]	vout	A-grid v-wind field

Definition at line 9016 of file test_cases.F90.

dcmip16_bc()

subroutine test_cases_mod::dcmip16_bc	(	real, dimension(isd:ied,jsd:jed,npz), intent(out)	delp,
		real, dimension(isd:ied,jsd:jed,npz), intent(out)	pt,
		real, dimension(isd:ied,jsd:jed+1,npz), intent(out)	u,
		real, dimension(isd:ied+1,jsd:jed,npz), intent(out)	v,
		real, dimension(isd:ied,jsd:jed,npz,nq), intent(inout)	q,
		real, dimension(isd:ied,jsd:jed,npz), intent(out)	w,
		real, dimension(is:,js:,1:), intent(out)	delz,
		integer, intent(in)	is,
		integer, intent(in)	ie,
		integer, intent(in)	js,
		integer, intent(in)	je,
		integer, intent(in)	isd,
		integer, intent(in)	ied,
		integer, intent(in)	jsd,
		integer, intent(in)	jed,
		integer, intent(in)	npz,
		integer, intent(in)	nq,
		real, dimension(npz+1), intent(in)	ak,
		real, dimension(npz+1), intent(in)	bk,
		real, intent(in)	ptop,
		real, dimension(is:ie,js:je,npz+1), intent(out)	pk,
		real, dimension(is:ie,npz+1,js:je), intent(out)	peln,
		real, dimension(is-1:ie+1,npz+1,js-1:je+1), intent(out)	pe,
		real, dimension(is:ie,js:je,npz), intent(out)	pkz,
		real, dimension(isd:ied,jsd:jed,npz+1), intent(out)	gz,
		real, dimension(isd:ied,jsd:jed), intent(out)	phis,
		real, dimension(isd:ied,jsd:jed), intent(out)	ps,
		real(kind=r_grid), dimension(isd:ied+1,jsd:jed+1,2), intent(in)	grid,
		real(kind=r_grid), dimension(isd:ied,jsd:jed,2), intent(in)	agrid,
		logical, intent(in)	hydrostatic,
		integer, intent(in)	nwat,
		logical, intent(in)	adiabatic,
		logical, intent(in)	do_pert,
		type(domain2d), intent(inout)	domain,
		type(fv_grid_bounds_type), intent(in)	bd
	)

Definition at line 7393 of file test_cases.F90.

dcmip16_tc()

subroutine test_cases_mod::dcmip16_tc ( real, dimension(isd:ied,jsd:jed,npz), intent(out)  delp, real, dimension(isd:ied,jsd:jed,npz), intent(out)  pt, real, dimension(isd:ied,jsd:jed+1,npz), intent(out)  u, real, dimension(isd:ied+1,jsd:jed,npz), intent(out)  v, real, dimension(isd:ied,jsd:jed,npz,nq), intent(inout)  q, real, dimension(isd:ied,jsd:jed,npz), intent(out)  w, real, dimension(is:,js:,1:), intent(out)  delz, integer, intent(in)  is, integer, intent(in)  ie, integer, intent(in)  js, integer, intent(in)  je, integer, intent(in)  isd, integer, intent(in)  ied, integer, intent(in)  jsd, integer, intent(in)  jed, integer, intent(in)  npz, integer, intent(in)  nq, real, dimension(npz+1), intent(in)  ak, real, dimension(npz+1), intent(in)  bk, real, intent(in)  ptop, real, dimension(is:ie,js:je,npz+1), intent(out)  pk, real, dimension(is:ie,npz+1,js:je), intent(out)  peln, real, dimension(is-1:ie+1,npz+1,js-1:je+1), intent(out)  pe, real, dimension(is:ie,js:je,npz), intent(out)  pkz, real, dimension(isd:ied,jsd:jed,npz+1), intent(out)  gz, real, dimension(isd:ied,jsd:jed), intent(out)  phis, real, dimension(isd:ied,jsd:jed), intent(out)  ps, real(kind=r_grid), dimension(isd:ied+1,jsd:jed+1,2), intent(in)  grid, real(kind=r_grid), dimension(isd:ied,jsd:jed,2), intent(in)  agrid, logical, intent(in)  hydrostatic, integer, intent(in)  nwat, logical, intent(in)  adiabatic  )

private

Definition at line 7781 of file test_cases.F90.

dtoa()

subroutine test_cases_mod::dtoa ( real, dimension(bd%isd:bd%ied ,bd%jsd:bd%jed+1), intent(in)  uin, real, dimension(bd%isd:bd%ied+1,bd%jsd:bd%jed ), intent(in)  vin, real, dimension(bd%isd:bd%ied ,bd%jsd:bd%jed ), intent(out)  uout, real, dimension(bd%isd:bd%ied ,bd%jsd:bd%jed ), intent(out)  vout, real, dimension(bd%isd:bd%ied,bd%jsd:bd%jed+1), intent(in)  dx, real, dimension(bd%isd:bd%ied+1,bd%jsd:bd%jed), intent(in)  dy, real, dimension(bd%isd:bd%ied,bd%jsd:bd%jed), intent(in)  dxa, real, dimension(bd%isd:bd%ied,bd%jsd:bd%jed), intent(in)  dya, real, dimension(bd%isd:bd%ied+1,bd%jsd:bd%jed), intent(in)  dxc, real, dimension(bd%isd:bd%ied,bd%jsd:bd%jed+1), intent(in)  dyc, integer, intent(in)  npx, integer, intent(in)  npy, integer, intent(in)  ng, type(fv_grid_bounds_type), intent(in)  bd  )

private

Parameters

[in]	uin	D-grid u-wind field
[in]	vin	D-grid v-wind field
[out]	uout	A-grid u-wind field
[out]	vout	A-grid v-wind field

Definition at line 8809 of file test_cases.F90.

get_case9_b()

subroutine test_cases_mod::get_case9_b ( real, dimension(isd:ied,jsd:jed), intent(out)  B, real, dimension(isd:ied,jsd:jed,2), intent(in)  agrid, integer, intent(in)  isd, integer, intent(in)  ied, integer, intent(in)  jsd, integer, intent(in)  jed  )

private

Definition at line 4177 of file test_cases.F90.

get_pt_on_great_circle()

subroutine test_cases_mod::get_pt_on_great_circle ( real, dimension(2), intent(in)  p1, real, dimension(2), intent(in)  p2, real, intent(in)  dist, real, intent(in)  heading, real, dimension(2), intent(out)  p3  )

private

Definition at line 5055 of file test_cases.F90.

get_unit_vector()

subroutine test_cases_mod::get_unit_vector ( real(kind=r_grid), dimension(2), intent(in)  p1, real(kind=r_grid), dimension(2), intent(in)  p2, real(kind=r_grid), dimension(2), intent(in)  p3, real(kind=r_grid), dimension(3), intent(out)  uvect  )

private

Definition at line 9268 of file test_cases.F90.

get_vorticity()

subroutine test_cases_mod::get_vorticity ( integer  isc, integer  iec, integer  jsc, integer  jec, integer  isd, integer  ied, integer  jsd, integer  jed, integer  npz, real, dimension(isd:ied, jsd:jed+1, npz), intent(in)  u, real, dimension(isd:ied+1, jsd:jed, npz), intent(in)  v, real, dimension(isc:iec, jsc:jec, npz), intent(out)  vort, real, dimension(isd:ied,jsd:jed+1), intent(in)  dx, real, dimension(isd:ied+1,jsd:jed), intent(in)  dy, real, dimension(isd:ied,jsd:jed), intent(in)  rarea  )

private

Definition at line 3850 of file test_cases.F90.

gh_jet()

real function test_cases_mod::gh_jet ( integer, intent(in)  npy, real, intent(in)  lat_in  )

private

Definition at line 4114 of file test_cases.F90.

globalsum()

real function test_cases_mod::globalsum	(	real, dimension(ifirst:ilast,jfirst:jlast), intent(in)	p,
		integer, intent(in)	npx,
		integer, intent(in)	npy,
		integer, intent(in)	ifirst,
		integer, intent(in)	ilast,
		integer, intent(in)	jfirst,
		integer, intent(in)	jlast,
		integer, intent(in)	isd,
		integer, intent(in)	ied,
		integer, intent(in)	jsd,
		integer, intent(in)	jed,
		type(fv_grid_type), intent(in), target	gridstruct,
		integer, intent(in)	tile
	)

Parameters

[in]

p

field to be summed

Definition at line 9170 of file test_cases.F90.

init_case()

subroutine, public test_cases_mod::init_case	(	real, dimension(bd%isd:bd%ied ,bd%jsd:bd%jed+1,npz), intent(inout)	u,
		real, dimension(bd%isd:bd%ied+1,bd%jsd:bd%jed ,npz), intent(inout)	v,
		real, dimension(bd%isd: ,bd%jsd: ,1:), intent(inout)	w,
		real, dimension(bd%isd:bd%ied ,bd%jsd:bd%jed ,npz), intent(inout)	pt,
		real, dimension(bd%isd:bd%ied ,bd%jsd:bd%jed ,npz), intent(inout)	delp,
		real, dimension(bd%isd:bd%ied ,bd%jsd:bd%jed ,npz, ncnst), intent(inout)	q,
		real, dimension(bd%isd:bd%ied ,bd%jsd:bd%jed ), intent(inout)	phis,
		real, dimension(bd%isd:bd%ied ,bd%jsd:bd%jed ), intent(inout)	ps,
		real, dimension(bd%is-1:bd%ie+1,npz+1,bd%js-1:bd%je+1), intent(inout)	pe,
		real, dimension(bd%is :bd%ie ,npz+1 ,bd%js:bd%je), intent(inout)	peln,
		real, dimension(bd%is:bd%ie ,bd%js:bd%je ,npz+1), intent(inout)	pk,
		real, dimension(bd%is:bd%ie ,bd%js:bd%je ,npz ), intent(inout)	pkz,
		real, dimension(bd%isd:bd%ied+1,bd%jsd:bd%jed ,npz), intent(inout)	uc,
		real, dimension(bd%isd:bd%ied ,bd%jsd:bd%jed+1,npz), intent(inout)	vc,
		real, dimension(bd%isd:bd%ied ,bd%jsd:bd%jed ,npz), intent(inout)	ua,
		real, dimension(bd%isd:bd%ied ,bd%jsd:bd%jed ,npz), intent(inout)	va,
		real, dimension(npz+1), intent(inout)	ak,
		real, dimension(npz+1), intent(inout)	bk,
		type(fv_grid_type), target	gridstruct,
		type(fv_flags_type), intent(in), target	flagstruct,
		integer, intent(in)	npx,
		integer, intent(in)	npy,
		integer, intent(in)	npz,
		integer, intent(in)	ng,
		integer, intent(in)	ncnst,
		integer, intent(in)	nwat,
		integer, intent(in)	ndims,
		integer, intent(in)	nregions,
		real, intent(in)	dry_mass,
		logical, intent(in)	mountain,
		logical, intent(in)	moist_phys,
		logical, intent(in)	hydrostatic,
		logical, intent(in)	hybrid_z,
		real, dimension(bd%is:,bd%js:,1:), intent(inout)	delz,
		real, dimension(bd%is:,bd%js:,1:), intent(inout)	ze0,
		logical, intent(in)	adiabatic,
		integer, intent(in)	ks,
		integer, intent(in)	npx_global,
		real, intent(inout)	ptop,
		type(domain2d), intent(in), target	domain_in,
		integer, intent(in), target	tile_in,
		type(fv_grid_bounds_type), intent(in)	bd
	)

Definition at line 565 of file test_cases.F90.

init_double_periodic()

subroutine, public test_cases_mod::init_double_periodic	(	real, dimension(bd%isd:bd%ied ,bd%jsd:bd%jed+1,npz), intent(inout)	u,
		real, dimension(bd%isd:bd%ied+1,bd%jsd:bd%jed ,npz), intent(inout)	v,
		real, dimension(bd%isd: ,bd%jsd: ,1:), intent(inout)	w,
		real, dimension(bd%isd:bd%ied ,bd%jsd:bd%jed ,npz), intent(inout)	pt,
		real, dimension(bd%isd:bd%ied ,bd%jsd:bd%jed ,npz), intent(inout)	delp,
		real, dimension(bd%isd:bd%ied ,bd%jsd:bd%jed ,npz, ncnst), intent(inout)	q,
		real, dimension(bd%isd:bd%ied ,bd%jsd:bd%jed ), intent(inout)	phis,
		real, dimension(bd%isd:bd%ied ,bd%jsd:bd%jed ), intent(inout)	ps,
		real, dimension(bd%is-1:bd%ie+1,npz+1,bd%js-1:bd%je+1), intent(inout)	pe,
		real, dimension(bd%is :bd%ie ,npz+1 ,bd%js:bd%je), intent(inout)	peln,
		real, dimension(bd%is:bd%ie ,bd%js:bd%je ,npz+1), intent(inout)	pk,
		real, dimension(bd%is:bd%ie ,bd%js:bd%je ,npz ), intent(inout)	pkz,
		real, dimension(bd%isd:bd%ied+1,bd%jsd:bd%jed ,npz), intent(inout)	uc,
		real, dimension(bd%isd:bd%ied ,bd%jsd:bd%jed+1,npz), intent(inout)	vc,
		real, dimension(bd%isd:bd%ied ,bd%jsd:bd%jed ,npz), intent(inout)	ua,
		real, dimension(bd%isd:bd%ied ,bd%jsd:bd%jed ,npz), intent(inout)	va,
		real, dimension(npz+1), intent(inout)	ak,
		real, dimension(npz+1), intent(inout)	bk,
		type(fv_grid_type), target	gridstruct,
		type(fv_flags_type), target	flagstruct,
		integer, intent(in)	npx,
		integer, intent(in)	npy,
		integer, intent(in)	npz,
		integer, intent(in)	ng,
		integer, intent(in)	ncnst,
		integer, intent(in)	nwat,
		integer, intent(in)	ndims,
		integer, intent(in)	nregions,
		real, intent(in)	dry_mass,
		logical, intent(in)	mountain,
		logical, intent(in)	moist_phys,
		logical, intent(in)	hydrostatic,
		logical, intent(in)	hybrid_z,
		real, dimension(bd%is:,bd%js:,1:), intent(inout)	delz,
		real, dimension(bd%is:,bd%js:,1:), intent(inout)	ze0,
		integer, intent(inout)	ks,
		real, intent(inout)	ptop,
		type(domain2d), intent(in), target	domain_in,
		integer, intent(inout), target	tile_in,
		type(fv_grid_bounds_type), intent(in)	bd
	)

Definition at line 6176 of file test_cases.F90.

init_winds()

subroutine test_cases_mod::init_winds ( real, intent(inout)  UBar, real, dimension(bd%isd:bd%ied ,bd%jsd:bd%jed+1), intent(inout)  u, real, dimension(bd%isd:bd%ied+1,bd%jsd:bd%jed ), intent(inout)  v, real, dimension(bd%isd:bd%ied ,bd%jsd:bd%jed ), intent(inout)  ua, real, dimension(bd%isd:bd%ied ,bd%jsd:bd%jed ), intent(inout)  va, real, dimension(bd%isd:bd%ied+1,bd%jsd:bd%jed ), intent(inout)  uc, real, dimension(bd%isd:bd%ied ,bd%jsd:bd%jed+1), intent(inout)  vc, integer, intent(in)  defOnGrid, integer, intent(in)  npx, integer, intent(in)  npy, integer, intent(in)  ng, integer, intent(in)  ndims, integer, intent(in)  nregions, logical, intent(in)  bounded_domain, type(fv_grid_type), intent(in), target  gridstruct, type(domain2d), intent(inout)  domain, integer, intent(in)  tile, type(fv_grid_bounds_type), intent(in)  bd  )

private

Definition at line 255 of file test_cases.F90.

interp_left_edge_1d()

subroutine test_cases_mod::interp_left_edge_1d ( real, dimension(ifirst:), intent(out)  qout, real, dimension(ifirst:), intent(in)  qin, real, dimension(ifirst:), intent(in)  dx, integer, intent(in)  ifirst, integer, intent(in)  ilast, integer, intent(in)  order  )

private

Definition at line 9374 of file test_cases.F90.

mp_ghost_ew()

subroutine test_cases_mod::mp_ghost_ew ( integer, intent(in)  im, integer, intent(in)  jm, integer, intent(in)  km, integer, intent(in)  nq, integer, intent(in)  ifirst, integer, intent(in)  ilast, integer, intent(in)  jfirst, integer, intent(in)  jlast, integer, intent(in)  kfirst, integer, intent(in)  klast, integer, intent(in)  ng_w, integer, intent(in)  ng_e, integer, intent(in)  ng_s, integer, intent(in)  ng_n, real, dimension(ifirst-ng_w:ilast+ng_e,jfirst-ng_s:jlast+ng_n,kfirst:klast,nq), intent(inout)  q_ghst, real, dimension(ifirst:ilast,jfirst:jlast,kfirst:klast,nq), intent(in), optional  q  )

private

Definition at line 9313 of file test_cases.F90.

mp_update_dwinds_2d()

subroutine test_cases_mod::mp_update_dwinds_2d ( real, dimension(bd%isd:bd%ied ,bd%jsd:bd%jed+1), intent(inout)  u, real, dimension(bd%isd:bd%ied+1,bd%jsd:bd%jed ), intent(inout)  v, integer, intent(in)  npx, integer, intent(in)  npy, type(domain2d), intent(inout)  domain, type(fv_grid_bounds_type), intent(in)  bd  )

private

Parameters

[in,out]	u	D-grid u-wind field
[in,out]	v	D-grid v-wind field

Definition at line 9130 of file test_cases.F90.

mp_update_dwinds_3d()

subroutine test_cases_mod::mp_update_dwinds_3d	(	real, dimension(bd%isd:bd%ied ,bd%jsd:bd%jed+1,npz), intent(inout)	u,
		real, dimension(bd%isd:bd%ied+1,bd%jsd:bd%jed ,npz), intent(inout)	v,
		integer, intent(in)	npx,
		integer, intent(in)	npy,
		integer, intent(in)	npz,
		type(domain2d), intent(inout)	domain,
		type(fv_grid_bounds_type), intent(in)	bd
	)

Parameters

[in,out]	u	D-grid u-wind field
[in,out]	v	D-grid v-wind field

Definition at line 9149 of file test_cases.F90.

normalize_vect()

subroutine test_cases_mod::normalize_vect ( integer, intent(in)  np, real(kind=r_grid), dimension(3,np), intent(inout)  e  )

private

Definition at line 9288 of file test_cases.F90.

prt_m1()

subroutine test_cases_mod::prt_m1 ( character(len=*), intent(in)  qname, real, dimension(is-n_g:ie+n_g, js-n_g:je+n_g, km), intent(in)  q, integer, intent(in)  is, integer, intent(in)  ie, integer, intent(in)  js, integer, intent(in)  je, integer, intent(in)  n_g, integer, intent(in)  km, real, intent(in)  fac  )

private

Definition at line 9589 of file test_cases.F90.

rankine_vortex()

subroutine test_cases_mod::rankine_vortex ( real, intent(in)  ubar, real, intent(in)  r0, real, dimension(2), intent(in)  p1, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(inout)  u, real, dimension(bd%isd:bd%ied+1,bd%jsd:bd%jed), intent(inout)  v, real(kind=r_grid), dimension(bd%isd:bd%ied+1,bd%jsd:bd%jed+1,2), intent(in)  grid, type(fv_grid_bounds_type), intent(in)  bd  )

private

Definition at line 4023 of file test_cases.F90.

read_namelist_test_case_nml()

subroutine, public test_cases_mod::read_namelist_test_case_nml

(

character(*), intent(in)

nml_filename

)

Definition at line 6902 of file test_cases.F90.

rotate_winds()

subroutine test_cases_mod::rotate_winds ( real, intent(inout)  myU, real, intent(inout)  myV, real(kind=r_grid), dimension(ndims), intent(in)  p1, real(kind=r_grid), dimension(ndims), intent(in)  p2, real(kind=r_grid), dimension(ndims), intent(in)  p3, real(kind=r_grid), dimension(ndims), intent(in)  p4, real(kind=r_grid), dimension(ndims), intent(in)  t1, integer, intent(in)  ndims, integer, intent(in)  dir  )

private

Parameters

[in,out]	myu	u-wind field
[in,out]	myv	v-wind field
[in]	dir	Direction ; 1=>sphere-to-cube 2=> cube-to-sphere

Definition at line 9085 of file test_cases.F90.

sm1_edge()

subroutine test_cases_mod::sm1_edge ( integer, intent(in)  is, integer, intent(in)  ie, integer, intent(in)  js, integer, intent(in)  je, integer, intent(in)  km, integer, intent(in)  i, integer, intent(in)  j, real, dimension(is:ie,js:je,km+1), intent(inout)  ze, integer, intent(in)  ntimes  )

private

Definition at line 9680 of file test_cases.F90.

supercell_sounding()

subroutine test_cases_mod::supercell_sounding ( integer, intent(in)  km, real, intent(in)  ps, real, dimension(km), intent(in)  pk1, real, dimension(km), intent(out)  tp, real, dimension(km), intent(out)  qp  )

private

Definition at line 7258 of file test_cases.F90.

superk_sounding()

subroutine test_cases_mod::superk_sounding ( integer, intent(in)  km, real, dimension(km+1), intent(inout)  pe, real, intent(in)  p00, real, dimension(km+1), intent(in)  ze, real, dimension(km), intent(out)  pt, real, dimension(km), intent(out)  qz  )

private

Definition at line 6936 of file test_cases.F90.

superk_u()

subroutine test_cases_mod::superk_u ( integer, intent(in)  km, real, dimension(km), intent(in)  zz, real, dimension(km), intent(out)  um, real, dimension(km), intent(out)  dudz  )

private

Definition at line 7223 of file test_cases.F90.

terminator_tracers()

subroutine test_cases_mod::terminator_tracers ( integer, intent(in)  i0, integer, intent(in)  i1, integer, intent(in)  j0, integer, intent(in)  j1, integer, intent(in)  ifirst, integer, intent(in)  ilast, integer, intent(in)  jfirst, integer, intent(in)  jlast, integer, intent(in)  km, real, dimension(ifirst:ilast,jfirst:jlast,km,ncnst), intent(inout)  q, real, dimension(ifirst:ilast,jfirst:jlast,km), intent(in)  delp, integer, intent(in)  ncnst, real(kind=r_grid), dimension(ifirst:ilast,jfirst:jlast), intent(in)  lon, real(kind=r_grid), dimension(ifirst:ilast,jfirst:jlast), intent(in)  lat, type(fv_grid_bounds_type), intent(in)  bd  )

private

Definition at line 3953 of file test_cases.F90.

u_jet()

real function test_cases_mod::u_jet ( real  lat )

private

Definition at line 4161 of file test_cases.F90.

var_dz()

subroutine test_cases_mod::var_dz ( integer, intent(in)  km, real, intent(in)  ztop, real, dimension(km+1), intent(out)  ze  )

private

Definition at line 9619 of file test_cases.F90.

vpol5()

subroutine test_cases_mod::vpol5 ( real, dimension(im,jfirst-ng_d:jlast+ng_s), intent(in)  u, real, dimension(im,jfirst-ng_d:jlast+ng_d), intent(inout)  v, integer  im, integer  jm, real, dimension(im,jm), intent(in)  coslon, real, dimension(im,jm), intent(in)  sinlon, real, dimension(im,jm), intent(in)  cosl5, real, dimension(im,jm), intent(in)  sinl5, integer, intent(in)  ng_d, integer, intent(in)  ng_s, integer  jfirst, integer  jlast  )

private

Parameters

im	Total longitudes
jm	Total latitudes
jfirst	First PE latitude (no ghosting)
jlast	Last PE latitude (no ghosting)

Definition at line 9484 of file test_cases.F90.

Variable Documentation

alpha

real, public test_cases_mod::alpha = 0.0

Definition at line 182 of file test_cases.F90.

aoft

real, dimension(2) test_cases_mod::aoft

private

Definition at line 214 of file test_cases.F90.

bubble_do

logical test_cases_mod::bubble_do = .false.

private

Definition at line 181 of file test_cases.F90.

case9_b

real, dimension(:,:), allocatable test_cases_mod::case9_b

private

Definition at line 213 of file test_cases.F90.

gh0

real test_cases_mod::gh0

private

Definition at line 210 of file test_cases.F90.

gh_initialized

logical test_cases_mod::gh_initialized = .false.

private

Definition at line 223 of file test_cases.F90.

gh_table

real, dimension(:), allocatable test_cases_mod::gh_table

private

Definition at line 222 of file test_cases.F90.

initwindscase0

integer, parameter test_cases_mod::initwindscase0 =-1

private

Definition at line 196 of file test_cases.F90.

initwindscase1

integer, parameter test_cases_mod::initwindscase1 = 1

private

Definition at line 197 of file test_cases.F90.

initwindscase2

integer, parameter test_cases_mod::initwindscase2 = 5

private

Definition at line 198 of file test_cases.F90.

initwindscase5

integer, parameter test_cases_mod::initwindscase5 = 5

private

Definition at line 199 of file test_cases.F90.

initwindscase6

integer, parameter test_cases_mod::initwindscase6 =-1

private

Definition at line 200 of file test_cases.F90.

initwindscase9

integer, parameter test_cases_mod::initwindscase9 =-1

private

Definition at line 201 of file test_cases.F90.

interporder

integer, parameter test_cases_mod::interporder = 1

private

Definition at line 230 of file test_cases.F90.

lat0

real test_cases_mod::lat0 = pi/2.0

private

pi/4.8

Definition at line 189 of file test_cases.F90.

lats_table

real, dimension(:), allocatable test_cases_mod::lats_table

private

Definition at line 222 of file test_cases.F90.

lon0

real test_cases_mod::lon0 = 0.0

private

pi-0.8

Definition at line 190 of file test_cases.F90.

nsolitons

integer test_cases_mod::nsolitons = 1

private

Definition at line 183 of file test_cases.F90.

one

real(kind=r_grid), parameter test_cases_mod::one = 1.d0

private

Definition at line 179 of file test_cases.F90.

p0_c0

real test_cases_mod::p0_c0 = 3.0

private

Definition at line 187 of file test_cases.F90.

phi0

real, dimension(:,:,:), allocatable test_cases_mod::phi0

private

Validating Field.

Definition at line 218 of file test_cases.F90.

pi_shift

real, parameter test_cases_mod::pi_shift = 0.0

private

3.0*pi/4.

Definition at line 193 of file test_cases.F90.

pz0

real, dimension(:), allocatable, public test_cases_mod::pz0

Definition at line 203 of file test_cases.F90.

radius

real(kind=r_grid), parameter test_cases_mod::radius = cnst_radius

private

Definition at line 178 of file test_cases.F90.

rgamma

real test_cases_mod::rgamma = 5.0

private

Definition at line 188 of file test_cases.F90.

soliton_size

real test_cases_mod::soliton_size = 750.e3

private

Definition at line 184 of file test_cases.F90.

soliton_umax

real test_cases_mod::soliton_umax = 50.

private

Definition at line 184 of file test_cases.F90.

sphum

integer test_cases_mod::sphum

private

Definition at line 177 of file test_cases.F90.

tener_orig

real test_cases_mod::tener_orig

private

energy

Definition at line 228 of file test_cases.F90.

test_case

integer test_cases_mod::test_case = 11

private

Definition at line 180 of file test_cases.F90.

theta_d

integer test_cases_mod::theta_d

private

Definition at line 177 of file test_cases.F90.

tmass_orig

real test_cases_mod::tmass_orig

private

total mass

Definition at line 226 of file test_cases.F90.

tracer_test

integer test_cases_mod::tracer_test

private

Definition at line 205 of file test_cases.F90.

tvort_orig

real test_cases_mod::tvort_orig

private

enstrophy (integral of total vorticity)

Definition at line 227 of file test_cases.F90.

ua0

real, dimension(:,:,:), allocatable test_cases_mod::ua0

private

Validating U-Wind.

Definition at line 219 of file test_cases.F90.

ubar

real test_cases_mod::ubar

private

Definition at line 208 of file test_cases.F90.

va0

real, dimension(:,:,:), allocatable test_cases_mod::va0

private

Validating V-Windfms_io_exit, get_tile_string, &.

Definition at line 220 of file test_cases.F90.

vbar

real test_cases_mod::vbar

private

Definition at line 208 of file test_cases.F90.

wind_field

integer test_cases_mod::wind_field

private

Definition at line 205 of file test_cases.F90.

zz0

real, dimension(:), allocatable, public test_cases_mod::zz0

Definition at line 203 of file test_cases.F90.