44 lines
654 B
Fortran
44 lines
654 B
Fortran
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
|