| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| integer, | public | :: | NEMIS_NBR | ||||
| character(len=3), | public | :: | CCONVERSION | ||||
| character(len=5), | public | :: | CSNAP_TIME_REF | ||||
| character(len=12), | public, | DIMENSION(:), POINTER | :: | CEMIS_NAME | |||
| character(len=40), | public, | DIMENSION(:), POINTER | :: | CEMIS_COMMENT | |||
| real, | public, | DIMENSION(:,:,:), POINTER | :: | XEMIS_FIELDS_SNAP | |||
| real, | public, | DIMENSION(:,:), POINTER | :: | XEMIS_FIELDS | |||
| real, | public, | DIMENSION(:), POINTER | :: | XDELTA_LEGAL_TIME | |||
| integer, | public | :: | NEMIS_SNAP | ||||
| integer, | public | :: | NSNAP_M | ||||
| integer, | public | :: | NSNAP_D | ||||
| integer, | public | :: | NSNAP_H | ||||
| real, | public, | DIMENSION(:,:,:), POINTER | :: | XSNAP_MONTHLY | |||
| real, | public, | DIMENSION(:,:,:), POINTER | :: | XSNAP_DAILY | |||
| real, | public, | DIMENSION(:,:,:), POINTER | :: | XSNAP_HOURLY | |||
| real, | public, | DIMENSION(:), POINTER | :: | XCONVERSION | |||
| type(PRONOSVAR_T), | public, | POINTER | :: | TSPRONOSLIST |
TYPE CH_EMIS_SNAP_t
!
INTEGER :: NEMIS_NBR
! ! number of chemical pgd fields chosen by user
CHARACTER(LEN=3) :: CCONVERSION
! ! Unit conversion code
CHARACTER(LEN=5) :: CSNAP_TIME_REF
! ! Reference time for Snap temporal profiles
! ! 'UTC ' : UTC time
! ! 'SOLAR' : SOLAR time
! ! 'LEGAL' : LEGAL time
! !
CHARACTER(LEN=12), DIMENSION(:), POINTER :: CEMIS_NAME
! ! name of the chemical fields (emitted species)
CHARACTER(LEN=40), DIMENSION(:), POINTER :: CEMIS_COMMENT
! ! comment on the chemical fields (emitted species)
!
REAL, DIMENSION(:,:,:), POINTER:: XEMIS_FIELDS_SNAP ! Emission factor for
! ! each chemical specie and
! ! each snap
REAL, DIMENSION(:,:), POINTER:: XEMIS_FIELDS ! Emission for each specie
! ! (at a given time taking into
! ! account all snaps)
REAL, DIMENSION(:), POINTER:: XDELTA_LEGAL_TIME ! Difference (in hours)) between
! ! Legal time and UTC time
INTEGER :: NEMIS_SNAP ! number of snaps
INTEGER :: NSNAP_M ! number of months
INTEGER :: NSNAP_D ! number of days
INTEGER :: NSNAP_H ! number of hours
REAL, DIMENSION(:,:,:), POINTER:: XSNAP_MONTHLY
REAL, DIMENSION(:,:,:), POINTER:: XSNAP_DAILY
REAL, DIMENSION(:,:,:), POINTER:: XSNAP_HOURLY
REAL, DIMENSION(:), POINTER:: XCONVERSION ! conversion factor
!
TYPE(PRONOSVAR_T), POINTER :: TSPRONOSLIST ! Head pointer on pronostic
! variables list
!-------------------------------------------------------------------------------
!
END TYPE CH_EMIS_SNAP_t