time.f

time.f#

These are the subroutines in time.f.

Subroutines and functions

subroutine  bdfext_step()#
Called from:

rom_update()

Call to:

setr_v(), setr_t(), rk4_setup(), rk_step(), shift(), seth(), dump_serial(), diag(), invmat(), update_k(), constrained_pod(), addeddy(), pod_proj(), pod_df(), apply_les_imp(), efr_relaxation(), setuavg(), count_gal(), settavg(), set_time_avg_resid_coef(), ctke(), cdrag(), cnuss(), cubar(), reconv(), recont(), evalc4(), evalc3(), evalc(), check_box(), ipm(), check_diag(), hybrid_advance(), evalc2(), update_h(), set_time_avg_resid_coef_u(), set_time_avg_resid_coef_t(), setuj(), settj(), set_favg_in_ext(), setfj()

subroutine  post()#
Called from:

rom_update()

Call to:

setuavg(), count_gal(), settavg(), set_time_avg_resid_coef(), ctke(), cdrag(), cnuss(), cubar(), reconv(), recont(), pod_proj(), pod_df(), evalc4(), evalc3(), evalc(), shift(), check_box(), ipm(), check_diag(), hybrid_advance(), evalc2(), update_h(), set_time_avg_resid_coef_u(), set_time_avg_resid_coef_t(), setuj(), settj(), set_favg_in_ext(), setfj()

subroutine  set_bdf_coef(ad_alpha, ad_beta)#
Parameters:

  • ad_alpha (3,3) [real]

  • ad_beta (4,3) [real]

Called from:

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

Call to:

pod_proj(), pod_df(), evalc4(), evalc3(), evalc(), shift(), check_box(), ipm(), check_diag(), hybrid_advance(), evalc2(), update_h(), set_time_avg_resid_coef_u(), set_time_avg_resid_coef_t(), setuj(), settj(), set_favg_in_ext(), setfj()

subroutine  evalc(cu, cm, cl, uu, tt)#
Parameters:

  • cu (nb) [real]

  • cm (1 - ic1 + ic2,1 - jc1 + jc2) [real]

  • cl (1 - ic1 + ic2,1 - jc1 + jc2,1 - kc1 + kc2) [real]

  • uu (1 + nb) [real]

  • tt (1 + nb) [real]

Called from:

rom_step_heat(), bdfext_step(), post(), set_bdf_coef(), evalc(), evalc3(), evalc4(), setcintp(), setr_t(), setr_v()

Call to:

pod_proj(), pod_df(), evalc4(), evalc3(), evalc(), shift(), check_box(), ipm(), check_diag(), hybrid_advance(), evalc2(), update_h(), set_time_avg_resid_coef_u(), set_time_avg_resid_coef_t(), setuj(), settj(), set_favg_in_ext(), setfj()

subroutine  evalc3(cu, fac_a, fac_b, fac_c, cp_weight, uu)#
Parameters:

  • cu (nb) [real]

  • fac_a (ntr + nb * ntr) [real]

  • fac_b (ntr + nb * ntr) [real]

  • fac_c (ntr + nb * ntr) [real]

  • cp_weight (ntr) [real]

  • uu (1 + nb) [real]

Called from:

bdfext_step(), post(), set_bdf_coef(), evalc(), evalc3(), evalc4(), setcintp(), setr_t(), setr_v()

Call to:

evalc4(), evalc3(), evalc(), shift(), pod_proj(), pod_df(), check_box(), ipm(), check_diag(), hybrid_advance(), evalc2(), update_h(), set_time_avg_resid_coef_u(), set_time_avg_resid_coef_t(), setuj(), settj(), set_favg_in_ext(), setfj()

subroutine  evalc4(cu, fac_a, fac_b, fac_c, cp_weight, cl, cj0, c0k, uu)#
Parameters:

  • cu (nb) [real]

  • fac_a (nb * ntr) [real]

  • fac_b (nb * ntr) [real]

  • fac_c (nb * ntr) [real]

  • cp_weight (ntr) [real]

  • cl (1 - ic1 + ic2,1 - jc1 + jc2,1 - kc1 + kc2) [real]

  • cj0 (1 - ic1 + ic2,1 - jc1 + jc2) [real]

  • c0k (1 - ic1 + ic2,1 - kc1 + kc2) [real]

  • uu (1 + nb) [real]

Called from:

bdfext_step(), post(), set_bdf_coef(), evalc(), evalc3(), evalc4(), setcintp(), setr_t(), setr_v()

Call to:

evalc4(), evalc3(), evalc(), shift(), pod_proj(), pod_df(), check_box(), ipm(), check_diag(), hybrid_advance(), evalc2(), update_h(), set_time_avg_resid_coef_u(), set_time_avg_resid_coef_t(), setuj(), settj(), set_favg_in_ext(), setfj()

subroutine  setcintp()#
Call to:

evalc4(), evalc3(), evalc(), shift(), pod_proj(), pod_df(), check_box(), ipm(), check_diag(), hybrid_advance(), evalc2(), update_h(), set_time_avg_resid_coef_u(), set_time_avg_resid_coef_t(), setuj(), settj(), set_favg_in_ext(), setfj()

subroutine  setr_t(rhs, icount)#
Parameters:

  • rhs (nb) [real]

  • icount [integer]

Called from:

rom_step_legacy(), rom_step_t_legacy(), bdfext_step()

Call to:

evalc4(), evalc3(), evalc(), shift(), pod_proj(), pod_df(), check_box(), ipm(), check_diag(), hybrid_advance(), evalc2(), update_h(), set_time_avg_resid_coef_u(), set_time_avg_resid_coef_t(), setuj(), settj(), set_favg_in_ext(), setfj()

subroutine  setr_v(rhs, icount)#
Parameters:

  • rhs (nb) [real]

  • icount [integer]

Called from:

rom_step_legacy(), bdfext_step()

Call to:

evalc4(), evalc3(), evalc(), pod_proj(), pod_df(), shift(), check_box(), ipm(), check_diag(), hybrid_advance(), evalc2(), update_h(), set_time_avg_resid_coef_u(), set_time_avg_resid_coef_t(), setuj(), settj(), set_favg_in_ext(), setfj()

subroutine  setuavg(s1, s2, t1)#
Parameters:

  • s1 (1 + nb) [real]

  • s2 (1 + nb,1 + nb) [real]

  • t1 (1 + nb) [real]

Called from:

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

Call to:

check_box(), ipm(), check_diag(), hybrid_advance(), evalc2(), update_h(), pod_proj(), set_time_avg_resid_coef_u(), set_time_avg_resid_coef_t(), setuj(), settj(), set_favg_in_ext(), setfj()

subroutine  settavg(s1, s2, s3, s4, t1, t2)#
Parameters:

  • s1 (1 + nb) [real]

  • s2 (1 + nb,1 + nb) [real]

  • s3 (1 + nb,1 + nb) [real]

  • s4 (1 + nb,1 + nb) [real]

  • t1 (1 + nb) [real]

  • t2 (1 + nb) [real]

Called from:

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

Call to:

check_box(), ipm(), check_diag(), hybrid_advance(), evalc2(), update_h(), pod_proj(), set_time_avg_resid_coef_u(), set_time_avg_resid_coef_t(), setuj(), settj(), set_favg_in_ext(), setfj()

subroutine  seth(flu, a, b, ad_diff)#
Parameters:

  • flu (nb,nb) [real]

  • a (nb,nb) [real]

  • b (nb,nb) [real]

  • ad_diff [real]

Called from:

rom_step_legacy(), rom_step_t_legacy(), bdfext_step()

Call to:

check_box(), ipm(), check_diag(), hybrid_advance(), evalc2(), update_h(), pod_proj(), set_time_avg_resid_coef_u(), set_time_avg_resid_coef_t(), setuj(), settj(), set_favg_in_ext(), setfj()

subroutine  hybrid_advance(rhs, helm, invhelm, uu, amax, amin, adis, bpar, bstep, copt_count, tol_box, ifdiag, nb)#
Parameters:

  • rhs (1 + nb) [real]

  • helm (nb,nb) [real]

  • invhelm (nb,nb) [real]

  • uu (nb) [real]

  • amax (nb) [real]

  • amin (nb) [real]

  • adis (nb) [real]

  • bpar [real]

  • bstep [integer]

  • copt_count [integer]

  • tol_box [real]

  • ifdiag [logical]

Options:

nb [integer,optional/default=-1 + shape(rhs, 0)]

Called from:

bdfext_step(), post(), set_bdf_coef(), evalc(), evalc3(), evalc4(), setcintp(), setr_t(), setr_v(), setuavg(), settavg(), seth(), hybrid_advance(), constrained_pod()

Call to:

check_box(), ipm(), check_diag(), hybrid_advance(), evalc2(), update_h(), pod_proj(), set_time_avg_resid_coef_u(), set_time_avg_resid_coef_t(), setuj(), settj(), set_favg_in_ext(), setfj()

subroutine  constrained_pod(rhs, hh, invhh, uu, amax, amin, adis, bpar, bstep, copt_count)#
Parameters:

  • rhs (1 + nb) [real]

  • hh (nb * *2) [real] ::

  • invhh (nb * *2) [real] ::

  • uu (nb) [real]

  • amax (nb) [real]

  • amin (nb) [real]

  • adis (nb) [real]

  • bpar [real]

  • bstep [integer]

  • copt_count [integer]

Called from:

rom_step_legacy(), rom_step_t_legacy(), bdfext_step()

Call to:

check_diag(), ipm(), hybrid_advance(), evalc2(), update_h(), pod_proj(), set_time_avg_resid_coef_u(), set_time_avg_resid_coef_t(), setuj(), settj(), set_favg_in_ext(), setfj()

subroutine  evalc2(cu, cm, cl, uu, tt)#
Parameters:

  • cu (nb) [real]

  • cm (1 - ic1 + ic2,1 - jc1 + jc2) [real]

  • cl (1 - ic1 + ic2,1 - jc1 + jc2,1 - kc1 + kc2) [real]

  • uu (1 + nb) [real]

  • tt (1 + nb) [real]

Called from:

bdfext_step(), post(), set_bdf_coef(), evalc(), evalc3(), evalc4(), setcintp(), setr_t(), setr_v(), setuavg(), settavg(), seth(), hybrid_advance(), constrained_pod(), evalc2(), evf()

Call to:

evalc2(), update_h(), pod_proj(), set_time_avg_resid_coef_u(), set_time_avg_resid_coef_t(), setuj(), settj(), set_favg_in_ext(), setfj()

subroutine  evf(tt, uu, ff)#
Parameters:

  • tt [real]

  • uu (1) [real]

  • ff (1) [real]

Called from:

rk_step(), rk_helper()

Call to:

evalc2(), update_h(), pod_proj(), set_time_avg_resid_coef_u(), set_time_avg_resid_coef_t(), setuj(), settj(), set_favg_in_ext(), setfj()

subroutine  check_diag(checkdiag, ifdiag, aa, bb, n)#
Parameters:

  • checkdiag [integer]

  • ifdiag [logical]

  • aa (n,n) [real]

  • bb (n,n) [real]

  • n [integer]

Called from:

bdfext_step(), post(), set_bdf_coef(), evalc(), evalc3(), evalc4(), setcintp(), setr_t(), setr_v(), setuavg(), settavg(), seth(), hybrid_advance(), constrained_pod()

Call to:

update_h(), pod_proj(), set_time_avg_resid_coef_u(), set_time_avg_resid_coef_t(), setuj(), settj(), set_favg_in_ext(), setfj()

subroutine  check_box(chekbc, uu, amax, amin, tol_box, n)#
Parameters:

  • chekbc [integer]

  • uu (n) [real]

  • amax (n) [real]

  • amin (n) [real]

  • tol_box [real]

  • n [integer]

Called from:

ipm(), quasi_newton(), comp_qngradf(), comp_qnf(), hessian_update(), backtrackr(), bdfext_step(), post(), set_bdf_coef(), evalc(), evalc3(), evalc4(), setcintp(), setr_t(), setr_v(), setuavg(), settavg(), seth(), hybrid_advance()

Call to:

pod_proj(), set_time_avg_resid_coef_u(), set_time_avg_resid_coef_t(), setuj(), settj(), set_favg_in_ext(), setfj()

subroutine  update_h(hh, invhh, ifdiag)#
Parameters:

  • hh (nb * *2) [real] ::

  • invhh (nb * *2) [real] ::

  • ifdiag [logical]

Called from:

bdfext_step(), post(), set_bdf_coef(), evalc(), evalc3(), evalc4(), setcintp(), setr_t(), setr_v(), setuavg(), settavg(), seth(), hybrid_advance(), constrained_pod(), evalc2(), evf(), check_diag()

Call to:

pod_proj(), set_time_avg_resid_coef_u(), set_time_avg_resid_coef_t(), setuj(), settj(), set_favg_in_ext(), setfj()

subroutine  set_ucoef_in_ext(s1, s2, t1)#
Parameters:

  • s1 (1 + nb) [real]

  • s2 (1 + nb,1 + nb) [real]

  • t1 (1 + nb,3) [real]

Call to:

pod_proj(), set_time_avg_resid_coef_u(), set_time_avg_resid_coef_t(), setuj(), settj(), set_favg_in_ext(), setfj()

subroutine  set_tcoef_in_ext(s1, s2, t1, t2)#
Parameters:

  • s1 (1 + nb) [real]

  • s2 (1 + nb,1 + nb) [real]

  • t1 (1 + nb,3) [real]

  • t2 (1 + nb,3) [real]

Call to:

pod_proj(), set_time_avg_resid_coef_u(), set_time_avg_resid_coef_t(), setuj(), settj(), set_favg_in_ext(), setfj()

subroutine  setuj(s1, s2, s3, t1)#
Parameters:

  • s1 (1 + nb,8) [real]

  • s2 (1 + nb,1 + nb,8) [real]

  • s3 (1 + nb,8) [real]

  • t1 (1 + nb,5) [real]

Called from:

rom_step_legacy(), rom_step_t_legacy(), postu_legacy(), bdfext_step(), post(), set_bdf_coef(), evalc(), evalc3(), evalc4(), setcintp(), setr_t(), setr_v(), setuavg(), settavg(), seth(), hybrid_advance(), constrained_pod(), evalc2(), evf(), check_diag(), check_box(), update_h(), set_ucoef_in_ext(), set_tcoef_in_ext(), setuj(), settj(), setfj(), set_favg_in_ext(), set_time_avg_resid_coef(), set_time_avg_resid_coef_u()

Call to:

pod_proj(), set_time_avg_resid_coef_u(), set_time_avg_resid_coef_t(), setuj(), settj(), set_favg_in_ext(), setfj()

subroutine  settj(s1, s2, s3, t1, t2)#
Parameters:

  • s1 (1 + nb,8) [real]

  • s2 (1 + nb,1 + nb,8) [real]

  • s3 (1 + nb,1 + nb,8) [real]

  • t1 (1 + nb,8) [real]

  • t2 (1 + nb,5) [real]

Called from:

rom_step_legacy(), rom_step_t_legacy(), postu_legacy(), postt_legacy(), bdfext_step(), post(), set_bdf_coef(), evalc(), evalc3(), evalc4(), setcintp(), setr_t(), setr_v(), setuavg(), settavg(), seth(), hybrid_advance(), constrained_pod(), evalc2(), evf(), check_diag(), check_box(), update_h(), set_ucoef_in_ext(), set_tcoef_in_ext(), setuj(), settj(), setfj(), set_favg_in_ext(), set_time_avg_resid_coef(), set_time_avg_resid_coef_u(), set_time_avg_resid_coef_t()

Call to:

set_time_avg_resid_coef_u(), set_time_avg_resid_coef_t(), setuj(), settj(), set_favg_in_ext(), setfj()

subroutine  setfj(s1, s2)#
Parameters:

  • s1 (6) [real]

  • s2 (6) [real]

Called from:

bdfext_step(), post(), set_bdf_coef(), evalc(), evalc3(), evalc4(), setcintp(), setr_t(), setr_v(), setuavg(), settavg(), seth(), hybrid_advance(), constrained_pod(), evalc2(), evf(), check_diag(), check_box(), update_h(), set_ucoef_in_ext(), set_tcoef_in_ext(), setuj(), settj(), setfj(), set_favg_in_ext(), set_time_avg_resid_coef(), set_time_avg_resid_coef_u(), set_time_avg_resid_coef_t()

Call to:

set_time_avg_resid_coef_u(), set_time_avg_resid_coef_t(), setuj(), settj(), set_favg_in_ext(), setfj()

subroutine  set_favg_in_ext(s1, s2)#
Parameters:

  • s1 [real]

  • s2 [real]

Called from:

bdfext_step(), post(), set_bdf_coef(), evalc(), evalc3(), evalc4(), setcintp(), setr_t(), setr_v(), setuavg(), settavg(), seth(), hybrid_advance(), constrained_pod(), evalc2(), evf(), check_diag(), check_box(), update_h(), set_ucoef_in_ext(), set_tcoef_in_ext(), setuj(), settj(), setfj(), set_favg_in_ext(), set_time_avg_resid_coef(), set_time_avg_resid_coef_u(), set_time_avg_resid_coef_t()

Call to:

set_time_avg_resid_coef_u(), set_time_avg_resid_coef_t(), setuj(), settj(), set_favg_in_ext(), setfj()

subroutine  set_time_avg_resid_coef()#
Called from:

bdfext_step(), post()

Call to:

set_time_avg_resid_coef_u(), set_time_avg_resid_coef_t(), setuj(), settj(), set_favg_in_ext(), setfj()

subroutine  set_time_avg_resid_coef_u()#
Called from:

bdfext_step(), post(), set_bdf_coef(), evalc(), evalc3(), evalc4(), setcintp(), setr_t(), setr_v(), setuavg(), settavg(), seth(), hybrid_advance(), constrained_pod(), evalc2(), evf(), check_diag(), check_box(), update_h(), set_ucoef_in_ext(), set_tcoef_in_ext(), setuj(), settj(), setfj(), set_favg_in_ext(), set_time_avg_resid_coef()

Call to:

setuj(), settj(), set_favg_in_ext(), setfj()

subroutine  set_time_avg_resid_coef_t()#
Called from:

bdfext_step(), post(), set_bdf_coef(), evalc(), evalc3(), evalc4(), setcintp(), setr_t(), setr_v(), setuavg(), settavg(), seth(), hybrid_advance(), constrained_pod(), evalc2(), evf(), check_diag(), check_box(), update_h(), set_ucoef_in_ext(), set_tcoef_in_ext(), setuj(), settj(), setfj(), set_favg_in_ext(), set_time_avg_resid_coef()

Call to:

settj(), set_favg_in_ext(), setfj()

subroutine  addeddy(flu, cedm, cedvec, cl, uu)#
Parameters:

  • flu (nb,nb) [real]

  • cedm (nb,nb) [real]

  • cedvec (nb) [real]

  • cl (1 - ic1 + ic2,1 - jc1 + jc2,1 - kc1 + kc2) [real]

  • uu (1 + nb) [real]

Called from:

bdfext_step()