sw_core_adm_mod Module Reference

Functions/Subroutines
subroutine, public	c_sw_fwd (delpc, delp, ptc, pt, u, v, w, uc, vc, ua, va, wc, ut, vt, divg_d, nord, dt2, hydrostatic, dord4, bd, gridstruct, flagstruct)
subroutine, public	c_sw_bwd (delpc, delpc_ad, delp, delp_ad, ptc, ptc_ad, pt, pt_ad, u, u_ad, v, v_ad, w, w_ad, uc, uc_ad, vc, vc_ad, ua, ua_ad, va, va_ad, wc, wc_ad, ut, ut_ad, vt, vt_ad, divg_d, divg_d_ad, nord, dt2, hydrostatic, dord4, bd, gridstruct, flagstruct)
subroutine, public	c_sw (delpc, delp, ptc, pt, u, v, w, uc, vc, ua, va, wc, ut, vt, divg_d, nord, dt2, hydrostatic, dord4, bd, gridstruct, flagstruct)
subroutine, public	d_sw_fwd (delpc, delp, ptc, pt, u, v, w, uc, vc, ua, va, divg_d, xflux, yflux, cx, cy, crx_adv, cry_adv, xfx_adv, yfx_adv, q_con, z_rat, kgb, heat_source, dpx, zvir, sphum, nq, q, k, km, inline_q, dt, hord_tr, hord_mt, hord_vt, hord_tm, hord_dp, nord, nord_v, nord_w, nord_t, dddmp, d2_bg, d4_bg, damp_v, damp_w, damp_t, d_con, hydrostatic, gridstruct, flagstruct, bd, hord_tr_pert, hord_mt_pert, hord_vt_pert, hord_tm_pert, hord_dp_pert, split_damp, nord_pert, nord_v_pert, nord_w_pert, nord_t_pert, dddmp_pert, d2_bg_pert, d4_bg_pert, damp_v_pert, damp_w_pert, damp_t_pert)
subroutine, public	d_sw_bwd (delpc, delpc_ad, delp, delp_ad, ptc, ptc_ad, pt, pt_ad, u, u_ad, v, v_ad, w, w_ad, uc, uc_ad, vc, vc_ad, ua, ua_ad, va, va_ad, divg_d, divg_d_ad, xflux, xflux_ad, yflux, yflux_ad, cx, cx_ad, cy, cy_ad, crx_adv, crx_adv_ad, cry_adv, cry_adv_ad, xfx_adv, xfx_adv_ad, yfx_adv, yfx_adv_ad, q_con, z_rat, z_rat_ad, kgb, heat_source, heat_source_ad, dpx, dpx_ad, zvir, sphum, nq, q, q_ad, k, km, inline_q, dt, hord_tr, hord_mt, hord_vt, hord_tm, hord_dp, nord, nord_v, nord_w, nord_t, dddmp, d2_bg, d4_bg, damp_v, damp_w, damp_t, d_con, hydrostatic, gridstruct, flagstruct, bd, hord_tr_pert, hord_mt_pert, hord_vt_pert, hord_tm_pert, hord_dp_pert, split_damp, nord_pert, nord_v_pert, nord_w_pert, nord_t_pert, dddmp_pert, d2_bg_pert, d4_bg_pert, damp_v_pert, damp_w_pert, damp_t_pert)
subroutine, public	d_sw (delpc, delp, ptc, pt, u, v, w, uc, vc, ua, va, divg_d, xflux, yflux, cx, cy, crx_adv, cry_adv, xfx_adv, yfx_adv, q_con, z_rat, kgb, heat_source, dpx, zvir, sphum, nq, q, k, km, inline_q, dt, hord_tr, hord_mt, hord_vt, hord_tm, hord_dp, nord, nord_v, nord_w, nord_t, dddmp, d2_bg, d4_bg, damp_v, damp_w, damp_t, d_con, hydrostatic, gridstruct, flagstruct, bd, hord_tr_pert, hord_mt_pert, hord_vt_pert, hord_tm_pert, hord_dp_pert, split_damp, nord_pert, nord_v_pert, nord_w_pert, nord_t_pert, dddmp_pert, d2_bg_pert, d4_bg_pert, damp_v_pert, damp_w_pert, damp_t_pert)
subroutine, public	del6_vt_flux_adm (nord, npx, npy, damp, q, q_ad, d2, d2_ad, fx2, fx2_ad, fy2, fy2_ad, gridstruct, bd)
subroutine, public	del6_vt_flux (nord, npx, npy, damp, q, d2, fx2, fy2, gridstruct, bd)
subroutine, public	divergence_corner_fwd (u, v, ua, va, divg_d, gridstruct, flagstruct, bd)
subroutine, public	divergence_corner_bwd (u, u_ad, v, v_ad, ua, ua_ad, va, va_ad, divg_d, divg_d_ad, gridstruct, flagstruct, bd)
subroutine, public	divergence_corner (u, v, ua, va, divg_d, gridstruct, flagstruct, bd)
subroutine, public	divergence_corner_nest_fwd (u, v, ua, va, divg_d, gridstruct, flagstruct, bd)
subroutine, public	divergence_corner_nest_bwd (u, u_ad, v, v_ad, ua, ua_ad, va, va_ad, divg_d, divg_d_ad, gridstruct, flagstruct, bd)
subroutine, public	divergence_corner_nest (u, v, ua, va, divg_d, gridstruct, flagstruct, bd)
subroutine	smag_corner (dt, u, v, ua, va, smag_c, bd, npx, npy, gridstruct, ng)
subroutine	xtp_u_adm (is, ie, js, je, isd, ied, jsd, jed, c, c_ad, u, u_ad, v, flux, flux_ad, iord, dx, rdx, npx, npy, grid_type, nested)
subroutine	xtp_u (is, ie, js, je, isd, ied, jsd, jed, c, u, v, flux, iord, dx, rdx, npx, npy, grid_type, nested)
subroutine	ytp_v_adm (is, ie, js, je, isd, ied, jsd, jed, c, c_ad, u, v, v_ad, flux, flux_ad, jord, dy, rdy, npx, npy, grid_type, nested)
subroutine	ytp_v (is, ie, js, je, isd, ied, jsd, jed, c, u, v, flux, jord, dy, rdy, npx, npy, grid_type, nested)
subroutine, public	d2a2c_vect_fwd (u, v, ua, va, uc, vc, ut, vt, dord4, gridstruct, bd, npx, npy, nested, grid_type)
subroutine, public	d2a2c_vect_bwd (u, u_ad, v, v_ad, ua, ua_ad, va, va_ad, uc, uc_ad, vc, vc_ad, ut, ut_ad, vt, vt_ad, dord4, gridstruct, bd, npx, npy, nested, grid_type)
subroutine, public	d2a2c_vect (u, v, ua, va, uc, vc, ut, vt, dord4, gridstruct, bd, npx, npy, nested, grid_type)
real function	edge_interpolate4_fwd (ua, dxa)
subroutine	edge_interpolate4_bwd (ua, ua_ad, dxa, edge_interpolate4_ad)
real function	edge_interpolate4 (ua, dxa)
subroutine	fill3_4corners (q1, q2, q3, dir, bd, npx, npy, sw_corner, se_corner, ne_corner, nw_corner)
subroutine	fill2_4corners_fwd (q1, q2, dir, bd, npx, npy, sw_corner, se_corner, ne_corner, nw_corner)
subroutine	fill2_4corners_bwd (q1, q1_ad, q2, q2_ad, dir, bd, npx, npy, sw_corner, se_corner, ne_corner, nw_corner)
subroutine	fill2_4corners (q1, q2, dir, bd, npx, npy, sw_corner, se_corner, ne_corner, nw_corner)
subroutine, public	fill_4corners_fwd (q, dir, bd, npx, npy, sw_corner, se_corner, ne_corner, nw_corner)
subroutine, public	fill_4corners_bwd (q, q_ad, dir, bd, npx, npy, sw_corner, se_corner, ne_corner, nw_corner)
subroutine, public	fill_4corners (q, dir, bd, npx, npy, sw_corner, se_corner, ne_corner, nw_corner)
subroutine	xtp_u_fwd (is, ie, js, je, isd, ied, jsd, jed, c, u, v, flux, iord, dx, rdx, npx, npy, grid_type, nested)
subroutine	xtp_u_bwd (is, ie, js, je, isd, ied, jsd, jed, c, c_ad, u, u_ad, v, flux, flux_ad, iord, dx, rdx, npx, npy, grid_type, nested)
subroutine	ytp_v_fwd (is, ie, js, je, isd, ied, jsd, jed, c, u, v, flux, jord, dy, rdy, npx, npy, grid_type, nested)
subroutine	ytp_v_bwd (is, ie, js, je, isd, ied, jsd, jed, c, c_ad, u, v, v_ad, flux, flux_ad, jord, dy, rdy, npx, npy, grid_type, nested)
subroutine	compute_divergence_damping_adm (nord, d2_bg, d4_bg, dddmp, dt, vort, vort_ad, ptc, ptc_ad, delpc, delpc_ad, ke, ke_ad, u, u_ad, v, v_ad, uc, uc_ad, vc, vc_ad, ua, ua_ad, va, va_ad, divg_d, divg_d_ad, wk, wk_ad, gridstruct, flagstruct, bd)
subroutine	smag_corner_adm (dt, u, u_ad, v, v_ad, ua, va, smag_c, smag_c_ad, bd, npx, npy, gridstruct, ng)
subroutine	compute_divergence_damping (nord, d2_bg, d4_bg, dddmp, dt, vort, ptc, delpc, ke, u, v, uc, vc, ua, va, divg_d, wk, gridstruct, flagstruct, bd)
subroutine	compute_divergence_damping_fwd (nord, d2_bg, d4_bg, dddmp, dt, vort, ptc, delpc, ke, u, v, uc, vc, ua, va, divg_d, wk, gridstruct, flagstruct, bd)
subroutine	compute_divergence_damping_bwd (nord, d2_bg, d4_bg, dddmp, dt, vort, vort_ad, ptc, ptc_ad, delpc, delpc_ad, ke, ke_ad, u, u_ad, v, v_ad, uc, uc_ad, vc, vc_ad, ua, ua_ad, va, va_ad, divg_d, divg_d_ad, wk, wk_ad, gridstruct, flagstruct, bd)
subroutine	smag_corner_fwd (dt, u, v, ua, va, smag_c, bd, npx, npy, gridstruct, ng)
subroutine	smag_corner_bwd (dt, u, u_ad, v, v_ad, ua, va, smag_c, smag_c_ad, bd, npx, npy, gridstruct, ng)

Variables
real, parameter	r3 = 1./3.
real, parameter	t11 =27./28.
real, parameter	t12 =-13./28.
real, parameter	t13 =3./7.
real, parameter	t14 =6./7.
real, parameter	t15 =3./28.
real, parameter	s11 =11./14.
real, parameter	s13 =-13./14.
real, parameter	s14 =4./7.
real, parameter	s15 =3./14.
real, parameter	near_zero = 1.E-9
real, parameter	big_number = 1.E30
real, parameter	p1 = 7./12.
real, parameter	p2 = -1./12.
real, parameter	a1 = 0.5625
real, parameter	a2 = -0.0625
real, parameter	c1 = -2./14.
real, parameter	c2 = 11./14.
real, parameter	c3 = 5./14.
real, parameter	b1 =1./30.
real, parameter	b2 =-(13./60.)
real, parameter	b3 =-(13./60.)
real, parameter	b4 =0.45
real, parameter	b5 =-0.05

Function/Subroutine Documentation

c_sw()

subroutine, public sw_core_adm_mod::c_sw	(	real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(out)	delpc,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)	delp,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(out)	ptc,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)	pt,
		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)	w,
		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,
		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, bd%jsd:bd%jed), intent(out)	wc,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)	ut,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)	vt,
		real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed+1), intent(out)	divg_d,
		integer, intent(in)	nord,
		real, intent(in)	dt2,
		logical, intent(in)	hydrostatic,
		logical, intent(in)	dord4,
		type(fv_grid_bounds_type), intent(in)	bd,
		type(fv_grid_type), intent(in), target	gridstruct,
		type(fv_flags_type), intent(in), target	flagstruct
	)

Definition at line 1358 of file sw_core_adm.F90.

Here is the call graph for this function:

c_sw_bwd()

subroutine, public sw_core_adm_mod::c_sw_bwd	(	real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed)	delpc,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed)	delpc_ad,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)	delp,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)	delp_ad,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed)	ptc,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed)	ptc_ad,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)	pt,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)	pt_ad,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(inout)	u,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(inout)	u_ad,
		real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(inout)	v,
		real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(inout)	v_ad,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)	w,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)	w_ad,
		real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(inout)	uc,
		real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(inout)	uc_ad,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(inout)	vc,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(inout)	vc_ad,
		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)	ua_ad,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)	va,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)	va_ad,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed)	wc,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed)	wc_ad,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)	ut,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)	ut_ad,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)	vt,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)	vt_ad,
		real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed+1)	divg_d,
		real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed+1)	divg_d_ad,
		integer, intent(in)	nord,
		real, intent(in)	dt2,
		logical, intent(in)	hydrostatic,
		logical, intent(in)	dord4,
		type(fv_grid_bounds_type), intent(in)	bd,
		type(fv_grid_type), intent(in), target	gridstruct,
		type(fv_flags_type), intent(in), target	flagstruct
	)

Definition at line 708 of file sw_core_adm.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

c_sw_fwd()

subroutine, public sw_core_adm_mod::c_sw_fwd	(	real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed)	delpc,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)	delp,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed)	ptc,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)	pt,
		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)	w,
		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,
		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, bd%jsd:bd%jed)	wc,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)	ut,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)	vt,
		real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed+1)	divg_d,
		integer, intent(in)	nord,
		real, intent(in)	dt2,
		logical, intent(in)	hydrostatic,
		logical, intent(in)	dord4,
		type(fv_grid_bounds_type), intent(in)	bd,
		type(fv_grid_type), intent(in), target	gridstruct,
		type(fv_flags_type), intent(in), target	flagstruct
	)

Definition at line 115 of file sw_core_adm.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

compute_divergence_damping()

subroutine sw_core_adm_mod::compute_divergence_damping ( integer, intent(in)  nord, real, intent(in)  d2_bg, real, intent(in)  d4_bg, real, intent(in)  dddmp, real, intent(in)  dt, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)  vort, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)  ptc, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)  delpc, real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed+1), intent(inout)  ke, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(in)  u, real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(in)  v, 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, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(in)  ua, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(in)  va, real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed+1), intent(inout)  divg_d, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)  wk, type(fv_grid_type), intent(in), target  gridstruct, type(fv_flags_type), intent(in), target  flagstruct, type(fv_grid_bounds_type), intent(in)  bd  )

private

Definition at line 17724 of file sw_core_adm.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

compute_divergence_damping_adm()

subroutine sw_core_adm_mod::compute_divergence_damping_adm ( integer, intent(in)  nord, real, intent(in)  d2_bg, real, intent(in)  d4_bg, real, intent(in)  dddmp, real, intent(in)  dt, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)  vort, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)  vort_ad, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)  ptc, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)  ptc_ad, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)  delpc, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)  delpc_ad, real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed+1), intent(inout)  ke, real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed+1), intent(inout)  ke_ad, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(in)  u, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1)  u_ad, real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(in)  v, real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed)  v_ad, real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(inout)  uc, real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(inout)  uc_ad, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(inout)  vc, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(inout)  vc_ad, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(in)  ua, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed)  ua_ad, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(in)  va, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed)  va_ad, real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed+1), intent(inout)  divg_d, real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed+1), intent(inout)  divg_d_ad, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)  wk, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)  wk_ad, type(fv_grid_type), intent(in), target  gridstruct, type(fv_flags_type), intent(in), target  flagstruct, type(fv_grid_bounds_type), intent(in)  bd  )

private

Definition at line 16828 of file sw_core_adm.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

compute_divergence_damping_bwd()

subroutine sw_core_adm_mod::compute_divergence_damping_bwd ( integer, intent(in)  nord, real, intent(in)  d2_bg, real, intent(in)  d4_bg, real, intent(in)  dddmp, real, intent(in)  dt, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)  vort, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)  vort_ad, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)  ptc, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)  ptc_ad, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)  delpc, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)  delpc_ad, real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed+1), intent(inout)  ke, real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed+1), intent(inout)  ke_ad, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(in)  u, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1)  u_ad, real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(in)  v, real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed)  v_ad, real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(inout)  uc, real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(inout)  uc_ad, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(inout)  vc, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(inout)  vc_ad, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(in)  ua, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed)  ua_ad, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(in)  va, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed)  va_ad, real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed+1), intent(inout)  divg_d, real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed+1), intent(inout)  divg_d_ad, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)  wk, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)  wk_ad, type(fv_grid_type), intent(in), target  gridstruct, type(fv_flags_type), intent(in), target  flagstruct, type(fv_grid_bounds_type), intent(in)  bd  )

private

Definition at line 18555 of file sw_core_adm.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

compute_divergence_damping_fwd()

subroutine sw_core_adm_mod::compute_divergence_damping_fwd ( integer, intent(in)  nord, real, intent(in)  d2_bg, real, intent(in)  d4_bg, real, intent(in)  dddmp, real, intent(in)  dt, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)  vort, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)  ptc, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)  delpc, real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed+1), intent(inout)  ke, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(in)  u, real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(in)  v, 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, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(in)  ua, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(in)  va, real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed+1), intent(inout)  divg_d, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)  wk, type(fv_grid_type), intent(in), target  gridstruct, type(fv_flags_type), intent(in), target  flagstruct, type(fv_grid_bounds_type), intent(in)  bd  )

private

Definition at line 18051 of file sw_core_adm.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

d2a2c_vect()

subroutine, public sw_core_adm_mod::d2a2c_vect	(	real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(in)	u,
		real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(in)	v,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(out)	ua,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(out)	va,
		real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(out)	uc,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(out)	vc,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(out)	ut,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(out)	vt,
		logical, intent(in)	dord4,
		type(fv_grid_type), intent(in), target	gridstruct,
		type(fv_grid_bounds_type), intent(in)	bd,
		integer, intent(in)	npx,
		integer, intent(in)	npy,
		logical, intent(in)	nested,
		integer, intent(in)	grid_type
	)

Definition at line 14343 of file sw_core_adm.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

d2a2c_vect_bwd()

subroutine, public sw_core_adm_mod::d2a2c_vect_bwd	(	real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(in)	u,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1)	u_ad,
		real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(in)	v,
		real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed)	v_ad,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed)	ua,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed)	ua_ad,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed)	va,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed)	va_ad,
		real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed)	uc,
		real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed)	uc_ad,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1)	vc,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1)	vc_ad,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed)	ut,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed)	ut_ad,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed)	vt,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed)	vt_ad,
		logical, intent(in)	dord4,
		type(fv_grid_type), intent(in), target	gridstruct,
		type(fv_grid_bounds_type), intent(in)	bd,
		integer, intent(in)	npx,
		integer, intent(in)	npy,
		logical, intent(in)	nested,
		integer, intent(in)	grid_type
	)

Definition at line 13699 of file sw_core_adm.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

d2a2c_vect_fwd()

subroutine, public sw_core_adm_mod::d2a2c_vect_fwd	(	real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(in)	u,
		real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(in)	v,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed)	ua,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed)	va,
		real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed)	uc,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1)	vc,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed)	ut,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed)	vt,
		logical, intent(in)	dord4,
		type(fv_grid_type), intent(in), target	gridstruct,
		type(fv_grid_bounds_type), intent(in)	bd,
		integer, intent(in)	npx,
		integer, intent(in)	npy,
		logical, intent(in)	nested,
		integer, intent(in)	grid_type
	)

Definition at line 13052 of file sw_core_adm.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

d_sw()

subroutine, public sw_core_adm_mod::d_sw	(	real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(out)	delpc,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)	delp,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(out)	ptc,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)	pt,
		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)	w,
		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,
		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+1), intent(inout)	divg_d,
		real, dimension(bd%is:bd%ie+1, bd%js:bd%je), intent(inout)	xflux,
		real, dimension(bd%is:bd%ie, bd%js:bd%je+1), intent(inout)	yflux,
		real, dimension(bd%is:bd%ie+1, bd%jsd:bd%jed), intent(inout)	cx,
		real, dimension(bd%isd:bd%ied, bd%js:bd%je+1), intent(inout)	cy,
		real, dimension(bd%is:bd%ie+1, bd%jsd:bd%jed), intent(out)	crx_adv,
		real, dimension(bd%isd:bd%ied, bd%js:bd%je+1), intent(out)	cry_adv,
		real, dimension(bd%is:bd%ie+1, bd%jsd:bd%jed), intent(out)	xfx_adv,
		real, dimension(bd%isd:bd%ied, bd%js:bd%je+1), intent(out)	yfx_adv,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)	q_con,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(in)	z_rat,
		real, intent(in)	kgb,
		real, dimension(bd%is:bd%ie, bd%js:bd%je), intent(out)	heat_source,
		real(kind=8), dimension(bd%is:bd%ie, bd%js:bd%je), intent(inout)	dpx,
		real, intent(in)	zvir,
		integer, intent(in)	sphum,
		integer, intent(in)	nq,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed, km, nq), intent(inout)	q,
		integer, intent(in)	k,
		integer, intent(in)	km,
		logical, intent(in)	inline_q,
		real, intent(in)	dt,
		integer, intent(in)	hord_tr,
		integer, intent(in)	hord_mt,
		integer, intent(in)	hord_vt,
		integer, intent(in)	hord_tm,
		integer, intent(in)	hord_dp,
		integer, intent(in)	nord,
		integer, intent(in)	nord_v,
		integer, intent(in)	nord_w,
		integer, intent(in)	nord_t,
		real, intent(in)	dddmp,
		real, intent(in)	d2_bg,
		real, intent(in)	d4_bg,
		real, intent(in)	damp_v,
		real, intent(in)	damp_w,
		real, intent(in)	damp_t,
		real, intent(in)	d_con,
		logical, intent(in)	hydrostatic,
		type(fv_grid_type), intent(in), target	gridstruct,
		type(fv_flags_type), intent(in), target	flagstruct,
		type(fv_grid_bounds_type), intent(in)	bd,
		integer, intent(in)	hord_tr_pert,
		integer, intent(in)	hord_mt_pert,
		integer, intent(in)	hord_vt_pert,
		integer, intent(in)	hord_tm_pert,
		integer, intent(in)	hord_dp_pert,
		logical, intent(in)	split_damp,
		integer, intent(in)	nord_pert,
		integer, intent(in)	nord_v_pert,
		integer, intent(in)	nord_w_pert,
		integer, intent(in)	nord_t_pert,
		real, intent(in)	dddmp_pert,
		real, intent(in)	d2_bg_pert,
		real, intent(in)	d4_bg_pert,
		real, intent(in)	damp_v_pert,
		real, intent(in)	damp_w_pert,
		real, intent(in)	damp_t_pert
	)

Definition at line 4985 of file sw_core_adm.F90.

Here is the call graph for this function:

d_sw_bwd()

subroutine, public sw_core_adm_mod::d_sw_bwd	(	real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed)	delpc,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed)	delpc_ad,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)	delp,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)	delp_ad,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed)	ptc,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed)	ptc_ad,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)	pt,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)	pt_ad,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(inout)	u,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(inout)	u_ad,
		real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(inout)	v,
		real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(inout)	v_ad,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)	w,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)	w_ad,
		real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(inout)	uc,
		real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(inout)	uc_ad,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(inout)	vc,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(inout)	vc_ad,
		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)	ua_ad,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)	va,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)	va_ad,
		real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed+1), intent(inout)	divg_d,
		real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed+1), intent(inout)	divg_d_ad,
		real, dimension(bd%is:bd%ie+1, bd%js:bd%je), intent(inout)	xflux,
		real, dimension(bd%is:bd%ie+1, bd%js:bd%je), intent(inout)	xflux_ad,
		real, dimension(bd%is:bd%ie, bd%js:bd%je+1), intent(inout)	yflux,
		real, dimension(bd%is:bd%ie, bd%js:bd%je+1), intent(inout)	yflux_ad,
		real, dimension(bd%is:bd%ie+1, bd%jsd:bd%jed), intent(inout)	cx,
		real, dimension(bd%is:bd%ie+1, bd%jsd:bd%jed), intent(inout)	cx_ad,
		real, dimension(bd%isd:bd%ied, bd%js:bd%je+1), intent(inout)	cy,
		real, dimension(bd%isd:bd%ied, bd%js:bd%je+1), intent(inout)	cy_ad,
		real, dimension(bd%is:bd%ie+1, bd%jsd:bd%jed)	crx_adv,
		real, dimension(bd%is:bd%ie+1, bd%jsd:bd%jed)	crx_adv_ad,
		real, dimension(bd%isd:bd%ied, bd%js:bd%je+1)	cry_adv,
		real, dimension(bd%isd:bd%ied, bd%js:bd%je+1)	cry_adv_ad,
		real, dimension(bd%is:bd%ie+1, bd%jsd:bd%jed)	xfx_adv,
		real, dimension(bd%is:bd%ie+1, bd%jsd:bd%jed)	xfx_adv_ad,
		real, dimension(bd%isd:bd%ied, bd%js:bd%je+1)	yfx_adv,
		real, dimension(bd%isd:bd%ied, bd%js:bd%je+1)	yfx_adv_ad,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)	q_con,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(in)	z_rat,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed)	z_rat_ad,
		real, intent(in)	kgb,
		real, dimension(bd%is:bd%ie, bd%js:bd%je)	heat_source,
		real, dimension(bd%is:bd%ie, bd%js:bd%je)	heat_source_ad,
		real(kind=8), dimension(bd%is:bd%ie, bd%js:bd%je), intent(inout)	dpx,
		real(kind=8), dimension(bd%is:bd%ie, bd%js:bd%je), intent(inout)	dpx_ad,
		real, intent(in)	zvir,
		integer, intent(in)	sphum,
		integer, intent(in)	nq,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed, km, nq), intent(inout)	q,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed, km, nq), intent(inout)	q_ad,
		integer, intent(in)	k,
		integer, intent(in)	km,
		logical, intent(in)	inline_q,
		real, intent(in)	dt,
		integer, intent(in)	hord_tr,
		integer, intent(in)	hord_mt,
		integer, intent(in)	hord_vt,
		integer, intent(in)	hord_tm,
		integer, intent(in)	hord_dp,
		integer, intent(in)	nord,
		integer, intent(in)	nord_v,
		integer, intent(in)	nord_w,
		integer, intent(in)	nord_t,
		real, intent(in)	dddmp,
		real, intent(in)	d2_bg,
		real, intent(in)	d4_bg,
		real, intent(in)	damp_v,
		real, intent(in)	damp_w,
		real, intent(in)	damp_t,
		real, intent(in)	d_con,
		logical, intent(in)	hydrostatic,
		type(fv_grid_type), intent(in), target	gridstruct,
		type(fv_flags_type), intent(in), target	flagstruct,
		type(fv_grid_bounds_type), intent(in)	bd,
		integer, intent(in)	hord_tr_pert,
		integer, intent(in)	hord_mt_pert,
		integer, intent(in)	hord_vt_pert,
		integer, intent(in)	hord_tm_pert,
		integer, intent(in)	hord_dp_pert,
		logical, intent(in)	split_damp,
		integer, intent(in)	nord_pert,
		integer, intent(in)	nord_v_pert,
		integer, intent(in)	nord_w_pert,
		integer, intent(in)	nord_t_pert,
		real, intent(in)	dddmp_pert,
		real, intent(in)	d2_bg_pert,
		real, intent(in)	d4_bg_pert,
		real, intent(in)	damp_v_pert,
		real, intent(in)	damp_w_pert,
		real, intent(in)	damp_t_pert
	)

Definition at line 3281 of file sw_core_adm.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

d_sw_fwd()

subroutine, public sw_core_adm_mod::d_sw_fwd	(	real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed)	delpc,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)	delp,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed)	ptc,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)	pt,
		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)	w,
		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,
		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+1), intent(inout)	divg_d,
		real, dimension(bd%is:bd%ie+1, bd%js:bd%je), intent(inout)	xflux,
		real, dimension(bd%is:bd%ie, bd%js:bd%je+1), intent(inout)	yflux,
		real, dimension(bd%is:bd%ie+1, bd%jsd:bd%jed), intent(inout)	cx,
		real, dimension(bd%isd:bd%ied, bd%js:bd%je+1), intent(inout)	cy,
		real, dimension(bd%is:bd%ie+1, bd%jsd:bd%jed)	crx_adv,
		real, dimension(bd%isd:bd%ied, bd%js:bd%je+1)	cry_adv,
		real, dimension(bd%is:bd%ie+1, bd%jsd:bd%jed)	xfx_adv,
		real, dimension(bd%isd:bd%ied, bd%js:bd%je+1)	yfx_adv,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)	q_con,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(in)	z_rat,
		real, intent(in)	kgb,
		real, dimension(bd%is:bd%ie, bd%js:bd%je)	heat_source,
		real(kind=8), dimension(bd%is:bd%ie, bd%js:bd%je), intent(inout)	dpx,
		real, intent(in)	zvir,
		integer, intent(in)	sphum,
		integer, intent(in)	nq,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed, km, nq), intent(inout)	q,
		integer, intent(in)	k,
		integer, intent(in)	km,
		logical, intent(in)	inline_q,
		real, intent(in)	dt,
		integer, intent(in)	hord_tr,
		integer, intent(in)	hord_mt,
		integer, intent(in)	hord_vt,
		integer, intent(in)	hord_tm,
		integer, intent(in)	hord_dp,
		integer, intent(in)	nord,
		integer, intent(in)	nord_v,
		integer, intent(in)	nord_w,
		integer, intent(in)	nord_t,
		real, intent(in)	dddmp,
		real, intent(in)	d2_bg,
		real, intent(in)	d4_bg,
		real, intent(in)	damp_v,
		real, intent(in)	damp_w,
		real, intent(in)	damp_t,
		real, intent(in)	d_con,
		logical, intent(in)	hydrostatic,
		type(fv_grid_type), intent(in), target	gridstruct,
		type(fv_flags_type), intent(in), target	flagstruct,
		type(fv_grid_bounds_type), intent(in)	bd,
		integer, intent(in)	hord_tr_pert,
		integer, intent(in)	hord_mt_pert,
		integer, intent(in)	hord_vt_pert,
		integer, intent(in)	hord_tm_pert,
		integer, intent(in)	hord_dp_pert,
		logical, intent(in)	split_damp,
		integer, intent(in)	nord_pert,
		integer, intent(in)	nord_v_pert,
		integer, intent(in)	nord_w_pert,
		integer, intent(in)	nord_t_pert,
		real, intent(in)	dddmp_pert,
		real, intent(in)	d2_bg_pert,
		real, intent(in)	d4_bg_pert,
		real, intent(in)	damp_v_pert,
		real, intent(in)	damp_w_pert,
		real, intent(in)	damp_t_pert
	)

Definition at line 1782 of file sw_core_adm.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

del6_vt_flux()

subroutine, public sw_core_adm_mod::del6_vt_flux	(	integer, intent(in)	nord,
		integer, intent(in)	npx,
		integer, intent(in)	npy,
		real, intent(in)	damp,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)	q,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(out)	d2,
		real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(out)	fx2,
		real, dimension(bd%isd :bd%ied, bd%jsd:bd%jed+1), intent(out)	fy2,
		type(fv_grid_type), intent(in), target	gridstruct,
		type(fv_grid_bounds_type), intent(in)	bd
	)

Definition at line 6260 of file sw_core_adm.F90.

Here is the caller graph for this function:

del6_vt_flux_adm()

subroutine, public sw_core_adm_mod::del6_vt_flux_adm	(	integer, intent(in)	nord,
		integer, intent(in)	npx,
		integer, intent(in)	npy,
		real, intent(in)	damp,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)	q,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)	q_ad,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed)	d2,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed)	d2_ad,
		real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed)	fx2,
		real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed)	fx2_ad,
		real, dimension(bd%isd:bd%ied, bd% jsd:bd%jed+1)	fy2,
		real, dimension(bd%isd:bd%ied , bd%jsd:bd%jed+1)	fy2_ad,
		type(fv_grid_type), intent(in), target	gridstruct,
		type(fv_grid_bounds_type), intent(in)	bd
	)

Definition at line 6083 of file sw_core_adm.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

divergence_corner()

subroutine, public sw_core_adm_mod::divergence_corner	(	real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(in)	u,
		real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(in)	v,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(in)	ua,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(in)	va,
		real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed+1), intent(out)	divg_d,
		type(fv_grid_type), intent(in), target	gridstruct,
		type(fv_flags_type), intent(in), target	flagstruct,
		type(fv_grid_bounds_type), intent(in)	bd
	)

Definition at line 6764 of file sw_core_adm.F90.

Here is the caller graph for this function:

divergence_corner_bwd()

subroutine, public sw_core_adm_mod::divergence_corner_bwd	(	real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(in)	u,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1)	u_ad,
		real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(in)	v,
		real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed)	v_ad,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(in)	ua,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed)	ua_ad,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(in)	va,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed)	va_ad,
		real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed+1)	divg_d,
		real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed+1)	divg_d_ad,
		type(fv_grid_type), intent(in), target	gridstruct,
		type(fv_flags_type), intent(in), target	flagstruct,
		type(fv_grid_bounds_type), intent(in)	bd
	)

Definition at line 6565 of file sw_core_adm.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

divergence_corner_fwd()

subroutine, public sw_core_adm_mod::divergence_corner_fwd	(	real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(in)	u,
		real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(in)	v,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(in)	ua,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(in)	va,
		real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed+1)	divg_d,
		type(fv_grid_type), intent(in), target	gridstruct,
		type(fv_flags_type), intent(in), target	flagstruct,
		type(fv_grid_bounds_type), intent(in)	bd
	)

Definition at line 6363 of file sw_core_adm.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

divergence_corner_nest()

subroutine, public sw_core_adm_mod::divergence_corner_nest	(	real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(in)	u,
		real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(in)	v,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(in)	ua,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(in)	va,
		real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed+1), intent(out)	divg_d,
		type(fv_grid_type), intent(in), target	gridstruct,
		type(fv_flags_type), intent(in), target	flagstruct,
		type(fv_grid_bounds_type), intent(in)	bd
	)

Definition at line 7216 of file sw_core_adm.F90.

Here is the caller graph for this function:

divergence_corner_nest_bwd()

subroutine, public sw_core_adm_mod::divergence_corner_nest_bwd	(	real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(in)	u,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1)	u_ad,
		real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(in)	v,
		real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed)	v_ad,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(in)	ua,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed)	ua_ad,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(in)	va,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed)	va_ad,
		real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed+1)	divg_d,
		real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed+1)	divg_d_ad,
		type(fv_grid_type), intent(in), target	gridstruct,
		type(fv_flags_type), intent(in), target	flagstruct,
		type(fv_grid_bounds_type), intent(in)	bd
	)

Definition at line 7042 of file sw_core_adm.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

divergence_corner_nest_fwd()

subroutine, public sw_core_adm_mod::divergence_corner_nest_fwd	(	real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(in)	u,
		real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(in)	v,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(in)	ua,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(in)	va,
		real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed+1)	divg_d,
		type(fv_grid_type), intent(in), target	gridstruct,
		type(fv_flags_type), intent(in), target	flagstruct,
		type(fv_grid_bounds_type), intent(in)	bd
	)

Definition at line 6901 of file sw_core_adm.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

edge_interpolate4()

real function sw_core_adm_mod::edge_interpolate4 ( real, dimension(4), intent(in)  ua, real, dimension(4), intent(in)  dxa  )

private

Definition at line 14819 of file sw_core_adm.F90.

Here is the caller graph for this function:

edge_interpolate4_bwd()

subroutine sw_core_adm_mod::edge_interpolate4_bwd ( real, dimension(4), intent(in)  ua, real, dimension(4)  ua_ad, real, dimension(4), intent(in)  dxa, real  edge_interpolate4_ad  )

private

Definition at line 14802 of file sw_core_adm.F90.

Here is the caller graph for this function:

edge_interpolate4_fwd()

real function sw_core_adm_mod::edge_interpolate4_fwd ( real, dimension(4), intent(in)  ua, real, dimension(4), intent(in)  dxa  )

private

Definition at line 14770 of file sw_core_adm.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

fill2_4corners()

subroutine sw_core_adm_mod::fill2_4corners ( real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)  q1, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)  q2, integer, intent(in)  dir, type(fv_grid_bounds_type), intent(in)  bd, integer, intent(in)  npx, integer, intent(in)  npy, logical, intent(in)  sw_corner, logical, intent(in)  se_corner, logical, intent(in)  ne_corner, logical, intent(in)  nw_corner  )

private

Definition at line 15270 of file sw_core_adm.F90.

Here is the caller graph for this function:

fill2_4corners_bwd()

subroutine sw_core_adm_mod::fill2_4corners_bwd ( real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)  q1, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)  q1_ad, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)  q2, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)  q2_ad, integer, intent(in)  dir, type(fv_grid_bounds_type), intent(in)  bd, integer, intent(in)  npx, integer, intent(in)  npy, logical, intent(in)  sw_corner, logical, intent(in)  se_corner, logical, intent(in)  ne_corner, logical, intent(in)  nw_corner  )

private

Definition at line 15120 of file sw_core_adm.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

fill2_4corners_fwd()

subroutine sw_core_adm_mod::fill2_4corners_fwd ( real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)  q1, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)  q2, integer, intent(in)  dir, type(fv_grid_bounds_type), intent(in)  bd, integer, intent(in)  npx, integer, intent(in)  npy, logical, intent(in)  sw_corner, logical, intent(in)  se_corner, logical, intent(in)  ne_corner, logical, intent(in)  nw_corner  )

private

Definition at line 14966 of file sw_core_adm.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

fill3_4corners()

subroutine sw_core_adm_mod::fill3_4corners ( real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)  q1, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)  q2, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)  q3, integer, intent(in)  dir, type(fv_grid_bounds_type), intent(in)  bd, integer, intent(in)  npx, integer, intent(in)  npy, logical, intent(in)  sw_corner, logical, intent(in)  se_corner, logical, intent(in)  ne_corner, logical, intent(in)  nw_corner  )

private

Definition at line 14830 of file sw_core_adm.F90.

fill_4corners()

subroutine, public sw_core_adm_mod::fill_4corners	(	real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)	q,
		integer, intent(in)	dir,
		type(fv_grid_bounds_type), intent(in)	bd,
		integer, intent(in)	npx,
		integer, intent(in)	npy,
		logical, intent(in)	sw_corner,
		logical, intent(in)	se_corner,
		logical, intent(in)	ne_corner,
		logical, intent(in)	nw_corner
	)

Definition at line 15585 of file sw_core_adm.F90.

Here is the caller graph for this function:

fill_4corners_bwd()

subroutine, public sw_core_adm_mod::fill_4corners_bwd	(	real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)	q,
		real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)	q_ad,
		integer, intent(in)	dir,
		type(fv_grid_bounds_type), intent(in)	bd,
		integer, intent(in)	npx,
		integer, intent(in)	npy,
		logical, intent(in)	sw_corner,
		logical, intent(in)	se_corner,
		logical, intent(in)	ne_corner,
		logical, intent(in)	nw_corner
	)

Definition at line 15485 of file sw_core_adm.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

fill_4corners_fwd()

subroutine, public sw_core_adm_mod::fill_4corners_fwd	(	real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(inout)	q,
		integer, intent(in)	dir,
		type(fv_grid_bounds_type), intent(in)	bd,
		integer, intent(in)	npx,
		integer, intent(in)	npy,
		logical, intent(in)	sw_corner,
		logical, intent(in)	se_corner,
		logical, intent(in)	ne_corner,
		logical, intent(in)	nw_corner
	)

Definition at line 15364 of file sw_core_adm.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

smag_corner()

subroutine sw_core_adm_mod::smag_corner ( real, intent(in)  dt, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(in)  u, real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(in)  v, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(in)  ua, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(in)  va, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(out)  smag_c, type(fv_grid_bounds_type), intent(in)  bd, integer, intent(in)  npx, integer, intent(in)  npy, type(fv_grid_type), intent(in), target  gridstruct, integer, intent(in)  ng  )

private

Definition at line 7315 of file sw_core_adm.F90.

Here is the caller graph for this function:

smag_corner_adm()

subroutine sw_core_adm_mod::smag_corner_adm ( real, intent(in)  dt, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(in)  u, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1)  u_ad, real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(in)  v, real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed)  v_ad, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(in)  ua, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(in)  va, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed)  smag_c, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed)  smag_c_ad, type(fv_grid_bounds_type), intent(in)  bd, integer, intent(in)  npx, integer, intent(in)  npy, type(fv_grid_type), intent(in), target  gridstruct, integer, intent(in)  ng  )

private

Definition at line 17570 of file sw_core_adm.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

smag_corner_bwd()

subroutine sw_core_adm_mod::smag_corner_bwd ( real, intent(in)  dt, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(in)  u, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1)  u_ad, real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(in)  v, real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed)  v_ad, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(in)  ua, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(in)  va, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed)  smag_c, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed)  smag_c_ad, type(fv_grid_bounds_type), intent(in)  bd, integer, intent(in)  npx, integer, intent(in)  npy, type(fv_grid_type), intent(in), target  gridstruct, integer, intent(in)  ng  )

private

Definition at line 19205 of file sw_core_adm.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

smag_corner_fwd()

subroutine sw_core_adm_mod::smag_corner_fwd ( real, intent(in)  dt, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed+1), intent(in)  u, real, dimension(bd%isd:bd%ied+1, bd%jsd:bd%jed), intent(in)  v, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(in)  ua, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed), intent(in)  va, real, dimension(bd%isd:bd%ied, bd%jsd:bd%jed)  smag_c, type(fv_grid_bounds_type), intent(in)  bd, integer, intent(in)  npx, integer, intent(in)  npy, type(fv_grid_type), intent(in), target  gridstruct, integer, intent(in)  ng  )

private

Definition at line 19070 of file sw_core_adm.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

xtp_u()

subroutine sw_core_adm_mod::xtp_u ( 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, real, dimension(is:ie+1, js:je+1), intent(in)  c, real, dimension(isd:ied, jsd:jed+1), intent(in)  u, real, dimension(isd:ied+1, jsd:jed), intent(in)  v, real, dimension(is:ie+1, js:je+1), intent(out)  flux, integer, intent(in)  iord, real, dimension(isd:ied, jsd:jed+1), intent(in)  dx, real, dimension(isd:ied, jsd:jed+1), intent(in)  rdx, integer, intent(in)  npx, integer, intent(in)  npy, integer, intent(in)  grid_type, logical, intent(in)  nested  )

private

Definition at line 9406 of file sw_core_adm.F90.

Here is the caller graph for this function:

xtp_u_adm()

subroutine sw_core_adm_mod::xtp_u_adm ( 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, real, dimension(is:ie+1, js:je+1), intent(in)  c, real, dimension(is:ie+1, js:je+1)  c_ad, real, dimension(isd:ied, jsd:jed+1), intent(in)  u, real, dimension(isd:ied, jsd:jed+1)  u_ad, real, dimension(isd:ied+1, jsd:jed), intent(in)  v, real, dimension(is:ie+1, js:je+1)  flux, real, dimension(is:ie+1, js:je+1)  flux_ad, integer, intent(in)  iord, real, dimension(isd:ied, jsd:jed+1), intent(in)  dx, real, dimension(isd:ied, jsd:jed+1), intent(in)  rdx, integer, intent(in)  npx, integer, intent(in)  npy, integer, intent(in)  grid_type, logical, intent(in)  nested  )

private

Definition at line 7431 of file sw_core_adm.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

xtp_u_bwd()

subroutine sw_core_adm_mod::xtp_u_bwd ( 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, real, dimension(is:ie+1, js:je+1), intent(in)  c, real, dimension(is:ie+1, js:je+1)  c_ad, real, dimension(isd:ied, jsd:jed+1), intent(in)  u, real, dimension(isd:ied, jsd:jed+1)  u_ad, real, dimension(isd:ied+1, jsd:jed), intent(in)  v, real, dimension(is:ie+1, js:je+1)  flux, real, dimension(is:ie+1, js:je+1)  flux_ad, integer, intent(in)  iord, real, dimension(isd:ied, jsd:jed+1), intent(in)  dx, real, dimension(isd:ied, jsd:jed+1), intent(in)  rdx, integer, intent(in)  npx, integer, intent(in)  npy, integer, intent(in)  grid_type, logical, intent(in)  nested  )

private

Definition at line 15915 of file sw_core_adm.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

xtp_u_fwd()

subroutine sw_core_adm_mod::xtp_u_fwd ( 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, real, dimension(is:ie+1, js:je+1), intent(in)  c, real, dimension(isd:ied, jsd:jed+1), intent(in)  u, real, dimension(isd:ied+1, jsd:jed), intent(in)  v, real, dimension(is:ie+1, js:je+1)  flux, integer, intent(in)  iord, real, dimension(isd:ied, jsd:jed+1), intent(in)  dx, real, dimension(isd:ied, jsd:jed+1), intent(in)  rdx, integer, intent(in)  npx, integer, intent(in)  npy, integer, intent(in)  grid_type, logical, intent(in)  nested  )

private

Definition at line 15662 of file sw_core_adm.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

ytp_v()

subroutine sw_core_adm_mod::ytp_v ( 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, real, dimension(is:ie+1, js:je+1), intent(in)  c, real, dimension(isd:ied, jsd:jed+1), intent(in)  u, real, dimension(isd:ied+1, jsd:jed), intent(in)  v, real, dimension(is:ie+1, js:je+1), intent(out)  flux, integer, intent(in)  jord, real, dimension(isd:ied+1, jsd:jed), intent(in)  dy, real, dimension(isd:ied+1, jsd:jed), intent(in)  rdy, integer, intent(in)  npx, integer, intent(in)  npy, integer, intent(in)  grid_type, logical, intent(in)  nested  )

private

Definition at line 12201 of file sw_core_adm.F90.

Here is the caller graph for this function:

ytp_v_adm()

subroutine sw_core_adm_mod::ytp_v_adm ( 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, real, dimension(is:ie+1, js:je+1), intent(in)  c, real, dimension(is:ie+1, js:je+1)  c_ad, real, dimension(isd:ied, jsd:jed+1), intent(in)  u, real, dimension(isd:ied+1, jsd:jed), intent(in)  v, real, dimension(isd:ied+1, jsd:jed)  v_ad, real, dimension(is:ie+1, js:je+1)  flux, real, dimension(is:ie+1, js:je+1)  flux_ad, integer, intent(in)  jord, real, dimension(isd:ied+1, jsd:jed), intent(in)  dy, real, dimension(isd:ied+1, jsd:jed), intent(in)  rdy, integer, intent(in)  npx, integer, intent(in)  npy, integer, intent(in)  grid_type, logical, intent(in)  nested  )

private

Definition at line 10159 of file sw_core_adm.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

ytp_v_bwd()

subroutine sw_core_adm_mod::ytp_v_bwd ( 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, real, dimension(is:ie+1, js:je+1), intent(inout)  c, real, dimension(is:ie+1, js:je+1)  c_ad, real, dimension(isd:ied, jsd:jed+1), intent(in)  u, real, dimension(isd:ied+1, jsd:jed), intent(in)  v, real, dimension(isd:ied+1, jsd:jed)  v_ad, real, dimension(is:ie+1, js:je+1)  flux, real, dimension(is:ie+1, js:je+1)  flux_ad, integer, intent(in)  jord, real, dimension(isd:ied+1, jsd:jed), intent(in)  dy, real, dimension(isd:ied+1, jsd:jed), intent(in)  rdy, integer, intent(in)  npx, integer, intent(in)  npy, integer, intent(in)  grid_type, logical, intent(in)  nested  )

private

Definition at line 16501 of file sw_core_adm.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

ytp_v_fwd()

subroutine sw_core_adm_mod::ytp_v_fwd ( 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, real, dimension(is:ie+1, js:je+1), intent(in)  c, real, dimension(isd:ied, jsd:jed+1), intent(in)  u, real, dimension(isd:ied+1, jsd:jed), intent(in)  v, real, dimension(is:ie+1, js:je+1)  flux, integer, intent(in)  jord, real, dimension(isd:ied+1, jsd:jed), intent(in)  dy, real, dimension(isd:ied+1, jsd:jed), intent(in)  rdy, integer, intent(in)  npx, integer, intent(in)  npy, integer, intent(in)  grid_type, logical, intent(in)  nested  )

private

Definition at line 16231 of file sw_core_adm.F90.

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

a1

real, parameter sw_core_adm_mod::a1 = 0.5625

Definition at line 61 of file sw_core_adm.F90.

a2

real, parameter sw_core_adm_mod::a2 = -0.0625

Definition at line 62 of file sw_core_adm.F90.

b1

real, parameter sw_core_adm_mod::b1 =1./30.

Definition at line 74 of file sw_core_adm.F90.

b2

real, parameter sw_core_adm_mod::b2 =-(13./60.)

Definition at line 75 of file sw_core_adm.F90.

b3

real, parameter sw_core_adm_mod::b3 =-(13./60.)

Definition at line 76 of file sw_core_adm.F90.

b4

real, parameter sw_core_adm_mod::b4 =0.45

Definition at line 77 of file sw_core_adm.F90.

b5

real, parameter sw_core_adm_mod::b5 =-0.05

Definition at line 78 of file sw_core_adm.F90.

big_number

real, parameter sw_core_adm_mod::big_number = 1.E30

Definition at line 51 of file sw_core_adm.F90.

c1

real, parameter sw_core_adm_mod::c1 = -2./14.

Definition at line 65 of file sw_core_adm.F90.

c2

real, parameter sw_core_adm_mod::c2 = 11./14.

Definition at line 66 of file sw_core_adm.F90.

c3

real, parameter sw_core_adm_mod::c3 = 5./14.

Definition at line 67 of file sw_core_adm.F90.

near_zero

real, parameter sw_core_adm_mod::near_zero = 1.E-9

Definition at line 47 of file sw_core_adm.F90.

p1

real, parameter sw_core_adm_mod::p1 = 7./12.

Definition at line 56 of file sw_core_adm.F90.

p2

real, parameter sw_core_adm_mod::p2 = -1./12.

Definition at line 57 of file sw_core_adm.F90.

r3

real, parameter sw_core_adm_mod::r3 = 1./3.

Definition at line 44 of file sw_core_adm.F90.

s11

real, parameter sw_core_adm_mod::s11 =11./14.

Definition at line 46 of file sw_core_adm.F90.

s13

real, parameter sw_core_adm_mod::s13 =-13./14.

Definition at line 46 of file sw_core_adm.F90.

s14

real, parameter sw_core_adm_mod::s14 =4./7.

Definition at line 46 of file sw_core_adm.F90.

s15

real, parameter sw_core_adm_mod::s15 =3./14.

Definition at line 46 of file sw_core_adm.F90.

t11

real, parameter sw_core_adm_mod::t11 =27./28.

Definition at line 45 of file sw_core_adm.F90.

t12

real, parameter sw_core_adm_mod::t12 =-13./28.

Definition at line 45 of file sw_core_adm.F90.

t13

real, parameter sw_core_adm_mod::t13 =3./7.

Definition at line 45 of file sw_core_adm.F90.

t14

real, parameter sw_core_adm_mod::t14 =6./7.

Definition at line 45 of file sw_core_adm.F90.

t15

real, parameter sw_core_adm_mod::t15 =3./28.

Definition at line 45 of file sw_core_adm.F90.