ufo_gnssro_bendmetoffice_tlad_mod Module Reference
Fortran module for gnssro bending angle Met Office's tangent linear and adjoint. More...
Data Types | |
| type | ufo_gnssro_bendmetoffice_tlad |
| Fortran derived type for gnssro trajectory. More... | |
Functions/Subroutines | |
| subroutine | ufo_gnssro_bendmetoffice_setup (self, f_conf) |
| subroutine | ufo_gnssro_bendmetoffice_tlad_settraj (self, geovals, obss) |
| subroutine | ufo_gnssro_bendmetoffice_simobs_tl (self, geovals, hofx, obss) |
| subroutine | ufo_gnssro_bendmetoffice_simobs_ad (self, geovals, hofx, obss) |
| subroutine | ufo_gnssro_bendmetoffice_tlad_delete (self) |
| subroutine | jacobian_interface (nlevP, nlevq, za, zb, q, prs, pseudo_ops, vert_interp_ops, ro_rad_curv, latitude, ro_geoid_und, nobs, zobs, K) |
| subroutine | ops_gpsro_getk (nstate, nlevP, nb, nlevq, za, zb, zb_pseudo, pseudo_ops, vert_interp_ops, x, ro_rad_curv, latitude, ro_geoid_und, ref_model, nobs, zobs, nr, K) |
Variables | |
| integer, parameter | max_string =800 |
Detailed Description
Fortran module for gnssro bending angle Met Office's tangent linear and adjoint.
Function/Subroutine Documentation
◆ jacobian_interface()
| subroutine ufo_gnssro_bendmetoffice_tlad_mod::jacobian_interface | ( | integer, intent(in) | nlevP, |
| integer, intent(in) | nlevq, | ||
| real(kind_real), dimension(:), intent(in) | za, | ||
| real(kind_real), dimension(:), intent(in) | zb, | ||
| real(kind_real), dimension(1:nlevq), intent(in) | q, | ||
| real(kind_real), dimension(1:nlevp), intent(in) | prs, | ||
| logical, intent(in) | pseudo_ops, | ||
| logical, intent(in) | vert_interp_ops, | ||
| real(kind_real), intent(in) | ro_rad_curv, | ||
| real(kind_real), intent(in) | latitude, | ||
| real(kind_real), intent(in) | ro_geoid_und, | ||
| integer, intent(in) | nobs, | ||
| real(kind_real), dimension(:), intent(in) | zobs, | ||
| real(kind_real), dimension(:,:), intent(inout) | K | ||
| ) |
Definition at line 344 of file ufo_gnssro_bendmetoffice_tlad_mod.F90.
Here is the call graph for this function:
Here is the caller graph for this function:
◆ ops_gpsro_getk()
| subroutine ufo_gnssro_bendmetoffice_tlad_mod::ops_gpsro_getk | ( | integer, intent(in) | nstate, |
| integer, intent(in) | nlevP, | ||
| integer, intent(in) | nb, | ||
| integer, intent(in) | nlevq, | ||
| real(kind_real), dimension(:), intent(in) | za, | ||
| real(kind_real), dimension(:), intent(in) | zb, | ||
| real(kind_real), dimension(:), intent(in) | zb_pseudo, | ||
| logical, intent(in) | pseudo_ops, | ||
| logical, intent(in) | vert_interp_ops, | ||
| real(kind_real), dimension(:), intent(in) | x, | ||
| real(kind_real), intent(in) | ro_rad_curv, | ||
| real(kind_real), intent(in) | latitude, | ||
| real(kind_real), intent(in) | ro_geoid_und, | ||
| real(kind_real), dimension(nb), intent(in) | ref_model, | ||
| integer, intent(in) | nobs, | ||
| real(kind_real), dimension(:), intent(in) | zobs, | ||
| real(kind_real), dimension(nb), intent(in) | nr, | ||
| real(kind_real), dimension(nobs,nstate), intent(out) | K | ||
| ) |
Definition at line 485 of file ufo_gnssro_bendmetoffice_tlad_mod.F90.
Here is the call graph for this function:
Here is the caller graph for this function:
◆ ufo_gnssro_bendmetoffice_setup()
| subroutine ufo_gnssro_bendmetoffice_tlad_mod::ufo_gnssro_bendmetoffice_setup | ( | class(ufo_gnssro_bendmetoffice_tlad), intent(inout) | self, |
| type(fckit_configuration), intent(in) | f_conf | ||
| ) |
Definition at line 48 of file ufo_gnssro_bendmetoffice_tlad_mod.F90.
◆ ufo_gnssro_bendmetoffice_simobs_ad()
| subroutine ufo_gnssro_bendmetoffice_tlad_mod::ufo_gnssro_bendmetoffice_simobs_ad | ( | class(ufo_gnssro_bendmetoffice_tlad), intent(in) | self, |
| type(ufo_geovals), intent(inout) | geovals, | ||
| real(kind_real), dimension(:), intent(in) | hofx, | ||
| type(c_ptr), intent(in), value | obss | ||
| ) |
Definition at line 243 of file ufo_gnssro_bendmetoffice_tlad_mod.F90.
Here is the call graph for this function:
◆ ufo_gnssro_bendmetoffice_simobs_tl()
| subroutine ufo_gnssro_bendmetoffice_tlad_mod::ufo_gnssro_bendmetoffice_simobs_tl | ( | class(ufo_gnssro_bendmetoffice_tlad), intent(in) | self, |
| type(ufo_geovals), intent(in) | geovals, | ||
| real(kind_real), dimension(:), intent(inout) | hofx, | ||
| type(c_ptr), intent(in), value | obss | ||
| ) |
Definition at line 178 of file ufo_gnssro_bendmetoffice_tlad_mod.F90.
Here is the call graph for this function:
◆ ufo_gnssro_bendmetoffice_tlad_delete()
| subroutine ufo_gnssro_bendmetoffice_tlad_mod::ufo_gnssro_bendmetoffice_tlad_delete | ( | class(ufo_gnssro_bendmetoffice_tlad), intent(inout) | self | ) |
Definition at line 327 of file ufo_gnssro_bendmetoffice_tlad_mod.F90.
◆ ufo_gnssro_bendmetoffice_tlad_settraj()
| subroutine ufo_gnssro_bendmetoffice_tlad_mod::ufo_gnssro_bendmetoffice_tlad_settraj | ( | class(ufo_gnssro_bendmetoffice_tlad), intent(inout) | self, |
| type(ufo_geovals), intent(in) | geovals, | ||
| type(c_ptr), intent(in), value | obss | ||
| ) |
Definition at line 65 of file ufo_gnssro_bendmetoffice_tlad_mod.F90.
Here is the call graph for this function:
Variable Documentation
◆ max_string
| integer, parameter ufo_gnssro_bendmetoffice_tlad_mod::max_string =800 |
Definition at line 25 of file ufo_gnssro_bendmetoffice_tlad_mod.F90.
