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

References scale_stdio::io_fid_conf, scale_stdio::io_fid_log, scale_stdio::io_fid_nml, scale_stdio::io_l, scale_stdio::io_nml, and scale_process::prc_mpistop().

Referenced by mod_rm_driver::scalerm(), and mod_rm_prep::scalerm_prep().

    use scale_process, only: &
       prc_mpistop
    implicit none

    namelist / param_prof / &
         prof_rap_level, &
         prof_mpi_barrier

    integer :: ierr

    if( io_l ) write(io_fid_log,*)
    if( io_l ) write(io_fid_log,*) '++++++ Module[PROF] / Categ[COMMON] / Origin[SCALElib]'

    !--- read namelist
    rewind(io_fid_conf)
    read(io_fid_conf,nml=param_prof,iostat=ierr)
    if( ierr < 0 ) then !--- missing
       if( io_l ) write(io_fid_log,*) '*** Not found namelist. Default used.'
    elseif( ierr > 0 ) then !--- fatal error
       write(*,*) 'xxx Not appropriate names in namelist PARAM_PROF. Check!'
       call prc_mpistop
    endif
    if( io_nml ) write(io_fid_nml,nml=param_prof)

    if( io_l ) write(io_fid_log,*)
    if( io_l ) write(io_fid_log,*) '*** Rap output level              = ', prof_rap_level
    if( io_l ) write(io_fid_log,*) '*** 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 138 of file scale_prof.F90.

Referenced by mod_rm_driver::scalerm(), and mod_rm_prep::scalerm_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 156 of file scale_prof.F90.

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

Referenced by scale_atmos_phy_ae_kajino13::aerosol_zerochem(), mod_atmos_driver::atmos_driver(), mod_atmos_driver::atmos_driver_resume1(), mod_atmos_driver::atmos_driver_resume2(), mod_atmos_driver::atmos_driver_setup(), 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(), mod_atmos_phy_ae_driver::atmos_phy_ae_driver_resume(), mod_atmos_phy_ch_driver::atmos_phy_ch_driver_resume(), mod_atmos_phy_cp_driver::atmos_phy_cp_driver_resume(), scale_atmos_phy_cp_kf::atmos_phy_cp_kf(), mod_atmos_phy_mp_driver::atmos_phy_mp_driver_resume(), scale_atmos_phy_mp_kessler::atmos_phy_mp_kessler(), scale_atmos_phy_mp_common::atmos_phy_mp_negative_fixer(), scale_atmos_phy_mp_common::atmos_phy_mp_precipitation(), scale_atmos_phy_mp_common::atmos_phy_mp_saturation_adjustment(), scale_atmos_phy_mp_sn14::atmos_phy_mp_sn14(), scale_atmos_phy_mp_suzuki10::atmos_phy_mp_suzuki10(), scale_atmos_phy_mp_tomita08::atmos_phy_mp_tomita08(), mod_atmos_phy_rd_driver::atmos_phy_rd_driver_resume(), scale_atmos_phy_rd_mstrnx::atmos_phy_rd_mstrnx(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver_resume(), mod_atmos_phy_tb_driver::atmos_phy_tb_driver_resume(), mod_atmos_vars::atmos_vars_restart_check(), scale_atmos_dyn_common::calc_numdiff(), scale_debug::check(), scale_comm::comm_bcast_1d(), scale_comm::comm_bcast_2d(), scale_comm::comm_bcast_3d(), scale_comm::comm_bcast_4d(), scale_comm::comm_bcast_int_1d(), scale_comm::comm_bcast_int_2d(), scale_comm::comm_bcast_int_scr(), scale_comm::comm_bcast_logical_scr(), scale_comm::comm_bcast_scr(), scale_comm::comm_horizontal_max_2d(), scale_comm::comm_horizontal_mean(), scale_comm::comm_horizontal_min_2d(), scale_comm::comm_vars8_init(), scale_comm::comm_vars_init(), scale_fileio::fileio_close(), scale_fileio::fileio_create(), scale_fileio::fileio_def_var(), scale_fileio::fileio_enddef(), scale_fileio::fileio_flush(), scale_fileio::fileio_open(), scale_fileio::fileio_read_var_1d(), scale_fileio::fileio_read_var_2d(), scale_fileio::fileio_read_var_3d(), scale_fileio::fileio_read_var_4d(), scale_fileio::fileio_write_var_1d(), scale_fileio::fileio_write_var_2d(), scale_fileio::fileio_write_var_3d(), scale_fileio::fileio_write_var_3d_t(), scale_fileio::fileio_write_var_4d(), scale_history::hist_get_2d(), scale_history::hist_get_3d(), scale_history::hist_in_0d(), scale_history::hist_put_0d(), scale_history::hist_put_1d(), scale_history::hist_put_2d(), scale_history::hist_put_3d(), scale_history::hist_query(), scale_history::hist_reg(), scale_history::hist_setup(), scale_history::hist_write(), mod_land_driver::land_driver(), mod_land_driver::land_driver_resume(), mod_land_phy_driver::land_phy_driver_resume(), scale_monitor::monit_write(), scale_atmos_phy_mp_sn14::mp_negativefilter(), scale_atmos_phy_mp_suzuki10::mp_suzuki10(), scale_grid_nest::nest_comm_nestdown(), scale_grid_nest::nest_comm_recvwait_issue(), scale_grid_nest::nest_comm_test(), mod_ocean_driver::ocean_driver(), mod_ocean_driver::ocean_driver_resume(), mod_ocean_phy_driver::ocean_phy_driver_resume(), scale_atmos_phy_mp_suzuki10::r_collcoag(), mod_rm_driver::scalerm(), mod_rm_prep::scalerm_prep(), scale_rm_statistics::stat_detail(), scale_rm_statistics::stat_total_2d(), scale_rm_statistics::stat_total_3d(), mod_urban_driver::urban_driver(), mod_urban_driver::urban_driver_resume(), mod_urban_phy_driver::urban_phy_driver_resume(), scale_debug::valcheck_1d(), scale_debug::valcheck_2d(), scale_debug::valcheck_3d(), and scale_comm::wait_3d_mpi().

    use scale_process, 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_
    !---------------------------------------------------------------------------

    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

#ifdef DEBUG
    !if( IO_L ) write(IO_FID_LOG,*) '<DEBUG> [PROF] ', rapname, PROF_rapnstr(id)
#endif

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

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

Referenced by scale_atmos_phy_ae_kajino13::aerosol_zerochem(), mod_atmos_driver::atmos_driver(), mod_atmos_driver::atmos_driver_resume1(), mod_atmos_driver::atmos_driver_resume2(), mod_atmos_driver::atmos_driver_setup(), 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(), mod_atmos_phy_ae_driver::atmos_phy_ae_driver_resume(), mod_atmos_phy_ch_driver::atmos_phy_ch_driver_resume(), mod_atmos_phy_cp_driver::atmos_phy_cp_driver_resume(), scale_atmos_phy_cp_kf::atmos_phy_cp_kf(), mod_atmos_phy_mp_driver::atmos_phy_mp_driver_resume(), scale_atmos_phy_mp_kessler::atmos_phy_mp_kessler(), scale_atmos_phy_mp_common::atmos_phy_mp_negative_fixer(), scale_atmos_phy_mp_common::atmos_phy_mp_precipitation(), scale_atmos_phy_mp_common::atmos_phy_mp_saturation_adjustment(), scale_atmos_phy_mp_sn14::atmos_phy_mp_sn14(), scale_atmos_phy_mp_suzuki10::atmos_phy_mp_suzuki10(), scale_atmos_phy_mp_tomita08::atmos_phy_mp_tomita08(), mod_atmos_phy_rd_driver::atmos_phy_rd_driver_resume(), scale_atmos_phy_rd_mstrnx::atmos_phy_rd_mstrnx(), mod_atmos_phy_sf_driver::atmos_phy_sf_driver_resume(), mod_atmos_phy_tb_driver::atmos_phy_tb_driver_resume(), mod_atmos_vars::atmos_vars_restart_check(), scale_atmos_dyn_common::calc_numdiff(), scale_debug::check(), scale_comm::comm_bcast_1d(), scale_comm::comm_bcast_2d(), scale_comm::comm_bcast_3d(), scale_comm::comm_bcast_4d(), scale_comm::comm_bcast_int_1d(), scale_comm::comm_bcast_int_2d(), scale_comm::comm_bcast_int_scr(), scale_comm::comm_bcast_logical_scr(), scale_comm::comm_bcast_scr(), scale_comm::comm_horizontal_max_2d(), scale_comm::comm_horizontal_mean(), scale_comm::comm_horizontal_min_2d(), scale_comm::comm_vars8_init(), scale_comm::comm_vars_init(), scale_fileio::fileio_close(), scale_fileio::fileio_create(), scale_fileio::fileio_def_var(), scale_fileio::fileio_enddef(), scale_fileio::fileio_flush(), scale_fileio::fileio_open(), scale_fileio::fileio_read_var_1d(), scale_fileio::fileio_read_var_2d(), scale_fileio::fileio_read_var_3d(), scale_fileio::fileio_read_var_4d(), scale_fileio::fileio_write_var_1d(), scale_fileio::fileio_write_var_2d(), scale_fileio::fileio_write_var_3d(), scale_fileio::fileio_write_var_3d_t(), scale_fileio::fileio_write_var_4d(), scale_history::hist_get_2d(), scale_history::hist_get_3d(), scale_history::hist_in_0d(), scale_history::hist_put_0d(), scale_history::hist_put_1d(), scale_history::hist_put_2d(), scale_history::hist_put_3d(), scale_history::hist_query(), scale_history::hist_reg(), scale_history::hist_setup(), scale_history::hist_write(), mod_land_driver::land_driver(), mod_land_driver::land_driver_resume(), mod_land_phy_driver::land_phy_driver_resume(), scale_monitor::monit_write(), scale_atmos_phy_mp_sn14::mp_negativefilter(), scale_atmos_phy_mp_suzuki10::mp_suzuki10(), scale_grid_nest::nest_comm_nestdown(), scale_grid_nest::nest_comm_recvwait_issue(), scale_grid_nest::nest_comm_test(), mod_ocean_driver::ocean_driver(), mod_ocean_driver::ocean_driver_resume(), mod_ocean_phy_driver::ocean_phy_driver_resume(), scale_atmos_phy_mp_suzuki10::r_collcoag(), mod_rm_driver::scalerm(), mod_rm_prep::scalerm_prep(), scale_rm_statistics::stat_detail(), scale_rm_statistics::stat_total_2d(), scale_rm_statistics::stat_total_3d(), mod_urban_driver::urban_driver(), mod_urban_driver::urban_driver_resume(), mod_urban_phy_driver::urban_phy_driver_resume(), scale_debug::valcheck_1d(), scale_debug::valcheck_2d(), scale_debug::valcheck_3d(), and scale_comm::wait_3d_mpi().

    use scale_process, 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_
    !---------------------------------------------------------------------------

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

References scale_stdio::io_fid_log, scale_stdio::io_l, scale_stdio::io_log_allnode, scale_stdio::io_log_suppress, scale_process::prc_ismaster, scale_process::prc_mpitimestat(), and scale_process::prc_nprocs.

Referenced by mod_rm_driver::scalerm(), and mod_rm_prep::scalerm_prep().

    use scale_process, 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
           write(*,*) '*** Mismatch Report',id,prof_rapname(id),prof_rapnstr(id),prof_rapnend(id)
       endif
    enddo

    if( io_l ) write(io_fid_log,*)
    if( io_l ) write(io_fid_log,*) '*** Computational Time Report'
    if( io_l ) write(io_fid_log,*) '*** Rap level is ', 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
                if( io_l ) write(io_fid_log,'(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(*,*) '*** Computational Time Report'
             fid = 6 ! 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
                if( io_l ) write(io_fid_log,'(1x,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: