module DC_Log More...

Functions/Subroutines
subroutine, public	loginit (fid_conf, fid_log, master, fid_nml, master_nml)

subroutine, public	logfinalize

subroutine, public	log (type, message)

subroutine, public	log_nml (type, message)

Variables
integer, parameter, public	log_lmsg = 4096

integer, public	log_fid

integer, public	log_fid_nml

Detailed Description

module DC_Log

Description: Handring Log

Author: Team SCALE

History

2012-07-12 (S.Nishizawa) [new]

NAMELIST

PARAM_DC_LOG

name type default value comment

LOG_LEVEL character(len=5) 'I'

LOG_FILE character(len=100) "LOG_"

History Output: No history output

Function/Subroutine Documentation

◆ loginit()

subroutine, public dc_log::loginit	(	integer, intent(in)	fid_conf,
		integer, intent(in), optional	fid_log,
		logical, intent(in), optional	master,
		integer, intent(in), optional	fid_nml,
		logical, intent(in), optional	master_nml
	)

Definition at line 75 of file dc_log.f90.

References log(), log_fid, log_fid_nml, and log_nml().

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

     implicit none
     integer, intent(in) :: fid_conf
     integer, intent(in), optional :: fid_log
     logical, intent(in), optional :: master
     integer, intent(in), optional :: fid_nml
     logical, intent(in), optional :: master_nml
 
     character(len=5)   :: LOG_LEVEL = 'I'
     character(len=100) :: LOG_FILE  = "LOG_"
 
     integer :: ierr
 
     namelist / param_dc_log / &
          log_level, &
          log_file
 
     character(len=LOG_LMSG) :: message
   !-----------------------------------------------------------------------------
 
     log_fid = stdout
     log_fid_nml = stdout
     log_master = .true.
 
     if ( present(master)     ) log_master     = master
     log_master_nml = log_master
     if ( present(master_nml) ) log_master_nml = master_nml
 
     call date_and_time(log_file(4:11), log_file(12:21))
 
     !--- read PARAM
     rewind(fid_conf)
     read(fid_conf,nml=param_dc_log,iostat=ierr)
 
     if ( ierr > 0 ) then
        call log('E', 'xxx Not appropriate names in namelist PARAM_DC_LOG. Check!')
     end if
 
     if ( present(fid_log) ) then
        log_fid  = fid_log
        log_file = ''
     else
        open( log_fid,                & ! (out)
             file   = trim(log_file), & ! (in)
             form   = 'formatted',    & ! (in)
             iostat = ierr            ) ! (in)
        if ( ierr /= 0 ) then
           call log('E', 'xxx File open error! :' // trim(log_file))
        end if
        log_opened = .true.
     end if
 
     log_fid_nml = log_fid
     if ( present(fid_nml) ) then
        log_fid_nml = fid_nml
     end if
 
 #if defined(PGI) || defined(SX)
     if ( log_master_nml ) write(log_fid_nml,nml=param_dc_log)
 #else
     write(message,nml=param_dc_log)
     call log_nml('I',message)
 #endif
 
     select case (trim(log_level))
     case ('E', 'e', 'ERROR', 'error')
        log_ilevel = log_error
     case ('W', 'w', 'WARN', 'warn')
        log_ilevel = log_warn
     case ('I', 'i', 'INFO', 'info')
        log_ilevel = log_info
     case ('D', 'd', 'DEBUG', 'debug')
        log_ilevel = log_debug
     case default
        call log('E', 'xxx LOG_LEVEL is invalid. Check!')
     end select
 
     return

Here is the call graph for this function:

Here is the caller graph for this function:

◆ logfinalize()

subroutine, public dc_log::logfinalize ( )

Definition at line 155 of file dc_log.f90.

References log_fid.

 
     if ( log_opened ) close(log_fid)
     log_opened = .false.

◆ log()

subroutine, public dc_log::log	(	character(len=*), intent(in)	type,
		character(len=*), intent(in)	message
	)

Definition at line 165 of file dc_log.f90.

References log_fid.

Referenced by dc_calendar::calendarinit(), gtool_file::fileattachbuffer(), gtool_file::fileclose(), gtool_file::filecreate(), gtool_file::filedefassociatedcoordinates(), gtool_file::filedefaxis(), gtool_file::filedefinevariable(), gtool_file::filedetachbuffer(), gtool_file::fileenddef(), gtool_file::fileflush(), gtool_file::filegetglobalattributetext(), gtool_file::filegetshape(), gtool_file::filemakefname(), gtool_file::fileopen(), gtool_file::filereadvar1drealdp(), gtool_file::filereadvar2drealdp(), gtool_file::filereadvar2drealsp(), gtool_file::filereadvar3drealdp(), gtool_file::filereadvar3drealsp(), gtool_file::filereadvar4drealdp(), gtool_file::filereadvar4drealsp(), gtool_file::filesetoption(), gtool_file::filesettattr(), gtool_file::filewrite1drealsp(), gtool_history::historyaddvariable(), gtool_history::historyoutputlist(), gtool_history::historyput1dassociatedcoordinatesdp(), gtool_history::historyput1dassociatedcoordinatessp(), gtool_history::historyput2dassociatedcoordinatesdp(), gtool_history::historyput2dassociatedcoordinatessp(), gtool_history::historyput3dassociatedcoordinatesdp(), gtool_history::historyput3dassociatedcoordinatessp(), gtool_history::historyput4dassociatedcoordinatesdp(), gtool_history::historyput4dassociatedcoordinatessp(), gtool_history::historyputaxisdp(), gtool_history::historyputaxissp(), gtool_history::historyquery(), gtool_history::historywrite(), and loginit().

     implicit none
     character(len=*), intent(in) :: type
     character(len=*), intent(in) :: message
 
     select case (trim(type))
     case ('E', 'e')
        if ( log_ilevel >= log_error ) call logput(message)
        write(stderr,*) trim(message)
        call abort
     case ('W', 'w')
        if ( log_ilevel >= log_warn ) call logput(message)
     case ('I', 'i')
        if ( log_ilevel >= log_info ) call logput(message)
     case ('D', 'd')
        if ( log_ilevel >= log_debug ) call logput(message)
     case default
        write(stderr,*) 'BUG: wrong log level'
        call abort
     end select
 
     return

Here is the caller graph for this function:

◆ log_nml()

subroutine, public dc_log::log_nml	(	character(len=*), intent(in)	type,
		character(len=*), intent(in)	message
	)

Definition at line 203 of file dc_log.f90.

References log_fid_nml.

Referenced by loginit().

     implicit none
     character(len=*), intent(in) :: type
     character(len=*), intent(in) :: message
 
     select case (trim(type))
     case ('E', 'e')
        if ( log_ilevel >= log_error ) call logput_nml(message)
        write(stderr,*) trim(message)
        call abort
     case ('W', 'w')
        if ( log_ilevel >= log_warn ) call logput_nml(message)
     case ('I', 'i')
        if ( log_ilevel >= log_info ) call logput_nml(message)
     case ('D', 'd')
        if ( log_ilevel >= log_debug ) call logput_nml(message)
     case default
        write(stderr,*) 'BUG: wrong log level'
        call abort
     end select
 
     return

Here is the caller graph for this function:

Variable Documentation

◆ log_lmsg

integer, parameter, public dc_log::log_lmsg = 4096

Definition at line 48 of file dc_log.f90.

48 integer, public, parameter :: LOG_LMSG = 4096

◆ log_fid

integer, public dc_log::log_fid

Definition at line 49 of file dc_log.f90.

Referenced by log(), logfinalize(), and loginit().

49 integer, public :: LOG_fid

◆ log_fid_nml

integer, public dc_log::log_fid_nml

Definition at line 50 of file dc_log.f90.

Referenced by log_nml(), and loginit().

50 integer, public :: LOG_fid_nml

name	type	default value	comment
LOG_LEVEL	character(len=5)	'I'
LOG_FILE	character(len=100)	"LOG_"

Functions/Subroutines

Variables

Detailed Description

Function/Subroutine Documentation

◆ loginit()

◆ logfinalize()

◆ log()

◆ log_nml()

Variable Documentation

◆ log_lmsg

◆ log_fid

◆ log_fid_nml