ESMF_LogPrivate Derived Type

type, private :: ESMF_LogPrivate
sequence


Components

Type Visibility Attributes Name Initial
character(len=ESMF_MAXPATHLEN), private :: nameLogErrFile
character(len=ESMF_MAXSTR), private :: petNumLabel
integer(kind=ESMF_KIND_I8), private :: isInit = 76838410
integer, private, pointer :: errorMask(:) => null()
integer, private :: errorMaskCount = 0
integer, private :: fIndex
integer, private :: indentCount = 0
integer, private :: maxElements
integer, private :: petNumber
integer, private :: unitNumber
logical, private :: appendFlag = .true.
logical, private :: deferredOpenFlag = .false.
logical, private :: highResTimestampFlag = .false.
logical, private :: noprefix = .false.
logical, private :: pad
logical, private :: stopprogram
logical, private :: traceFlag = .false.
type(ESMF_LogEntry), private, dimension(:), pointer :: LOG_ENTRY => null()
type(ESMF_LogKind_Flag), private :: logkindflag
type(ESMF_LogMsg_Flag), private, pointer :: logmsgAbort(:) => null()
type(ESMF_LogMsg_Flag), private, pointer :: logmsgList(:) => null()
type(ESMF_Logical), private :: FileIsOpen = ESMF_FALSE
type(ESMF_Logical), private :: dirty
type(ESMF_Logical), private :: flushImmediately
type(ESMF_Logical), private :: flushed

Source Code

type ESMF_LogPrivate
    private
#ifndef ESMF_NO_SEQUENCE
    sequence
#endif
    integer                                         ::  maxElements
    integer                                         ::  fIndex
    integer                                         ::  unitNumber
    integer                                         ::  petNumber
    logical                                         ::  stopprogram
    logical                                         ::  pad ! memory alignment
    type(ESMF_Logical)                              ::  flushImmediately
    type(ESMF_Logical)                              ::  flushed
    type(ESMF_Logical)                              ::  dirty
    type(ESMF_LogKind_Flag)                         ::  logkindflag
#ifndef ESMF_NO_INITIALIZERS
    type(ESMF_LogEntry), dimension(:),pointer       ::  LOG_ENTRY   => null ()
    type(ESMF_Logical)                              ::  FileIsOpen  = ESMF_FALSE
    integer                                         ::  errorMaskCount= 0
    integer, pointer                                ::  errorMask(:)  => null ()
    type(ESMF_LogMsg_Flag), pointer                 ::  logmsgList(:) => null ()
    type(ESMF_LogMsg_Flag), pointer                 ::  logmsgAbort(:)=> null ()
    logical                                         ::  traceFlag = .false.
    logical                                         ::  highResTimestampFlag = .false.
    logical                                         ::  appendFlag = .true.
    integer                                         ::  indentCount = 0
    logical                                         ::  deferredOpenFlag = .false.
    logical                                         ::  noprefix = .false.
#else
    type(ESMF_LogEntry), dimension(:),pointer       ::  LOG_ENTRY
    type(ESMF_Logical)                              ::  FileIsOpen
    integer                                         ::  errorMaskCount
    integer, dimension(:), pointer                  ::  errorMask(:)
    type(ESMF_LogMsg_Flag), pointer                 ::  logmsgList(:)
    type(ESMF_LogMsg_Flag), pointer                 ::  logmsgAbort(:)
    logical                                         ::  traceFlag
    logical                                         ::  highResTimestampFlag
    integer                                         ::  indentCount
    logical                                         ::  appendflag
    logical                                         ::  deferredOpenFlag
    logical                                         ::  noprefix
#endif
    character(len=ESMF_MAXPATHLEN)                  ::  nameLogErrFile
    character(len=ESMF_MAXSTR)                      ::  petNumLabel
    ESMF_INIT_DECLARE
end type ESMF_LogPrivate