unlink_aliases Subroutine

  1. state.f90
  2. state
  3. unlink_aliases

private subroutine unlink_aliases()

Nullify the pointer link

Arguments

None

Calls

proc~~unlink_aliases~2~~CallsGraph proc~unlink_aliases~2 unlink_aliases debugcall debugcall proc~unlink_aliases~2->debugcall

Called by

proc~~unlink_aliases~2~~CalledByGraph proc~unlink_aliases~2 unlink_aliases proc~destroy_state destroy_state proc~destroy_state->proc~unlink_aliases~2 proc~destroy_all destroy_all proc~destroy_all->proc~destroy_state proc~destroy_solver destroy_solver proc~destroy_solver->proc~destroy_state proc~finish_run finish_run proc~finish_run->proc~destroy_solver proc~abort_run abort_run proc~abort_run->proc~destroy_solver program~main main program~main->proc~finish_run

Contents

Source Code

unlink_aliases

Source Code

        subroutine unlink_aliases()
          !< Nullify the pointer link

            implicit none

            DebugCall("unlink_aliases")

            nullify(density)
            nullify(x_speed)
            nullify(y_speed)
            nullify(z_speed)
            nullify(pressure)

            nullify(density_inf)
            nullify(x_speed_inf)
            nullify(y_speed_inf)
            nullify(z_speed_inf)
            nullify(pressure_inf)

            select case (trim(turbulence))

                case ("none")
                    continue

                  case ("sst", "sst2003", "bsl", "kw", "des-sst")
                    nullify(tk)
                    nullify(tw)
                    nullify(tk_inf)
                    nullify(tw_inf)

                case ("kkl")
                    nullify(tk)
                    nullify(tkl)
                    nullify(tk_inf)
                    nullify(tkl_inf)

                case ("sa", "saBC")
                    nullify(tv)
                    nullify(tv_inf)

                case ("ke")
                    nullify(tk)
                    nullify(te)
                    nullify(tk_inf)
                    nullify(te_inf)

                case ("les")
                    continue
                    ! todo

                case DEFAULT
                  Fatal_error

            end select


            !Transition modeling
            select case(trim(transition))

              case('lctm2015')
                nullify(tgm)
                nullify(tgm_inf)

              case('bc', 'none')
                !do nothing
                continue

              case DEFAULT
                Fatal_error

            end Select

        end subroutine unlink_aliases