module FElib / File / Restart More...

Data Types
type	file_restart_meshfield_component
	Derived type to manage restart file with each component. More...

Functions/Subroutines
subroutine, public	file_restart_meshfield_setup ()
	Setup the main restart file.
subroutine, public	file_restart_meshfield_finalize ()
	Finalize the main restart file.

Variables
type(file_restart_meshfield), public	restart_file
	An object to manage main restart file.
type(file_base_meshfield), target	file_main
	A file object to manage main restart file.

Detailed Description

module FElib / File / Restart

Description: A module for outputting data to restart simulations

Author: Yuta Kawai, Team SCALE

NAMELIST

PARAM_RESTART

name	type	default value	comment
OUTPUT_FLAG	logical	.false.	Flag whether output restart file
IN_BASENAME	character(*)
IN_POSTFIX_TIMELABEL	logical
OUT_BASENAME	character(*)
OUT_POSTFIX_TIMELABEL	logical
OUT_TITLE	character(*)
OUT_DTYPE	character(*)

History Output: No history output

Function/Subroutine Documentation

◆ file_restart_meshfield_setup()

subroutine, public scale_file_restart_meshfield::file_restart_meshfield_setup

Setup the main restart file.

Definition at line 136 of file scale_file_restart_meshfield.F90.

    implicit none
 
    logical :: OUTPUT_FLAG                         = .false.   !< Flag whether output restart file
    character(len=H_LONG) :: IN_BASENAME           = ''        !< Basename of the input  file
    logical :: IN_POSTFIX_TIMELABEL                = .false.   !< Flag whether timelabel is added to the basename of input  file
    character(len=H_LONG) :: OUT_BASENAME          = ''        !< Basename of the output file
    logical :: OUT_POSTFIX_TIMELABEL               = .true.    !< Flag whether timelabel is added to the basename of output file
    character(len=H_MID) :: OUT_TITLE              = ''        !< Title of the output file
    character(len=H_SHORT) :: OUT_DTYPE            = 'DEFAULT' !< Output data type (DEFAULT, REAL4 or REAL8)
 
    namelist / param_restart / &
      output_flag,           &
      in_basename,           &
      in_postfix_timelabel,  &
      out_basename,          &
      out_postfix_timelabel, &
      out_title,             &
      out_dtype
 
    integer :: ierr  
    !----------------------------------------
 
    log_newline
 
    !--- read namelist
    rewind(io_fid_conf)
    read(io_fid_conf,nml=param_restart,iostat=ierr)
    if( ierr < 0 ) then !--- missing
      log_info("FILE_restart_meshfield_setup",*) 'Not found namelist. Default used.'
    elseif( ierr > 0 ) then !--- fatal error
      log_error("FILE_restart_meshfield_setup",*) 'Not appropriate names in namelist PARAM_RESTART. Check!'
      call prc_abort
    endif
    log_nml(param_restart)
 
    ! Setup the information of the main restart file
 
    call restart_file%Set_information( in_basename, in_postfix_timelabel, &
      out_basename, out_postfix_timelabel, out_dtype, out_title           )
 
    restart_file%flag_output = output_flag
 
    restart_file%file_ptr => null() ! Initialize the pointer to null
    is_file_main_opened  = .false.
    is_file_main_created = .false.
    is_file_main_enddef  = .false.
    is_file_main_closed  = .false.
 
    return

References restart_file.

Referenced by mod_dg_driver::dg_driver(), mod_dg_prep::dg_prep(), and scale_file_restart_meshfield::file_restart_meshfield_component::final().

◆ file_restart_meshfield_finalize()

subroutine, public scale_file_restart_meshfield::file_restart_meshfield_finalize

Finalize the main restart file.

Definition at line 190 of file scale_file_restart_meshfield.F90.

    implicit none
    !--------------------------------------------------
    if ( associated(restart_file%file_ptr) ) then
      call restart_file%file_ptr%Final()
      nullify( restart_file%file_ptr )
    end if
    return