ESMF_TestHarnessTypesMod Module


Uses


Variables

Type Visibility Attributes Name Initial
integer, public, parameter :: HarnessTest_FAILURE = 1001
integer, public, parameter :: HarnessTest_SUCCESS = 1000
integer, public, parameter :: HarnessTest_UNDEFINED = 1002
integer, public, parameter :: Harness_2ndConservRegrid = 5
integer, public, parameter :: Harness_ArbitraryDist = 103
integer, public, parameter :: Harness_BilinearRegrid = 2
integer, public, parameter :: Harness_BlockDist = 101
integer, public, parameter :: Harness_ConservRegrid = 4
integer, public, parameter :: Harness_CyclicDist = 102
integer, public, parameter :: Harness_DistError = 100
integer, public, parameter :: Harness_Error = 0
integer, public, parameter :: Harness_ExchangeRegrid = 6
integer, public, parameter :: Harness_GridError = 200
integer, public, parameter :: Harness_Max_Size = 9000
integer, public, parameter :: Harness_NearNeighRegrid = 7
integer, public, parameter :: Harness_PatchRegrid = 3
integer, public, parameter :: Harness_Redist = 1
integer, public, parameter :: Harness_SphericalGrid = 202
integer, public, parameter :: Harness_TensorGrid = 201
integer, public, parameter :: Harness_UnstructuredGrid = 203
integer, public, parameter :: Harness_UserProvRegrid = 8
integer, public, parameter :: Harness_rootPet = 0
integer, public, parameter :: THARN_MAXSTR = ESMF_MAXSTR
logical, public, parameter :: debug_flag = .false.
real(kind=ESMF_KIND_R8), public, parameter :: DtoR = pi/180.0
real(kind=ESMF_KIND_R8), public, parameter :: RtoD = 180.0/pi
real(kind=ESMF_KIND_R8), public, parameter :: bignum = 1.e+20
real(kind=ESMF_KIND_R8), public, parameter :: five = 5.0
real(kind=ESMF_KIND_R8), public, parameter :: four = 4.0
real(kind=ESMF_KIND_R8), public, parameter :: half = 0.5
real(kind=ESMF_KIND_R8), public, parameter :: one = 1.0
real(kind=ESMF_KIND_R8), public, parameter :: pi = 3.14159265359
real(kind=ESMF_KIND_R8), public, parameter :: pi2 = two*pi
real(kind=ESMF_KIND_R8), public, parameter :: pih = half*pi
real(kind=ESMF_KIND_R8), public, parameter :: quart = 0.25
real(kind=ESMF_KIND_R8), public, parameter :: three = 3.0
real(kind=ESMF_KIND_R8), public, parameter :: tiny = 1.e-14
real(kind=ESMF_KIND_R8), public, parameter :: two = 2.0
real(kind=ESMF_KIND_R8), public, parameter :: zero = 0.0

Derived Types

type, public ::  character_array

Components

Type Visibility Attributes Name Initial
character(len=THARN_MAXSTR), public :: string

type, public ::  dist_record

Components

Type Visibility Attributes Name Initial
character(len=THARN_MAXSTR), public :: filename
integer, public :: nDspecs
type(dist_specification_record), public, pointer :: dst_dist(:)
type(dist_specification_record), public, pointer :: src_dist(:)

type, public ::  dist_specification_record

Components

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

type, public ::  grid_record

Components

Type Visibility Attributes Name Initial
character(len=THARN_MAXSTR), public :: filename
integer, public :: nGspecs
type(grid_specification_record), public, pointer :: dst_grid(:)
type(grid_specification_record), public, pointer :: src_grid(:)
type(test_function_record), public, pointer :: testfunction(:)

type, public ::  grid_specification_record

Components

Type Visibility Attributes Name Initial
integer, public :: grank
integer, public, pointer :: gsize(:)
real(kind=ESMF_KIND_R8), public, pointer :: grange(:,:)
type(character_array), public, pointer :: gtype(:)
type(character_array), public, pointer :: gunits(:)

type, public ::  harness_descriptor

Components

Type Visibility Attributes Name Initial
character(len=THARN_MAXSTR), public :: configPath
character(len=THARN_MAXSTR), public :: reportType
character(len=THARN_MAXSTR), public :: setupReportType
character(len=THARN_MAXSTR), public :: testClass
character(len=THARN_MAXSTR), public :: topFname
integer, public :: failures
integer, public :: numRecords
type(problem_descriptor_records), public, pointer :: rcrd(:)

type, public ::  memory_config

Components

Type Visibility Attributes Name Initial
character(len=THARN_MAXSTR), public :: string
integer, public, pointer :: DistOrder(:)
integer, public :: DistRank
integer, public, pointer :: GridOrder(:)
integer, public :: GridRank
integer, public, pointer :: HaloL(:)
integer, public, pointer :: HaloR(:)
integer, public, pointer :: StagLoc(:)
integer, public :: memRank
type(character_array), public, pointer :: DistType(:)
type(character_array), public, pointer :: GridType(:)

type, public ::  name_record

Components

Type Visibility Attributes Name Initial
character(len=THARN_MAXSTR), public :: descriptor
character(len=THARN_MAXSTR), public :: flags
integer, public :: value

type, public ::  problem_descriptor_records

Components

Type Visibility Attributes Name Initial
character(len=THARN_MAXSTR), public :: filename
integer, public :: numStrings
type(problem_descriptor_strings), public, pointer :: str(:)

type, public ::  problem_descriptor_strings

Components

Type Visibility Attributes Name Initial
character(len=THARN_MAXSTR), public :: pds
integer, public :: nDfiles
integer, public :: nGfiles
type(dist_record), public, pointer :: Dfiles(:)
type(grid_record), public, pointer :: Gfiles(:)
type(memory_config), public :: DstMem
type(memory_config), public :: SrcMem
type(process_record), public :: process
type(sized_char_array), public :: classfile
type(test_record), public, pointer :: test_record(:,:)

type, public ::  process_record

Components

Type Visibility Attributes Name Initial
character(len=THARN_MAXSTR), public :: string
integer, public :: tag

type, public ::  sized_char_array

Components

Type Visibility Attributes Name Initial
integer, public :: tagsize
type(character_array), public, pointer :: tag(:)

type, public ::  test_function_record

Components

Type Visibility Attributes Name Initial
character(len=THARN_MAXSTR), public :: string
integer, public :: prank
real(kind=ESMF_KIND_R8), public, pointer :: param(:)

type, public ::  test_record

Components

Type Visibility Attributes Name Initial
integer, public, pointer :: test_status(:,:)
type(character_array), public, pointer :: test_string(:,:)