EMISSVAR_T Derived Type

  1. modd_type_efutil.F90
  2. MODD_TYPE_EFUTIL
  3. EMISSVAR_T

type, public :: EMISSVAR_T


Contents

Variables

Source Code

EMISSVAR_T

Components

TypeVisibility AttributesNameInitial
character(len=32), public :: CNAME
integer, public :: NTX
integer, public :: NPX
integer, public, DIMENSION(:), POINTER:: NETIMES
integer, public :: NDX
real, public, DIMENSION(:,:), POINTER:: XEMISDATA
logical, public :: LREAD
integer, public :: NWS
real, public, DIMENSION(:), POINTER:: XFWORK

Source Code

TYPE EMISSVAR_T
  CHARACTER(len=32)             :: CNAME ! Name of the EMISSION 
!
  INTEGER                       :: NTX   ! Current index on array 
!                                          NETIMES (needed in interpolation)
!
  INTEGER                       :: NPX   ! Index to use when t > tmax (periodic)
!                                         
  INTEGER,DIMENSION(:),POINTER  :: NETIMES   ! Emission times (ordered)
!
  INTEGER                       :: NDX       ! Current index on array XEMISDATA
!
  REAL,DIMENSION(:,:), POINTER  :: XEMISDATA ! Emission data array
!                                              with size (X*Y,NWS)  
!
  LOGICAL                       :: LREAD ! TRUE if emission data reading is needed
!
  INTEGER                       :: NWS   ! Read window size for I/O
!
  REAL, DIMENSION(:),POINTER    :: XFWORK ! Time interpolated emission data 
!                                           with size (X) 
END TYPE EMISSVAR_T