character (len=9), parameter :: Rcmdir= 'RCMfiles/'
!     character (len=2), parameter :: Rcmdir='./'
      character (len=8), parameter :: rcm_tec_subdir = 'RCM_TEC/'