2 INTEGER
, EXTERNAL :: rsl_internal_microclock
3 INTEGER btimex
, solve_tim
4 #define SOLVE_START solve_tim = rsl_internal_microclock()
5 #define SOLVE_END solve_tim = rsl_internal_microclock() - solve_tim
6 #define BENCH_DECL(A) integer A
7 #define BENCH_INIT(A) A=0
8 #define BENCH_START(A) btimex=rsl_internal_microclock()
9 #define BENCH_END(A) A=A+rsl_internal_microclock()-btimex
10 #define BENCH_REPORT(A) write(0,*)'A= ',A
11 BENCH_DECL(step_prep_tim
)
12 BENCH_DECL(set_phys_bc_tim
)
13 BENCH_DECL(init_zero_tend_tim
)
14 BENCH_DECL(phy_prep_tim
)
15 BENCH_DECL(rad_driver_tim
)
16 BENCH_DECL(surf_driver_tim
)
17 BENCH_DECL(pbl_driver_tim
)
18 BENCH_DECL(cu_driver_tim
)
19 BENCH_DECL(shcu_driver_tim
)
20 BENCH_DECL(fdda_driver_tim
)
21 BENCH_DECL(cal_phy_tend
)
22 BENCH_DECL(comp_diff_metrics_tim
)
23 BENCH_DECL(tke_diff_bc_tim
)
24 BENCH_DECL(deform_div_tim
)
25 BENCH_DECL(calc_tke_tim
)
26 BENCH_DECL(phy_bc_tim
)
27 BENCH_DECL(update_phy_ten_tim
)
28 BENCH_DECL(tke_rhs_tim
)
29 BENCH_DECL(vert_diff_tim
)
30 BENCH_DECL(hor_diff_tim
)
31 BENCH_DECL(rk_tend_tim
)
32 BENCH_DECL(relax_bdy_dry_tim
)
33 BENCH_DECL(small_step_prep_tim
)
34 BENCH_DECL(set_phys_bc2_tim
)
35 BENCH_DECL(advance_uv_tim
)
36 BENCH_DECL(spec_bdy_uv_tim
)
37 BENCH_DECL(advance_mu_t_tim
)
38 BENCH_DECL(spec_bdy_t_tim
)
39 BENCH_DECL(sumflux_tim
)
40 BENCH_DECL(advance_w_tim
)
41 BENCH_DECL(spec_bdynhyd_tim
)
42 BENCH_DECL(cald_p_rho_tim
)
43 BENCH_DECL(phys_bc_tim
)
44 BENCH_DECL(calc_mu_uv_tim
)
45 BENCH_DECL(small_step_finish_tim
)
46 BENCH_DECL(rk_scalar_tend_tim
)
47 BENCH_DECL(rlx_bdy_scalar_tim
)
48 BENCH_DECL(update_scal_tim
)
49 BENCH_DECL(flow_depbdy_tim
)
50 BENCH_DECL(tke_adv_tim
)
51 BENCH_DECL(chem_adv_tim
)
52 BENCH_DECL(calc_p_rho_tim
)
53 BENCH_DECL(diag_w_tim
)
54 BENCH_DECL(bc_end_tim
)
55 BENCH_DECL(advance_ppt_tim
)
56 BENCH_DECL(moist_physics_prep_tim
)
57 BENCH_DECL(micro_driver_tim
)
58 BENCH_DECL(moist_phys_end_tim
)
59 BENCH_DECL(time_filt_tim
)
61 BENCH_DECL(microswap_1
)
62 BENCH_DECL(microswap_2
)
63 BENCH_DECL(fire_driver_tim
)
64 BENCH_DECL(tracer_adv_tim
)
69 #define BENCH_START(A)
71 #define BENCH_REPORT(A)
