dc_log Module Reference

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]

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.

    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
    if ( fid_conf > 0 ) then
       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
    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

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

Here is the call graph for this function:

logfinalize()

subroutine, public dc_log::logfinalize

Definition at line 156 of file dc_log.f90.

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

References log_fid.

log()

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

Definition at line 166 of file dc_log.f90.

    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

References log_fid.

Referenced by dc_calendar::calendarinit(), and loginit().

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 204 of file dc_log.f90.

    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

References log_fid_nml.

Referenced by loginit().

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.

  integer, public, parameter :: LOG_LMSG    = 4096

log_fid

integer, public dc_log::log_fid

Definition at line 49 of file dc_log.f90.

  integer, public            :: LOG_fid

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

log_fid_nml

integer, public dc_log::log_fid_nml

Definition at line 50 of file dc_log.f90.

  integer, public            :: LOG_fid_nml

Referenced by log_nml(), and loginit().