ufo_gnssro_ropp2d_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_2d_statevec (rlon, rlat, temp, shum, pres, phi, lm, x, n_horiz, dtheta, iflip)
subroutine, public	init_ropp_2d_statevec_ad (temp_d, shum_d, pres_d, phi_d, lm, x_ad, n_horiz, iflip)
subroutine, public	init_ropp_2d_obvec (nvprof, obs_impact, rlat, rlon, roc, undulat, y)
subroutine, public	init_ropp_2d_obvec_tlad (iloop, nvprof, obs_impact, rlat, rlon, roc, undulat, y, y_p)
subroutine, public	ropp_tidy_up_2d (x, y)
subroutine, public	ropp_tidy_up_tlad_2d (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_2d_obvec()

subroutine, public ufo_gnssro_ropp2d_utils_mod::init_ropp_2d_obvec	(	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
	)

Definition at line 203 of file ufo_gnssro_ropp2d_utils_mod.F90.

Here is the caller graph for this function:

init_ropp_2d_obvec_tlad()

subroutine, public ufo_gnssro_ropp2d_utils_mod::init_ropp_2d_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 269 of file ufo_gnssro_ropp2d_utils_mod.F90.

Here is the caller graph for this function:

init_ropp_2d_statevec()

subroutine, public ufo_gnssro_ropp2d_utils_mod::init_ropp_2d_statevec	(	real(kind=kind_real), dimension(n_horiz), intent(in)	rlon,
		real(kind=kind_real), dimension(n_horiz), intent(in)	rlat,
		real(kind=kind_real), dimension(lm,n_horiz), intent(in)	temp,
		real(kind=kind_real), dimension(lm,n_horiz), intent(in)	shum,
		real(kind=kind_real), dimension(lm,n_horiz), intent(in)	pres,
		real(kind=kind_real), dimension(lm,n_horiz), intent(in)	phi,
		integer, intent(in)	lm,
		type(state2dfm), intent(out)	x,
		integer, intent(in)	n_horiz,
		real(kind=kind_real), intent(in)	dtheta,
		integer, intent(in), optional	iflip
	)

Definition at line 35 of file ufo_gnssro_ropp2d_utils_mod.F90.

Here is the caller graph for this function:

init_ropp_2d_statevec_ad()

subroutine, public ufo_gnssro_ropp2d_utils_mod::init_ropp_2d_statevec_ad	(	real(kind=kind_real), dimension(lm,n_horiz), intent(inout)	temp_d,
		real(kind=kind_real), dimension(lm,n_horiz), intent(inout)	shum_d,
		real(kind=kind_real), dimension(lm,n_horiz), intent(inout)	pres_d,
		real(kind=kind_real), dimension(lm,n_horiz), intent(inout)	phi_d,
		integer, intent(in)	lm,
		type(state2dfm), intent(inout)	x_ad,
		integer, intent(in)	n_horiz,
		integer, intent(in), optional	iflip
	)

Definition at line 124 of file ufo_gnssro_ropp2d_utils_mod.F90.

Here is the caller graph for this function:

ropp_tidy_up_2d()

subroutine, public ufo_gnssro_ropp2d_utils_mod::ropp_tidy_up_2d	(	type(state2dfm), intent(inout)	x,
		type(obs1dbangle), intent(inout)	y
	)

Definition at line 350 of file ufo_gnssro_ropp2d_utils_mod.F90.

Here is the caller graph for this function:

ropp_tidy_up_tlad_2d()

subroutine, public ufo_gnssro_ropp2d_utils_mod::ropp_tidy_up_tlad_2d	(	type(state2dfm), intent(inout)	x,
		type(state2dfm), intent(inout)	x_p,
		type(obs1dbangle), intent(inout)	y,
		type(obs1dbangle), intent(inout)	y_p
	)

Definition at line 373 of file ufo_gnssro_ropp2d_utils_mod.F90.

Here is the caller graph for this function: