module parameters_kcm1d_mod

!  for use with kcm subroutines
!  RDW 22/09/11

implicit none

double precision,parameter :: rc = 8.314463d0 ! ideal gas constant [J mol^-1 K^-1]

double precision,save :: cp_n,m_n,m_v,rmn

logical, save :: ideal_v


end module parameters_kcm1d_mod