SABER
tools_func.F90 File Reference

Go to the source code of this file.

Data Types

interface  tools_func::c_fletcher32
 

Modules

module  tools_func
 Usual functions.
 

Functions/Subroutines

integer function, public tools_func::fletcher32 (var)
 Fletcher-32 checksum algorithm. More...
 
subroutine, public tools_func::lonlatmod (lon, lat)
 Set latitude between -pi/2 and pi/2 and longitude between -pi and pi. More...
 
real(kind_real) function, public tools_func::lonlathash (lon, lat, il)
 Define a unique real from a lon/lat pair. More...
 
subroutine, public tools_func::sphere_dist (lon_i, lat_i, lon_f, lat_f, dist)
 Compute the great-circle distance between two points. More...
 
subroutine, public tools_func::reduce_arc (lon_i, lat_i, lon_f, lat_f, maxdist, dist)
 Reduce arc to a given distance. More...
 
subroutine, public tools_func::lonlat2xyz (mpl, lon, lat, x, y, z)
 Convert longitude/latitude to cartesian coordinates. More...
 
subroutine, public tools_func::xyz2lonlat (mpl, x, y, z, lon, lat)
 Convert longitude/latitude to cartesian coordinates. More...
 
subroutine, public tools_func::vector_product (v1, v2, vp)
 Compute normalized vector product. More...
 
subroutine, public tools_func::vector_triple_product (v1, v2, v3, p, cflag)
 Compute vector triple product. More...
 
subroutine, public tools_func::add (mpl, val, cumul, num, wgt)
 Check if value missing and add if not missing. More...
 
subroutine, public tools_func::divide (mpl, val, num)
 Check if value missing and divide if not missing. More...
 
subroutine, public tools_func::fit_diag (mpl, nc3, nl0r, nl0, l0rl0_to_l0, disth, distv, coef, rh, rv, fit)
 Compute diagnostic fit function. More...
 
real(kind_real) function tools_func::gc99 (distnorm)
 Gaspari and Cohn (1999) function, with the support radius as a parameter. More...
 
real(kind_real) function, public tools_func::fit_func (mpl, distnorm)
 Fit_function. More...
 
subroutine, public tools_func::fit_lct (mpl, nc, nl0, dxsq, dysq, dxdy, dzsq, dmask, nscales, D, coef, fit)
 LCT fit. More...
 
subroutine, public tools_func::lct_d2h (mpl, D11, D22, D33, D12, H11, H22, H33, H12)
 From D (Daley tensor) to H (local correlation tensor) More...
 
subroutine, public tools_func::lct_h2r (mpl, H11, H22, H33, H12, rh, rv)
 From H (local correlation tensor) to support radii. More...
 
subroutine, public tools_func::lct_r2d (r, D)
 From support radius to Daley tensor diagonal element. More...
 
subroutine, public tools_func::check_cond (d1, d2, nod, valid)
 Check tensor conditioning. More...
 
real(kind_real) function tools_func::matern (mpl, M, x)
 Compute the normalized diffusion function from eq. (55) of Mirouze and Weaver (2013), for the 3d case (d = 3) More...
 
subroutine, public tools_func::cholesky (mpl, n, a, u, ierr)
 Compute cholesky decomposition. More...
 
subroutine, public tools_func::syminv (mpl, n, a, c, ierr)
 Compute inverse of a symmetric matrix. More...
 
subroutine, public tools_func::pseudoinv (mpl, n, a, c, ierr, mmax, var_th)
 
subroutine tools_func::da_eof_decomposition (kz, bx, e, l, ierr)
 
subroutine, public tools_func::histogram (mpl, nlist, list, nbins, histmin, histmax, bins, hist)
 Compute bins and histogram from a list of values. More...
 

Variables

real(kind_real), parameter, public tools_func::gc2gau = 0.28
 
real(kind_real), parameter, public tools_func::gau2gc = 3.57
 
real(kind_real), parameter, public tools_func::dmin = 1.0e-12_kind_real
 
real(kind_real), parameter tools_func::condmax = 1.0e3
 
integer, parameter, public tools_func::m = 0