scale_prof Module Reference

module profiler More...

Functions/Subroutines
subroutine, public	prof_setup
subroutine, public	prof_setprefx (prefxname)
subroutine, public	prof_rapstart (rapname_base, level)
	Start raptime. More...
subroutine, public	prof_rapend (rapname_base, level)
	Save raptime. More...
subroutine, public	prof_rapreport
	Report raptime. 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 103 of file scale_prof.F90.

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().

    use scale_prc, only: &
       prc_abort
    implicit none

    namelist / param_prof / &
         prof_rap_level, &
         prof_mpi_barrier

    integer :: ierr

    log_newline
    log_info("PRF_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

Here is the call graph for this function:

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 139 of file scale_prof.F90.

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

    implicit none

    character(len=*), intent(in) :: prefxname

    !---------------------------------------------------------------------------

    if ( prefxname == '' ) then !--- no prefix
       prof_prefix = ''
    else
       prof_prefix = trim(prefxname)//'_'
    endif

    return

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
	)

Start raptime.

Parameters

[in]	rapname_base	name of item
[in]	level	level of item

Definition at line 157 of file scale_prof.F90.

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_common::atmos_dyn_numfilter_coef(), scale_atmos_dyn_common::atmos_dyn_numfilter_coef_q(), scale_atmos_dyn_tinteg_large_rk3::atmos_dyn_tinteg_large_rk3(), 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_tstep_large_fvm_heve::atmos_dyn_tstep_large_fvm_heve(), scale_atmos_phy_ae_kajino13::atmos_phy_ae_kajino13_negative_fixer(), scale_atmos_phy_cp_kf::atmos_phy_cp_kf_tendency(), 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_sn14::atmos_phy_mp_sn14_qhyd2qtrc(), scale_atmos_phy_mp_suzuki10::atmos_phy_mp_suzuki10_qhyd2qtrc(), 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_history(), mod_atmos_vars::atmos_vars_restart_check(), scale_debug::check(), scale_comm_cartesc::comm_bcast_1d(), scale_comm_cartesc::comm_bcast_2d(), scale_comm_cartesc::comm_bcast_3d(), scale_comm_cartesc::comm_bcast_4d(), scale_comm_cartesc::comm_bcast_character(), scale_comm_cartesc::comm_bcast_int_1d(), scale_comm_cartesc::comm_bcast_int_2d(), scale_comm_cartesc::comm_bcast_int_scr(), scale_comm_cartesc::comm_bcast_logical_scr(), scale_comm_cartesc::comm_bcast_scr(), scale_comm_cartesc_nest::comm_cartesc_nest_nestdown(), scale_comm_cartesc_nest::comm_cartesc_nest_recvwait_issue(), scale_comm_cartesc_nest::comm_cartesc_nest_test(), scale_comm_icoa::comm_data_transfer_dp(), scale_comm_icoa::comm_data_transfer_nopl(), scale_comm_icoa::comm_data_transfer_sp(), scale_comm_cartesc::comm_horizontal_mean_3d(), scale_comm_icoa::comm_var_dp(), scale_comm_icoa::comm_var_sp(), scale_comm_cartesc::comm_vars8_init(), scale_comm_cartesc::comm_vars_init(), scale_file_cartesc::file_cartesc_close(), scale_file_cartesc::file_cartesc_create(), scale_file_cartesc::file_cartesc_def_axes(), 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_axes(), 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_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_interp::interp_factor2d(), scale_interp::interp_factor3d(), scale_interp::interp_interp2d(), scale_interp::interp_interp3d(), 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_mkinit::mkinit(), 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_mkinit::read_sounding(), mod_realinput::realinput_surface(), 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(), scale_debug::valcheck_1d(), scale_debug::valcheck_2d(), scale_debug::valcheck_3d(), and scale_comm_cartesc::wait_3d_mpi().

    use scale_prc, only: &
       prc_mpibarrier, &
       prc_mpitime
    implicit none

    character(len=*), intent(in)           :: rapname_base
    integer,          intent(in), optional :: level

    character(len=H_SHORT) :: rapname

    integer :: id
    integer :: level_
    integer :: tn
    !$ 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( level_ > prof_rap_level ) return

    rapname = trim(prof_prefix)//trim(rapname_base)

    id = get_rapid( rapname, level_ )

    if(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
    call fapp_start( trim(prof_grpname(get_grpid(rapname))), id, level_ )
#endif
#ifdef FINEPA
    call start_collection( rapname )
#endif

    return

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
	)

Save raptime.

Parameters

[in]	rapname_base	name of item
[in]	level	level of item

Definition at line 210 of file scale_prof.F90.

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_common::atmos_dyn_numfilter_coef(), scale_atmos_dyn_common::atmos_dyn_numfilter_coef_q(), scale_atmos_dyn_tinteg_large_rk3::atmos_dyn_tinteg_large_rk3(), 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_tstep_large_fvm_heve::atmos_dyn_tstep_large_fvm_heve(), scale_atmos_phy_ae_kajino13::atmos_phy_ae_kajino13_negative_fixer(), scale_atmos_phy_cp_kf::atmos_phy_cp_kf_tendency(), 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_sn14::atmos_phy_mp_sn14_qhyd2qtrc(), scale_atmos_phy_mp_suzuki10::atmos_phy_mp_suzuki10_qhyd2qtrc(), 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_history(), mod_atmos_vars::atmos_vars_restart_check(), scale_debug::check(), scale_comm_cartesc::comm_bcast_1d(), scale_comm_cartesc::comm_bcast_2d(), scale_comm_cartesc::comm_bcast_3d(), scale_comm_cartesc::comm_bcast_4d(), scale_comm_cartesc::comm_bcast_character(), scale_comm_cartesc::comm_bcast_int_1d(), scale_comm_cartesc::comm_bcast_int_2d(), scale_comm_cartesc::comm_bcast_int_scr(), scale_comm_cartesc::comm_bcast_logical_scr(), scale_comm_cartesc::comm_bcast_scr(), scale_comm_cartesc_nest::comm_cartesc_nest_nestdown(), scale_comm_cartesc_nest::comm_cartesc_nest_recvwait_issue(), scale_comm_cartesc_nest::comm_cartesc_nest_test(), scale_comm_icoa::comm_data_transfer_dp(), scale_comm_icoa::comm_data_transfer_nopl(), scale_comm_icoa::comm_data_transfer_sp(), scale_comm_cartesc::comm_horizontal_mean_3d(), scale_comm_icoa::comm_var_dp(), scale_comm_icoa::comm_var_sp(), scale_comm_cartesc::comm_vars8_init(), scale_comm_cartesc::comm_vars_init(), scale_file_cartesc::file_cartesc_close(), scale_file_cartesc::file_cartesc_create(), scale_file_cartesc::file_cartesc_def_axes(), 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_axes(), 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_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_interp::interp_factor2d(), scale_interp::interp_factor3d(), scale_interp::interp_interp2d(), scale_interp::interp_interp3d(), 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_mkinit::mkinit(), 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_mkinit::read_sounding(), mod_realinput::realinput_surface(), 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(), scale_debug::valcheck_1d(), scale_debug::valcheck_2d(), scale_debug::valcheck_3d(), and scale_comm_cartesc::wait_3d_mpi().

    use scale_prc, only: &
       prc_mpibarrier, &
       prc_mpitime
    implicit none

    character(len=*), intent(in)           :: rapname_base
    integer,          intent(in), optional :: level

    character(len=H_SHORT) :: rapname

    integer :: id
    integer :: level_
    integer :: tn
    !$ 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

    rapname = trim(prof_prefix)//trim(rapname_base)

    id = get_rapid( rapname, level_ )

    if( level_ > prof_rap_level ) return

    if(prof_mpi_barrier) call prc_mpibarrier

    prof_rapttot(id) = prof_rapttot(id) + ( prc_mpitime()-prof_raptstr(id) )
    prof_rapnend(id) = prof_rapnend(id) + 1

#ifdef FINEPA
    call stop_collection( rapname )
#endif
#ifdef FAPP
    call fapp_stop( trim(prof_grpname(prof_grpid(id))), id, level_ )
#endif

    return

Here is the call graph for this function:

prof_rapreport()

subroutine, public scale_prof::prof_rapreport

(

)

Report raptime.

Definition at line 258 of file scale_prof.F90.

References 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_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().

    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 :: id, gid
    integer :: fid
    !---------------------------------------------------------------------------

    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
          do id = 1, prof_rapnmax
             if (       prof_raplevel(id) <= prof_rap_level &
                  .AND. prof_grpid(id) == gid            ) then
                log_info_cont('(1x,A,I3.3,A,A,A,F10.3,A,I9)') &
                              'ID=',id,' : ',prof_rapname(id),' T=',prof_rapttot(id),' N=',prof_rapnstr(id)
             endif
          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

       do gid = 1, prof_rapnmax
          do id = 1, prof_rapnmax
             if (       prof_raplevel(id) <= prof_rap_level &
                  .AND. prof_grpid(id) == gid            &
                  .AND. fid > 0                             ) then
                write(fid,'(6x,A,I3.3,3A,F10.3,A,F10.3,A,I5,2A,F10.3,A,I5,2A,I9)') &
                          'ID=',id,' : ',prof_rapname(id), &
                          ' T(avg)=',avgvar(id), &
                          ', T(max)=',maxvar(id),'[',maxidx(id),']', &
                          ', T(min)=',minvar(id),'[',minidx(id),']', &
                          ', N=',prof_rapnstr(id)
             endif
          enddo
       enddo

    endif

    return

Here is the call graph for this function:

Here is the caller graph for this function: