limiter_type Function

public function limiter_type(namelim)

Uses

  • proc~~limiter_type~~UsesGraph proc~limiter_type limiter_type module~mod_comm_lib mod_comm_lib proc~limiter_type->module~mod_comm_lib

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: namelim

Return Value integer


Calls

proc~~limiter_type~~CallsGraph proc~limiter_type limiter_type proc~mpistop mpistop proc~limiter_type->proc~mpistop mpi_abort mpi_abort proc~mpistop->mpi_abort

Called by

proc~~limiter_type~~CalledByGraph proc~limiter_type limiter_type proc~read_par_files read_par_files proc~read_par_files->proc~limiter_type proc~initialize_amrvac initialize_amrvac proc~initialize_amrvac->proc~read_par_files proc~main main proc~main->proc~initialize_amrvac program~agile agile program~agile->proc~main

Source Code

  integer function limiter_type(namelim)
    use mod_comm_lib, only: mpistop
    character(len=*), intent(in) :: namelim

    select case (namelim)
    case ('minmod')
       limiter_type = limiter_minmod
    case ('woodward')
       limiter_type = limiter_woodward
    case ('mcbeta')
       limiter_type = limiter_mcbeta
    case ('superbee')
       limiter_type = limiter_superbee
    case ('vanleer')
       limiter_type = limiter_vanleer
    case ('albada')
       limiter_type = limiter_albada
    case ('koren')
       limiter_type = limiter_koren
    case ('cada')
       limiter_type = limiter_cada
    case ('cada3')
       limiter_type = limiter_cada3
    case ('schmid1')
       limiter_type = limiter_schmid
    case ('schmid2')
       limiter_type = limiter_schmid
    case('venk')
       limiter_type = limiter_venk
    case ('ppm')
       limiter_type = limiter_ppm
    case ('mp5')
       limiter_type = limiter_mp5
    case ('weno3')
       limiter_type = limiter_weno3
    case ('wenoyc3')
       limiter_type = limiter_wenoyc3
    case ('weno5')
       limiter_type = limiter_weno5
    case ('weno5nm')
       limiter_type = limiter_weno5nm
    case ('wenoz5')
       limiter_type = limiter_wenoz5
    case ('wenoz5nm')
       limiter_type = limiter_wenoz5nm
    case ('wenozp5')
       limiter_type = limiter_wenozp5
    case ('wenozp5nm')
       limiter_type = limiter_wenozp5nm
    case ('weno5cu6')
       limiter_type = limiter_weno5cu6
    case ('teno5ad')
       limiter_type = limiter_teno5ad
    case ('weno7')
       limiter_type = limiter_weno7
    case ('mpweno7')
       limiter_type = limiter_mpweno7

    case default
       limiter_type = -1
       write(*,*) 'Unknown limiter: ', namelim
       call mpistop("No such limiter")
    end select
  end function limiter_type