qoi.f

qoi.f#

These are the subroutines in qoi.f.

Subroutines and functions

subroutine  cint(fd, px, py, pz)#
Parameters:

  • fd (ldim) [real]

  • px (lt) [real]

  • py (lt) [real]

  • pz (lt) [real]

Called from:

rom_update(), offline_mode(), online_mode(), recon_mode(), rom_setup(), asnap(), setops(), setqoi()

Call to:

cint_helper(), cint_helper_init(), cint_cdgds(), read_serial(), push_op(), pop_op(), read_mat_serial(), ctbulk_num(), ctbulk_den(), ctsurf(), dump_serial(), ctsurf3(), calc_tbulk(), calc_tsurf(), calc_tmean(), calc_sterm(), savg(), facint3(), splitvec(), gfldi(), find_nely(), interp_t(), find_nelx()

subroutine  cint_helper(px, py, pz)#
Parameters:

  • px (lt) [real]

  • py (lt) [real]

  • pz (lt) [real]

Called from:

cint()

Call to:

cint_helper_init(), cint_cdgds(), read_serial(), push_op(), pop_op(), read_mat_serial(), ctbulk_num(), ctbulk_den(), ctsurf(), dump_serial(), ctsurf3(), calc_tbulk(), calc_tsurf(), calc_tmean(), calc_sterm(), savg(), facint3(), splitvec(), gfldi(), find_nely(), interp_t(), find_nelx()

subroutine  cint_helper_init(if_bn, ie)#
Parameters:

  • if_bn [integer]

  • ie [integer]

Called from:

cint(), cint_helper()

Call to:

read_serial(), push_op(), pop_op(), read_mat_serial(), ctbulk_num(), ctbulk_den(), ctsurf(), dump_serial(), ctsurf3(), calc_tbulk(), calc_tsurf(), calc_tmean(), calc_sterm(), savg(), facint3(), splitvec(), gfldi(), find_nely(), interp_t(), find_nelx()

subroutine  cint_cdgds(px, py, pz, if_bn, ie)#
Parameters:

  • px (lx1,ly1,lz1,lelt) [real]

  • py (lx1,ly1,lz1,lelt) [real]

  • pz (lx1,ly1,lz1,lelt) [real]

  • if_bn [integer]

  • ie [integer]

Called from:

cint(), cint_helper()

Call to:

read_serial(), push_op(), pop_op(), read_mat_serial(), ctbulk_num(), ctbulk_den(), ctsurf(), dump_serial(), ctsurf3(), calc_tbulk(), calc_tsurf(), calc_tmean(), calc_sterm(), savg(), facint3(), splitvec(), gfldi(), find_nely(), interp_t(), find_nelx()

subroutine  cvdrag_setup()#
Called from:

rom_update(), offline_mode(), online_mode(), recon_mode(), rom_setup(), asnap(), setops(), setqoi()

Call to:

read_serial(), push_op(), pop_op(), read_mat_serial(), ctbulk_num(), ctbulk_den(), ctsurf(), dump_serial(), ctsurf3(), calc_tbulk(), calc_tsurf(), calc_tmean(), calc_sterm(), savg(), facint3(), splitvec(), gfldi(), find_nely(), interp_t(), find_nelx()

subroutine  cdrag()#
Called from:

rom_step_legacy(), rom_step_t_legacy(), postu_legacy(), bdfext_step(), post()

Call to:

read_mat_serial(), read_serial(), ctbulk_num(), ctbulk_den(), ctsurf(), dump_serial(), ctsurf3(), calc_tbulk(), calc_tsurf(), calc_tmean(), calc_sterm(), savg(), facint3(), splitvec(), gfldi(), find_nely(), interp_t(), find_nelx()

subroutine  cdrag_new()#
Call to:

read_mat_serial(), read_serial(), ctbulk_num(), ctbulk_den(), ctsurf(), dump_serial(), ctsurf3(), calc_tbulk(), calc_tsurf(), calc_tmean(), calc_sterm(), savg(), facint3(), splitvec(), gfldi(), find_nely(), interp_t(), find_nelx()

subroutine  cnuss_setup()#
Called from:

rom_update(), offline_mode(), online_mode(), recon_mode(), rom_setup(), asnap(), setops(), setqoi()

Call to:

read_mat_serial(), read_serial(), ctbulk_num(), ctbulk_den(), ctsurf(), dump_serial(), ctsurf3(), calc_tbulk(), calc_tsurf(), calc_tmean(), calc_sterm(), savg(), facint3(), splitvec(), gfldi(), find_nely(), interp_t(), find_nelx()

subroutine  ctsurf(tsurf, tt)#
Parameters:

  • tsurf [real]

  • tt [real]

Called from:

cint(), cint_helper(), cint_helper_init(), cint_cdgds(), cvdrag_setup(), cdrag(), cdrag_new(), cnuss_setup()

Call to:

savg(), facint3(), splitvec(), gfldi(), find_nely(), interp_t(), find_nelx()

subroutine  ctsurf3(tsurf, s)#
Parameters:

  • tsurf [real]

  • s (lx1,ly1,lz1,lelt) [real]

Called from:

cint(), cint_helper(), cint_helper_init(), cint_cdgds(), cvdrag_setup(), cdrag(), cdrag_new(), cnuss_setup()

Call to:

facint3(), splitvec(), gfldi(), find_nely(), interp_t(), find_nelx()

subroutine  ctbulk_den(tbulk_den, uu, vv, ww)#
Parameters:

  • tbulk_den [real]

  • uu (lt) [real]

  • vv (lt) [real]

  • ww (lt) [real]

Called from:

cint(), cint_helper(), cint_helper_init(), cint_cdgds(), cvdrag_setup(), cdrag(), cdrag_new(), cnuss_setup()

Call to:

facint3(), splitvec(), gfldi(), find_nely(), interp_t(), find_nelx()

subroutine  ctbulk_num(tbulk_num, uu, vv, ww, tt)#
Parameters:

  • tbulk_num [real]

  • uu (lt) [real]

  • vv (lt) [real]

  • ww (lt) [real]

  • tt (lt) [real]

Called from:

cint(), cint_helper(), cint_helper_init(), cint_cdgds(), cvdrag_setup(), cdrag(), cdrag_new(), cnuss_setup()

Call to:

facint3(), splitvec(), gfldi(), find_nely(), interp_t(), find_nelx()

subroutine  ctbulk(tbulk, uu, vv, ww, tt)#
Parameters:

  • tbulk [real]

  • uu (lt) [real]

  • vv (lt) [real]

  • ww (lt) [real]

  • tt (lt) [real]

Call to:

facint3(), splitvec(), gfldi(), find_nely(), interp_t(), find_nelx()

subroutine  cnuss()#
Called from:

rom_step_legacy(), rom_step_t_legacy(), postu_legacy(), bdfext_step(), post()

Call to:

facint3(), splitvec(), gfldi(), find_nely(), interp_t(), find_nelx()

subroutine  savg(s_bar, a_surf, s, ifld, cb3)#
Parameters:

  • s_bar [real]

  • a_surf [real]

  • s (lx1,ly1,lz1,lelt) [real]

  • ifld [integer]

  • cb3 [character]

Called from:

setops_laplace(), seta_laplace(), setb_laplace(), rom_solve_laplace(), setr_laplace(), cint(), cint_helper(), cint_helper_init(), cint_cdgds(), cvdrag_setup(), cdrag(), cdrag_new(), cnuss_setup(), ctsurf()

Call to:

facint3(), splitvec(), gfldi(), find_nely(), interp_t(), find_nelx()

subroutine  facint3(s1, a1, s, area, f, e)#
Parameters:

  • s1 [real]

  • a1 [real]

  • s (lx1,ly1,lz1,lelv) [real]

  • area (lx1,lz1,6,lelv) [real]

  • f [integer]

  • e [integer]

Called from:

cint(), cint_helper(), cint_helper_init(), cint_cdgds(), cvdrag_setup(), cdrag(), cdrag_new(), cnuss_setup(), ctsurf(), ctsurf3(), ctbulk_den(), ctbulk_num(), ctbulk(), cnuss(), savg()

Call to:

splitvec(), gfldi(), find_nely(), interp_t(), find_nelx()

subroutine  neumann(a1, a2)#
Parameters:

  • a1 (lx1,ly1,lz1,lelt) [real]

  • a2 (lx1,ly1,lz1,lelt) [real]

Call to:

splitvec(), gfldi(), find_nely(), interp_t(), find_nelx()

subroutine  cubar_setup()#
Called from:

rom_update(), offline_mode(), online_mode(), recon_mode(), rom_setup(), asnap(), setops(), setqoi()

Call to:

splitvec(), gfldi(), find_nely(), interp_t(), find_nelx()

subroutine  cubar()#
Called from:

rom_step_legacy(), rom_step_t_legacy(), postu_legacy(), bdfext_step(), post()

Call to:

splitvec(), gfldi(), find_nely(), interp_t(), find_nelx()

subroutine  find_nelx(nelx)#
Parameters:

nelx [integer]

Called from:

cint(), cint_helper(), cint_helper_init(), cint_cdgds(), cvdrag_setup(), cdrag(), cdrag_new(), cnuss_setup(), ctsurf(), ctsurf3(), ctbulk_den(), ctbulk_num(), ctbulk(), cnuss(), savg(), facint3(), neumann(), cubar_setup(), cubar(), find_nelx(), find_nely(), gfldi(), interp_s(), interp_v(), average_in_y(), average_in_xy()

Call to:

splitvec(), gfldi(), find_nely(), interp_t(), find_nelx()

subroutine  find_nely(nely)#
Parameters:

nely [integer]

Called from:

cint(), cint_helper(), cint_helper_init(), cint_cdgds(), cvdrag_setup(), cdrag(), cdrag_new(), cnuss_setup(), ctsurf(), ctsurf3(), ctbulk_den(), ctbulk_num(), ctbulk(), cnuss(), savg(), facint3(), neumann(), cubar_setup(), cubar(), find_nelx(), find_nely(), gfldi(), interp_s(), interp_v(), average_in_y()

Call to:

splitvec(), gfldi(), find_nely(), interp_t(), find_nelx()

subroutine  gfldi(fi, f, x, y, z, n, mdim)#
Parameters:

  • fi (n,mdim) [real]

  • f (lx1,ly1,lz1,lelt,mdim) [real]

  • x (n) [real]

  • y (n) [real]

  • z (n) [real]

  • n [integer] :: $’,n)

  • mdim [integer]

Called from:

cint(), cint_helper(), cint_helper_init(), cint_cdgds(), cvdrag_setup(), cdrag(), cdrag_new(), cnuss_setup(), ctsurf(), ctsurf3(), ctbulk_den(), ctbulk_num(), ctbulk(), cnuss(), savg(), facint3(), neumann(), cubar_setup(), cubar(), find_nelx(), find_nely(), gfldi(), interp_s(), interp_v(), rom_update(), offline_mode(), online_mode(), recon_mode(), rom_setup(), asnap(), setops(), setqoi()

Call to:

splitvec(), gfldi(), find_nely(), interp_t(), find_nelx()

subroutine  interp_s(si, s, xyz, n)#
Parameters:

  • si (n) [real]

  • s (lx1,ly1,lz1,lelt) [real]

  • xyz (ldim,n) [real] :: Pertub off of centerline (better for interpolation)

  • n [integer]

Called from:

rom_step_legacy(), rom_step_t_legacy(), postu_legacy(), postt_legacy(), rom_init_params(), rom_init_fields(), interp_t()

Call to:

splitvec(), gfldi(), find_nely(), interp_t(), find_nelx()

subroutine  interp_v(vi, v, xyz, n)#
Parameters:

  • vi (n,ldim) [real]

  • v (lx1,ly1,lz1,lelt,ldim) [real]

  • xyz (ldim,n) [real] :: Pertub off of centerline (better for interpolation)

  • n [integer]

Call to:

splitvec(), gfldi(), find_nely(), interp_t(), find_nelx()

subroutine  average_in_y()#
Called from:

rom_update(), offline_mode(), online_mode(), recon_mode(), rom_setup()

Call to:

find_nely(), interp_t(), find_nelx()

subroutine  average_in_xy()#
Called from:

rom_update(), offline_mode(), online_mode(), recon_mode(), rom_setup()

Call to:

find_nelx(), interp_t()

subroutine  calc_tbulk(tbulkn, tbulkd, tt, vv)#
Parameters:

  • tbulkn [real]

  • tbulkd [real]

  • tt (1) [real]

  • vv (1) [real]

Called from:

cint(), cint_helper(), cint_helper_init(), cint_cdgds(), cvdrag_setup(), cdrag(), cdrag_new(), cnuss_setup()

subroutine  calc_tsurf(tsurf, tt)#
Parameters:

  • tsurf [real]

  • tt (lx1,ly1,lz1,lelt) [real]

Called from:

cint(), cint_helper(), cint_helper_init(), cint_cdgds(), cvdrag_setup(), cdrag(), cdrag_new(), cnuss_setup()

subroutine  calc_sterm(s, tf)#
Parameters:

  • s [real]

  • tf (lx1,ly1,lz1,lelt) [real]

Called from:

cint(), cint_helper(), cint_helper_init(), cint_cdgds(), cvdrag_setup(), cdrag(), cdrag_new(), cnuss_setup()