get_n_grad Subroutine

  1. gradients.f90
  2. gradients
  3. get_n_grad

public subroutine get_n_grad(scheme)

Set number of variables for which gradient is required based on the being used

Arguments

Type IntentOptional AttributesName
type(schemetype), intent(in) :: scheme

finite-volume Schemes

Calls

proc~~get_n_grad~~CallsGraph proc~get_n_grad get_n_grad debugcall debugcall proc~get_n_grad->debugcall

Called by

proc~~get_n_grad~~CalledByGraph proc~get_n_grad get_n_grad proc~setup_gradients setup_gradients proc~setup_gradients->proc~get_n_grad proc~setup_solver setup_solver proc~setup_solver->proc~setup_gradients proc~start_run start_run proc~start_run->proc~setup_solver program~main main program~main->proc~start_run

Contents

Source Code

get_n_grad

Source Code

    subroutine get_n_grad(scheme)
      !< Set number of variables for which
      !< gradient is required based on the
      !< being used

      implicit none
      type(schemetype) , intent(in) :: scheme
      !< finite-volume Schemes

      DebugCall("get_n_grad")

      select case (trim(scheme%turbulence))
        
        case('none')
          !do nothing
          continue

        case ('sa', 'saBC')
          n_grad = 5

        case('sst', 'sst2003')
          n_grad = 6

        case('kkl')
          n_grad = 6

        case DEFAULT
          Fatal_error

      end select


      !Transition modeling
      select case(trim(scheme%transition))

        case('lctm2015')
          n_grad = n_grad + 1

        case('none','bc')
          n_grad = n_grad + 0

        case DEFAULT
          Fatal_error

      end Select

    end subroutine get_n_grad