type_linop Module Reference

Subroutines/functions list. More...

Data Types
type	linop_type

Functions/Subroutines
subroutine	linop_alloc (linop, nvec)
	Allocation. More...
subroutine	linop_dealloc (linop)
	Release memory. More...
subroutine	linop_copy (linop_out, linop_in, n_s)
	Copy. More...
subroutine	linop_read (linop, mpl, ncid)
	Read. More...
subroutine	linop_write_def (linop, mpl, ncid)
	Write, definition mode. More...
subroutine	linop_write_data (linop, mpl)
	Write, data mode. More...
subroutine	linop_buffer_size (linop, nbufi, nbufr)
	Buffer size. More...
subroutine	linop_serialize (linop, mpl, nbufi, nbufr, bufi, bufr)
	Serialize. More...
subroutine	linop_deserialize (linop, mpl, nbufi, nbufr, bufi, bufr)
	Deserialize. More...
subroutine	linop_apply (linop, mpl, fld_src, fld_dst, ivec, mssrc, msdst)
	Apply linear operator. More...
subroutine	linop_apply_ad (linop, mpl, fld_dst, fld_src, ivec)
	Apply linear operator, adjoint. More...
subroutine	linop_apply_sym (linop, mpl, fld, ivec)
	Apply linear operator, symmetric. More...
subroutine	linop_add_op (linop, n_s, row, col, S)
	Add operation. More...
subroutine	linop_gather (linop, mpl, n_s_arr, linop_arr)
	Gather data from OpenMP threads. More...
subroutine	linop_interp (linop, mpl, nam, il0, n_src, lon_src, lat_src, mask_src, mesh_src, tree_src, n_dst, lon_dst, lat_dst, mask_dst, mesh_mask, ifmt)
	Compute horizontal interpolation. More...
subroutine	linop_interp_lat (linop, mpl, n_src, lat_src, n_dst, lat_dst, mask_dst, ifmt)
	Compute horizontal interpolation (latitude bands) More...
subroutine	linop_interp_nn (linop, mpl, n_src, mask_src, tree_src, n_dst, lon_dst, lat_dst, mask_dst, ifmt)
	Compute horizontal interpolation (nearest valid neighbor) More...

Variables
logical, parameter	check_data = .false.
	Activate data check for all linear operations. More...
real(kind_real), parameter	s_inf = 1.0e-2_kind_real
	Minimum interpolation coefficient. More...

Detailed Description

Subroutines/functions list.

Instrumentation functions Linear operator derived type

Function/Subroutine Documentation

linop_add_op()

subroutine type_linop::linop_add_op ( class(linop_type), intent(inout)  linop, integer, intent(inout)  n_s, integer, intent(in)  row, integer, intent(in)  col, real(kind_real), intent(in)  S  )

private

Add operation.

Parameters

[in,out]	linop	Linear operators
[in,out]	n_s	Number of operations
[in]	row	Row index
[in]	col	Column index
[in]	s	Value

Definition at line 831 of file type_linop.F90.

linop_alloc()

subroutine type_linop::linop_alloc ( class(linop_type), intent(inout)  linop, integer, intent(in), optional  nvec  )

private

Allocation.

Parameters

[in,out]	linop	Linear operator
[in]	nvec	Size of the vector of linear operators with similar row and col

Definition at line 103 of file type_linop.F90.

linop_apply()

subroutine type_linop::linop_apply ( class(linop_type), intent(in)  linop, type(mpl_type), intent(inout)  mpl, real(kind_real), dimension(linop%n_src), intent(in)  fld_src, real(kind_real), dimension(linop%n_dst), intent(out)  fld_dst, integer, intent(in), optional  ivec, logical, intent(in), optional  mssrc, logical, intent(in), optional  msdst  )

private

Apply linear operator.

Parameters

[in]	linop	Linear operator
[in,out]	mpl	MPI data
[in]	fld_src	Source vector
[out]	fld_dst	Destination vector
[in]	ivec	Index of the vector of linear operators with similar row and col
[in]	mssrc	Check for missing source
[in]	msdst	Check for missing destination

Definition at line 536 of file type_linop.F90.

linop_apply_ad()

subroutine type_linop::linop_apply_ad ( class(linop_type), intent(in)  linop, type(mpl_type), intent(inout)  mpl, real(kind_real), dimension(linop%n_dst), intent(in)  fld_dst, real(kind_real), dimension(linop%n_src), intent(out)  fld_src, integer, intent(in), optional  ivec  )

private

Apply linear operator, adjoint.

Parameters

[in]	linop	Linear operator
[in,out]	mpl	MPI data
[in]	fld_dst	Destination vector
[out]	fld_src	Source vector
[in]	ivec	Index of the vector of linear operators with similar row and col

Definition at line 659 of file type_linop.F90.

linop_apply_sym()

subroutine type_linop::linop_apply_sym ( class(linop_type), intent(in)  linop, type(mpl_type), intent(inout)  mpl, real(kind_real), dimension(linop%n_src), intent(inout)  fld, integer, intent(in), optional  ivec  )

private

Apply linear operator, symmetric.

Parameters

[in]	linop	Linear operator
[in,out]	mpl	MPI data
[in,out]	fld	Source/destination vector
[in]	ivec	Index of the vector of linear operators with similar row and col

Definition at line 741 of file type_linop.F90.

linop_buffer_size()

subroutine type_linop::linop_buffer_size ( class(linop_type), intent(in)  linop, integer, intent(out)  nbufi, integer, intent(out)  nbufr  )

private

Buffer size.

Parameters

[in]	linop	Linear operator
[out]	nbufi	Buffer size (integer)
[out]	nbufr	Buffer size (real)

Definition at line 364 of file type_linop.F90.

linop_copy()

subroutine type_linop::linop_copy ( class(linop_type), intent(inout)  linop_out, type(linop_type), intent(in)  linop_in, integer, intent(in), optional  n_s  )

private

Copy.

Parameters

[in,out]	linop_out	Output linear operator
[in]	linop_in	Input linear operator
[in]	n_s	Number of operations to copy

Definition at line 170 of file type_linop.F90.

linop_dealloc()

subroutine type_linop::linop_dealloc ( class(linop_type), intent(inout)  linop )

private

Release memory.

Parameters

[in,out]

linop

Linear operator

Definition at line 142 of file type_linop.F90.

linop_deserialize()

subroutine type_linop::linop_deserialize ( class(linop_type), intent(inout)  linop, type(mpl_type), intent(inout)  mpl, integer, intent(in)  nbufi, integer, intent(in)  nbufr, integer, dimension(nbufi), intent(in)  bufi, real(kind_real), dimension(nbufr), intent(in)  bufr  )

private

Deserialize.

Parameters

[in,out]	linop	Linear operator
[in,out]	mpl	MPI data
[in]	nbufi	Buffer size (integer)
[in]	nbufr	Buffer size (real)
[in]	bufi	Buffer (integer)
[in]	bufr	Buffer (real)

Definition at line 463 of file type_linop.F90.

linop_gather()

subroutine type_linop::linop_gather ( class(linop_type), intent(inout)  linop, type(mpl_type), intent(inout)  mpl, integer, dimension(mpl%nthread), intent(in)  n_s_arr, type(linop_type), dimension(mpl%nthread), intent(in)  linop_arr  )

private

Gather data from OpenMP threads.

Parameters

[in,out]	linop	Linear operator
[in,out]	mpl	MPI data
[in]	n_s_arr	Number of operations
[in]	linop_arr	Linear operator array

Definition at line 885 of file type_linop.F90.

linop_interp()

subroutine type_linop::linop_interp ( class(linop_type), intent(inout)  linop, type(mpl_type), intent(inout)  mpl, type(nam_type), intent(in)  nam, integer, intent(in)  il0, integer, intent(in)  n_src, real(kind_real), dimension(n_src), intent(in)  lon_src, real(kind_real), dimension(n_src), intent(in)  lat_src, logical, dimension(n_src), intent(in)  mask_src, type(mesh_type), intent(in)  mesh_src, type(tree_type), intent(in)  tree_src, integer, intent(in)  n_dst, real(kind_real), dimension(n_dst), intent(in)  lon_dst, real(kind_real), dimension(n_dst), intent(in)  lat_dst, logical, dimension(n_dst), intent(in)  mask_dst, type(mesh_type), intent(in)  mesh_mask, integer, intent(in)  ifmt  )

private

Compute horizontal interpolation.

Parameters

[in,out]	linop	Linear operator
[in,out]	mpl	MPI data
[in]	nam	Namelist
[in]	il0	Level
[in]	n_src	Source size
[in]	lon_src	Source longitudes
[in]	lat_src	Source latitudes
[in]	mask_src	Source mask
[in]	mesh_src	Source mesh
[in]	tree_src	Source tree
[in]	n_dst	Destination size
[in]	lon_dst	Destination longitudes
[in]	lat_dst	Destination latitudes
[in]	mask_dst	Destination mask
[in]	mesh_mask	Mask checking mesh
[in]	ifmt	Format indentation

Definition at line 933 of file type_linop.F90.

Here is the caller graph for this function:

linop_interp_lat()

subroutine type_linop::linop_interp_lat ( class(linop_type), intent(inout)  linop, type(mpl_type), intent(inout)  mpl, integer, intent(in)  n_src, real(kind_real), dimension(n_src), intent(in)  lat_src, integer, intent(in)  n_dst, real(kind_real), dimension(n_dst), intent(in)  lat_dst, logical, dimension(n_dst), intent(in)  mask_dst, integer, intent(in)  ifmt  )

private

Compute horizontal interpolation (latitude bands)

Parameters

[in,out]	linop	Linear operator
[in,out]	mpl	MPI data
[in]	n_src	Source size
[in]	lat_src	Source latitudes
[in]	n_dst	Destination size
[in]	lat_dst	Destination latitudes
[in]	mask_dst	Destination mask
[in]	ifmt	Format indentation

Definition at line 1102 of file type_linop.F90.

Here is the caller graph for this function:

linop_interp_nn()

subroutine type_linop::linop_interp_nn ( class(linop_type), intent(inout)  linop, type(mpl_type), intent(inout)  mpl, integer, intent(in)  n_src, logical, dimension(n_src), intent(in)  mask_src, type(tree_type), intent(in)  tree_src, integer, intent(in)  n_dst, real(kind_real), dimension(n_dst), intent(in)  lon_dst, real(kind_real), dimension(n_dst), intent(in)  lat_dst, logical, dimension(n_dst), intent(in)  mask_dst, integer, intent(in)  ifmt  )

private

Compute horizontal interpolation (nearest valid neighbor)

Parameters

[in,out]	linop	Linear operator
[in,out]	mpl	MPI data
[in]	n_src	Source size
[in]	mask_src	Source mask
[in]	tree_src	Source tree
[in]	n_dst	Destination size
[in]	lon_dst	Destination longitudes
[in]	lat_dst	Destination latitudes
[in]	mask_dst	Destination mask
[in]	ifmt	Format indentation

Definition at line 1214 of file type_linop.F90.

Here is the caller graph for this function:

linop_read()

subroutine type_linop::linop_read ( class(linop_type), intent(inout)  linop, type(mpl_type), intent(inout)  mpl, integer, intent(in)  ncid  )

private

Read.

Parameters

[in,out]	linop	Linear operator
[in,out]	mpl	MPI data
[in]	ncid	NetCDF file

Definition at line 221 of file type_linop.F90.

linop_serialize()

subroutine type_linop::linop_serialize ( class(linop_type), intent(in)  linop, type(mpl_type), intent(inout)  mpl, integer, intent(in)  nbufi, integer, intent(in)  nbufr, integer, dimension(nbufi), intent(out)  bufi, real(kind_real), dimension(nbufr), intent(out)  bufr  )

private

Serialize.

Parameters

[in]	linop	Linear operator
[in,out]	mpl	MPI data
[in]	nbufi	Buffer size (integer)
[in]	nbufr	Buffer size (real)
[out]	bufi	Buffer (integer)
[out]	bufr	Buffer (real)

Definition at line 396 of file type_linop.F90.

linop_write_data()

subroutine type_linop::linop_write_data ( class(linop_type), intent(in)  linop, type(mpl_type), intent(inout)  mpl  )

private

Write, data mode.

Parameters

[in]	linop	Linear operator
[in,out]	mpl	MPI data

Definition at line 330 of file type_linop.F90.

linop_write_def()

subroutine type_linop::linop_write_def ( class(linop_type), intent(inout)  linop, type(mpl_type), intent(inout)  mpl, integer, intent(in)  ncid  )

private

Write, definition mode.

Parameters

[in,out]	linop	Linear operator
[in,out]	mpl	MPI data
[in]	ncid	NetCDF file

Definition at line 280 of file type_linop.F90.

Variable Documentation

check_data

logical, parameter type_linop::check_data = .false.

Activate data check for all linear operations.

Definition at line 49 of file type_linop.F90.

s_inf

real(kind_real), parameter type_linop::s_inf = 1.0e-2_kind_real

Minimum interpolation coefficient.

Definition at line 50 of file type_linop.F90.