FV3 Bundle
tapenade_iter Module Reference

Data Types

type  cp_iter_controls_type
 
type  cp_iter_type
 
interface  popinteger
 
interface  poprealarray
 
interface  poprealarray_adm
 
interface  pushinteger
 
interface  pushrealarray
 
interface  pushrealarray_adm
 

Functions/Subroutines

subroutine, public initialize_cp_iter
 
subroutine, public finalize_cp_iter
 
subroutine, public cp_mod_ini (cp_mod_index)
 
subroutine, public cp_mod_mid
 
subroutine, public cp_mod_end
 
subroutine, public pushcontrol (ctype, field)
 
subroutine, public popcontrol (ctype, field)
 
subroutine psh_integer_k0 (field, skip)
 
subroutine psh_integer_k1 (field, dimen, skip)
 
subroutine pop_integer_k0 (field, skip)
 
subroutine pop_integer_k1 (field, dimen, skip)
 
subroutine psh_real_r4_k0 (field, skip)
 
subroutine psh_real_r4_k1 (field, dimen, skip)
 
subroutine psh_real_r4_k2 (field, dimen, skip)
 
subroutine psh_real_r4_k3 (field, dimen, skip)
 
subroutine psh_real_r4_k4 (field, dimen, skip)
 
subroutine pop_real_r4_k0 (field, skip)
 
subroutine pop_real_r4_k1 (field, dimen, skip)
 
subroutine pop_real_r4_k2 (field, dimen, skip)
 
subroutine pop_real_r4_k3 (field, dimen, skip)
 
subroutine pop_real_r4_k4 (field, dimen, skip)
 
subroutine psh_real_r8_k0 (field, skip)
 
subroutine psh_real_r8_k1 (field, dimen, skip)
 
subroutine psh_real_r8_k2 (field, dimen, skip)
 
subroutine psh_real_r8_k3 (field, dimen, skip)
 
subroutine psh_real_r8_k4 (field, dimen, skip)
 
subroutine pop_real_r8_k0 (field, skip)
 
subroutine pop_real_r8_k1 (field, dimen, skip)
 
subroutine pop_real_r8_k2 (field, dimen, skip)
 
subroutine pop_real_r8_k3 (field, dimen, skip)
 
subroutine pop_real_r8_k4 (field, dimen, skip)
 
subroutine psh_adm_real_r4_k0 (field)
 
subroutine psh_adm_real_r4_k1 (field, dimen)
 
subroutine psh_adm_real_r4_k2 (field, dimen)
 
subroutine psh_adm_real_r4_k3 (field, dimen)
 
subroutine psh_adm_real_r4_k4 (field, dimen)
 
subroutine psh_adm_real_r8_k0 (field)
 
subroutine psh_adm_real_r8_k1 (field, dimen)
 
subroutine psh_adm_real_r8_k2 (field, dimen)
 
subroutine psh_adm_real_r8_k3 (field, dimen)
 
subroutine psh_adm_real_r8_k4 (field, dimen)
 
subroutine pop_adm_real_r4_k0 (field)
 
subroutine pop_adm_real_r4_k1 (field, dimen)
 
subroutine pop_adm_real_r4_k2 (field, dimen)
 
subroutine pop_adm_real_r4_k3 (field, dimen)
 
subroutine pop_adm_real_r4_k4 (field, dimen)
 
subroutine pop_adm_real_r8_k0 (field)
 
subroutine pop_adm_real_r8_k1 (field, dimen)
 
subroutine pop_adm_real_r8_k2 (field, dimen)
 
subroutine pop_adm_real_r8_k3 (field, dimen)
 
subroutine pop_adm_real_r8_k4 (field, dimen)
 

Variables

type(cp_iter_controls_type), target, public cp_iter_controls
 
integer, parameter idx_control = 1
 
integer, parameter idx_integer = 2
 
integer, parameter idx_real_r4 = 3
 
integer, parameter idx_real_r8 = 4
 
integer, parameter total_types = 4
 
integer, parameter status_kind = 1
 
logical, save cp_iter_initialized = .false.
 
logical, save cp_iter_finalized = .false.
 
type(cp_iter_type), dimension(:), allocatable, target, public cp_iter
 
type(cp_iter_type), pointer am
 
real(8), parameter b2mb = 9.536743164062500d-7
 
real(8), parameter b2gb = 9.313225746154785d-10
 
integer(8), dimension(total_typescount_psh_mid
 
integer, pointer cp_nt
 
integer, pointer cp_i
 
integer, pointer cp_t
 
integer, pointer cp_nm
 
real, pointer cp_gb
 
logical, save root_pe = .false.
 

Function/Subroutine Documentation

◆ cp_mod_end()

subroutine, public tapenade_iter::cp_mod_end ( )

Definition at line 446 of file tapenade_iter.F90.

◆ cp_mod_ini()

subroutine, public tapenade_iter::cp_mod_ini ( integer, intent(in)  cp_mod_index)

Definition at line 278 of file tapenade_iter.F90.

Here is the call graph for this function:
Here is the caller graph for this function:

◆ cp_mod_mid()

subroutine, public tapenade_iter::cp_mod_mid ( )

Definition at line 390 of file tapenade_iter.F90.

Here is the caller graph for this function:

◆ finalize_cp_iter()

subroutine, public tapenade_iter::finalize_cp_iter ( )

Definition at line 256 of file tapenade_iter.F90.

◆ initialize_cp_iter()

subroutine, public tapenade_iter::initialize_cp_iter ( )

Definition at line 206 of file tapenade_iter.F90.

Here is the caller graph for this function:

◆ pop_adm_real_r4_k0()

subroutine tapenade_iter::pop_adm_real_r4_k0 ( real(4), intent(inout)  field)
private

Definition at line 2407 of file tapenade_iter.F90.

Here is the call graph for this function:

◆ pop_adm_real_r4_k1()

subroutine tapenade_iter::pop_adm_real_r4_k1 ( real(4), dimension(:), intent(inout)  field,
integer, intent(in)  dimen 
)
private

Definition at line 2417 of file tapenade_iter.F90.

Here is the call graph for this function:

◆ pop_adm_real_r4_k2()

subroutine tapenade_iter::pop_adm_real_r4_k2 ( real(4), dimension(:,:), intent(inout)  field,
integer, intent(in)  dimen 
)
private

Definition at line 2429 of file tapenade_iter.F90.

Here is the call graph for this function:

◆ pop_adm_real_r4_k3()

subroutine tapenade_iter::pop_adm_real_r4_k3 ( real(4), dimension(:,:,:), intent(inout)  field,
integer, intent(in)  dimen 
)
private

Definition at line 2441 of file tapenade_iter.F90.

Here is the call graph for this function:

◆ pop_adm_real_r4_k4()

subroutine tapenade_iter::pop_adm_real_r4_k4 ( real(4), dimension(:,:,:,:), intent(inout)  field,
integer, intent(in)  dimen 
)
private

Definition at line 2453 of file tapenade_iter.F90.

Here is the call graph for this function:

◆ pop_adm_real_r8_k0()

subroutine tapenade_iter::pop_adm_real_r8_k0 ( real(8), intent(inout)  field)
private

Definition at line 2464 of file tapenade_iter.F90.

Here is the call graph for this function:

◆ pop_adm_real_r8_k1()

subroutine tapenade_iter::pop_adm_real_r8_k1 ( real(8), dimension(:), intent(inout)  field,
integer, intent(in)  dimen 
)
private

Definition at line 2474 of file tapenade_iter.F90.

Here is the call graph for this function:

◆ pop_adm_real_r8_k2()

subroutine tapenade_iter::pop_adm_real_r8_k2 ( real(8), dimension(:,:), intent(inout)  field,
integer, intent(in)  dimen 
)
private

Definition at line 2486 of file tapenade_iter.F90.

Here is the call graph for this function:

◆ pop_adm_real_r8_k3()

subroutine tapenade_iter::pop_adm_real_r8_k3 ( real(8), dimension(:,:,:), intent(inout)  field,
integer, intent(in)  dimen 
)
private

Definition at line 2498 of file tapenade_iter.F90.

Here is the call graph for this function:

◆ pop_adm_real_r8_k4()

subroutine tapenade_iter::pop_adm_real_r8_k4 ( real(8), dimension(:,:,:,:), intent(inout)  field,
integer, intent(in)  dimen 
)
private

Definition at line 2510 of file tapenade_iter.F90.

Here is the call graph for this function:

◆ pop_integer_k0()

subroutine tapenade_iter::pop_integer_k0 ( integer, intent(inout)  field,
logical, intent(in), optional  skip 
)
private

Definition at line 1092 of file tapenade_iter.F90.

Here is the call graph for this function:

◆ pop_integer_k1()

subroutine tapenade_iter::pop_integer_k1 ( integer, dimension(dimen), intent(inout)  field,
integer, intent(in)  dimen,
logical, intent(in), optional  skip 
)
private

Definition at line 1149 of file tapenade_iter.F90.

Here is the call graph for this function:

◆ pop_real_r4_k0()

subroutine tapenade_iter::pop_real_r4_k0 ( real(4), intent(inout)  field,
logical, intent(in), optional  skip 
)
private

Definition at line 1442 of file tapenade_iter.F90.

Here is the call graph for this function:

◆ pop_real_r4_k1()

subroutine tapenade_iter::pop_real_r4_k1 ( real(4), dimension(dimen), intent(inout)  field,
integer, intent(in)  dimen,
logical, intent(in), optional  skip 
)
private

Definition at line 1499 of file tapenade_iter.F90.

Here is the call graph for this function:

◆ pop_real_r4_k2()

subroutine tapenade_iter::pop_real_r4_k2 ( real(4), dimension(:,:), intent(inout)  field,
integer, intent(in)  dimen,
logical, intent(in), optional  skip 
)
private

Definition at line 1561 of file tapenade_iter.F90.

Here is the call graph for this function:

◆ pop_real_r4_k3()

subroutine tapenade_iter::pop_real_r4_k3 ( real(4), dimension(:,:,:), intent(inout)  field,
integer, intent(in)  dimen,
logical, intent(in), optional  skip 
)
private

Definition at line 1624 of file tapenade_iter.F90.

Here is the call graph for this function:

◆ pop_real_r4_k4()

subroutine tapenade_iter::pop_real_r4_k4 ( real(4), dimension(:,:,:,:), intent(inout)  field,
integer, intent(in)  dimen,
logical, intent(in), optional  skip 
)
private

Definition at line 1687 of file tapenade_iter.F90.

Here is the call graph for this function:

◆ pop_real_r8_k0()

subroutine tapenade_iter::pop_real_r8_k0 ( real(8), intent(inout)  field,
logical, intent(in), optional  skip 
)
private

Definition at line 1985 of file tapenade_iter.F90.

Here is the call graph for this function:

◆ pop_real_r8_k1()

subroutine tapenade_iter::pop_real_r8_k1 ( real(8), dimension(dimen), intent(inout)  field,
integer, intent(in)  dimen,
logical, intent(in), optional  skip 
)
private

Definition at line 2042 of file tapenade_iter.F90.

Here is the call graph for this function:

◆ pop_real_r8_k2()

subroutine tapenade_iter::pop_real_r8_k2 ( real(8), dimension(:,:), intent(inout)  field,
integer, intent(in)  dimen,
logical, intent(in), optional  skip 
)
private

Definition at line 2104 of file tapenade_iter.F90.

Here is the call graph for this function:

◆ pop_real_r8_k3()

subroutine tapenade_iter::pop_real_r8_k3 ( real(8), dimension(:,:,:), intent(inout)  field,
integer, intent(in)  dimen,
logical, intent(in), optional  skip 
)
private

Definition at line 2167 of file tapenade_iter.F90.

Here is the call graph for this function:

◆ pop_real_r8_k4()

subroutine tapenade_iter::pop_real_r8_k4 ( real(8), dimension(:,:,:,:), intent(inout)  field,
integer, intent(in)  dimen,
logical, intent(in), optional  skip 
)
private

Definition at line 2230 of file tapenade_iter.F90.

Here is the call graph for this function:

◆ popcontrol()

subroutine, public tapenade_iter::popcontrol ( integer, intent(in)  ctype,
integer, intent(inout)  field 
)

Definition at line 922 of file tapenade_iter.F90.

Here is the call graph for this function:
Here is the caller graph for this function:

◆ psh_adm_real_r4_k0()

subroutine tapenade_iter::psh_adm_real_r4_k0 ( real(4), intent(inout)  field)
private

Definition at line 2298 of file tapenade_iter.F90.

Here is the call graph for this function:

◆ psh_adm_real_r4_k1()

subroutine tapenade_iter::psh_adm_real_r4_k1 ( real(4), dimension(:), intent(inout)  field,
integer, intent(in)  dimen 
)
private

Definition at line 2307 of file tapenade_iter.F90.

Here is the call graph for this function:

◆ psh_adm_real_r4_k2()

subroutine tapenade_iter::psh_adm_real_r4_k2 ( real(4), dimension(:,:), intent(inout)  field,
integer, intent(in)  dimen 
)
private

Definition at line 2317 of file tapenade_iter.F90.

Here is the call graph for this function:

◆ psh_adm_real_r4_k3()

subroutine tapenade_iter::psh_adm_real_r4_k3 ( real(4), dimension(:,:,:), intent(inout)  field,
integer, intent(in)  dimen 
)
private

Definition at line 2328 of file tapenade_iter.F90.

Here is the call graph for this function:

◆ psh_adm_real_r4_k4()

subroutine tapenade_iter::psh_adm_real_r4_k4 ( real(4), dimension(:,:,:,:), intent(inout)  field,
integer, intent(in)  dimen 
)
private

Definition at line 2338 of file tapenade_iter.F90.

Here is the call graph for this function:

◆ psh_adm_real_r8_k0()

subroutine tapenade_iter::psh_adm_real_r8_k0 ( real(8), intent(inout)  field)
private

Definition at line 2348 of file tapenade_iter.F90.

Here is the call graph for this function:

◆ psh_adm_real_r8_k1()

subroutine tapenade_iter::psh_adm_real_r8_k1 ( real(8), dimension(:), intent(inout)  field,
integer, intent(in)  dimen 
)
private

Definition at line 2357 of file tapenade_iter.F90.

Here is the call graph for this function:

◆ psh_adm_real_r8_k2()

subroutine tapenade_iter::psh_adm_real_r8_k2 ( real(8), dimension(:,:), intent(inout)  field,
integer, intent(in)  dimen 
)
private

Definition at line 2367 of file tapenade_iter.F90.

Here is the call graph for this function:

◆ psh_adm_real_r8_k3()

subroutine tapenade_iter::psh_adm_real_r8_k3 ( real(8), dimension(:,:,:), intent(inout)  field,
integer, intent(in)  dimen 
)
private

Definition at line 2377 of file tapenade_iter.F90.

Here is the call graph for this function:

◆ psh_adm_real_r8_k4()

subroutine tapenade_iter::psh_adm_real_r8_k4 ( real(8), dimension(:,:,:,:), intent(inout)  field,
integer, intent(in)  dimen 
)
private

Definition at line 2387 of file tapenade_iter.F90.

Here is the call graph for this function:

◆ psh_integer_k0()

subroutine tapenade_iter::psh_integer_k0 ( integer, intent(in)  field,
logical, intent(in), optional  skip 
)
private

Definition at line 998 of file tapenade_iter.F90.

Here is the call graph for this function:

◆ psh_integer_k1()

subroutine tapenade_iter::psh_integer_k1 ( integer, dimension(dimen), intent(in)  field,
integer, intent(in)  dimen,
logical, intent(in), optional  skip 
)
private

Definition at line 1043 of file tapenade_iter.F90.

Here is the call graph for this function:

◆ psh_real_r4_k0()

subroutine tapenade_iter::psh_real_r4_k0 ( real(4), intent(in)  field,
logical, intent(in), optional  skip 
)
private

Definition at line 1210 of file tapenade_iter.F90.

Here is the call graph for this function:

◆ psh_real_r4_k1()

subroutine tapenade_iter::psh_real_r4_k1 ( real(4), dimension(dimen), intent(in)  field,
integer, intent(in)  dimen,
logical, intent(in), optional  skip 
)
private

Definition at line 1255 of file tapenade_iter.F90.

Here is the call graph for this function:

◆ psh_real_r4_k2()

subroutine tapenade_iter::psh_real_r4_k2 ( real(4), dimension(:,:), intent(in)  field,
integer, intent(in)  dimen,
logical, intent(in), optional  skip 
)
private

Definition at line 1301 of file tapenade_iter.F90.

Here is the call graph for this function:

◆ psh_real_r4_k3()

subroutine tapenade_iter::psh_real_r4_k3 ( real(4), dimension(:,:,:), intent(in)  field,
integer, intent(in)  dimen,
logical, intent(in), optional  skip 
)
private

Definition at line 1347 of file tapenade_iter.F90.

Here is the call graph for this function:

◆ psh_real_r4_k4()

subroutine tapenade_iter::psh_real_r4_k4 ( real(4), dimension(:,:,:,:), intent(in)  field,
integer, intent(in)  dimen,
logical, intent(in), optional  skip 
)
private

Definition at line 1393 of file tapenade_iter.F90.

Here is the call graph for this function:

◆ psh_real_r8_k0()

subroutine tapenade_iter::psh_real_r8_k0 ( real(8), intent(in)  field,
logical, intent(in), optional  skip 
)
private

Definition at line 1753 of file tapenade_iter.F90.

Here is the call graph for this function:

◆ psh_real_r8_k1()

subroutine tapenade_iter::psh_real_r8_k1 ( real(8), dimension(dimen), intent(in)  field,
integer, intent(in)  dimen,
logical, intent(in), optional  skip 
)
private

Definition at line 1798 of file tapenade_iter.F90.

Here is the call graph for this function:

◆ psh_real_r8_k2()

subroutine tapenade_iter::psh_real_r8_k2 ( real(8), dimension(:,:), intent(in)  field,
integer, intent(in)  dimen,
logical, intent(in), optional  skip 
)
private

Definition at line 1844 of file tapenade_iter.F90.

Here is the call graph for this function:

◆ psh_real_r8_k3()

subroutine tapenade_iter::psh_real_r8_k3 ( real(8), dimension(:,:,:), intent(in)  field,
integer, intent(in)  dimen,
logical, intent(in), optional  skip 
)
private

Definition at line 1890 of file tapenade_iter.F90.

Here is the call graph for this function:

◆ psh_real_r8_k4()

subroutine tapenade_iter::psh_real_r8_k4 ( real(8), dimension(:,:,:,:), intent(in)  field,
integer, intent(in)  dimen,
logical, intent(in), optional  skip 
)
private

Definition at line 1936 of file tapenade_iter.F90.

Here is the call graph for this function:

◆ pushcontrol()

subroutine, public tapenade_iter::pushcontrol ( integer, intent(in)  ctype,
integer, intent(in)  field 
)

Definition at line 861 of file tapenade_iter.F90.

Here is the call graph for this function:
Here is the caller graph for this function:

Variable Documentation

◆ am

type(cp_iter_type), pointer tapenade_iter::am
private

Definition at line 97 of file tapenade_iter.F90.

◆ b2gb

real(8), parameter tapenade_iter::b2gb = 9.313225746154785d-10
private

Definition at line 101 of file tapenade_iter.F90.

◆ b2mb

real(8), parameter tapenade_iter::b2mb = 9.536743164062500d-7
private

Definition at line 100 of file tapenade_iter.F90.

◆ count_psh_mid

integer(8), dimension(total_types) tapenade_iter::count_psh_mid
private

Definition at line 104 of file tapenade_iter.F90.

◆ cp_gb

real, pointer tapenade_iter::cp_gb
private

Definition at line 108 of file tapenade_iter.F90.

◆ cp_i

integer, pointer tapenade_iter::cp_i
private

Definition at line 107 of file tapenade_iter.F90.

◆ cp_iter

type(cp_iter_type), dimension(:), allocatable, target, public tapenade_iter::cp_iter

Definition at line 94 of file tapenade_iter.F90.

◆ cp_iter_controls

type(cp_iter_controls_type), target, public tapenade_iter::cp_iter_controls

Definition at line 29 of file tapenade_iter.F90.

◆ cp_iter_finalized

logical, save tapenade_iter::cp_iter_finalized = .false.
private

Definition at line 93 of file tapenade_iter.F90.

◆ cp_iter_initialized

logical, save tapenade_iter::cp_iter_initialized = .false.
private

Definition at line 92 of file tapenade_iter.F90.

◆ cp_nm

integer, pointer tapenade_iter::cp_nm
private

Definition at line 107 of file tapenade_iter.F90.

◆ cp_nt

integer, pointer tapenade_iter::cp_nt
private

Definition at line 107 of file tapenade_iter.F90.

◆ cp_t

integer, pointer tapenade_iter::cp_t
private

Definition at line 107 of file tapenade_iter.F90.

◆ idx_control

integer, parameter tapenade_iter::idx_control = 1
private

Definition at line 32 of file tapenade_iter.F90.

◆ idx_integer

integer, parameter tapenade_iter::idx_integer = 2
private

Definition at line 33 of file tapenade_iter.F90.

◆ idx_real_r4

integer, parameter tapenade_iter::idx_real_r4 = 3
private

Definition at line 34 of file tapenade_iter.F90.

◆ idx_real_r8

integer, parameter tapenade_iter::idx_real_r8 = 4
private

Definition at line 35 of file tapenade_iter.F90.

◆ root_pe

logical, save tapenade_iter::root_pe = .false.
private

Definition at line 113 of file tapenade_iter.F90.

◆ status_kind

integer, parameter tapenade_iter::status_kind = 1
private

Definition at line 38 of file tapenade_iter.F90.

◆ total_types

integer, parameter tapenade_iter::total_types = 4
private

Definition at line 36 of file tapenade_iter.F90.