| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| character(len=28), | public | :: | CCHEM_SURF_FILE | ||||
| character(len=6), | public | :: | CCH_DRY_DEP | ||||
| real, | public, | DIMENSION(:,:), POINTER | :: | XDEP | |||
| real, | public, | DIMENSION(:), POINTER | :: | XSOILRC_SO2 | |||
| real, | public, | DIMENSION(:), POINTER | :: | XSOILRC_O3 | |||
| logical, | public | :: | LCH_BIO_FLUX | ||||
| logical, | public | :: | LCH_NO_FLUX | ||||
| type(SV_t), | public | :: | SVI | ||||
| character(len=6), | public, | DIMENSION(:), POINTER | :: | CCH_NAMES | |||
| character(len=6), | public, | DIMENSION(:), POINTER | :: | CAER_NAMES | |||
| character(len=6), | public, | DIMENSION(:), POINTER | :: | CDSTNAMES | |||
| character(len=6), | public, | DIMENSION(:), POINTER | :: | CSLTNAMES | 
TYPE CH_ISBA_t
!
  CHARACTER(LEN=28)  :: CCHEM_SURF_FILE  ! name of general (chemical) purpose ASCII input file
  CHARACTER(LEN=6)                :: CCH_DRY_DEP            !  deposition scheme
  REAL, DIMENSION(:,:), POINTER :: XDEP                   ! final dry deposition  
                                                            ! velocity  for nature
  REAL, DIMENSION(:),   POINTER :: XSOILRC_SO2            ! for SO2
  REAL, DIMENSION(:),   POINTER :: XSOILRC_O3             ! for O3                                                            
  LOGICAL                         :: LCH_BIO_FLUX           ! flag for the calculation of
                                                            ! biogenic fluxes
  LOGICAL                         :: LCH_NO_FLUX            ! flag for the calculation of
                                                            ! biogenic NO fluxes
  TYPE(SV_t) :: SVI
  CHARACTER(LEN=6), DIMENSION(:), POINTER :: CCH_NAMES      ! NAME OF CHEMICAL SPECIES
                                                            ! (FOR DIAG ONLY)
  CHARACTER(LEN=6), DIMENSION(:), POINTER :: CAER_NAMES     ! NAME OF CHEMICAL SPECIES
  CHARACTER(LEN=6), DIMENSION(:), POINTER :: CDSTNAMES      ! NAME OF CHEMICAL SPECIES
  CHARACTER(LEN=6), DIMENSION(:), POINTER :: CSLTNAMES      ! NAME OF CHEMICAL SPECIES                                                            
!
END TYPE CH_ISBA_t