scale_debug Module Reference

module DEBUG More...

Functions/Subroutines
subroutine, public	check (current_line, v)
	Undefined value checker. More...
subroutine	valcheck_1d (KA, KS, KE, var, valmin, valmax, varname, current_file, current_line, mask)
	Nan & extreme value checker (1D) More...
subroutine	valcheck_2d (IA, IS, IE, JA, JS, JE, var, valmin, valmax, varname, current_file, current_line, mask)
	Nan & extreme value checker (2D) More...
subroutine	valcheck_3d (KA, KS, KE, IA, IS, IE, JA, JS, JE, var, valmin, valmax, varname, current_file, current_line, mask)
	Nan & extreme value checker (3D) More...

Variables
integer, public	debug_domain_num = 0

Detailed Description

module DEBUG

Description

Debug & Value check tools

Author

Team SCALE

Function/Subroutine Documentation

check()

subroutine, public scale_debug::check	(	integer, intent(in)	current_line,
		real(rp), intent(in)	v
	)

Undefined value checker.

Definition at line 59 of file scale_debug.F90.

    use scale_prc, only: &
       prc_abort
    use scale_const, only: &
       const_undef
    implicit none
 
    integer,  intent(in) :: current_line
    real(RP), intent(in) :: v
    !---------------------------------------------------------------------------
 
    call prof_rapstart('Debug', 1)
 
    if ( .NOT. ( abs(v) < abs(const_undef) ) ) then
       log_error("CHECK",*) 'uninitialized value at line:', current_line
       call abort
    end if
 
    call prof_rapend  ('Debug', 1)
 
    return

References scale_const::const_undef, scale_prc::prc_abort(), scale_prof::prof_rapend(), and scale_prof::prof_rapstart().

Referenced by scale_atmos_dyn_fvm_numfilter::atmos_dyn_fvm_apply_numfilter(), scale_atmos_dyn_fvm_fct::atmos_dyn_fvm_fct(), scale_atmos_dyn_fvm_flux_cd2::atmos_dyn_fvm_flux_valuew_z_cd2(), scale_atmos_dyn_fvm_flux_cd4::atmos_dyn_fvm_flux_valuew_z_cd4(), scale_atmos_dyn_fvm_flux_cd6::atmos_dyn_fvm_flux_valuew_z_cd6(), scale_atmos_dyn_fvm_flux_cd8::atmos_dyn_fvm_flux_valuew_z_cd8(), scale_atmos_dyn_fvm_flux_ud1::atmos_dyn_fvm_flux_valuew_z_ud1(), scale_atmos_dyn_fvm_flux_ud3::atmos_dyn_fvm_flux_valuew_z_ud3(), scale_atmos_dyn_fvm_flux_ud3koren1993::atmos_dyn_fvm_flux_valuew_z_ud3koren1993(), scale_atmos_dyn_fvm_flux_ud5::atmos_dyn_fvm_flux_valuew_z_ud5(), scale_atmos_dyn_fvm_flux_ud7::atmos_dyn_fvm_flux_valuew_z_ud7(), scale_atmos_dyn_fvm_flux_cd2::atmos_dyn_fvm_fluxx_uyz_cd2(), scale_atmos_dyn_fvm_flux_cd4::atmos_dyn_fvm_fluxx_uyz_cd4(), scale_atmos_dyn_fvm_flux_cd6::atmos_dyn_fvm_fluxx_uyz_cd6(), scale_atmos_dyn_fvm_flux_cd8::atmos_dyn_fvm_fluxx_uyz_cd8(), scale_atmos_dyn_fvm_flux_ud1::atmos_dyn_fvm_fluxx_uyz_ud1(), scale_atmos_dyn_fvm_flux_ud3::atmos_dyn_fvm_fluxx_uyz_ud3(), scale_atmos_dyn_fvm_flux_ud3koren1993::atmos_dyn_fvm_fluxx_uyz_ud3koren1993(), scale_atmos_dyn_fvm_flux_ud5::atmos_dyn_fvm_fluxx_uyz_ud5(), scale_atmos_dyn_fvm_flux_ud7::atmos_dyn_fvm_fluxx_uyz_ud7(), scale_atmos_dyn_fvm_flux_cd2::atmos_dyn_fvm_fluxx_xvz_cd2(), scale_atmos_dyn_fvm_flux_cd4::atmos_dyn_fvm_fluxx_xvz_cd4(), scale_atmos_dyn_fvm_flux_cd6::atmos_dyn_fvm_fluxx_xvz_cd6(), scale_atmos_dyn_fvm_flux_cd8::atmos_dyn_fvm_fluxx_xvz_cd8(), scale_atmos_dyn_fvm_flux_ud1::atmos_dyn_fvm_fluxx_xvz_ud1(), scale_atmos_dyn_fvm_flux_ud3::atmos_dyn_fvm_fluxx_xvz_ud3(), scale_atmos_dyn_fvm_flux_ud3koren1993::atmos_dyn_fvm_fluxx_xvz_ud3koren1993(), scale_atmos_dyn_fvm_flux_ud5::atmos_dyn_fvm_fluxx_xvz_ud5(), scale_atmos_dyn_fvm_flux_ud7::atmos_dyn_fvm_fluxx_xvz_ud7(), scale_atmos_dyn_fvm_flux_cd2::atmos_dyn_fvm_fluxx_xyw_cd2(), scale_atmos_dyn_fvm_flux_cd4::atmos_dyn_fvm_fluxx_xyw_cd4(), scale_atmos_dyn_fvm_flux_cd6::atmos_dyn_fvm_fluxx_xyw_cd6(), scale_atmos_dyn_fvm_flux_cd8::atmos_dyn_fvm_fluxx_xyw_cd8(), scale_atmos_dyn_fvm_flux_ud1::atmos_dyn_fvm_fluxx_xyw_ud1(), scale_atmos_dyn_fvm_flux_ud3::atmos_dyn_fvm_fluxx_xyw_ud3(), scale_atmos_dyn_fvm_flux_ud3koren1993::atmos_dyn_fvm_fluxx_xyw_ud3koren1993(), scale_atmos_dyn_fvm_flux_ud5::atmos_dyn_fvm_fluxx_xyw_ud5(), scale_atmos_dyn_fvm_flux_ud7::atmos_dyn_fvm_fluxx_xyw_ud7(), scale_atmos_dyn_fvm_flux_cd2::atmos_dyn_fvm_fluxx_xyz_cd2(), scale_atmos_dyn_fvm_flux_cd4::atmos_dyn_fvm_fluxx_xyz_cd4(), scale_atmos_dyn_fvm_flux_cd6::atmos_dyn_fvm_fluxx_xyz_cd6(), scale_atmos_dyn_fvm_flux_cd8::atmos_dyn_fvm_fluxx_xyz_cd8(), scale_atmos_dyn_fvm_flux_ud1::atmos_dyn_fvm_fluxx_xyz_ud1(), scale_atmos_dyn_fvm_flux_ud3::atmos_dyn_fvm_fluxx_xyz_ud3(), scale_atmos_dyn_fvm_flux_ud3koren1993::atmos_dyn_fvm_fluxx_xyz_ud3koren1993(), scale_atmos_dyn_fvm_flux_ud5::atmos_dyn_fvm_fluxx_xyz_ud5(), scale_atmos_dyn_fvm_flux_ud7::atmos_dyn_fvm_fluxx_xyz_ud7(), scale_atmos_dyn_fvm_flux_cd2::atmos_dyn_fvm_fluxy_uyz_cd2(), scale_atmos_dyn_fvm_flux_cd4::atmos_dyn_fvm_fluxy_uyz_cd4(), scale_atmos_dyn_fvm_flux_cd6::atmos_dyn_fvm_fluxy_uyz_cd6(), scale_atmos_dyn_fvm_flux_cd8::atmos_dyn_fvm_fluxy_uyz_cd8(), scale_atmos_dyn_fvm_flux_ud1::atmos_dyn_fvm_fluxy_uyz_ud1(), scale_atmos_dyn_fvm_flux_ud3::atmos_dyn_fvm_fluxy_uyz_ud3(), scale_atmos_dyn_fvm_flux_ud3koren1993::atmos_dyn_fvm_fluxy_uyz_ud3koren1993(), scale_atmos_dyn_fvm_flux_ud5::atmos_dyn_fvm_fluxy_uyz_ud5(), scale_atmos_dyn_fvm_flux_ud7::atmos_dyn_fvm_fluxy_uyz_ud7(), scale_atmos_dyn_fvm_flux_cd2::atmos_dyn_fvm_fluxy_xvz_cd2(), scale_atmos_dyn_fvm_flux_cd4::atmos_dyn_fvm_fluxy_xvz_cd4(), scale_atmos_dyn_fvm_flux_cd6::atmos_dyn_fvm_fluxy_xvz_cd6(), scale_atmos_dyn_fvm_flux_cd8::atmos_dyn_fvm_fluxy_xvz_cd8(), scale_atmos_dyn_fvm_flux_ud1::atmos_dyn_fvm_fluxy_xvz_ud1(), scale_atmos_dyn_fvm_flux_ud3::atmos_dyn_fvm_fluxy_xvz_ud3(), scale_atmos_dyn_fvm_flux_ud3koren1993::atmos_dyn_fvm_fluxy_xvz_ud3koren1993(), scale_atmos_dyn_fvm_flux_ud5::atmos_dyn_fvm_fluxy_xvz_ud5(), scale_atmos_dyn_fvm_flux_ud7::atmos_dyn_fvm_fluxy_xvz_ud7(), scale_atmos_dyn_fvm_flux_cd2::atmos_dyn_fvm_fluxy_xyw_cd2(), scale_atmos_dyn_fvm_flux_cd4::atmos_dyn_fvm_fluxy_xyw_cd4(), scale_atmos_dyn_fvm_flux_cd6::atmos_dyn_fvm_fluxy_xyw_cd6(), scale_atmos_dyn_fvm_flux_cd8::atmos_dyn_fvm_fluxy_xyw_cd8(), scale_atmos_dyn_fvm_flux_ud1::atmos_dyn_fvm_fluxy_xyw_ud1(), scale_atmos_dyn_fvm_flux_ud3::atmos_dyn_fvm_fluxy_xyw_ud3(), scale_atmos_dyn_fvm_flux_ud3koren1993::atmos_dyn_fvm_fluxy_xyw_ud3koren1993(), scale_atmos_dyn_fvm_flux_ud5::atmos_dyn_fvm_fluxy_xyw_ud5(), scale_atmos_dyn_fvm_flux_ud7::atmos_dyn_fvm_fluxy_xyw_ud7(), scale_atmos_dyn_fvm_flux_cd2::atmos_dyn_fvm_fluxy_xyz_cd2(), scale_atmos_dyn_fvm_flux_cd4::atmos_dyn_fvm_fluxy_xyz_cd4(), scale_atmos_dyn_fvm_flux_cd6::atmos_dyn_fvm_fluxy_xyz_cd6(), scale_atmos_dyn_fvm_flux_cd8::atmos_dyn_fvm_fluxy_xyz_cd8(), scale_atmos_dyn_fvm_flux_ud1::atmos_dyn_fvm_fluxy_xyz_ud1(), scale_atmos_dyn_fvm_flux_ud3::atmos_dyn_fvm_fluxy_xyz_ud3(), scale_atmos_dyn_fvm_flux_ud3koren1993::atmos_dyn_fvm_fluxy_xyz_ud3koren1993(), scale_atmos_dyn_fvm_flux_ud5::atmos_dyn_fvm_fluxy_xyz_ud5(), scale_atmos_dyn_fvm_flux_ud7::atmos_dyn_fvm_fluxy_xyz_ud7(), scale_atmos_dyn_fvm_flux_cd2::atmos_dyn_fvm_fluxz_uyz_cd2(), scale_atmos_dyn_fvm_flux_cd4::atmos_dyn_fvm_fluxz_uyz_cd4(), scale_atmos_dyn_fvm_flux_cd6::atmos_dyn_fvm_fluxz_uyz_cd6(), scale_atmos_dyn_fvm_flux_cd8::atmos_dyn_fvm_fluxz_uyz_cd8(), scale_atmos_dyn_fvm_flux_ud1::atmos_dyn_fvm_fluxz_uyz_ud1(), scale_atmos_dyn_fvm_flux_ud3::atmos_dyn_fvm_fluxz_uyz_ud3(), scale_atmos_dyn_fvm_flux_ud3koren1993::atmos_dyn_fvm_fluxz_uyz_ud3koren1993(), scale_atmos_dyn_fvm_flux_ud5::atmos_dyn_fvm_fluxz_uyz_ud5(), scale_atmos_dyn_fvm_flux_ud7::atmos_dyn_fvm_fluxz_uyz_ud7(), scale_atmos_dyn_fvm_flux_cd2::atmos_dyn_fvm_fluxz_xvz_cd2(), scale_atmos_dyn_fvm_flux_cd4::atmos_dyn_fvm_fluxz_xvz_cd4(), scale_atmos_dyn_fvm_flux_cd6::atmos_dyn_fvm_fluxz_xvz_cd6(), scale_atmos_dyn_fvm_flux_cd8::atmos_dyn_fvm_fluxz_xvz_cd8(), scale_atmos_dyn_fvm_flux_ud1::atmos_dyn_fvm_fluxz_xvz_ud1(), scale_atmos_dyn_fvm_flux_ud3::atmos_dyn_fvm_fluxz_xvz_ud3(), scale_atmos_dyn_fvm_flux_ud3koren1993::atmos_dyn_fvm_fluxz_xvz_ud3koren1993(), scale_atmos_dyn_fvm_flux_ud5::atmos_dyn_fvm_fluxz_xvz_ud5(), scale_atmos_dyn_fvm_flux_ud7::atmos_dyn_fvm_fluxz_xvz_ud7(), scale_atmos_dyn_fvm_flux_cd2::atmos_dyn_fvm_fluxz_xyw_cd2(), scale_atmos_dyn_fvm_flux_cd4::atmos_dyn_fvm_fluxz_xyw_cd4(), scale_atmos_dyn_fvm_flux_cd6::atmos_dyn_fvm_fluxz_xyw_cd6(), scale_atmos_dyn_fvm_flux_cd8::atmos_dyn_fvm_fluxz_xyw_cd8(), scale_atmos_dyn_fvm_flux_ud1::atmos_dyn_fvm_fluxz_xyw_ud1(), scale_atmos_dyn_fvm_flux_ud3::atmos_dyn_fvm_fluxz_xyw_ud3(), scale_atmos_dyn_fvm_flux_ud3koren1993::atmos_dyn_fvm_fluxz_xyw_ud3koren1993(), scale_atmos_dyn_fvm_flux_ud5::atmos_dyn_fvm_fluxz_xyw_ud5(), scale_atmos_dyn_fvm_flux_ud7::atmos_dyn_fvm_fluxz_xyw_ud7(), scale_atmos_dyn_fvm_flux_cd2::atmos_dyn_fvm_fluxz_xyz_cd2(), scale_atmos_dyn_fvm_flux_cd4::atmos_dyn_fvm_fluxz_xyz_cd4(), scale_atmos_dyn_fvm_flux_cd6::atmos_dyn_fvm_fluxz_xyz_cd6(), scale_atmos_dyn_fvm_flux_cd8::atmos_dyn_fvm_fluxz_xyz_cd8(), scale_atmos_dyn_fvm_flux_ud1::atmos_dyn_fvm_fluxz_xyz_ud1(), scale_atmos_dyn_fvm_flux_ud3::atmos_dyn_fvm_fluxz_xyz_ud3(), scale_atmos_dyn_fvm_flux_ud3koren1993::atmos_dyn_fvm_fluxz_xyz_ud3koren1993(), scale_atmos_dyn_fvm_flux_ud5::atmos_dyn_fvm_fluxz_xyz_ud5(), scale_atmos_dyn_fvm_flux_ud7::atmos_dyn_fvm_fluxz_xyz_ud7(), scale_atmos_dyn_tstep_short_fvm_heve::atmos_dyn_tstep_short_fvm_heve(), scale_atmos_dyn_tstep_short_fvm_hevi::atmos_dyn_tstep_short_fvm_hevi(), scale_atmos_dyn_tstep_short_fvm_hivi::atmos_dyn_tstep_short_fvm_hivi(), scale_atmos_phy_tb_common::atmos_phy_tb_calc_flux_phi(), scale_atmos_phy_tb_common::atmos_phy_tb_calc_strain_tensor(), scale_atmos_phy_tb_d1980::atmos_phy_tb_d1980(), scale_atmos_phy_tb_smg::atmos_phy_tb_smg(), mod_atmos_vars::atmos_vars_check(), mod_land_vars::land_vars_check(), scale_atmos_dyn_tstep_short_fvm_hivi::make_matrix(), mod_ocean_vars::ocean_vars_check(), scale_atmos_dyn_tstep_short_fvm_hivi::solve_bicgstab(), and mod_urban_vars::urban_vars_check().

Here is the call graph for this function:

valcheck_1d()

subroutine scale_debug::valcheck_1d	(	integer, intent(in)	KA,
		integer, intent(in)	KS,
		integer, intent(in)	KE,
		real(rp), dimension(ka), intent(in)	var,
		real(rp), intent(in)	valmin,
		real(rp), intent(in)	valmax,
		character(len=*), intent(in)	varname,
		character(len=*), intent(in)	current_file,
		integer, intent(in)	current_line,
		logical, dimension(ka), intent(in), optional	mask
	)

Nan & extreme value checker (1D)

Definition at line 92 of file scale_debug.F90.

    use scale_prc, only: &
       prc_abort, &
       prc_myrank
    implicit none
    integer ,         intent(in) :: KA, KS, KE
    real(RP),         intent(in) :: var(KA)
    real(RP),         intent(in) :: valmin
    real(RP),         intent(in) :: valmax
    character(len=*), intent(in) :: varname
    character(len=*), intent(in) :: current_file
    integer,          intent(in) :: current_line
 
    logical, intent(in), optional :: mask(KA)
 
    logical :: invalid_value
    integer :: k
    !---------------------------------------------------------------------------
 
    call prof_rapstart('Debug', 1)
 
    !$acc update host(var) if(acc_is_present(var))
 
    invalid_value = .false.
    if ( present(mask) ) then
       !$acc update host(mask) if(acc_is_present(mask))
       do k = ks, ke
          if ( .not. mask(k) ) cycle
          if (      var(k)*0.0_rp /= 0.0_rp &
               .OR. var(k)        <  valmin &
               .OR. var(k)        >  valmax ) then
             invalid_value = .true.
             exit
          endif
       enddo
    else
       do k = ks, ke
          if (      var(k)*0.0_rp /= 0.0_rp &
               .OR. var(k)        <  valmin &
               .OR. var(k)        >  valmax ) then
             invalid_value = .true.
             exit
          endif
       enddo
    end if
 
    if ( invalid_value ) then
       log_error("VALCHECK_1D",*) 'invalid value): ', trim(varname), &
                  '(', k, ')=', var(k)
       log_error_cont(*) 'in file   : ', trim(current_file), ', at line : ', current_line
       call prc_abort
    endif
 
    call prof_rapend  ('Debug', 1)
 
    return

References scale_prc::prc_abort(), scale_prc::prc_myrank, scale_prof::prof_rapend(), and scale_prof::prof_rapstart().

Here is the call graph for this function:

valcheck_2d()

subroutine scale_debug::valcheck_2d	(	integer, intent(in)	IA,
		integer, intent(in)	IS,
		integer, intent(in)	IE,
		integer, intent(in)	JA,
		integer, intent(in)	JS,
		integer, intent(in)	JE,
		real(rp), dimension(ia,ja), intent(in)	var,
		real(rp), intent(in)	valmin,
		real(rp), intent(in)	valmax,
		character(len=*), intent(in)	varname,
		character(len=*), intent(in)	current_file,
		integer, intent(in)	current_line,
		logical, dimension(ia,ja), intent(in), optional	mask
	)

Nan & extreme value checker (2D)

Definition at line 160 of file scale_debug.F90.

    use scale_prc, only: &
       prc_abort, &
       prc_myrank
    implicit none
    integer ,         intent(in) :: IA, IS, IE
    integer ,         intent(in) :: JA, JS, JE
    real(RP),         intent(in) :: var(IA,JA)
    real(RP),         intent(in) :: valmin
    real(RP),         intent(in) :: valmax
    character(len=*), intent(in) :: varname
    character(len=*), intent(in) :: current_file
    integer,          intent(in) :: current_line
 
    logical, intent(in), optional :: mask(IA,JA)
 
    logical :: invalid_value
    integer :: i, j
    !---------------------------------------------------------------------------
 
    call prof_rapstart('Debug', 1)
 
    !$acc update host(var) if(acc_is_present(var))
 
    invalid_value = .false.
    if ( present(mask) ) then
       !$acc update host(mask) if(acc_is_present(mask))
       outer1:do j = js, je
              do i = is, ie
                 if ( .not. mask(i,j) ) cycle
                 if (      var(i,j)*0.0_rp /= 0.0_rp &
                      .OR. var(i,j)        <  valmin &
                      .OR. var(i,j)        >  valmax ) then
                    invalid_value = .true.
                    exit outer1
                 endif
              enddo
              enddo outer1
    else
       outer2:do j = js, je
              do i = is, ie
                 if (      var(i,j)*0.0_rp /= 0.0_rp &
                      .OR. var(i,j)        <  valmin &
                      .OR. var(i,j)        >  valmax ) then
                    invalid_value = .true.
                    exit outer2
                 endif
              enddo
              enddo outer2
    end if
 
    if ( invalid_value ) then
       log_error("VALCHECK_2D",*) 'invalid value:', trim(varname), &
                  '(', i, ',', j, ')=', var(i,j)
       log_error_cont(*) 'in file   : ', trim(current_file), ', at line : ', current_line
       call prc_abort
    endif
 
    call prof_rapend  ('Debug', 1)
 
    return

References scale_prc::prc_abort(), scale_prc::prc_myrank, scale_prof::prof_rapend(), and scale_prof::prof_rapstart().

Here is the call graph for this function:

valcheck_3d()

subroutine scale_debug::valcheck_3d	(	integer, intent(in)	KA,
		integer, intent(in)	KS,
		integer, intent(in)	KE,
		integer, intent(in)	IA,
		integer, intent(in)	IS,
		integer, intent(in)	IE,
		integer, intent(in)	JA,
		integer, intent(in)	JS,
		integer, intent(in)	JE,
		real(rp), dimension(ka,ia,ja), intent(in)	var,
		real(rp), intent(in)	valmin,
		real(rp), intent(in)	valmax,
		character(len=*), intent(in)	varname,
		character(len=*), intent(in)	current_file,
		integer, intent(in)	current_line,
		logical, dimension(ia,ja), intent(in), optional	mask
	)

Nan & extreme value checker (3D)

Definition at line 235 of file scale_debug.F90.

    use scale_prc, only: &
       prc_abort, &
       prc_myrank
    implicit none
    integer ,         intent(in) :: KA, KS, KE
    integer ,         intent(in) :: IA, IS, IE
    integer ,         intent(in) :: JA, JS, JE
    real(RP),         intent(in) :: var(KA,IA,JA)
    real(RP),         intent(in) :: valmin
    real(RP),         intent(in) :: valmax
    character(len=*), intent(in) :: varname
    character(len=*), intent(in) :: current_file
    integer,          intent(in) :: current_line
 
    logical, intent(in), optional :: mask(IA,JA)
 
    logical :: invalid_value
    integer :: k, i, j
    !---------------------------------------------------------------------------
 
    call prof_rapstart('Debug', 1)
 
    !$acc update host(var) if(acc_is_present(var))
 
    invalid_value = .false.
    if ( present(mask) ) then
       !$acc update host(mask) if(acc_is_present(mask))
       outer1:do j = js, je
              do i = is, ie
                 if ( .not. mask(i,j) ) cycle
                 do k = ks, ke
                    if (      var(k,i,j)*0.0_rp /= 0.0_rp &
                         .OR. var(k,i,j)        <  valmin &
                         .OR. var(k,i,j)        >  valmax ) then
                       invalid_value = .true.
                       exit outer1
                    endif
                 enddo
              enddo
              enddo outer1
    else
       outer2:do j = js, je
              do i = is, ie
              do k = ks, ke
                 if (      var(k,i,j)*0.0_rp /= 0.0_rp &
                      .OR. var(k,i,j)        <  valmin &
                      .OR. var(k,i,j)        >  valmax ) then
                    invalid_value = .true.
                    exit outer2
                 endif
              enddo
              enddo
              enddo outer2
    end if
 
    if ( invalid_value ) then
       log_error("VALCHECK_3D",*) 'Invalid value:', trim(varname), &
                  '(', k, ',', i, ',', j, ')=', var(k,i,j)
       log_error_cont(*) 'in file   : ', trim(current_file), ', at line : ', current_line
       call prc_abort
    endif
 
    call prof_rapend  ('Debug', 1)
 
    return

References scale_prc::prc_abort(), scale_prc::prc_myrank, scale_prof::prof_rapend(), and scale_prof::prof_rapstart().

Here is the call graph for this function:

Variable Documentation

debug_domain_num

integer, public scale_debug::debug_domain_num = 0

Definition at line 41 of file scale_debug.F90.

  integer, public :: DEBUG_DOMAIN_NUM = 0

Referenced by scale_comm_cartesc_nest::comm_cartesc_nest_setup().