real epmax             ! 0.993
      logical ok_adj_ema      ! F
      integer iflag_clw      ! 0

      common/comconema/epmax,ok_adj_ema,iflag_clw