scale_meshfield_statistics Module Reference

module FElib / Data / Statistics More...

Data Types
interface	meshfield_statistics_detail
interface	meshfield_statistics_maxmin
interface	meshfield_statistics_total

Functions/Subroutines
subroutine, public	meshfield_statistics_setup ()
	Setup.

Detailed Description

module FElib / Data / Statistics

Description

A module for analyzing statistics of field data

Author

Yuta Kawai, Team SCALE

NAMELIST

• PARAM_MESHFIELD_statistics

  name	type	default value	comment
  USE_GLOBALCOMM	logical	.false.

  
  

History Output

No history output

Function/Subroutine Documentation

meshfield_statistics_setup()

subroutine, public scale_meshfield_statistics::meshfield_statistics_setup

Setup.

Definition at line 85 of file scale_meshfield_statistics.F90.

    use scale_prc, only: &
      prc_abort
    implicit none
 
    logical :: use_globalcomm = .false.    
    namelist / param_meshfield_statistics / &
      use_globalcomm
 
    integer :: ierr
    !---------------------------------------------------------------------------
 
    log_newline
    log_info("MeshField_statistics_setup",*) 'Setup'
 
    !--- read namelist
    rewind(io_fid_conf)
    read(io_fid_conf,nml=param_meshfield_statistics,iostat=ierr)
    if( ierr < 0 ) then !--- missing
      log_info("MeshField_statistics_setup",*) 'Not found namelist. Default used.'
    elseif( ierr > 0 ) then !--- fatal error
      log_error("MeshField_statistics_setup",*) 'Not appropriate names in namelist PARAM_MeshField_statistics. Check!'
      call prc_abort
    endif
    log_nml(param_meshfield_statistics)
 
    base%use_globalcomm = use_globalcomm
    
    if ( base%use_globalcomm ) then
      log_info_cont(*) '=> The total is calculated for the global domain.'
    else
      log_info_cont(*) '=> The total is calculated for the local domain.'
    endif
 
    if ( rp == kind(0.d0) ) then
      base%comm_datatype = mpi_double_precision
   elseif( rp == kind(0.0) ) then
      base%comm_datatype = mpi_real
   else
      log_error("MeshField_statistics_setup",*) 'precision is not supportd'
      call prc_abort
   endif
 
    return

Referenced by mod_dg_driver::dg_driver().