decompMod Module


Uses


Variables

Type Visibility Attributes Name Initial
integer, public :: clump_pproc
integer, public, parameter :: BOUNDS_SUBGRID_GRIDCELL = 1
integer, public, parameter :: BOUNDS_SUBGRID_LANDUNIT = 2
integer, public, parameter :: BOUNDS_SUBGRID_COLUMN = 3
integer, public, parameter :: BOUNDS_SUBGRID_PATCH = 4
integer, public, parameter :: BOUNDS_SUBGRID_COHORT = 5
integer, public, parameter :: BOUNDS_LEVEL_PROC = 1
integer, public, parameter :: BOUNDS_LEVEL_CLUMP = 2
integer, public :: nclumps
integer, public :: numg
integer, public :: numl
integer, public :: numc
integer, public :: nump
integer, public :: numCohort
type(processor_type), public :: procinfo
type(clump_type), public, allocatable :: clumps(:)
type(decomp_type), public, target :: ldecomp
type(GlobalSegMap), public, target :: gsMap_lnd_gdc2glo
type(GlobalSegMap), public, target :: gsMap_gce_gdc2glo
type(GlobalSegMap), public, target :: gsMap_lun_gdc2glo
type(GlobalSegMap), public, target :: gsMap_col_gdc2glo
type(GlobalSegMap), public, target :: gsMap_patch_gdc2glo
type(GlobalSegMap), public, target :: gsMap_cohort_gdc2glo
type(GlobalSegMap), public, target :: gsMap_lnd2Dsoi_gdc2glo

Interfaces

public interface get_clump_bounds

  • private subroutine get_clump_bounds_old(n, begg, endg, begl, endl, begc, endc, begp, endp, begCohort, endCohort)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: n
    integer, intent(out) :: begg
    integer, intent(out) :: endg
    integer, intent(out) :: begl
    integer, intent(out) :: endl
    integer, intent(out) :: begc
    integer, intent(out) :: endc
    integer, intent(out) :: begp
    integer, intent(out) :: endp
    integer, intent(out) :: begCohort
    integer, intent(out) :: endCohort

  • private subroutine get_clump_bounds_new(n, bounds)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(in) :: n
    type(bounds_type), intent(out) :: bounds

public interface get_proc_bounds

  • private subroutine get_proc_bounds_old(begg, endg, begl, endl, begc, endc, begp, endp, begCohort, endCohort)

    Arguments

    Type IntentOptional Attributes Name
    integer, intent(out), optional :: begg
    integer, intent(out), optional :: endg
    integer, intent(out), optional :: begl
    integer, intent(out), optional :: endl
    integer, intent(out), optional :: begc
    integer, intent(out), optional :: endc
    integer, intent(out), optional :: begp
    integer, intent(out), optional :: endp
    integer, intent(out), optional :: begCohort
    integer, intent(out), optional :: endCohort

  • private subroutine get_proc_bounds_new(bounds)

    Arguments

    Type IntentOptional Attributes Name
    type(bounds_type), intent(out) :: bounds

Derived Types

type, public ::  bounds_type

Components

Type Visibility Attributes Name Initial
integer, public :: begg
integer, public :: endg
integer, public :: begl
integer, public :: endl
integer, public :: begc
integer, public :: endc
integer, public :: begp
integer, public :: endp
integer, public :: begCohort
integer, public :: endCohort
integer, public :: level
integer, public :: clump_index

type, public ::  processor_type

Components

Type Visibility Attributes Name Initial
integer, public :: nclumps
integer, public, pointer :: cid(:)
integer, public :: ncells
integer, public :: nlunits
integer, public :: ncols
integer, public :: npatches
integer, public :: nCohorts
integer, public :: begg
integer, public :: endg
integer, public :: begl
integer, public :: endl
integer, public :: begc
integer, public :: endc
integer, public :: begp
integer, public :: endp
integer, public :: begCohort
integer, public :: endCohort

type, public ::  clump_type

Components

Type Visibility Attributes Name Initial
integer, public :: owner
integer, public :: ncells
integer, public :: nlunits
integer, public :: ncols
integer, public :: npatches
integer, public :: nCohorts
integer, public :: begg
integer, public :: endg
integer, public :: begl
integer, public :: endl
integer, public :: begc
integer, public :: endc
integer, public :: begp
integer, public :: endp
integer, public :: begCohort
integer, public :: endCohort

type, public ::  decomp_type

Components

Type Visibility Attributes Name Initial
integer, public, pointer :: gdc2glo(:)

Functions

public pure function get_beg(bounds, subgrid_level) result(beg_index)

Arguments

Type IntentOptional Attributes Name
type(bounds_type), intent(in) :: bounds
integer, intent(in) :: subgrid_level

Return Value integer

public pure function get_end(bounds, subgrid_level) result(end_index)

Arguments

Type IntentOptional Attributes Name
type(bounds_type), intent(in) :: bounds
integer, intent(in) :: subgrid_level

Return Value integer

public function get_proc_clumps()

Arguments

None

Return Value integer

public function get_clmlevel_gsize(clmlevel)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: clmlevel

Return Value integer


Subroutines

public subroutine get_proc_total(pid, ncells, nlunits, ncols, npatches, nCohorts)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: pid
integer, intent(out) :: ncells
integer, intent(out) :: nlunits
integer, intent(out) :: ncols
integer, intent(out) :: npatches
integer, intent(out) :: nCohorts

public subroutine get_proc_global(ng, nl, nc, np, nCohorts)

Arguments

Type IntentOptional Attributes Name
integer, intent(out), optional :: ng
integer, intent(out), optional :: nl
integer, intent(out), optional :: nc
integer, intent(out), optional :: np
integer, intent(out), optional :: nCohorts

public subroutine get_clmlevel_gsmap(clmlevel, gsmap)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: clmlevel
type(GlobalSegMap), pointer :: gsmap