TYPE InternalVarsUsedType
! structure for internal data that user has selected to use in Erl.
CHARACTER(len=MaxNameLength) :: Name = '' ! Erl variable name
CHARACTER(len=MaxNameLength) :: InternalDataTypeName = '' ! general internal variable name, All uppercase
CHARACTER(len=MaxNameLength) :: UniqueIDName = '' ! unique id for internal var, All uppercase
LOGICAL :: CheckedOkay = .FALSE. ! set to true once matched to available internal var
INTEGER :: ErlVariableNum = 0 ! points to global Erl variable, matches Name
INTEGER :: InternVarNum = 0 ! points to index match in EMSInternalVarsAvailable structure
END TYPE InternalVarsUsedType