scale_prof Module Reference

module profiler More...

Functions/Subroutines
subroutine, public	prof_setup
subroutine, public	prof_finalize
subroutine, public	prof_setprefx (prefxname)
subroutine, public	prof_rapstart (rapname_base, level, disable_barrier)
	Start raptime. More...
subroutine, public	prof_rapend (rapname_base, level, disable_barrier)
	Save raptime. More...
subroutine, public	prof_rapreport
	Report raptime. More...
integer function	get_grpid (rapname)
	Get group ID. More...

Detailed Description

module profiler

Description

Time counter & FLOP counter(PAPI) toolbox

Author

Team SCALE

NAMELIST

• PARAM_PROF

  name	type	default value	comment
  PROF_RAP_LEVEL	integer	2
  PROF_MPI_BARRIER	logical	.false.

  
  

History Output

No history output

Function/Subroutine Documentation

prof_setup()

subroutine, public scale_prof::prof_setup

Definition at line 107 of file scale_prof.F90.

    use scale_prc, only: &
       prc_abort
    implicit none
 
    namelist / param_prof / &
         prof_rap_level, &
         prof_mpi_barrier
 
    integer :: ierr
 
    log_newline
    log_info("PROF_setup",*) 'Setup'
 
    !--- read namelist
    rewind(io_fid_conf)
    read(io_fid_conf,nml=param_prof,iostat=ierr)
    if( ierr < 0 ) then !--- missing
       log_info("PROF_setup",*) 'Not found namelist. Default used.'
    elseif( ierr > 0 ) then !--- fatal error
       log_error("PROF_setup",*) 'Not appropriate names in namelist PARAM_PROF. Check!'
       call prc_abort
    endif
    log_nml(param_prof)
 
    log_newline
    log_info("PROF_setup",*) 'Rap output level              = ', prof_rap_level
    log_info("PROF_setup",*) 'Add MPI_barrier in every rap? = ', prof_mpi_barrier
 
    prof_prefix = ''
 
    return

References scale_io::io_fid_conf, and scale_prc::prc_abort().

Referenced by mod_rm_driver::rm_driver(), mod_rm_prep::rm_prep(), and scale::scale_init().

Here is the call graph for this function:

Here is the caller graph for this function:

prof_finalize()

subroutine, public scale_prof::prof_finalize

Definition at line 141 of file scale_prof.F90.

 
    prof_rap_level   = 2
    prof_mpi_barrier = .false.
#ifdef PAPI
    prof_papi_flops     = 0
    prof_papi_real_time = 0.0
    prof_papi_proc_time = 0.0
    prof_papi_mflops    = 0.0
#endif
 
    prof_rapnmax = 0
    prof_grpnmax = 0
 
    return

Referenced by mod_rm_driver::rm_driver(), and mod_rm_prep::rm_prep().

Here is the caller graph for this function:

prof_setprefx()

subroutine, public scale_prof::prof_setprefx

(

character(len=*), intent(in)

prefxname

)

Parameters

[in]

prefxname

prefix

Definition at line 160 of file scale_prof.F90.

    implicit none
 
    character(len=*), intent(in) :: prefxname
 
    !---------------------------------------------------------------------------
 
    prof_prefix = prefxname
 
    return

Referenced by mod_rm_driver::rm_driver(), and mod_rm_prep::rm_prep().

Here is the caller graph for this function:

prof_rapstart()

subroutine, public scale_prof::prof_rapstart	(	character(len=*), intent(in)	rapname_base,
		integer, intent(in), optional	level,
		logical, intent(in), optional	disable_barrier
	)

Start raptime.

Parameters

[in]	rapname_base	name of item
[in]	level	level of item
[in]	disable_barrier	disable barrier if .true.

Definition at line 174 of file scale_prof.F90.

    use scale_prc, only: &
       prc_mpibarrier, &
       prc_mpitime
    implicit none
 
    character(len=*), intent(in)           :: rapname_base
    integer,          intent(in), optional :: level
    logical,          intent(in), optional :: disable_barrier
 
    character(len=H_SHORT) :: rapname
 
    integer :: id
    integer :: level_
    integer :: tn
    integer :: i
    logical :: disable_barrier_
    !$ integer :: omp_get_thread_num
    !---------------------------------------------------------------------------
 
    tn = 0
    !$ tn = omp_get_thread_num()
    if ( tn > 0 ) return
 
    if ( present(level) ) then
       level_ = level
    else
       level_ = prof_default_rap_level
    endif
 
    if ( present(disable_barrier) ) then
       disable_barrier_ = disable_barrier
    else
       disable_barrier_ = .false.
    endif
 
    if( level_ > prof_rap_level ) return
 
    if ( len_trim(prof_prefix) > 0 ) then
       rapname = trim(prof_prefix)//" "//trim(rapname_base)
    else
       rapname = rapname_base
    end if
 
    id = get_rapid( rapname, level_ )
 
    prof_rapcnt(id) = prof_rapcnt(id) + 1
 
    if ( prof_rapcnt(id) > 1 ) return
 
    if ( ( .not. disable_barrier_ ) .and. prof_mpi_barrier ) call prc_mpibarrier
 
    prof_raptstr(id) = prc_mpitime()
    prof_rapnstr(id) = prof_rapnstr(id) + 1
 
    !LOG_INFO("PROF_rapstart",'(1x,A,I8)') rapname, PROF_rapnstr(id)
    !call flush(IO_FID_LOG)
 
#ifdef FAPP
    i = index(rapname," ")
    if ( i == 0 .or. i > len_trim(rapname)) then
       call fapp_start( rapname, id, level_ )
    else
       call fapp_start( rapname(1:i-1)//"_"//trim(rapname(i+1:)), id, level_ )
    end if
#endif
 
    return

References scale_prc::prc_mpibarrier(), and scale_prc::prc_mpitime().

Referenced by mod_atmos_driver::atmos_driver_calc_tendency(), mod_atmos_driver::atmos_driver_calc_tendency_from_sflux(), mod_atmos_driver::atmos_driver_setup(), mod_atmos_driver::atmos_driver_update(), scale_atmos_dyn::atmos_dyn(), scale_atmos_dyn_common::atmos_dyn_divergence(), scale_atmos_dyn_fvm_numfilter::atmos_dyn_fvm_apply_numfilter(), scale_atmos_dyn_fvm_numfilter::atmos_dyn_fvm_numfilter_flux(), scale_atmos_dyn_fvm_numfilter::atmos_dyn_fvm_numfilter_flux_q(), scale_atmos_dyn_tinteg_large_rk3::atmos_dyn_tinteg_large_rk3(), scale_atmos_dyn_tinteg_short_rk11s8o::atmos_dyn_tinteg_short_rk11s8o(), scale_atmos_dyn_tinteg_short_rk3::atmos_dyn_tinteg_short_rk3(), scale_atmos_dyn_tinteg_short_rk4::atmos_dyn_tinteg_short_rk4(), scale_atmos_dyn_tinteg_short_rk7s6o::atmos_dyn_tinteg_short_rk7s6o(), scale_atmos_dyn_tstep_large_fvm_heve::atmos_dyn_tstep_large_fvm_heve(), scale_atmos_dyn_tstep_short_fvm_hevi::atmos_dyn_tstep_short_fvm_hevi(), scale_atmos_phy_ae_kajino13::atmos_phy_ae_kajino13_negative_fixer(), scale_atmos_phy_cp_kf::atmos_phy_cp_kf_tendency(), scale_atmos_phy_lt_sato2019::atmos_phy_lt_electric_field(), scale_atmos_phy_lt_sato2019::atmos_phy_lt_neutralization_f2013(), scale_atmos_phy_lt_sato2019::atmos_phy_lt_neutralization_mg2001(), mod_atmos_phy_mp_driver::atmos_phy_mp_driver_calc_tendency(), scale_atmos_phy_mp_kessler::atmos_phy_mp_kessler_adjustment(), scale_atmos_phy_mp_common::atmos_phy_mp_negative_fixer(), scale_atmos_phy_mp_common::atmos_phy_mp_saturation_adjustment_3d(), scale_atmos_phy_mp_suzuki10::atmos_phy_mp_suzuki10_crg_qtrc2qhyd(), scale_atmos_phy_mp_suzuki10::atmos_phy_mp_suzuki10_tendency(), scale_atmos_phy_mp_tomita08::atmos_phy_mp_tomita08_adjustment(), scale_atmos_phy_rd_mstrnx::atmos_phy_rd_mstrnx_flux(), mod_atmos_driver::atmos_surface_get(), mod_atmos_driver::atmos_surface_set(), mod_atmos_vars::atmos_vars_calc_diagnostics(), mod_atmos_vars::atmos_vars_history(), mod_atmos_vars::atmos_vars_history_setpres(), mod_atmos_vars::atmos_vars_restart_check(), mod_atmos_vars::atmos_vars_restart_close(), mod_atmos_vars::atmos_vars_restart_create(), mod_atmos_vars::atmos_vars_restart_def_var(), mod_atmos_vars::atmos_vars_restart_enddef(), mod_atmos_vars::atmos_vars_restart_open(), mod_atmos_vars::atmos_vars_restart_read(), mod_atmos_vars::atmos_vars_restart_write(), scale_debug::check(), scale_comm_cartesc_nest::comm_cartesc_nest_nestdown_recv(), scale_comm_cartesc_nest::comm_cartesc_nest_nestdown_send(), scale_comm_cartesc_nest::comm_cartesc_nest_recvwait_issue_recv(), scale_comm_cartesc_nest::comm_cartesc_nest_recvwait_issue_send(), scale_comm_cartesc_nest::comm_cartesc_nest_test_recv(), scale_comm_cartesc_nest::comm_cartesc_nest_test_send(), scale_comm_icoa::comm_data_transfer_dp(), scale_comm_icoa::comm_data_transfer_nopl(), scale_comm_icoa::comm_data_transfer_sp(), scale_comm_icoa::comm_var_dp(), scale_comm_icoa::comm_var_sp(), mod_da_driver::da_driver_update(), scale_file::file_add_associatedvariable(), scale_file_cartesc::file_cartesc_close(), scale_file_cartesc::file_cartesc_create(), scale_file_cartesc::file_cartesc_def_var(), scale_file_cartesc::file_cartesc_enddef(), scale_file_cartesc::file_cartesc_flush(), scale_file_cartesc::file_cartesc_open(), scale_file_cartesc::file_cartesc_put_globalattributes(), scale_file_cartesc::file_cartesc_read_1d(), scale_file_cartesc::file_cartesc_read_auto_2d(), scale_file_cartesc::file_cartesc_read_auto_3d(), scale_file_cartesc::file_cartesc_read_var_2d(), scale_file_cartesc::file_cartesc_read_var_3d(), scale_file_cartesc::file_cartesc_read_var_4d(), scale_file_cartesc::file_cartesc_write_var_1d(), scale_file_cartesc::file_cartesc_write_var_2d(), scale_file_cartesc::file_cartesc_write_var_3d(), scale_file_cartesc::file_cartesc_write_var_3d_t(), scale_file_cartesc::file_cartesc_write_var_4d(), scale_file::file_create(), scale_file::file_def_axis(), scale_file::file_get_dimlength(), scale_file_history_cartesc::file_history_cartesc_truncate_3d(), scale_file_history::file_history_in_0d(), scale_file_history::file_history_in_1d(), scale_file_history::file_history_in_2d(), scale_file_history::file_history_in_3d(), scale_file_history::file_history_reg(), scale_file_history::file_history_write(), scale_file::file_set_option(), scale_interp::interp_factor2d_linear_latlon(), scale_interp::interp_factor2d_linear_xy(), scale_interp::interp_factor2d_weight(), scale_interp::interp_factor3d_linear_latlon(), scale_interp::interp_factor3d_linear_xy(), scale_interp::interp_factor3d_weight(), scale_interp::interp_interp2d(), scale_interp::interp_interp3d(), scale_interp_vert::interp_vert_z2xi(), mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_driver_update(), mod_land_driver::land_surface_get(), mod_land_driver::land_surface_set(), mod_land_vars::land_vars_history(), mod_land_vars::land_vars_restart_close(), mod_land_vars::land_vars_restart_create(), mod_land_vars::land_vars_restart_def_var(), mod_land_vars::land_vars_restart_enddef(), mod_land_vars::land_vars_restart_open(), mod_land_vars::land_vars_restart_read(), mod_land_vars::land_vars_restart_write(), mod_mkinit::mkinit(), scale_monitor::monitor_put_2d(), scale_monitor::monitor_put_3d(), scale_monitor::monitor_reg(), scale_monitor::monitor_write(), mod_ocean_driver::ocean_driver_calc_tendency(), mod_ocean_driver::ocean_driver_update(), mod_ocean_driver::ocean_surface_get(), mod_ocean_driver::ocean_surface_set(), mod_ocean_vars::ocean_vars_history(), mod_ocean_vars::ocean_vars_restart_close(), mod_ocean_vars::ocean_vars_restart_create(), mod_ocean_vars::ocean_vars_restart_def_var(), mod_ocean_vars::ocean_vars_restart_enddef(), mod_ocean_vars::ocean_vars_restart_open(), mod_ocean_vars::ocean_vars_restart_read(), mod_ocean_vars::ocean_vars_restart_write(), mod_mkinit::read_sounding(), mod_realinput::realinput_surface(), mod_rm_driver::restart_read(), mod_rm_driver::rm_driver(), mod_rm_prep::rm_prep(), scale::scale_init(), scale_statistics::statistics_detail_2d(), scale_statistics::statistics_detail_3d(), scale_statistics::statistics_horizontal_max_2d(), scale_statistics::statistics_horizontal_max_3d(), scale_statistics::statistics_horizontal_mean_2d(), scale_statistics::statistics_horizontal_mean_3d(), scale_statistics::statistics_horizontal_min_2d(), scale_statistics::statistics_horizontal_min_3d(), scale_statistics::statistics_total_2d(), scale_statistics::statistics_total_3d(), mod_urban_driver::urban_driver_calc_tendency(), mod_urban_driver::urban_driver_update(), mod_urban_driver::urban_surface_get(), mod_urban_driver::urban_surface_set(), mod_urban_vars::urban_vars_history(), mod_urban_vars::urban_vars_restart_close(), mod_urban_vars::urban_vars_restart_create(), mod_urban_vars::urban_vars_restart_def_var(), mod_urban_vars::urban_vars_restart_enddef(), mod_urban_vars::urban_vars_restart_open(), mod_urban_vars::urban_vars_restart_read(), mod_urban_vars::urban_vars_restart_write(), scale_debug::valcheck_1d(), scale_debug::valcheck_2d(), and scale_debug::valcheck_3d().

Here is the call graph for this function:

prof_rapend()

subroutine, public scale_prof::prof_rapend	(	character(len=*), intent(in)	rapname_base,
		integer, intent(in), optional	level,
		logical, intent(in), optional	disable_barrier
	)

Save raptime.

Parameters

[in]	rapname_base	name of item
[in]	level	level of item
[in]	disable_barrier	disable barrier if .true.

Definition at line 246 of file scale_prof.F90.

    use scale_prc, only: &
       prc_mpibarrier, &
       prc_mpitime
    implicit none
 
    character(len=*), intent(in)           :: rapname_base
    integer,          intent(in), optional :: level
    logical,          intent(in), optional :: disable_barrier
 
    character(len=H_SHORT) :: rapname
 
    integer :: id
    integer :: level_
    integer :: tn
    integer :: i
    logical :: disable_barrier_
    !$ integer :: omp_get_thread_num
    !---------------------------------------------------------------------------
 
    tn = 0
    !$ tn = omp_get_thread_num()
    if ( tn > 0 ) return
 
    if ( present(level) ) then
       if( level > prof_rap_level ) return
    endif
 
    if ( len_trim(prof_prefix) > 0 ) then
       rapname = trim(prof_prefix)//" "//trim(rapname_base)
    else
       rapname = rapname_base
    end if
 
    if ( present(disable_barrier) ) then
       disable_barrier_ = disable_barrier
    else
       disable_barrier_ = .false.
    endif
 
 
    level_ = -1
    id = get_rapid( rapname, level_ )
 
    if( level_ > prof_rap_level ) return
 
    prof_rapcnt(id) = prof_rapcnt(id) - 1
 
    if ( prof_rapcnt(id) > 0 ) return
 
#ifdef FAPP
    i = index(rapname," ")
    if ( i == 0 .or. i > len_trim(rapname)) then
       call fapp_stop( rapname, id, level_ )
    else
       call fapp_stop( rapname(1:i-1)//"_"//trim(rapname(i+1:)), id, level_ )
    end if
#endif
 
    prof_rapttot(id) = prof_rapttot(id) + ( prc_mpitime()-prof_raptstr(id) )
    prof_rapnend(id) = prof_rapnend(id) + 1
 
    if ( ( .not. disable_barrier_ ) .and. prof_mpi_barrier ) call prc_mpibarrier
 
    return

References scale_prc::prc_mpibarrier(), and scale_prc::prc_mpitime().

Referenced by mod_atmos_driver::atmos_driver_calc_tendency(), mod_atmos_driver::atmos_driver_calc_tendency_from_sflux(), mod_atmos_driver::atmos_driver_setup(), mod_atmos_driver::atmos_driver_update(), scale_atmos_dyn::atmos_dyn(), scale_atmos_dyn_common::atmos_dyn_divergence(), scale_atmos_dyn_fvm_numfilter::atmos_dyn_fvm_apply_numfilter(), scale_atmos_dyn_fvm_numfilter::atmos_dyn_fvm_numfilter_flux(), scale_atmos_dyn_fvm_numfilter::atmos_dyn_fvm_numfilter_flux_q(), scale_atmos_dyn_tinteg_large_rk3::atmos_dyn_tinteg_large_rk3(), scale_atmos_dyn_tinteg_short_rk11s8o::atmos_dyn_tinteg_short_rk11s8o(), scale_atmos_dyn_tinteg_short_rk3::atmos_dyn_tinteg_short_rk3(), scale_atmos_dyn_tinteg_short_rk4::atmos_dyn_tinteg_short_rk4(), scale_atmos_dyn_tinteg_short_rk7s6o::atmos_dyn_tinteg_short_rk7s6o(), scale_atmos_dyn_tstep_large_fvm_heve::atmos_dyn_tstep_large_fvm_heve(), scale_atmos_dyn_tstep_short_fvm_hevi::atmos_dyn_tstep_short_fvm_hevi(), scale_atmos_phy_ae_kajino13::atmos_phy_ae_kajino13_negative_fixer(), scale_atmos_phy_cp_kf::atmos_phy_cp_kf_tendency(), scale_atmos_phy_lt_sato2019::atmos_phy_lt_electric_field(), scale_atmos_phy_lt_sato2019::atmos_phy_lt_neutralization_f2013(), scale_atmos_phy_lt_sato2019::atmos_phy_lt_neutralization_mg2001(), mod_atmos_phy_mp_driver::atmos_phy_mp_driver_calc_tendency(), scale_atmos_phy_mp_kessler::atmos_phy_mp_kessler_adjustment(), scale_atmos_phy_mp_common::atmos_phy_mp_negative_fixer(), scale_atmos_phy_mp_common::atmos_phy_mp_saturation_adjustment_3d(), scale_atmos_phy_mp_suzuki10::atmos_phy_mp_suzuki10_crg_qtrc2qhyd(), scale_atmos_phy_mp_suzuki10::atmos_phy_mp_suzuki10_tendency(), scale_atmos_phy_mp_tomita08::atmos_phy_mp_tomita08_adjustment(), scale_atmos_phy_rd_mstrnx::atmos_phy_rd_mstrnx_flux(), mod_atmos_driver::atmos_surface_get(), mod_atmos_driver::atmos_surface_set(), mod_atmos_vars::atmos_vars_calc_diagnostics(), mod_atmos_vars::atmos_vars_history(), mod_atmos_vars::atmos_vars_history_setpres(), mod_atmos_vars::atmos_vars_restart_check(), mod_atmos_vars::atmos_vars_restart_close(), mod_atmos_vars::atmos_vars_restart_create(), mod_atmos_vars::atmos_vars_restart_def_var(), mod_atmos_vars::atmos_vars_restart_enddef(), mod_atmos_vars::atmos_vars_restart_open(), mod_atmos_vars::atmos_vars_restart_read(), mod_atmos_vars::atmos_vars_restart_write(), scale_debug::check(), scale_comm_cartesc_nest::comm_cartesc_nest_nestdown_recv(), scale_comm_cartesc_nest::comm_cartesc_nest_nestdown_send(), scale_comm_cartesc_nest::comm_cartesc_nest_recvwait_issue_recv(), scale_comm_cartesc_nest::comm_cartesc_nest_recvwait_issue_send(), scale_comm_cartesc_nest::comm_cartesc_nest_test_recv(), scale_comm_cartesc_nest::comm_cartesc_nest_test_send(), scale_comm_icoa::comm_data_transfer_dp(), scale_comm_icoa::comm_data_transfer_nopl(), scale_comm_icoa::comm_data_transfer_sp(), scale_comm_icoa::comm_var_dp(), scale_comm_icoa::comm_var_sp(), mod_da_driver::da_driver_update(), scale_file::file_add_associatedvariable(), scale_file_cartesc::file_cartesc_close(), scale_file_cartesc::file_cartesc_create(), scale_file_cartesc::file_cartesc_def_var(), scale_file_cartesc::file_cartesc_enddef(), scale_file_cartesc::file_cartesc_flush(), scale_file_cartesc::file_cartesc_open(), scale_file_cartesc::file_cartesc_put_globalattributes(), scale_file_cartesc::file_cartesc_read_1d(), scale_file_cartesc::file_cartesc_read_auto_2d(), scale_file_cartesc::file_cartesc_read_auto_3d(), scale_file_cartesc::file_cartesc_read_var_2d(), scale_file_cartesc::file_cartesc_read_var_3d(), scale_file_cartesc::file_cartesc_read_var_4d(), scale_file_cartesc::file_cartesc_write_var_1d(), scale_file_cartesc::file_cartesc_write_var_2d(), scale_file_cartesc::file_cartesc_write_var_3d(), scale_file_cartesc::file_cartesc_write_var_3d_t(), scale_file_cartesc::file_cartesc_write_var_4d(), scale_file::file_create(), scale_file::file_def_axis(), scale_file::file_get_dimlength(), scale_file_history_cartesc::file_history_cartesc_truncate_3d(), scale_file_history::file_history_in_0d(), scale_file_history::file_history_in_1d(), scale_file_history::file_history_in_2d(), scale_file_history::file_history_in_3d(), scale_file_history::file_history_reg(), scale_file_history::file_history_write(), scale_file::file_set_option(), scale_interp::interp_factor2d_linear_latlon(), scale_interp::interp_factor2d_linear_xy(), scale_interp::interp_factor2d_weight(), scale_interp::interp_factor3d_linear_latlon(), scale_interp::interp_factor3d_linear_xy(), scale_interp::interp_factor3d_weight(), scale_interp::interp_interp2d(), scale_interp::interp_interp3d(), scale_interp_vert::interp_vert_z2xi(), mod_land_driver::land_driver_calc_tendency(), mod_land_driver::land_driver_update(), mod_land_driver::land_surface_get(), mod_land_driver::land_surface_set(), mod_land_vars::land_vars_history(), mod_land_vars::land_vars_restart_close(), mod_land_vars::land_vars_restart_create(), mod_land_vars::land_vars_restart_def_var(), mod_land_vars::land_vars_restart_enddef(), mod_land_vars::land_vars_restart_open(), mod_land_vars::land_vars_restart_read(), mod_land_vars::land_vars_restart_write(), mod_mkinit::mkinit(), scale_monitor::monitor_put_2d(), scale_monitor::monitor_put_3d(), scale_monitor::monitor_reg(), scale_monitor::monitor_write(), mod_ocean_driver::ocean_driver_calc_tendency(), mod_ocean_driver::ocean_driver_update(), mod_ocean_driver::ocean_surface_get(), mod_ocean_driver::ocean_surface_set(), mod_ocean_vars::ocean_vars_history(), mod_ocean_vars::ocean_vars_restart_close(), mod_ocean_vars::ocean_vars_restart_create(), mod_ocean_vars::ocean_vars_restart_def_var(), mod_ocean_vars::ocean_vars_restart_enddef(), mod_ocean_vars::ocean_vars_restart_open(), mod_ocean_vars::ocean_vars_restart_read(), mod_ocean_vars::ocean_vars_restart_write(), mod_mkinit::read_sounding(), mod_realinput::realinput_surface(), mod_rm_driver::restart_read(), mod_rm_driver::rm_driver(), mod_rm_prep::rm_prep(), scale::scale_finalize(), scale_statistics::statistics_detail_2d(), scale_statistics::statistics_detail_3d(), scale_statistics::statistics_horizontal_max_2d(), scale_statistics::statistics_horizontal_max_3d(), scale_statistics::statistics_horizontal_mean_2d(), scale_statistics::statistics_horizontal_mean_3d(), scale_statistics::statistics_horizontal_min_2d(), scale_statistics::statistics_horizontal_min_3d(), scale_statistics::statistics_total_2d(), scale_statistics::statistics_total_3d(), mod_urban_driver::urban_driver_calc_tendency(), mod_urban_driver::urban_driver_update(), mod_urban_driver::urban_surface_get(), mod_urban_driver::urban_surface_set(), mod_urban_vars::urban_vars_history(), mod_urban_vars::urban_vars_restart_close(), mod_urban_vars::urban_vars_restart_create(), mod_urban_vars::urban_vars_restart_def_var(), mod_urban_vars::urban_vars_restart_enddef(), mod_urban_vars::urban_vars_restart_open(), mod_urban_vars::urban_vars_restart_read(), mod_urban_vars::urban_vars_restart_write(), scale_debug::valcheck_1d(), scale_debug::valcheck_2d(), and scale_debug::valcheck_3d().

Here is the call graph for this function:

prof_rapreport()

subroutine, public scale_prof::prof_rapreport

Report raptime.

Definition at line 315 of file scale_prof.F90.

    use scale_prc, only: &
       prc_mpitimestat, &
       prc_ismaster
    implicit none
 
    real(DP) :: avgvar(PROF_rapnlimit)
    real(DP) :: maxvar(PROF_rapnlimit)
    real(DP) :: minvar(PROF_rapnlimit)
    integer  :: maxidx(PROF_rapnlimit)
    integer  :: minidx(PROF_rapnlimit)
 
    integer  :: idx(PROF_rapnlimit)
    integer  :: cnt
 
    integer :: id, gid
    integer :: fid
    integer :: i, j
    !---------------------------------------------------------------------------
 
    do id = 1, prof_rapnmax
       if ( prof_rapnstr(id) /= prof_rapnend(id) ) then
           log_warn("PROF_rapreport",*) 'Mismatch Report',id,prof_rapname(id),prof_rapnstr(id),prof_rapnend(id)
       endif
    enddo
 
    log_newline
    log_info("PROF_rapreport",'(1x,A,I2,A)') 'Computational Time Report (Rap level = ', prof_rap_level, ')'
 
    if ( io_log_allnode ) then ! report for each node
 
       do gid = 1, prof_rapnmax
          cnt = 0
          do id = 1, prof_rapnmax
             if (       prof_raplevel(id) <= prof_rap_level &
                  .AND. prof_grpid(id) == gid            ) then
                cnt = cnt + 1
                idx(cnt) = id
             end if
          end do
          do j = 1, cnt-1
             do i = j+1, cnt
                if ( prof_raplevel(idx(i)) < prof_raplevel(idx(j)) .or. &
                     ( prof_raplevel(idx(i)) == prof_raplevel(idx(j)) &
                     .and. prof_rapname(idx(i)) < prof_rapname(idx(j)) ) ) then
                   id = idx(i)
                   idx(i) = idx(j)
                   idx(j) = id
                end if
             end do
          end do
          do i = 1, cnt
             id = idx(i)
             log_info_cont('(1x,2A,I2,A,F10.3,A,I9)') &
                  prof_rapname(id), ' lev=', prof_raplevel(id), &
                  ': T=',prof_rapttot(id),' N=',prof_rapnstr(id)
          enddo
       enddo
 
    else
 
       call prc_mpitimestat( avgvar(1:prof_rapnmax), &
                             maxvar(1:prof_rapnmax), &
                             minvar(1:prof_rapnmax), &
                             maxidx(1:prof_rapnmax), &
                             minidx(1:prof_rapnmax), &
                             prof_rapttot(1:prof_rapnmax)  )
 
       fid = -1
       if ( io_log_suppress ) then ! report to STDOUT
          if ( prc_ismaster ) then
             write(*,*) 'INFO  [PROF_rapreport] Computational Time Report'
             fid = io_fid_stdout ! master node
          endif
       else
          if ( io_l ) fid = io_fid_log
       endif
 
       if ( fid > 0 ) then
          do gid = 1, prof_rapnmax
             cnt = 0
             do id = 1, prof_rapnmax
                if (       prof_raplevel(id) <= prof_rap_level &
                     .AND. prof_grpid(id) == gid            ) then
                   cnt = cnt + 1
                   idx(cnt) = id
                end if
             end do
             do j = 1, cnt-1
                do i = j+1, cnt
                   if ( prof_raplevel(idx(i)) < prof_raplevel(idx(j)) .or. &
                        ( prof_raplevel(idx(i)) == prof_raplevel(idx(j)) &
                        .and. prof_rapname(idx(i)) < prof_rapname(idx(j)) ) ) then
                      id = idx(i)
                      idx(i) = idx(j)
                      idx(j) = id
                   end if
                end do
             end do
             do i = 1, cnt
                id = idx(i)
                write(fid,'(1x,2A,I2,A,F10.3,2(A,F10.3,A,I6,A),A,I9)') &
                     prof_rapname(id), ' lev=', prof_raplevel(id), &
                     ': T(avg)=',avgvar(id), &
                     ', T(max)=',maxvar(id),'[',maxidx(id),']', &
                     ', T(min)=',minvar(id),'[',minidx(id),']', &
                     ', N=',prof_rapnstr(id)
             end do
          enddo
       end if
 
    endif
 
    return

References get_grpid(), scale_io::io_fid_log, scale_io::io_fid_stdout, scale_io::io_l, scale_io::io_log_allnode, scale_io::io_log_suppress, scale_prc::prc_abort(), scale_prc::prc_ismaster, scale_prc::prc_mpitimestat(), and scale_prc::prc_nprocs.

Referenced by mod_rm_driver::rm_driver(), mod_rm_prep::rm_prep(), and scale::scale_finalize().

Here is the call graph for this function:

Here is the caller graph for this function:

get_grpid()

integer function scale_prof::get_grpid

(

character(len=*), intent(in)

rapname

)

Get group ID.

Parameters

[in]

rapname

name of item

Definition at line 597 of file scale_prof.F90.

    implicit none
 
    character(len=*), intent(in)    :: rapname
 
    character(len=H_SHORT) :: grpname
 
    integer :: gid
    integer :: idx
    !---------------------------------------------------------------------------
 
    idx = index(rapname," ")
    if ( idx > 1 ) then
       grpname = rapname(1:idx-1)
    else
       grpname = rapname
    endif
 
    do gid = 1, prof_grpnmax
       if( grpname == prof_grpname(gid) ) return
    enddo
 
    prof_grpnmax      = prof_grpnmax + 1
    gid               = prof_grpnmax
    prof_grpname(gid) = grpname
 
    return

Referenced by prof_rapreport().

Here is the caller graph for this function: