LOGICAL ok_oasis
      PARAMETER (ok_oasis = .FALSE.)
c
      CHARACTER*8 cchain
      PARAMETER (cchain="PIPE")
c      PARAMETER (cchain="CLIM")