| 1 | #ifdef BENCH |
|---|
| 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(fdda_driver_tim) |
|---|
| 20 | BENCH_DECL(cal_phy_tend) |
|---|
| 21 | BENCH_DECL(comp_diff_metrics_tim) |
|---|
| 22 | BENCH_DECL(tke_diff_bc_tim) |
|---|
| 23 | BENCH_DECL(deform_div_tim) |
|---|
| 24 | BENCH_DECL(calc_tke_tim) |
|---|
| 25 | BENCH_DECL(phy_bc_tim) |
|---|
| 26 | BENCH_DECL(update_phy_ten_tim) |
|---|
| 27 | BENCH_DECL(tke_rhs_tim) |
|---|
| 28 | BENCH_DECL(vert_diff_tim) |
|---|
| 29 | BENCH_DECL(hor_diff_tim) |
|---|
| 30 | BENCH_DECL(rk_tend_tim) |
|---|
| 31 | BENCH_DECL(relax_bdy_dry_tim) |
|---|
| 32 | BENCH_DECL(small_step_prep_tim) |
|---|
| 33 | BENCH_DECL(set_phys_bc2_tim) |
|---|
| 34 | BENCH_DECL(advance_uv_tim) |
|---|
| 35 | BENCH_DECL(spec_bdy_uv_tim) |
|---|
| 36 | BENCH_DECL(advance_mu_t_tim) |
|---|
| 37 | BENCH_DECL(spec_bdy_t_tim) |
|---|
| 38 | BENCH_DECL(sumflux_tim) |
|---|
| 39 | BENCH_DECL(advance_w_tim) |
|---|
| 40 | BENCH_DECL(spec_bdynhyd_tim) |
|---|
| 41 | BENCH_DECL(cald_p_rho_tim) |
|---|
| 42 | BENCH_DECL(phys_bc_tim) |
|---|
| 43 | BENCH_DECL(calc_mu_uv_tim) |
|---|
| 44 | BENCH_DECL(small_step_finish_tim) |
|---|
| 45 | BENCH_DECL(rk_scalar_tend_tim) |
|---|
| 46 | BENCH_DECL(rlx_bdy_scalar_tim) |
|---|
| 47 | BENCH_DECL(update_scal_tim) |
|---|
| 48 | BENCH_DECL(flow_depbdy_tim) |
|---|
| 49 | BENCH_DECL(tke_adv_tim) |
|---|
| 50 | BENCH_DECL(chem_adv_tim) |
|---|
| 51 | BENCH_DECL(calc_p_rho_tim) |
|---|
| 52 | BENCH_DECL(diag_w_tim) |
|---|
| 53 | BENCH_DECL(bc_end_tim) |
|---|
| 54 | BENCH_DECL(advance_ppt_tim) |
|---|
| 55 | BENCH_DECL(moist_physics_prep_tim) |
|---|
| 56 | BENCH_DECL(micro_driver_tim) |
|---|
| 57 | BENCH_DECL(moist_phys_end_tim) |
|---|
| 58 | BENCH_DECL(time_filt_tim) |
|---|
| 59 | BENCH_DECL(bc_2d_tim) |
|---|
| 60 | BENCH_DECL(microswap_1) |
|---|
| 61 | BENCH_DECL(microswap_2) |
|---|
| 62 | #else |
|---|
| 63 | #define SOLVE_START |
|---|
| 64 | #define SOLVE_END |
|---|
| 65 | #define BENCH_INIT(A) |
|---|
| 66 | #define BENCH_START(A) |
|---|
| 67 | #define BENCH_END(A) |
|---|
| 68 | #define BENCH_REPORT(A) |
|---|
| 69 | #endif |
|---|
