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, vert_interp_ops, pseudo_ops, min_temp_grad) |
| 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, min_temp_grad, ro_rad_curv, latitude, ro_geoid_und, nobs, zobs, K) |
| subroutine | ops_gpsro_getk (nlevp, nRefLevels, nlevq, za, zb, model_heights, pseudo_ops, vert_interp_ops, min_temp_grad, pressure, humidity, 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) | min_temp_grad, | ||
| 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 336 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) | nlevp, |
| integer, intent(in) | nRefLevels, | ||
| integer, intent(in) | nlevq, | ||
| real(kind_real), dimension(:), intent(in) | za, | ||
| real(kind_real), dimension(:), intent(in) | zb, | ||
| real(kind_real), dimension(:), intent(in) | model_heights, | ||
| logical, intent(in) | pseudo_ops, | ||
| logical, intent(in) | vert_interp_ops, | ||
| real(kind_real), intent(in) | min_temp_grad, | ||
| real(kind_real), dimension(nlevp), intent(in) | pressure, | ||
| real(kind_real), dimension(nlevq), intent(in) | humidity, | ||
| 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(nreflevels), intent(in) | ref_model, | ||
| integer, intent(in) | nobs, | ||
| real(kind_real), dimension(:), intent(in) | zobs, | ||
| real(kind_real), dimension(nreflevels), intent(in) | nr, | ||
| real(kind_real), dimension(nobs,nlevp+nlevq), intent(out) | K | ||
| ) |
Definition at line 453 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, |
| logical(c_bool), intent(in) | vert_interp_ops, | ||
| logical(c_bool), intent(in) | pseudo_ops, | ||
| real(c_float), intent(in) | min_temp_grad | ||
| ) |
Definition at line 53 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 251 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 186 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 319 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 73 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 29 of file ufo_gnssro_bendmetoffice_tlad_mod.F90.
