mod_interp Module Reference

Data Types

type  interp_weights
 
type  r2pts
 

Functions/Subroutines

subroutine kill_weights (MYW)
 
subroutine print_weights (MYW, STR)
 
subroutine print_ptw (PTW, CNT)
 
subroutine get_loc (X_bnd, Y_bnd, msze, nsze, RSQ, MASK, X, Y, BOX, CONDITION)
 
integer function, dimension(4, 2) get_box (X, Y, NN, X_bnd, Y_bnd, err)
 
subroutine setup_interp_bilinear_a (Xin, Yin, Xout, Yout, WEIGHTS, land_mask)
 
subroutine setup_interp_bilinear_p (Xin, Yin, Xout, Yout, WEIGHTS, land_mask)
 
subroutine interp_0 (Xbox, Ybox, X, Y, wghts)
 
subroutine interp_neg (Xbox, Ybox, X, Y, wghts)
 
subroutine interp_bilinear_a (Zin, WEIGHTS, zout)
 
subroutine interp_bilinear_p (Zin, WEIGHTS, zout)
 
subroutine setup_interp_quad_a (Xin, Yin, Xout, Yout, WEIGHTS, rzero)
 
subroutine setup_interp_quad_p (Xin, Yin, Xout, Yout, WEIGHTS, rzero)
 
subroutine gen_wts (Xvec, Yvec, Xout, Yout, INDX, PTW, rzero)
 
integer function quadrant (DX, DY)
 
subroutine sortrx (N, DATA, INDX)
 
subroutine interp_quad_a (zin, Weights, zout)
 
subroutine interp_quad_p (zin, Weights, zout)
 
subroutine interp_weigh (Zvec, PTW, zval)
 

Variables

real(sp) search =80000.0_SP
 
real(sp), parameter tb_tol =1000.0_sp
 
real(sp), parameter lr_tol =1000.0_sp
 
real(sp), parameter small = 1E-6
 
integer, dimension(:), pointer n_found
 
integer, parameter type_node = 1
 
integer, parameter type_element = 2
 
type(watch) min_w
 
type(watch) box_w
 
type(watch) cond_w
 
type(watch) case_w
 
type(watch) tot_w
 

Function/Subroutine Documentation

subroutine mod_interp::gen_wts ( real(sp), dimension(:), intent(in), allocatable  Xvec,
real(sp), dimension(:), intent(in), allocatable  Yvec,
real(sp), intent(in)  Xout,
real(sp), intent(in)  Yout,
integer, dimension(:), intent(in), allocatable  INDX,
type(r2pts), intent(out)  PTW,
real(sp), optional  rzero 
)

Here is the call graph for this function:

Here is the caller graph for this function:

integer function, dimension(4,2) mod_interp::get_box ( real(sp), intent(in)  X,
real(sp), intent(in)  Y,
integer, dimension(2), intent(in)  NN,
real(sp), dimension(:,:), intent(in), pointer  X_bnd,
real(sp), dimension(:,:), intent(in), pointer  Y_bnd,
integer, intent(out)  err 
)

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine mod_interp::get_loc ( real(sp), dimension(:,:), intent(in), pointer  X_bnd,
real(sp), dimension(:,:), intent(in), pointer  Y_bnd,
integer, intent(in)  msze,
integer, intent(in)  nsze,
real(sp), dimension(:,:), pointer  RSQ,
integer, dimension(:,:), intent(in), pointer  MASK,
real(sp), intent(in)  X,
real(sp), intent(in)  Y,
integer, dimension(4,2), intent(out)  BOX,
integer, intent(out)  CONDITION 
)

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine mod_interp::interp_0 ( real(sp), dimension(4), intent(in)  Xbox,
real(sp), dimension(4), intent(in)  Ybox,
real(sp), intent(in)  X,
real(sp), intent(in)  Y,
real(sp), dimension(4), intent(out)  wghts 
)

Here is the caller graph for this function:

subroutine mod_interp::interp_bilinear_a ( real(sp), dimension(:,:), intent(in), allocatable, target  Zin,
type(interp_weights), intent(in)  WEIGHTS,
real(sp), dimension(:), intent(inout), allocatable, target  zout 
)

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine mod_interp::interp_bilinear_p ( real(sp), dimension(:,:), intent(in), pointer  Zin,
type(interp_weights), intent(in)  WEIGHTS,
real(sp), dimension(:), intent(out), pointer  zout 
)

Here is the caller graph for this function:

subroutine mod_interp::interp_neg ( real(sp), dimension(4), intent(in)  Xbox,
real(sp), dimension(4), intent(in)  Ybox,
real(sp), intent(in)  X,
real(sp), intent(in)  Y,
real(sp), dimension(4), intent(out)  wghts 
)

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine mod_interp::interp_quad_a ( real(sp), dimension(:), intent(in), allocatable, target  zin,
type(interp_weights), intent(in)  Weights,
real(sp), dimension(:), allocatable, target  zout 
)

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine mod_interp::interp_quad_p ( real(sp), dimension(:), pointer  zin,
type(interp_weights), intent(in)  Weights,
real(sp), dimension(:), pointer  zout 
)

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine mod_interp::interp_weigh ( real(sp), dimension(:), intent(in), allocatable  Zvec,
type(r2pts), intent(in)  PTW,
real(sp), intent(out)  zval 
)

Here is the caller graph for this function:

subroutine mod_interp::kill_weights ( type(interp_weights), pointer  MYW)

Here is the caller graph for this function:

subroutine mod_interp::print_ptw ( type(r2pts PTW,
integer  CNT 
)

Here is the caller graph for this function:

subroutine mod_interp::print_weights ( type(interp_weights MYW,
character(len=*)  STR 
)

Here is the call graph for this function:

integer function mod_interp::quadrant ( real(sp), intent(in)  DX,
real(sp), intent(in)  DY 
)

Here is the caller graph for this function:

subroutine mod_interp::setup_interp_bilinear_a ( real(sp), dimension(:,:), intent(in), allocatable, target  Xin,
real(sp), dimension(:,:), intent(in), allocatable, target  Yin,
real(sp), dimension(:), intent(in), allocatable, target  Xout,
real(sp), dimension(:), intent(in), allocatable, target  Yout,
type(interp_weights), intent(out)  WEIGHTS,
integer, dimension(:,:), intent(in), optional, allocatable, target  land_mask 
)

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine mod_interp::setup_interp_bilinear_p ( real(sp), dimension(:,:), intent(in), pointer  Xin,
real(sp), dimension(:,:), intent(in), pointer  Yin,
real(sp), dimension(:), intent(in), pointer  Xout,
real(sp), dimension(:), intent(in), pointer  Yout,
type(interp_weights), intent(out)  WEIGHTS,
integer, dimension(:,:), intent(in), optional, pointer  land_mask 
)

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine mod_interp::setup_interp_quad_a ( real(sp), dimension(:), intent(in), allocatable, target  Xin,
real(sp), dimension(:), intent(in), allocatable, target  Yin,
real(sp), dimension(:), intent(in), allocatable, target  Xout,
real(sp), dimension(:), intent(in), allocatable, target  Yout,
type(interp_weights), intent(out)  WEIGHTS,
real(sp), optional  rzero 
)

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine mod_interp::setup_interp_quad_p ( real(sp), dimension(:), intent(in), pointer  Xin,
real(sp), dimension(:), intent(in), pointer  Yin,
real(sp), dimension(:), intent(in), pointer  Xout,
real(sp), dimension(:), intent(in), pointer  Yout,
type(interp_weights), intent(out)  WEIGHTS,
real(sp), optional  rzero 
)

Here is the call graph for this function:

Here is the caller graph for this function:

subroutine mod_interp::sortrx ( integer, intent(in)  N,
real(sp), dimension(n)  DATA,
integer, dimension(n)  INDX 
)

Here is the caller graph for this function:

Variable Documentation

type(watch) mod_interp::box_w
type(watch) mod_interp::case_w
type(watch) mod_interp::cond_w
real(sp), parameter mod_interp::lr_tol =1000.0_sp
type(watch) mod_interp::min_w
integer, dimension(:), pointer mod_interp::n_found
real(sp) mod_interp::search =80000.0_SP
real(sp), parameter mod_interp::small = 1E-6
real(sp), parameter mod_interp::tb_tol =1000.0_sp
type(watch) mod_interp::tot_w
integer, parameter mod_interp::type_element = 2
integer, parameter mod_interp::type_node = 1