module m_parameters

  implicit none

     integer :: nxp,nyp,nzp

     real :: l_0

     integer :: startnum,endnum,skipnum,shiftnum

     real :: scp,prp,lep,vis0p,rod

     real :: prof_wr,min_wr,min_fsd,min_c,refwr

     real :: pre,ac,bc,c_cut,c_ref

     integer :: syp,eyp,twod

     real :: SL_u

     integer :: omitnum

     integer, allocatable :: omit_t(:,:)


contains

logical function to_omit(num)

    integer, intent(in) :: num

    integer :: i

    to_omit=.false.

    do i=1,omitnum
      if (num.ge.omit_t(i,1).and.num.le.omit_t(i,2)) then
        to_omit=.true.
      endif
    enddo

end function to_omit

end module m_parameters