field_utils_setup Module


Uses

  • module~~field_utils_setup~~UsesGraph module~field_utils_setup field_utils_setup ESMF ESMF module~field_utils_setup->ESMF funit funit module~field_utils_setup->funit module~mapl_exceptionhandling MAPL_ExceptionHandling module~field_utils_setup->module~mapl_exceptionhandling module~mapl_errorhandlingmod MAPL_ErrorHandlingMod module~mapl_exceptionhandling->module~mapl_errorhandlingmod module~mapl_throwmod MAPL_ThrowMod module~mapl_exceptionhandling->module~mapl_throwmod module~mapl_errorhandlingmod->module~mapl_throwmod mpi mpi module~mapl_errorhandlingmod->mpi

Used by

  • module~~field_utils_setup~~UsedByGraph module~field_utils_setup field_utils_setup module~test_fieldarithmetic Test_FieldArithmetic module~test_fieldarithmetic->module~field_utils_setup module~test_fieldblas Test_FieldBLAS module~test_fieldblas->module~field_utils_setup

Variables

Type Visibility Attributes Name Initial
integer, public, parameter :: DIMR4_DEFAULT(*) = [4, 4]
integer, public, parameter :: DIMR8_DEFAULT(*) = [4, 4]
integer, public, parameter :: MAX_INDEX_DEFAULT(*) = [4, 4]
integer, public, parameter :: MIN_INDEX_DEFAULT(*) = [1, 1]
integer, public, parameter :: REG_DECOMP_DEFAULT(*) = [2, 2]
integer, public, parameter :: SIZE_R4 = 16
integer, public, parameter :: SIZE_R8 = 16
integer, public :: i
real(kind=ESMF_KIND_R4), public, parameter :: R4_ARRAY_DEFAULT(*,*) = reshape([(i, i=1, SIZE_R4)], DIMR4_DEFAULT)
real(kind=ESMF_KIND_R8), public, parameter :: R8_ARRAY_DEFAULT(*,*) = reshape([(i, i=1, SIZE_R8)], DIMR8_DEFAULT)
real, public, parameter :: undef = 42.0
type(ESMF_Field), public :: XR4
type(ESMF_Field), public :: XR4_3D
type(ESMF_Field), public :: XR8
type(ESMF_Field), public :: XR8_3D
type(ESMF_Field), public :: YR4
type(ESMF_Field), public :: YR4_3D
type(ESMF_Field), public :: YR8
type(ESMF_Field), public :: YR8_3D
type(ESMF_Index_Flag), public, parameter :: INDEX_FLAG_DEFAULT = ESMF_INDEX_DELOCAL

Interfaces

public interface initialize_array

  • public subroutine initialize_array_R4(x, xmin, xrange)

    Arguments

    Type IntentOptional Attributes Name
    real(kind=ESMF_KIND_R4), intent(inout) :: x(:,:)
    real(kind=ESMF_KIND_R4), intent(in) :: xmin
    real(kind=ESMF_KIND_R4), intent(in) :: xrange

  • public subroutine initialize_array_R8(x, xmin, xrange)

    Arguments

    Type IntentOptional Attributes Name
    real(kind=ESMF_KIND_R8), intent(inout) :: x(:,:)
    real(kind=ESMF_KIND_R8), intent(in) :: xmin
    real(kind=ESMF_KIND_R8), intent(in) :: xrange

public interface mk_field

  • public function mk_field_r4_2d(farray, regDecomp, minIndex, maxIndex, indexflag, name, rc) result(field)

    Arguments

    Type IntentOptional Attributes Name
    real(kind=ESMF_KIND_R4), intent(in), dimension(:,:), target :: farray
    integer, intent(in), dimension(:) :: regDecomp
    integer, intent(in), dimension(:) :: minIndex
    integer, intent(in), dimension(:) :: maxIndex
    type(ESMF_Index_Flag), intent(in) :: indexflag
    character(len=*), intent(in) :: name
    integer, intent(out), optional :: rc

    Return Value type(ESMF_Field)

  • public function mk_field_r8_2d(farray, regDecomp, minIndex, maxIndex, indexflag, name, rc) result(field)

    Arguments

    Type IntentOptional Attributes Name
    real(kind=ESMF_KIND_R8), intent(in), dimension(:,:), target :: farray
    integer, intent(in), dimension(:) :: regDecomp
    integer, intent(in), dimension(:) :: minIndex
    integer, intent(in), dimension(:) :: maxIndex
    type(ESMF_Index_Flag), intent(in) :: indexflag
    character(len=*), intent(in) :: name
    integer, intent(out), optional :: rc

    Return Value type(ESMF_Field)


Functions

public elemental function are_almost_equal(x, y) result(almost_equal)

Arguments

Type IntentOptional Attributes Name
real(kind=ESMF_KIND_R8), intent(in) :: x
real(kind=ESMF_KIND_R4), intent(in) :: y

Return Value logical

public function mk_field_common(tk, regDecomp, minIndex, maxIndex, indexflag, name, ungriddedLBound, ungriddedUBound, rc) result(field)

Arguments

Type IntentOptional Attributes Name
type(ESMF_TypeKind_Flag), intent(in) :: tk
integer, intent(in), dimension(:) :: regDecomp
integer, intent(in), dimension(:) :: minIndex
integer, intent(in), dimension(:) :: maxIndex
type(ESMF_Index_Flag), intent(in) :: indexflag
character(len=*), intent(in) :: name
integer, intent(in), optional :: ungriddedLBound(:)
integer, intent(in), optional :: ungriddedUBound(:)
integer, intent(out), optional :: rc

Return Value type(ESMF_Field)

public function mk_field_r4_2d(farray, regDecomp, minIndex, maxIndex, indexflag, name, rc) result(field)

Arguments

Type IntentOptional Attributes Name
real(kind=ESMF_KIND_R4), intent(in), dimension(:,:), target :: farray
integer, intent(in), dimension(:) :: regDecomp
integer, intent(in), dimension(:) :: minIndex
integer, intent(in), dimension(:) :: maxIndex
type(ESMF_Index_Flag), intent(in) :: indexflag
character(len=*), intent(in) :: name
integer, intent(out), optional :: rc

Return Value type(ESMF_Field)

public function mk_field_r4_ungrid(regDecomp, minIndex, maxIndex, indexflag, name, ungriddedLBound, ungriddedUBound, rc) result(field)

Arguments

Type IntentOptional Attributes Name
integer, intent(in), dimension(:) :: regDecomp
integer, intent(in), dimension(:) :: minIndex
integer, intent(in), dimension(:) :: maxIndex
type(ESMF_Index_Flag), intent(in) :: indexflag
character(len=*), intent(in) :: name
integer, intent(in), optional :: ungriddedLBound(:)
integer, intent(in), optional :: ungriddedUBound(:)
integer, intent(out), optional :: rc

Return Value type(ESMF_Field)

public function mk_field_r8_2d(farray, regDecomp, minIndex, maxIndex, indexflag, name, rc) result(field)

Arguments

Type IntentOptional Attributes Name
real(kind=ESMF_KIND_R8), intent(in), dimension(:,:), target :: farray
integer, intent(in), dimension(:) :: regDecomp
integer, intent(in), dimension(:) :: minIndex
integer, intent(in), dimension(:) :: maxIndex
type(ESMF_Index_Flag), intent(in) :: indexflag
character(len=*), intent(in) :: name
integer, intent(out), optional :: rc

Return Value type(ESMF_Field)

public function mk_grid(regDecomp, minIndex, maxIndex, indexflag, grid_name, rc) result(grid)

Arguments

Type IntentOptional Attributes Name
integer, intent(in), dimension(:) :: regDecomp
integer, intent(in), dimension(:) :: minIndex
integer, intent(in), dimension(:) :: maxIndex
type(ESMF_Index_Flag), intent(in) :: indexflag
character(len=*), intent(in) :: grid_name
integer, intent(out), optional :: rc

Return Value type(ESMF_Grid)


Subroutines

public subroutine initialize_array_R4(x, xmin, xrange)

Arguments

Type IntentOptional Attributes Name
real(kind=ESMF_KIND_R4), intent(inout) :: x(:,:)
real(kind=ESMF_KIND_R4), intent(in) :: xmin
real(kind=ESMF_KIND_R4), intent(in) :: xrange

public subroutine initialize_array_R8(x, xmin, xrange)

Arguments

Type IntentOptional Attributes Name
real(kind=ESMF_KIND_R8), intent(inout) :: x(:,:)
real(kind=ESMF_KIND_R8), intent(in) :: xmin
real(kind=ESMF_KIND_R8), intent(in) :: xrange