scale_file_restart_meshfield Module Reference

module FElib / File / Restart More...

Data Types
type	file_restart_meshfield_component

Functions/Subroutines
subroutine, public	file_restart_meshfield_setup ()

Variables
type(file_restart_meshfield), public	restart_file

Detailed Description

module FElib / File / Restart

Description

A module for outputing data to restart simulations

Author

Yuta Kawai, Team SCALE

NAMELIST

• PARAM_RESTART

  name	type	default value	comment
  OUTPUT_FLAG	logical	.false.	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

Definition at line 122 of file scale_file_restart_meshfield.F90.

    implicit none
 
    logical :: OUTPUT_FLAG                         = .false.   
    character(len=H_LONG) :: IN_BASENAME           = ''
    logical :: IN_POSTFIX_TIMELABEL                = .false.   
    character(len=H_LONG) :: OUT_BASENAME          = ''
    logical :: OUT_POSTFIX_TIMELABEL               = .true.    
    character(len=H_MID) :: OUT_TITLE              = ''
    character(len=H_SHORT) :: OUT_DTYPE            = 'DEFAULT'
 
    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)
 
    restart_file%flag_output = output_flag
 
    restart_file%in_basename = in_basename
    restart_file%in_postfix_timelabel = in_postfix_timelabel
    
    restart_file%out_basename = out_basename
    restart_file%out_postfix_timelabel = out_postfix_timelabel
    restart_file%out_title = out_title
    restart_file%out_dtype = out_dtype
 
    restart_file%base%fid = -1
 
    return

References restart_file.

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

Variable Documentation

restart_file

type(file_restart_meshfield), public scale_file_restart_meshfield::restart_file

Definition at line 77 of file scale_file_restart_meshfield.F90.

  type(FILE_restart_meshfield), public :: restart_file

Referenced by mod_dg_driver::dg_driver(), and file_restart_meshfield_setup().