set_n_var_value Subroutine

  1. state.f90
  2. state
  3. set_n_var_value

private subroutine set_n_var_value(control, scheme)

Set number of variable to solver for based on the tubulence and transition model being used

Arguments

Type IntentOptional AttributesName
type(controltype), intent(inout) :: control

Control parameters
type(schemetype), intent(in) :: scheme

finite-volume Schemes

Calls

proc~~set_n_var_value~~CallsGraph proc~set_n_var_value set_n_var_value debugcall debugcall proc~set_n_var_value->debugcall

Called by

proc~~set_n_var_value~~CalledByGraph proc~set_n_var_value set_n_var_value proc~setup_state setup_state proc~setup_state->proc~set_n_var_value proc~setup_solver setup_solver proc~setup_solver->proc~setup_state proc~start_run start_run proc~start_run->proc~setup_solver program~main main program~main->proc~start_run

Contents

Source Code

set_n_var_value

Source Code

        subroutine set_n_var_value(control, scheme)
          !< Set number of variable to solver for based on
          !< the tubulence and transition model being used
          implicit none
          type(controltype), intent(inout) :: control
          !< Control parameters
          type(schemetype),  intent(in) ::scheme
          !< finite-volume Schemes

          DebugCall("set_n_var_value")

          select case (trim(scheme%turbulence))
            case('none')
              n_var=5

            case('sa', 'saBC')
              n_var=6
              
            case('sst', "sst2003", 'bsl', 'kw', 'ke', 'kkl', 'Des-kw')
              n_var=7

            case DEFAULT
              n_var=5

          end select


          !Transition modeling
          select case(trim(scheme%transition))
            case('lctm2015')
              n_var = n_var + 1

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

            case DEFAULT
              Fatal_error

          end Select

          control%n_var = n_var

        end subroutine set_n_var_value