FV3 Bundle
Data Types | Functions/Subroutines | Variables
type_nicas_blk Module Reference

Data Types

type  balldata_type
 
type  nicas_blk_type
 

Functions/Subroutines

subroutine balldata_alloc (balldata)
 
subroutine balldata_dealloc (balldata)
 
subroutine balldata_pack (balldata, nc1, nl1, val)
 
subroutine nicas_blk_dealloc (nicas_blk, nam, geom)
 
subroutine nicas_blk_compute_parameters (nicas_blk, mpl, rng, nam, geom, cmat_blk)
 
subroutine nicas_blk_compute_sampling (nicas_blk, mpl, rng, nam, geom, cmat_blk)
 
subroutine nicas_blk_compute_interp_h (nicas_blk, mpl, rng, nam, geom)
 
subroutine nicas_blk_compute_interp_v (nicas_blk, geom)
 
subroutine nicas_blk_compute_interp_s (nicas_blk, mpl, rng, nam, geom)
 
subroutine nicas_blk_compute_mpi_ab (nicas_blk, mpl, geom)
 
subroutine nicas_blk_compute_convol (nicas_blk, mpl, rng, nam, geom, cmat_blk)
 
subroutine nicas_blk_compute_convol_network (nicas_blk, mpl, rng, nam, geom)
 
subroutine nicas_blk_compute_convol_distance (nicas_blk, mpl, geom)
 
subroutine nicas_blk_compute_convol_weights (nicas_blk, mpl, nam, geom, ctmp)
 
subroutine nicas_blk_compute_mpi_c (nicas_blk, mpl, geom)
 
subroutine nicas_blk_compute_normalization (nicas_blk, mpl, nam, geom)
 
subroutine nicas_blk_compute_adv (nicas_blk, mpl, rng, nam, geom, cmat_blk)
 
subroutine nicas_blk_apply (nicas_blk, mpl, nam, geom, fld)
 
subroutine nicas_blk_apply_from_sqrt (nicas_blk, mpl, geom, fld)
 
subroutine nicas_blk_apply_sqrt (nicas_blk, mpl, geom, alpha, fld)
 
subroutine nicas_blk_apply_sqrt_ad (nicas_blk, mpl, geom, fld, alpha)
 
subroutine nicas_blk_apply_interp (nicas_blk, mpl, geom, alpha, fld)
 
subroutine nicas_blk_apply_interp_ad (nicas_blk, mpl, geom, fld, alpha)
 
subroutine nicas_blk_apply_interp_h (nicas_blk, mpl, geom, delta, fld)
 
subroutine nicas_blk_apply_interp_h_ad (nicas_blk, mpl, geom, fld, delta)
 
subroutine nicas_blk_apply_interp_v (nicas_blk, mpl, geom, gamma, delta)
 
subroutine nicas_blk_apply_interp_v_ad (nicas_blk, mpl, geom, delta, gamma)
 
subroutine nicas_blk_apply_interp_s (nicas_blk, mpl, alpha, gamma)
 
subroutine nicas_blk_apply_interp_s_ad (nicas_blk, mpl, gamma, alpha)
 
subroutine nicas_blk_apply_convol (nicas_blk, mpl, alpha)
 
subroutine nicas_blk_apply_adv (nicas_blk, mpl, nam, geom, fld)
 
subroutine nicas_blk_apply_adv_ad (nicas_blk, mpl, nam, geom, fld)
 
subroutine nicas_blk_apply_adv_inv (nicas_blk, mpl, nam, geom, fld)
 
subroutine nicas_blk_test_adjoint (nicas_blk, mpl, rng, nam, geom)
 
subroutine nicas_blk_test_pos_def (nicas_blk, mpl, rng, nam, geom)
 
subroutine nicas_blk_test_sqrt (nicas_blk, mpl, rng, nam, geom, bpar, io, cmat_blk)
 
subroutine nicas_blk_test_dirac (nicas_blk, mpl, nam, geom, bpar, io)
 

Variables

integer, parameter nc1max = 50000
 
logical, parameter write_grids = .false.
 
real(kind_real), parameter sqrt_r = 0.721_kind_real
 
real(kind_real), parameter sqrt_r_dble = 0.86_kind_real
 
real(kind_real), parameter sqrt_rfac = 0.9_kind_real
 
real(kind_real), parameter sqrt_coef = 0.54_kind_real
 
real(kind_real), parameter s_inf = 1.0e-2_kind_real
 
real(kind_real), parameter tol = 1.0e-3_kind_real
 
integer, parameter nitermax = 50
 
logical, parameter test_no_point = .false.
 

Function/Subroutine Documentation

◆ balldata_alloc()

subroutine type_nicas_blk::balldata_alloc ( class(balldata_type), intent(inout)  balldata)
private

Definition at line 235 of file type_nicas_blk.F90.

◆ balldata_dealloc()

subroutine type_nicas_blk::balldata_dealloc ( class(balldata_type), intent(inout)  balldata)
private

Definition at line 253 of file type_nicas_blk.F90.

◆ balldata_pack()

subroutine type_nicas_blk::balldata_pack ( class(balldata_type), intent(inout)  balldata,
integer, intent(in)  nc1,
integer, intent(in)  nl1,
real(kind_real), dimension(nc1,nl1), intent(in)  val 
)
private

Definition at line 271 of file type_nicas_blk.F90.

◆ nicas_blk_apply()

subroutine type_nicas_blk::nicas_blk_apply ( class(nicas_blk_type), intent(in)  nicas_blk,
type(mpl_type), intent(in)  mpl,
type(nam_type), intent(in)  nam,
type(geom_type), intent(in)  geom,
real(kind_real), dimension(geom%nc0a,geom%nl0), intent(inout)  fld 
)
private

Definition at line 2970 of file type_nicas_blk.F90.

◆ nicas_blk_apply_adv()

subroutine type_nicas_blk::nicas_blk_apply_adv ( class(nicas_blk_type), intent(in)  nicas_blk,
type(mpl_type), intent(in)  mpl,
type(nam_type), intent(in), target  nam,
type(geom_type), intent(in), target  geom,
real(kind_real), dimension(geom%nc0a,geom%nl0,nam%nv,nam%nts), intent(inout)  fld 
)
private

Definition at line 3417 of file type_nicas_blk.F90.

◆ nicas_blk_apply_adv_ad()

subroutine type_nicas_blk::nicas_blk_apply_adv_ad ( class(nicas_blk_type), intent(in)  nicas_blk,
type(mpl_type), intent(in)  mpl,
type(nam_type), intent(in), target  nam,
type(geom_type), intent(in), target  geom,
real(kind_real), dimension(geom%nc0a,geom%nl0,nam%nv,nam%nts), intent(inout)  fld 
)
private

Definition at line 3452 of file type_nicas_blk.F90.

◆ nicas_blk_apply_adv_inv()

subroutine type_nicas_blk::nicas_blk_apply_adv_inv ( class(nicas_blk_type), intent(in)  nicas_blk,
type(mpl_type), intent(in)  mpl,
type(nam_type), intent(in), target  nam,
type(geom_type), intent(in), target  geom,
real(kind_real), dimension(geom%nc0a,geom%nl0,nam%nv,nam%nts), intent(inout)  fld 
)
private

Definition at line 3487 of file type_nicas_blk.F90.

◆ nicas_blk_apply_convol()

subroutine type_nicas_blk::nicas_blk_apply_convol ( class(nicas_blk_type), intent(in)  nicas_blk,
type(mpl_type), intent(in)  mpl,
real(kind_real), dimension(nicas_blk%nsc), intent(inout)  alpha 
)
private

Definition at line 3399 of file type_nicas_blk.F90.

◆ nicas_blk_apply_from_sqrt()

subroutine type_nicas_blk::nicas_blk_apply_from_sqrt ( class(nicas_blk_type), intent(in)  nicas_blk,
type(mpl_type), intent(in)  mpl,
type(geom_type), intent(in)  geom,
real(kind_real), dimension(geom%nc0a,geom%nl0), intent(inout)  fld 
)
private

Definition at line 3023 of file type_nicas_blk.F90.

◆ nicas_blk_apply_interp()

subroutine type_nicas_blk::nicas_blk_apply_interp ( class(nicas_blk_type), intent(in)  nicas_blk,
type(mpl_type), intent(in)  mpl,
type(geom_type), intent(in)  geom,
real(kind_real), dimension(nicas_blk%nsb), intent(in)  alpha,
real(kind_real), dimension(geom%nc0a,geom%nl0), intent(out)  fld 
)
private

Definition at line 3124 of file type_nicas_blk.F90.

◆ nicas_blk_apply_interp_ad()

subroutine type_nicas_blk::nicas_blk_apply_interp_ad ( class(nicas_blk_type), intent(in)  nicas_blk,
type(mpl_type), intent(in)  mpl,
type(geom_type), intent(in)  geom,
real(kind_real), dimension(geom%nc0a,geom%nl0), intent(in)  fld,
real(kind_real), dimension(nicas_blk%nsb), intent(out)  alpha 
)
private

Definition at line 3156 of file type_nicas_blk.F90.

◆ nicas_blk_apply_interp_h()

subroutine type_nicas_blk::nicas_blk_apply_interp_h ( class(nicas_blk_type), intent(in)  nicas_blk,
type(mpl_type), intent(in)  mpl,
type(geom_type), intent(in)  geom,
real(kind_real), dimension(nicas_blk%nc1b,geom%nl0), intent(in)  delta,
real(kind_real), dimension(geom%nc0a,geom%nl0), intent(out)  fld 
)
private

Definition at line 3189 of file type_nicas_blk.F90.

◆ nicas_blk_apply_interp_h_ad()

subroutine type_nicas_blk::nicas_blk_apply_interp_h_ad ( class(nicas_blk_type), intent(in)  nicas_blk,
type(mpl_type), intent(in)  mpl,
type(geom_type), intent(in)  geom,
real(kind_real), dimension(geom%nc0a,geom%nl0), intent(in)  fld,
real(kind_real), dimension(nicas_blk%nc1b,geom%nl0), intent(out)  delta 
)
private

Definition at line 3216 of file type_nicas_blk.F90.

◆ nicas_blk_apply_interp_s()

subroutine type_nicas_blk::nicas_blk_apply_interp_s ( class(nicas_blk_type), intent(in)  nicas_blk,
type(mpl_type), intent(in)  mpl,
real(kind_real), dimension(nicas_blk%nsb), intent(in)  alpha,
real(kind_real), dimension(nicas_blk%nc1b,nicas_blk%nl1), intent(out)  gamma 
)
private

Definition at line 3328 of file type_nicas_blk.F90.

◆ nicas_blk_apply_interp_s_ad()

subroutine type_nicas_blk::nicas_blk_apply_interp_s_ad ( class(nicas_blk_type), intent(in)  nicas_blk,
type(mpl_type), intent(in)  mpl,
real(kind_real), dimension(nicas_blk%nc1b,nicas_blk%nl1), intent(in)  gamma,
real(kind_real), dimension(nicas_blk%nsb), intent(out)  alpha 
)
private

Definition at line 3365 of file type_nicas_blk.F90.

◆ nicas_blk_apply_interp_v()

subroutine type_nicas_blk::nicas_blk_apply_interp_v ( class(nicas_blk_type), intent(in)  nicas_blk,
type(mpl_type), intent(in)  mpl,
type(geom_type), intent(in)  geom,
real(kind_real), dimension(nicas_blk%nc1b,nicas_blk%nl1), intent(in)  gamma,
real(kind_real), dimension(nicas_blk%nc1b,geom%nl0), intent(out)  delta 
)
private

Definition at line 3242 of file type_nicas_blk.F90.

◆ nicas_blk_apply_interp_v_ad()

subroutine type_nicas_blk::nicas_blk_apply_interp_v_ad ( class(nicas_blk_type), intent(in)  nicas_blk,
type(mpl_type), intent(in)  mpl,
type(geom_type), intent(in)  geom,
real(kind_real), dimension(nicas_blk%nc1b,geom%nl0), intent(in)  delta,
real(kind_real), dimension(nicas_blk%nc1b,nicas_blk%nl1), intent(out)  gamma 
)
private

Definition at line 3285 of file type_nicas_blk.F90.

◆ nicas_blk_apply_sqrt()

subroutine type_nicas_blk::nicas_blk_apply_sqrt ( class(nicas_blk_type), intent(in)  nicas_blk,
type(mpl_type), intent(in)  mpl,
type(geom_type), intent(in)  geom,
real(kind_real), dimension(nicas_blk%nsa), intent(in)  alpha,
real(kind_real), dimension(geom%nc0a,geom%nl0), intent(out)  fld 
)
private

Definition at line 3048 of file type_nicas_blk.F90.

◆ nicas_blk_apply_sqrt_ad()

subroutine type_nicas_blk::nicas_blk_apply_sqrt_ad ( class(nicas_blk_type), intent(in)  nicas_blk,
type(mpl_type), intent(in)  mpl,
type(geom_type), intent(in)  geom,
real(kind_real), dimension(geom%nc0a,geom%nl0), intent(in)  fld,
real(kind_real), dimension(nicas_blk%nsa), intent(out)  alpha 
)
private

Definition at line 3086 of file type_nicas_blk.F90.

◆ nicas_blk_compute_adv()

subroutine type_nicas_blk::nicas_blk_compute_adv ( class(nicas_blk_type), intent(inout)  nicas_blk,
type(mpl_type), intent(inout)  mpl,
type(rng_type), intent(inout)  rng,
type(nam_type), intent(in)  nam,
type(geom_type), intent(in)  geom,
type(cmat_blk_type), intent(in)  cmat_blk 
)
private

Definition at line 2742 of file type_nicas_blk.F90.

◆ nicas_blk_compute_convol()

subroutine type_nicas_blk::nicas_blk_compute_convol ( class(nicas_blk_type), intent(inout)  nicas_blk,
type(mpl_type), intent(inout)  mpl,
type(rng_type), intent(inout)  rng,
type(nam_type), intent(in)  nam,
type(geom_type), intent(in)  geom,
type(cmat_blk_type), intent(in)  cmat_blk 
)
private

Definition at line 1386 of file type_nicas_blk.F90.

◆ nicas_blk_compute_convol_distance()

subroutine type_nicas_blk::nicas_blk_compute_convol_distance ( class(nicas_blk_type), intent(inout)  nicas_blk,
type(mpl_type), intent(inout)  mpl,
type(geom_type), intent(in)  geom 
)
private

Definition at line 2127 of file type_nicas_blk.F90.

◆ nicas_blk_compute_convol_network()

subroutine type_nicas_blk::nicas_blk_compute_convol_network ( class(nicas_blk_type), intent(inout)  nicas_blk,
type(mpl_type), intent(inout)  mpl,
type(rng_type), intent(inout)  rng,
type(nam_type), intent(in)  nam,
type(geom_type), intent(in)  geom 
)
private

Definition at line 1886 of file type_nicas_blk.F90.

◆ nicas_blk_compute_convol_weights()

subroutine type_nicas_blk::nicas_blk_compute_convol_weights ( class(nicas_blk_type), intent(inout)  nicas_blk,
type(mpl_type), intent(inout)  mpl,
type(nam_type), intent(in)  nam,
type(geom_type), intent(in)  geom,
type(linop_type), intent(inout)  ctmp 
)
private

Definition at line 2272 of file type_nicas_blk.F90.

◆ nicas_blk_compute_interp_h()

subroutine type_nicas_blk::nicas_blk_compute_interp_h ( class(nicas_blk_type), intent(inout)  nicas_blk,
type(mpl_type), intent(inout)  mpl,
type(rng_type), intent(inout)  rng,
type(nam_type), intent(in)  nam,
type(geom_type), intent(in)  geom 
)
private

Definition at line 875 of file type_nicas_blk.F90.

◆ nicas_blk_compute_interp_s()

subroutine type_nicas_blk::nicas_blk_compute_interp_s ( class(nicas_blk_type), intent(inout)  nicas_blk,
type(mpl_type), intent(inout)  mpl,
type(rng_type), intent(inout)  rng,
type(nam_type), intent(in)  nam,
type(geom_type), intent(in)  geom 
)
private

Definition at line 984 of file type_nicas_blk.F90.

◆ nicas_blk_compute_interp_v()

subroutine type_nicas_blk::nicas_blk_compute_interp_v ( class(nicas_blk_type), intent(inout)  nicas_blk,
type(geom_type), intent(in)  geom 
)
private

Definition at line 905 of file type_nicas_blk.F90.

◆ nicas_blk_compute_mpi_ab()

subroutine type_nicas_blk::nicas_blk_compute_mpi_ab ( class(nicas_blk_type), intent(inout)  nicas_blk,
type(mpl_type), intent(inout)  mpl,
type(geom_type), intent(in)  geom 
)
private

Definition at line 1100 of file type_nicas_blk.F90.

◆ nicas_blk_compute_mpi_c()

subroutine type_nicas_blk::nicas_blk_compute_mpi_c ( class(nicas_blk_type), intent(inout)  nicas_blk,
type(mpl_type), intent(inout)  mpl,
type(geom_type), intent(in)  geom 
)
private

Definition at line 2381 of file type_nicas_blk.F90.

◆ nicas_blk_compute_normalization()

subroutine type_nicas_blk::nicas_blk_compute_normalization ( class(nicas_blk_type), intent(inout)  nicas_blk,
type(mpl_type), intent(inout)  mpl,
type(nam_type), intent(in)  nam,
type(geom_type), intent(in)  geom 
)
private

Definition at line 2504 of file type_nicas_blk.F90.

◆ nicas_blk_compute_parameters()

subroutine type_nicas_blk::nicas_blk_compute_parameters ( class(nicas_blk_type), intent(inout)  nicas_blk,
type(mpl_type), intent(inout)  mpl,
type(rng_type), intent(inout)  rng,
type(nam_type), intent(in)  nam,
type(geom_type), intent(in)  geom,
type(cmat_blk_type), intent(in)  cmat_blk 
)
private

Definition at line 458 of file type_nicas_blk.F90.

◆ nicas_blk_compute_sampling()

subroutine type_nicas_blk::nicas_blk_compute_sampling ( class(nicas_blk_type), intent(inout)  nicas_blk,
type(mpl_type), intent(inout)  mpl,
type(rng_type), intent(inout)  rng,
type(nam_type), intent(in)  nam,
type(geom_type), intent(in)  geom,
type(cmat_blk_type), intent(in)  cmat_blk 
)
private

Definition at line 546 of file type_nicas_blk.F90.

◆ nicas_blk_dealloc()

subroutine type_nicas_blk::nicas_blk_dealloc ( class(nicas_blk_type), intent(inout)  nicas_blk,
type(nam_type), intent(in), target  nam,
type(geom_type), intent(in), target  geom 
)
private

Definition at line 309 of file type_nicas_blk.F90.

◆ nicas_blk_test_adjoint()

subroutine type_nicas_blk::nicas_blk_test_adjoint ( class(nicas_blk_type), intent(in)  nicas_blk,
type(mpl_type), intent(inout)  mpl,
type(rng_type), intent(inout)  rng,
type(nam_type), intent(in)  nam,
type(geom_type), intent(in)  geom 
)
private

Definition at line 3522 of file type_nicas_blk.F90.

◆ nicas_blk_test_dirac()

subroutine type_nicas_blk::nicas_blk_test_dirac ( class(nicas_blk_type), intent(in)  nicas_blk,
type(mpl_type), intent(inout)  mpl,
type(nam_type), intent(in)  nam,
type(geom_type), intent(in)  geom,
type(bpar_type), intent(in)  bpar,
type(io_type), intent(in)  io 
)
private

Definition at line 3896 of file type_nicas_blk.F90.

◆ nicas_blk_test_pos_def()

subroutine type_nicas_blk::nicas_blk_test_pos_def ( class(nicas_blk_type), intent(in)  nicas_blk,
type(mpl_type), intent(in)  mpl,
type(rng_type), intent(inout)  rng,
type(nam_type), intent(in)  nam,
type(geom_type), intent(in)  geom 
)
private

Definition at line 3728 of file type_nicas_blk.F90.

◆ nicas_blk_test_sqrt()

subroutine type_nicas_blk::nicas_blk_test_sqrt ( class(nicas_blk_type), intent(in)  nicas_blk,
type(mpl_type), intent(inout)  mpl,
type(rng_type), intent(inout)  rng,
type(nam_type), intent(inout)  nam,
type(geom_type), intent(in)  geom,
type(bpar_type), intent(in)  bpar,
type(io_type), intent(in)  io,
type(cmat_blk_type), intent(in)  cmat_blk 
)
private

Definition at line 3831 of file type_nicas_blk.F90.

Variable Documentation

◆ nc1max

integer, parameter type_nicas_blk::nc1max = 50000

Definition at line 34 of file type_nicas_blk.F90.

◆ nitermax

integer, parameter type_nicas_blk::nitermax = 50

Definition at line 42 of file type_nicas_blk.F90.

◆ s_inf

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

Definition at line 40 of file type_nicas_blk.F90.

◆ sqrt_coef

real(kind_real), parameter type_nicas_blk::sqrt_coef = 0.54_kind_real

Definition at line 39 of file type_nicas_blk.F90.

◆ sqrt_r

real(kind_real), parameter type_nicas_blk::sqrt_r = 0.721_kind_real

Definition at line 36 of file type_nicas_blk.F90.

◆ sqrt_r_dble

real(kind_real), parameter type_nicas_blk::sqrt_r_dble = 0.86_kind_real

Definition at line 37 of file type_nicas_blk.F90.

◆ sqrt_rfac

real(kind_real), parameter type_nicas_blk::sqrt_rfac = 0.9_kind_real

Definition at line 38 of file type_nicas_blk.F90.

◆ test_no_point

logical, parameter type_nicas_blk::test_no_point = .false.

Definition at line 43 of file type_nicas_blk.F90.

◆ tol

real(kind_real), parameter type_nicas_blk::tol = 1.0e-3_kind_real

Definition at line 41 of file type_nicas_blk.F90.

◆ write_grids

logical, parameter type_nicas_blk::write_grids = .false.

Definition at line 35 of file type_nicas_blk.F90.