ufo_gnssro_ropp1d_utils_mod Module Reference

Fortran module to handle gnssro bending angle 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	init_ropp_1d_obvec (nvprof, obs_impact, ichk, ob_time, rlat, rlon, roc, undulat, y)
subroutine, public	init_ropp_1d_obvec_tlad (iloop, nvprof, obs_impact, rlat, rlon, roc, undulat, y, y_p)
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 gnssro bending angle observations following the ROPP (2018 Aug) implementation.

Function/Subroutine Documentation

init_ropp_1d_obvec()

subroutine, public ufo_gnssro_ropp1d_utils_mod::init_ropp_1d_obvec	(	integer, intent(in)	nvprof,
		real(kind=kind_real), dimension(nvprof), intent(in)	obs_impact,
		integer, dimension(nvprof), 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)	roc,
		real(kind=kind_real), intent(in)	undulat,
		type(obs1dbangle), intent(out)	y
	)

Definition at line 236 of file ufo_gnssro_ropp1d_utils_mod.F90.

Here is the caller graph for this function:

init_ropp_1d_obvec_tlad()

subroutine, public ufo_gnssro_ropp1d_utils_mod::init_ropp_1d_obvec_tlad	(	integer, intent(in)	iloop,
		integer, intent(in)	nvprof,
		real(kind=kind_real), dimension(nvprof), intent(in)	obs_impact,
		real(kind=kind_real), intent(in)	rlat,
		real(kind=kind_real), intent(in)	rlon,
		real(kind=kind_real), intent(in)	roc,
		real(kind=kind_real), intent(in)	undulat,
		type(obs1dbangle), intent(out)	y,
		type(obs1dbangle), intent(out)	y_p
	)

Definition at line 324 of file ufo_gnssro_ropp1d_utils_mod.F90.

Here is the caller graph for this function:

init_ropp_1d_statevec()

subroutine, public ufo_gnssro_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 36 of file ufo_gnssro_ropp1d_utils_mod.F90.

Here is the caller graph for this function:

init_ropp_1d_statevec_ad()

subroutine, public ufo_gnssro_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 165 of file ufo_gnssro_ropp1d_utils_mod.F90.

Here is the caller graph for this function:

ropp_tidy_up_1d()

subroutine, public ufo_gnssro_ropp1d_utils_mod::ropp_tidy_up_1d	(	type(state1dfm), intent(inout)	x,
		type(obs1dbangle), intent(inout)	y
	)

Definition at line 381 of file ufo_gnssro_ropp1d_utils_mod.F90.

Here is the caller graph for this function:

ropp_tidy_up_tlad_1d()

subroutine, public ufo_gnssro_ropp1d_utils_mod::ropp_tidy_up_tlad_1d	(	type(state1dfm), intent(inout)	x,
		type(state1dfm), intent(inout)	x_p,
		type(obs1dbangle), intent(inout)	y,
		type(obs1dbangle), intent(inout)	y_p
	)

Definition at line 398 of file ufo_gnssro_ropp1d_utils_mod.F90.

Here is the caller graph for this function: