ufo_gnssgb_ropp1d_utils_mod Module Reference

Fortran module to handle ground-based gnss observations following the ROPP (2018 Aug) implementation. More...

Functions/Subroutines
subroutine, public	init_ropp_1d_statevec (step_time, rlon, rlat, temp, shum, pres, phi, lm, phi_sfc, x, iflip)
subroutine, public	init_ropp_1d_statevec_ad (temp_d, shum_d, pres_d, phi_d, lm, x_ad, iflip)
subroutine, public	calc_station_phi (rlat, station_height, station_phi)
subroutine, public	calc_model_z (nlev, rlat, model_phi, model_z)
subroutine, public	init_ropp_1d_obvec (nlev, ichk, ob_time, rlat, rlon, station_phi, x, y)
subroutine, public	init_ropp_1d_obvec_tlad (nlev, rlat, rlon, x, y, y_p)
subroutine, public	gnss_ztd_integral (lm, model_refrac, model_z, ob_terr, model_ztd, l_linear)
subroutine, public	ropp_tidy_up_1d (x, y)
subroutine, public	ropp_tidy_up_tlad_1d (x, x_p, y, y_p)

Detailed Description

Fortran module to handle ground-based gnss observations following the ROPP (2018 Aug) implementation.

Function/Subroutine Documentation

calc_model_z()

subroutine, public ufo_gnssgb_ropp1d_utils_mod::calc_model_z	(	integer, intent(in)	nlev,
		real(kind=kind_real), intent(in)	rlat,
		real(kind=kind_real), dimension(nlev), intent(in)	model_phi,
		real(kind=kind_real), dimension(nlev), intent(out)	model_z
	)

Definition at line 265 of file ufo_gnssgb_ropp1d_utils_mod.F90.

Here is the caller graph for this function:

calc_station_phi()

subroutine, public ufo_gnssgb_ropp1d_utils_mod::calc_station_phi	(	real(kind=kind_real), intent(in)	rlat,
		real(kind=kind_real), intent(in)	station_height,
		real(kind=kind_real), intent(out)	station_phi
	)

Definition at line 238 of file ufo_gnssgb_ropp1d_utils_mod.F90.

Here is the caller graph for this function:

gnss_ztd_integral()

subroutine, public ufo_gnssgb_ropp1d_utils_mod::gnss_ztd_integral	(	integer, intent(in)	lm,
		real(kind=kind_real), dimension(lm), intent(in)	model_refrac,
		real(kind=kind_real), dimension(lm), intent(in)	model_z,
		real(kind=kind_real), intent(in)	ob_terr,
		real(kind=kind_real), intent(out)	model_ztd,
		logical, intent(inout)	l_linear
	)

Definition at line 425 of file ufo_gnssgb_ropp1d_utils_mod.F90.

Here is the caller graph for this function:

init_ropp_1d_obvec()

subroutine, public ufo_gnssgb_ropp1d_utils_mod::init_ropp_1d_obvec	(	integer, intent(in)	nlev,
		integer, dimension(nlev), intent(in)	ichk,
		real(kind=dp), intent(in)	ob_time,
		real(kind=kind_real), intent(in)	rlat,
		real(kind=kind_real), intent(in)	rlon,
		real(kind=kind_real), intent(in)	station_phi,
		type(state1dfm), intent(in)	x,
		type(obs1drefrac), intent(out)	y
	)

Definition at line 299 of file ufo_gnssgb_ropp1d_utils_mod.F90.

Here is the caller graph for this function:

init_ropp_1d_obvec_tlad()

subroutine, public ufo_gnssgb_ropp1d_utils_mod::init_ropp_1d_obvec_tlad	(	integer, intent(in)	nlev,
		real(kind=kind_real), intent(in)	rlat,
		real(kind=kind_real), intent(in)	rlon,
		type(state1dfm), intent(in)	x,
		type(obs1drefrac), intent(out)	y,
		type(obs1drefrac), intent(out)	y_p
	)

Definition at line 381 of file ufo_gnssgb_ropp1d_utils_mod.F90.

init_ropp_1d_statevec()

subroutine, public ufo_gnssgb_ropp1d_utils_mod::init_ropp_1d_statevec	(	real(kind=dp), intent(in)	step_time,
		real(kind=kind_real), intent(in)	rlon,
		real(kind=kind_real), intent(in)	rlat,
		real(kind=kind_real), dimension(lm), intent(in)	temp,
		real(kind=kind_real), dimension(lm), intent(in)	shum,
		real(kind=kind_real), dimension(lm), intent(in)	pres,
		real(kind=kind_real), dimension(lm), intent(in)	phi,
		integer, intent(in)	lm,
		real(kind=kind_real), intent(in)	phi_sfc,
		type(state1dfm), intent(out)	x,
		integer, intent(in), optional	iflip
	)

Definition at line 39 of file ufo_gnssgb_ropp1d_utils_mod.F90.

Here is the caller graph for this function:

init_ropp_1d_statevec_ad()

subroutine, public ufo_gnssgb_ropp1d_utils_mod::init_ropp_1d_statevec_ad	(	real(kind=kind_real), dimension(lm), intent(inout)	temp_d,
		real(kind=kind_real), dimension(lm), intent(inout)	shum_d,
		real(kind=kind_real), dimension(lm), intent(inout)	pres_d,
		real(kind=kind_real), dimension(lm), intent(inout)	phi_d,
		integer, intent(in)	lm,
		type(state1dfm), intent(inout)	x_ad,
		integer, intent(in), optional	iflip
	)

Definition at line 167 of file ufo_gnssgb_ropp1d_utils_mod.F90.

ropp_tidy_up_1d()

subroutine, public ufo_gnssgb_ropp1d_utils_mod::ropp_tidy_up_1d	(	type(state1dfm), intent(inout)	x,
		type(obs1drefrac), intent(inout)	y
	)

Definition at line 515 of file ufo_gnssgb_ropp1d_utils_mod.F90.

Here is the caller graph for this function:

ropp_tidy_up_tlad_1d()

subroutine, public ufo_gnssgb_ropp1d_utils_mod::ropp_tidy_up_tlad_1d	(	type(state1dfm), intent(inout)	x,
		type(state1dfm), intent(inout)	x_p,
		type(obs1drefrac), intent(inout)	y,
		type(obs1drefrac), intent(inout)	y_p
	)

Definition at line 533 of file ufo_gnssgb_ropp1d_utils_mod.F90.