anchor.diff:         CHEM_TYPE,          &
          GWD_TYPE,           &
          AF_TYPE,            &
  +       AF_TYPE,            &
  +       EIN_TYPE,           &
          OUT_FILE_TYPE
   
       integer :: ierr
  
positive.code: 
      integer :: v
      !---------------------------------------------------------------------------
  
      !--- Heat capacity for thermodynamics
      allocate( CVW(NQW_STR:NQW_END) )
      allocate( CPW(NQW_STR:NQW_END) )
  
      LHV = CNST_LH00
      LHS = CNST_LHS00
      LHF = CNST_LHF00
      do v = NQW_STR, NQW_END
         if    ( v == I_QV ) then ! vapor
            CVW(v) = CNST_CVV
            CPW(v) = CNST_CPV
         elseif( v == I_QC ) then ! cloud
            CVW(v) = CNST_CL
            CPW(v) = CNST_CL
         elseif( v == I_QR ) then ! rain
            CVW(v) = CNST_CL
            CPW(v) = CNST_CL
         elseif( v == I_QI ) then ! ice
            CVW(v) = CNST_CI
            CPW(v) = CNST_CI
         elseif( v == I_QS ) then ! snow
            CVW(v) = CNST_CI
            CPW(v) = CNST_CI
         elseif( v == I_QG ) then ! graupel
            CVW(v) = CNST_CI
            CPW(v) = CNST_CI
         endif
      enddo
  
      return
    end subroutine RUNCONF_thermodyn_setup
  
negative.code:   character(len=ADM_NSYS), public :: CHEM_TYPE          = 'NONE'
    character(len=ADM_NSYS), public :: GWD_TYPE           = 'NONE'
    character(len=ADM_NSYS), public :: AF_TYPE            = 'NONE'
    character(len=ADM_NSYS), public :: EIN_TYPE           = 'EXACT'
  
    character(len=ADM_NSYS), public :: OUT_FILE_TYPE      = 'DEFAULT'
  
  