UFO
ufo_gnssro_bendmetoffice_mod Module Reference

Fortran module for gnssro bending angle Met Office forward operator. More...

Data Types

type  ufo_gnssro_bendmetoffice
 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_simobs (self, geovals, obss, hofx, obs_diags)
 
subroutine ops_gpsro_forwardmodel (nlevp, nlevq, za, zb, pressure, humidity, GPSRO_pseudo_ops, GPSRO_vert_interp_ops, GPSRO_min_temp_grad, nobs, zobs, RO_Rad_Curv, Latitude, RO_geoid_und, ycalc, BAErr, refractivity, model_heights)
 

Detailed Description

Fortran module for gnssro bending angle Met Office forward operator.

Function/Subroutine Documentation

◆ ops_gpsro_forwardmodel()

subroutine ufo_gnssro_bendmetoffice_mod::ops_gpsro_forwardmodel ( integer, intent(in)  nlevp,
integer, intent(in)  nlevq,
real(kind_real), dimension(1:nlevp), intent(in)  za,
real(kind_real), dimension(1:nlevq), intent(in)  zb,
real(kind_real), dimension(1:nlevp), intent(in)  pressure,
real(kind_real), dimension(1:nlevq), intent(in)  humidity,
logical, intent(in)  GPSRO_pseudo_ops,
logical, intent(in)  GPSRO_vert_interp_ops,
real(kind_real), intent(in)  GPSRO_min_temp_grad,
integer, intent(in)  nobs,
real(kind_real), dimension(1:nobs), intent(in)  zobs,
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(1:nobs), intent(inout)  ycalc,
logical, intent(out)  BAErr,
real(kind_real), dimension(:), intent(inout), allocatable  refractivity,
real(kind_real), dimension(:), intent(inout), allocatable  model_heights 
)
private

Definition at line 250 of file ufo_gnssro_bendmetoffice_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_mod::ufo_gnssro_bendmetoffice_setup ( class(ufo_gnssro_bendmetoffice), 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 
)
private

Definition at line 45 of file ufo_gnssro_bendmetoffice_mod.F90.

◆ ufo_gnssro_bendmetoffice_simobs()

subroutine ufo_gnssro_bendmetoffice_mod::ufo_gnssro_bendmetoffice_simobs ( class(ufo_gnssro_bendmetoffice), intent(in)  self,
type(ufo_geovals), intent(in)  geovals,
type(c_ptr), intent(in), value  obss,
real(kind_real), dimension(:), intent(inout)  hofx,
type(ufo_geovals), intent(inout)  obs_diags 
)
private

Definition at line 63 of file ufo_gnssro_bendmetoffice_mod.F90.

Here is the call graph for this function: