Fortran module to get the jacobian for the 1D-Var. More...

Functions/Subroutines
subroutine, public	ufo_rttovonedvarcheck_get_jacobian (self, geovals, ob, channels, profindex, prof_x, hofxdiags, rttov_simobs, hofx, H_matrix)
	Get the jacobian used in the 1D-Var. More...

subroutine	ufo_rttovonedvarcheck_gethmatrixrttovsimobs (geovals, ob, obsdb, rttov_data, channels, profindex, hofxdiags, UseQtsplitRain, FullDiagnostics, hofx, H_matrix)
	Get the jacobian from rttov and if neccessary convert to variables used in the 1D-Var. More...

subroutine	ufo_rttovonedvarcheck_printhmatrix (nchans, nprofelements, channels, H_matrix, profindex)
	Routine to print the contents of the jacobian for testing. More...

Detailed Description

Fortran module to get the jacobian for the 1D-Var.

Function/Subroutine Documentation

subroutine, public ufo_rttovonedvarcheck_minimize_jacobian_mod::ufo_rttovonedvarcheck_get_jacobian	(	type(ufo_rttovonedvarcheck), intent(in)	self,
		type(ufo_geovals), intent(in)	geovals,
		type(ufo_rttovonedvarcheck_ob), intent(inout)	ob,
		integer, dimension(:), intent(in)	channels,
		type(ufo_rttovonedvarcheck_profindex), intent(in)	profindex,
		real(kind_real), dimension(:), intent(in)	prof_x,
		type(ufo_geovals), intent(inout)	hofxdiags,
		type(ufo_radiancerttov), intent(inout)	rttov_simobs,
		real(kind_real), dimension(:), intent(out)	hofx,
		real(kind_real), dimension(:,:), intent(out)	H_matrix
	)

Get the jacobian used in the 1D-Var.

Parameters

[in]	self	Main 1D-Var object
[in]	geovals	model data at obs location
[in,out]	ob	satellite metadata
[in]	channels	channels used for this calculation
[in]	profindex	index array for x vector
[in]	prof_x	x vector
[in,out]	hofxdiags	model data to pass the jacobian
[in,out]	rttov_simobs	rttov simulate obs object
[out]	hofx	BT's
[out]	h_matrix	Jacobian

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine ufo_rttovonedvarcheck_minimize_jacobian_mod::ufo_rttovonedvarcheck_gethmatrixrttovsimobs	(	type(ufo_geovals), intent(in)	geovals,
		type(ufo_rttovonedvarcheck_ob), intent(inout)	ob,
		type(c_ptr), intent(in), value	obsdb,
		type(ufo_radiancerttov), intent(inout)	rttov_data,
		integer, dimension(:), intent(in)	channels,
		type(ufo_rttovonedvarcheck_profindex), intent(in)	profindex,
		type(ufo_geovals), intent(inout)	hofxdiags,
		logical, intent(in)	UseQtsplitRain,
		logical, intent(in)	FullDiagnostics,
		real(kind_real), dimension(:), intent(out)	hofx,
		real(kind_real), dimension(:,:), intent(out)	H_matrix
	)

private

Get the jacobian from rttov and if neccessary convert to variables used in the 1D-Var.

Heritage: Ops_SatRad_GetHmatrix_RTTOV12.f90

Parameters

[in]	geovals	model data at obs location
[in,out]	ob	satellite metadata
[in]	obsdb	observation database
[in,out]	rttov_data	structure for running rttov_k
[in]	channels	channels used for this calculation
[in]	profindex	index array for x vector
[in,out]	hofxdiags	model data to pass the jacobian
[in]	useqtsplitrain	flag to make qtsplit use rain
[out]	hofx	BT's
[out]	h_matrix	Jacobian

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine ufo_rttovonedvarcheck_minimize_jacobian_mod::ufo_rttovonedvarcheck_printhmatrix	(	integer, intent(in)	nchans,
		integer, intent(in)	nprofelements,
		integer, dimension(nchans), intent(in)	channels,
		real(kind_real), dimension(nchans,nprofelements), intent(in)	H_matrix,
		type(ufo_rttovonedvarcheck_profindex), intent(in)	profindex
	)

private

Routine to print the contents of the jacobian for testing.

Heritage: Ops_SatRad_PrintHMatrix.f90

Here is the caller graph for this function: