scale_io Module Reference

module STDIO More...

Functions/Subroutines
subroutine, public	io_setup (APPNAME, conf_name, prefix, allow_noconf)
	Setup. More...
subroutine, public	io_log_setup (myrank, is_master)
	Setup LOG. More...
subroutine, public	io_finalize
integer function, public	io_get_available_fid ()
	search & get available file ID More...
subroutine, public	io_set_universalrank (myrank, jobid, domainid)
	Put for error log. More...
subroutine, public	io_get_fname (outstr, instr, rank, ext, len)
	generate process specific filename More...
character(len=h_long) function, public	io_arg_getfname (is_master, allow_noconf)
	get config filename from argument More...
integer function, public	io_cnf_open (fname, is_master)
	open config file More...

Variables
integer, parameter, public	h_short = File_HSHORT
	Character length (short=16) More...
integer, parameter, public	h_mid = File_HMID
	Character length (short=64) More...
integer, parameter, public	h_long = File_HLONG
	Character length (short=256) More...
character(len=h_mid), public	h_appname
	name of the application More...
character(len=h_mid), public	h_libname
	name and version of the library More...
character(len=h_mid), public	h_source
	for file header More...
character(len=h_mid), public	h_institute = 'RIKEN'
	for file header More...
character(len=9), parameter, public	io_nullfile = "/dev/null"
character(len=6), parameter, public	io_stdout = "STDOUT"
integer, parameter, public	io_fid_stdout = 6
integer, public	io_fid_conf = -1
	Config file ID. More...
integer, public	io_fid_log = -1
	Log file ID. More...
integer, public	io_fid_nml = -1
	Log file ID (only for output namelist) More...
character(len=h_long), public	io_log_basename = 'LOG'
	basename of logfile More...
character(len=h_long), public	io_nml_filename = ''
	filename of logfile (only for output namelist) More...
logical, public	io_l = .false.
	output log or not? (this process) More...
logical, public	io_nml = .false.
	output log or not? (for namelist, this process) More...
logical, public	io_log_suppress = .false.
	suppress all of log output? More...
logical, public	io_log_nml_suppress = .false.
	suppress all of log output? (for namelist) More...
logical, public	io_log_allnode = .false.
	output log for each node? More...
integer, public	io_step_to_stdout = -1
	interval for output current step to STDOUT (negative is off) More...
character(len=6), public	io_universalrank = "UNKNWN"
	universal rank for error log More...
character(len=6), public	io_jobid = "UNKNWN"
	bulk job id for error log More...
character(len=6), public	io_domainid = "UNKNWN"
	nesting domain id for error log More...
character(len=6), public	io_localrank = "UNKNWN"
	local rank for error log More...

Detailed Description

module STDIO

Description

Standard, common I/O module

Author

Team SCALE

NAMELIST

• PARAM_IO

  name	type	default value	comment
  H_SOURCE	character(len=H_MID)		for file header
  H_INSTITUTE	character(len=H_MID)	'RIKEN'	for file header
  IO_LOG_BASENAME	character(len=H_LONG)	'LOG'	basename of logfile
  IO_NML_FILENAME	character(len=H_LONG)	''	filename of logfile (only for output namelist)
  IO_LOG_SUPPRESS	logical	.false.	suppress all of log output?
  IO_LOG_NML_SUPPRESS	logical	.false.	suppress all of log output? (for namelist)
  IO_LOG_ALLNODE	logical	.false.	output log for each node?

  
  

History Output

No history output

Function/Subroutine Documentation

io_setup()

subroutine, public scale_io::io_setup	(	character(len=*), intent(in)	APPNAME,
		character(len=*), intent(in), optional	conf_name,
		character(len=*), intent(in), optional	prefix,
		logical, intent(in), optional	allow_noconf
	)

Setup.

Parameters

[in]	appname	name of the application
[in]	conf_name	name of config file for each process
[in]	prefix	prefix for files
[in]	allow_noconf	if true, allow program to run without configure file

Definition at line 99 of file scale_io.F90.

 
    implicit none
 
    namelist / param_io / &
       h_source,            &
       h_institute,         &
       io_log_basename,     &
       io_nml_filename,     &
       io_log_suppress,     &
       io_log_nml_suppress, &
       io_log_allnode,      &
       io_step_to_stdout
 
    character(len=*), intent(in) :: APPNAME
    character(len=*), intent(in), optional :: conf_name
    character(len=*), intent(in), optional :: prefix
    logical,          intent(in), optional :: allow_noconf
 
    character(len=H_LONG) :: fname
 
    integer :: ierr
    !---------------------------------------------------------------------------
 
    if ( present(conf_name) ) then
       fname = conf_name
    else
       fname = io_arg_getfname( is_master=.true., allow_noconf=allow_noconf )
       io_log_basename = io_stdout
    endif
 
    if ( present(prefix) ) then
       io_prefix = prefix
    else
       io_prefix = ""
    end if
 
    !--- Open config file till end
    io_fid_conf = io_cnf_open( fname,           & ! [IN]
                               is_master=.true. ) ! [IN]
 
    h_appname = trim(appname)
    h_libname = 'SCALE Library ver. '//trim(libversion)
    h_source  = trim(appname)
 
    !--- read PARAM
    if ( io_fid_conf > 0 ) then
       rewind(io_fid_conf)
       read(io_fid_conf,nml=param_io,iostat=ierr)
       if ( ierr > 0 ) then !--- fatal error
          log_error('IO_setup',*) 'Not appropriate names in namelist PARAM_IO . Check!'
          stop
       endif
    end if
 
    return

References h_appname, h_institute, h_libname, h_source, io_arg_getfname(), io_cnf_open(), io_fid_conf, io_log_allnode, io_log_basename, io_log_nml_suppress, io_log_suppress, io_nml_filename, io_stdout, and io_step_to_stdout.

Referenced by mod_rm_driver::rm_driver(), mod_rm_prep::rm_prep(), and scale::scale_init().

Here is the call graph for this function:

Here is the caller graph for this function:

io_log_setup()

subroutine, public scale_io::io_log_setup	(	integer, intent(in)	myrank,
		logical, intent(in)	is_master
	)

Setup LOG.

Parameters

[in]	myrank	my rank ID
[in]	is_master	master process?

Definition at line 161 of file scale_io.F90.

    implicit none
 
    integer, intent(in) :: myrank
    logical, intent(in) :: is_master
 
    namelist / param_io / &
       h_source,            &
       h_institute,         &
       io_log_basename,     &
       io_nml_filename,     &
       io_log_suppress,     &
       io_log_nml_suppress, &
       io_log_allnode
 
    character(len=H_LONG) :: fname
 
    integer :: ierr
    !---------------------------------------------------------------------------
 
    if ( io_log_suppress ) then
       io_l = .false.
    else
       if ( is_master ) then ! master node
          io_l = .true.
       else
          io_l = io_log_allnode
       endif
    endif
 
    if ( io_log_nml_suppress ) then
       io_nml = .false.
    else
       io_nml = io_l
    endif
 
    if ( io_l ) then
 
       !--- Open logfile
       if ( io_log_basename == io_stdout ) then
          io_fid_log = io_fid_stdout
       else
          io_fid_log = io_get_available_fid()
          call io_get_fname(fname, io_log_basename, rank=myrank)
          open( unit   = io_fid_log,  &
                file   = trim(fname), &
                form   = 'formatted', &
                iostat = ierr         )
          if ( ierr /= 0 ) then
             log_error('IO_LOG_setup',*) 'File open error! :', trim(fname)
             stop
          endif
       endif
 
       if ( io_fid_log .ne. io_fid_stdout ) then
          write(io_fid_log,*) ''
          write(io_fid_log,*) '                                               -+++++++++;              '
          write(io_fid_log,*) '                                             ++++++++++++++=            '
          write(io_fid_log,*) '                                           ++++++++++++++++++-          '
          write(io_fid_log,*) '                                          +++++++++++++++++++++         '
          write(io_fid_log,*) '                                        .+++++++++++++++++++++++        '
          write(io_fid_log,*) '                                        +++++++++++++++++++++++++       '
          write(io_fid_log,*) '                                       +++++++++++++++++++++++++++      '
          write(io_fid_log,*) '                                      =++++++=x######+++++++++++++;     '
          write(io_fid_log,*) '                                     .++++++X####XX####++++++++++++     '
          write(io_fid_log,*) '         =+xxx=,               ++++  +++++=##+       .###++++++++++-    '
          write(io_fid_log,*) '      ,xxxxxxxxxx-            +++++.+++++=##           .##++++++++++    '
          write(io_fid_log,*) '     xxxxxxxxxxxxx           -+++x#;+++++#+              ##+++++++++.   '
          write(io_fid_log,*) '    xxxxxxxx##xxxx,          ++++# +++++XX                #+++++++++-   '
          write(io_fid_log,*) '   xxxxxxx####+xx+x         ++++#.++++++#                  #+++++++++   '
          write(io_fid_log,*) '  +xxxxxX#X   #Xx#=        =+++#x=++++=#.                  x=++++++++   '
          write(io_fid_log,*) '  xxxxxx#,    x###        .++++#,+++++#=                    x++++++++   '
          write(io_fid_log,*) ' xxxxxx#.                 ++++# +++++x#                     #++++++++   '
          write(io_fid_log,*) ' xxxxxx+                 ++++#-+++++=#                      #++++++++   '
          write(io_fid_log,*) ',xxxxxX                 -+++XX-+++++#,                      +++++++++   '
          write(io_fid_log,*) '=xxxxxX                .++++#.+++++#x                       -++++++++   '
          write(io_fid_log,*) '+xxxxx=                ++++#.++++++#                        ++++++++#   '
          write(io_fid_log,*) 'xxxxxx;               ++++#+=++++=#                         ++++++++#   '
          write(io_fid_log,*) 'xxxxxxx              ,+++x#,+++++#-                        ;++++++++-   '
          write(io_fid_log,*) '#xxxxxx              +++=# +++++xX                         ++++++++#    '
          write(io_fid_log,*) 'xxxxxxxx            ++++#-+++++=#                         +++++++++X    '
          write(io_fid_log,*) '-+xxxxxx+          ++++X#-++++=#.            -++;        =++++++++#     '
          write(io_fid_log,*) ' #xxxxxxxx.      .+++++# +++++#x            =++++-      +++++++++XX     '
          write(io_fid_log,*) ' #xxxxxxxxxx=--=++++++#.++++++#             ++++++    -+++++++++x#      '
          write(io_fid_log,*) '  #+xxxxxxxxxx+++++++#x=++++=#              ++++++;=+++++++++++x#       '
          write(io_fid_log,*) '  =#+xxxxxxxx+++++++##,+++++#=             =++++++++++++++++++##.       '
          write(io_fid_log,*) '   X#xxxxxxxx++++++## +++++x#              ;x++++++++++++++++##.        '
          write(io_fid_log,*) '    x##+xxxx+++++x## +++++=#                ##++++++++++++x##X          '
          write(io_fid_log,*) '     ,###Xx+++x###x -++++=#,                .####x+++++X####.           '
          write(io_fid_log,*) '       -########+   -#####x                   .X#########+.             '
          write(io_fid_log,*) '           .,.      ......                         .,.                  '
          write(io_fid_log,*) '                                                                        '
          write(io_fid_log,*) '    .X#######     +###-        =###+           ###x         x########   '
          write(io_fid_log,*) '   .#########    ######X      #######         ####        .#########x   '
          write(io_fid_log,*) '   ####+++++=   X#######.    -#######x       .###;        ####x+++++.   '
          write(io_fid_log,*) '   ###          ###= ####    #### x###       ####        -###.          '
          write(io_fid_log,*) '  .###         ####   ###+  X###   ###X     =###.        ####           '
          write(io_fid_log,*) '   ###-       ;###,        .###+   -###     ####        x##########+    '
          write(io_fid_log,*) '   +####x     ####         ####     ####   ####         ###########.    '
          write(io_fid_log,*) '    x######. =###          ###,     .###-  ###+        x###--------     '
          write(io_fid_log,*) '      =##### X###         -###       #### ,###         ####             '
          write(io_fid_log,*) '        .###=x###;        .###+       ###X ###X        ####.            '
          write(io_fid_log,*) ' ###########; ###########+ ###########     ########### ,##########.     '
          write(io_fid_log,*) '-###########  ,##########,  #########X      ##########  +#########      '
          write(io_fid_log,*) ',,,,,,,,,,.     ,,,,,,,,,    .,,,,,,,.       .,,,,,,,,    ,,,,,,,,      '
          write(io_fid_log,*) '                                                                        '
          write(io_fid_log,*) '    SCALE : Scalable Computing by Advanced Library and Environment      '
          write(io_fid_log,*) ''
          write(io_fid_log,*) trim(h_libname)
          write(io_fid_log,*) trim(h_appname)
 
 
          log_newline
          log_info("IO_LOG_setup",*) 'Setup'
 
          log_info('IO_LOG_setup','(1x,A,I3)') 'Open config file, FID = ', io_fid_conf
          log_info('IO_LOG_setup','(1x,A,I3)') 'Open log    file, FID = ', io_fid_log
          log_info('IO_LOG_setup','(1x,2A)')   'basename of log file  = ', trim(io_log_basename)
          log_newline
       end if
 
    else
       if( is_master ) write(*,*) '*** Log report is suppressed.'
    endif
 
    if ( io_nml_filename /= '' ) then
       call io_get_fname(fname, io_nml_filename)
       log_info("IO_LOG_setup",*) 'The used configurations are output to the file.'
       log_info("IO_LOG_setup",*) 'filename of used config file   = ', trim(fname)
 
       if ( is_master ) then ! write from master node only
          io_nml     = .true. ! force on
          io_fid_nml = io_get_available_fid()
          open( unit   = io_fid_nml,  &
                file   = fname,       &
                form   = 'formatted', &
                iostat = ierr         )
          if ( ierr /= 0 ) then
             log_error('IO_LOG_setup',*) 'File open error! :', trim(fname)
             stop 1
          endif
 
          log_info("IO_LOG_setup",'(1x,A,I3)') 'Open file to output used config, FID = ', io_fid_nml
 
          write(io_fid_nml,'(A)')  '################################################################################'
          write(io_fid_nml,'(A)')  '#! configulation'
          write(io_fid_nml,'(2A)') '#! ', trim(h_libname)
          write(io_fid_nml,'(2A)') '#! ', trim(h_appname)
          write(io_fid_nml,'(A)')  '################################################################################'
          log_nml(param_io)
       else
          io_nml     = .false. ! force off
          io_fid_nml = -1
 
          log_info("IO_LOG_setup",*) 'The file for used config is open by the master rank'
       endif
    else
       if ( io_nml ) then
          io_fid_nml = io_fid_log
 
          log_info("IO_LOG_setup",*) 'The used config is output to the log.'
       else
          log_info("IO_LOG_setup",*) 'The used config is not output.'
       endif
    endif
 
    write(io_localrank,'(I6.6)') myrank
 
    !$acc update device(IO_L, IO_LOCALRANK)
 
    return

References h_appname, h_institute, h_libname, h_source, io_fid_conf, io_fid_log, io_fid_nml, io_fid_stdout, io_get_available_fid(), io_get_fname(), io_l, io_localrank, io_log_allnode, io_log_basename, io_log_nml_suppress, io_log_suppress, io_nml, io_nml_filename, and io_stdout.

Referenced by mod_rm_driver::rm_driver(), mod_rm_prep::rm_prep(), and scale::scale_init().

Here is the call graph for this function:

Here is the caller graph for this function:

io_finalize()

subroutine, public scale_io::io_finalize

Definition at line 334 of file scale_io.F90.

    implicit none
 
    integer :: fid
    logical :: i_opened
    !---------------------------------------------------------------------------
 
    log_newline
    log_progress(*) 'Closing LOG file'
 
    if ( io_fid_conf > 0 ) then
       close( io_fid_conf )
       io_fid_conf = -1
    end if
 
    if ( io_fid_log > 0 .and. io_fid_log /= io_fid_stdout ) then
       close( io_fid_log )
       io_fid_log = -1
    end if
 
    if ( io_fid_nml > 0 ) then
       close( io_fid_nml )
       io_fid_nml = -1
    end if
 
    do fid = io_minfid, io_maxfid
       inquire(fid,opened=i_opened)
       if ( i_opened ) close(fid)
    enddo
 
    io_l   = .false.
    io_nml = .false.
 
    return

References io_fid_conf, io_fid_log, io_fid_nml, io_fid_stdout, io_l, and io_nml.

Referenced by mod_rm_driver::rm_driver(), and mod_rm_prep::rm_prep().

Here is the caller graph for this function:

io_get_available_fid()

integer function, public scale_io::io_get_available_fid

search & get available file ID

Returns

fid

file ID

Definition at line 373 of file scale_io.F90.

    implicit none
 
    integer :: fid
    logical :: i_opened
    !---------------------------------------------------------------------------
 
    do fid = io_minfid, io_maxfid
       inquire(fid,opened=i_opened)
       if ( .NOT. i_opened ) return
    enddo
 
    if ( fid >= io_maxfid ) then ! reach limit
       log_error("IO_get_available_fid",*) 'Used I/O unit number reached to the limit! STOP'
       stop
    endif
 

Referenced by scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_setup(), scale_atmos_phy_lt_sato2019::atmos_phy_lt_sato2019_setup(), scale_atmos_phy_mp_suzuki10::atmos_phy_mp_suzuki10_setup(), scale_atmos_phy_rd_mstrnx::atmos_phy_rd_mstrnx_flux(), scale_atmos_phy_rd_profile::atmos_phy_rd_profile_finalize(), scale_atmos_phy_rd_profile::atmos_phy_rd_profile_setup_zgrid(), scale_atmos_sfc_ch_rn222::atmos_sfc_ch_rn222_setup(), scale_land_phy_snow_ky90::cal_r1r2(), scale_comm_cartesc_nest::comm_cartesc_nest_domain_regist_file(), scale_file_grads::file_grads_close(), scale_file_grads::file_grads_open(), scale_file_tiledata::file_tiledata_read_catalog_file(), scale_file_tiledata::file_tiledata_read_data_int1_int(), scale_file_tiledata::file_tiledata_read_data_int2_int(), scale_file_tiledata::file_tiledata_read_data_int2_real(), scale_file_tiledata::file_tiledata_read_data_int4_int(), scale_file_tiledata::file_tiledata_read_data_int4_real(), scale_file_tiledata::file_tiledata_read_data_real4_int(), scale_file_tiledata::file_tiledata_read_data_real4_real(), scale_file_tiledata::file_tiledata_read_data_real8_real(), io_cnf_open(), io_log_setup(), mod_land_vars::land_vars_check(), scale_letkf::letkf_add_inflation_setup(), scale_monitor::monitor_write(), mod_realinput_netcdf::parentatmossetupnetcdf(), mod_realinput_netcdf::parentlandsetupnetcdf(), mod_realinput_netcdf::parentoceansetupnetcdf(), scale_prc_icoa::prc_icoa_setup(), mod_mkinit::read_sounding(), and scale_urban_dyn_kusaka01::urban_dyn_kusaka01().

Here is the caller graph for this function:

io_set_universalrank()

subroutine, public scale_io::io_set_universalrank	(	integer, intent(in)	myrank,
		integer, intent(in)	jobid,
		integer, intent(in)	domainid
	)

Put for error log.

Parameters

[in]	myrank	my rank ID (universal)
[in]	jobid	bulk job ID
[in]	domainid	nesting domain ID

Definition at line 397 of file scale_io.F90.

    implicit none
 
    integer, intent(in) :: myrank
    integer, intent(in) :: jobid
    integer, intent(in) :: domainid
    !---------------------------------------------------------------------------
 
    write(io_universalrank,'(I6.6)') myrank
    write(io_jobid        ,'(I6.6)') jobid
    write(io_domainid     ,'(I6.6)') domainid
 
    !$acc update device(IO_UNIVERSALRANK, IO_JOBID, IO_DOMAINID)
 
    return

References io_domainid, io_jobid, and io_universalrank.

Referenced by mod_launcher::launcher().

Here is the caller graph for this function:

io_get_fname()

subroutine, public scale_io::io_get_fname	(	character(len=*), intent(out)	outstr,
		character(len=*), intent(in)	instr,
		integer, intent(in), optional	rank,
		character(len=*), intent(in), optional	ext,
		integer, intent(in), optional	len
	)

generate process specific filename

Parameters

[out]	outstr	generated string
[in]	instr	strings
[in]	ext	extention

Definition at line 421 of file scale_io.F90.

    implicit none
 
    character(len=*), intent(out) :: outstr
    character(len=*), intent(in)  :: instr
    integer,          intent(in), optional :: rank
    character(len=*), intent(in), optional :: ext
    integer,          intent(in), optional :: len
 
    integer :: len_
    character(len=H_SHORT) :: ext_
    character(len=8) :: srank
    character(len=6) :: fmt
    !---------------------------------------------------------------------------
 
    if ( present(rank) ) then
       if ( present(ext) ) then
          ext_ = ext
       else
          ext_ = "pe"
       end if
       if ( rank >= 0 ) then
          if ( present(len) ) then
             len_ = len
          else
             len_ = 6
          end if
          write(fmt,'(A,I1,A,I1,A)') '(I', len_, '.', len_, ')'
          write(srank, fmt) rank
          outstr = trim(instr)//'.'//trim(ext_)//trim(srank)
       else
          outstr = trim(instr)//'.'//trim(ext_)//"all"
       end if
    else
       outstr = instr
    end if
 
    if ( io_prefix /= "" .and. outstr(1:1) /= "/" ) then
       outstr = trim(io_prefix) // trim(outstr)
    end if
 
    return

Referenced by scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_setup(), scale_atmos_phy_rd_mstrnx::atmos_phy_rd_mstrnx_flux(), scale_atmos_phy_rd_profile::atmos_phy_rd_profile_finalize(), scale_atmos_phy_rd_profile::atmos_phy_rd_profile_setup_zgrid(), scale_atmos_sfc_ch_rn222::atmos_sfc_ch_rn222_setup(), scale_land_phy_snow_ky90::cal_r1r2(), scale_comm_cartesc_nest::comm_cartesc_nest_domain_regist_file(), scale_file_grads::file_grads_close(), scale_file_grads::file_grads_open(), scale_file_tiledata::file_tiledata_read_catalog_file(), scale_file_tiledata::file_tiledata_read_data_int1_int(), scale_file_tiledata::file_tiledata_read_data_int2_int(), scale_file_tiledata::file_tiledata_read_data_int2_real(), scale_file_tiledata::file_tiledata_read_data_int4_int(), scale_file_tiledata::file_tiledata_read_data_int4_real(), scale_file_tiledata::file_tiledata_read_data_real4_int(), scale_file_tiledata::file_tiledata_read_data_real4_real(), scale_file_tiledata::file_tiledata_read_data_real8_real(), io_log_setup(), mod_land_vars::land_vars_check(), scale_monitor::monitor_write(), mod_realinput_netcdf::parentatmossetupnetcdf(), mod_realinput_netcdf::parentlandsetupnetcdf(), mod_realinput_netcdf::parentoceansetupnetcdf(), scale_prc_icoa::prc_icoa_setup(), mod_mkinit::read_sounding(), and scale_urban_dyn_kusaka01::urban_dyn_kusaka01().

Here is the caller graph for this function:

io_arg_getfname()

character(len=h_long) function, public scale_io::io_arg_getfname	(	logical, intent(in)	is_master,
		logical, intent(in), optional	allow_noconf
	)

get config filename from argument

Returns

fname

filename

Definition at line 468 of file scale_io.F90.

    implicit none
    logical, intent(in)           :: is_master
    logical, intent(in), optional :: allow_noconf
 
    character(len=H_LONG) :: fname
    logical :: allow_noconf_
    !---------------------------------------------------------------------------
 
    if ( command_argument_count() < 1 ) then
       allow_noconf_ = .false.
       if ( present(allow_noconf) ) allow_noconf_ = allow_noconf
       if ( .not. allow_noconf_ ) then
          if(is_master) then
             log_error("IO_ARG_getfname",*) 'Program needs config file from argument! STOP.'
          end if
          stop
       else
          fname = io_nullfile
       end if
    else
       call get_command_argument(1,fname)
    endif
 

References io_nullfile.

Referenced by io_setup(), and mod_launcher::launcher().

Here is the caller graph for this function:

io_cnf_open()

integer function, public scale_io::io_cnf_open	(	character(len=*), intent(in)	fname,
		logical, intent(in)	is_master
	)

open config file

Returns

fid

Parameters

[in]	fname	filename
[in]	is_master	master process?

Returns

file ID

Definition at line 500 of file scale_io.F90.

    implicit none
 
    character(len=*), intent(in) :: fname
    logical,          intent(in) :: is_master
    integer                      :: fid
 
    integer :: ierr
    !---------------------------------------------------------------------------
 
    fid = io_get_available_fid()
 
    open( unit   = fid,         &
          file   = trim(fname), &
          form   = 'formatted', &
          status = 'old',       &
          iostat = ierr         )
 
    if ( ierr /= 0 ) then
       if(is_master) then
          log_error("IO_CNF_open",*) 'Failed to open config file! STOP.'
          log_error("IO_CNF_open",*) 'filename : ', trim(fname)
       end if
       stop
    endif
 

References io_get_available_fid().

Referenced by io_setup(), and mod_launcher::launcher().

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

h_short

integer, parameter, public scale_io::h_short = File_HSHORT

Character length (short=16)

Definition at line 45 of file scale_io.F90.

  integer,               public, parameter :: H_SHORT     = file_hshort     

Referenced by scale_comm_cartesc_nest::comm_cartesc_nest_domain_shape(), scale_file_history::file_history_reg(), and scale_prc::prc_timereorder().

h_mid

integer, parameter, public scale_io::h_mid = File_HMID

Character length (short=64)

Definition at line 46 of file scale_io.F90.

  integer,               public, parameter :: H_MID       = file_hmid       

h_long

integer, parameter, public scale_io::h_long = File_HLONG

Character length (short=256)

Definition at line 47 of file scale_io.F90.

  integer,               public, parameter :: H_LONG      = file_hlong      

h_appname

character(len=h_mid), public scale_io::h_appname

name of the application

Definition at line 49 of file scale_io.F90.

  character(len=H_MID),  public            :: H_APPNAME

Referenced by io_log_setup(), and io_setup().

h_libname

character(len=h_mid), public scale_io::h_libname

name and version of the library

Definition at line 50 of file scale_io.F90.

  character(len=H_MID),  public            :: H_LIBNAME

Referenced by io_log_setup(), and io_setup().

h_source

character(len=h_mid), public scale_io::h_source

for file header

Definition at line 51 of file scale_io.F90.

  character(len=H_MID),  public            :: H_SOURCE

Referenced by scale_file_cartesc::file_cartesc_create(), scale_file_cartesc::file_cartesc_setup(), scale_file_history_cartesc::file_history_cartesc_setup(), io_log_setup(), and io_setup().

h_institute

character(len=h_mid), public scale_io::h_institute = 'RIKEN'

for file header

Definition at line 52 of file scale_io.F90.

  character(len=H_MID),  public            :: H_INSTITUTE = 'RIKEN'

Referenced by scale_file_cartesc::file_cartesc_create(), scale_file_cartesc::file_cartesc_setup(), scale_file_history_cartesc::file_history_cartesc_setup(), io_log_setup(), and io_setup().

io_nullfile

character(len=9), parameter, public scale_io::io_nullfile = "/dev/null"

Definition at line 54 of file scale_io.F90.

  character(len=9),      public, parameter :: IO_NULLFILE   = "/dev/null"

Referenced by io_arg_getfname().

io_stdout

character(len=6), parameter, public scale_io::io_stdout = "STDOUT"

Definition at line 55 of file scale_io.F90.

  character(len=6),      public, parameter :: IO_STDOUT     = "STDOUT"

Referenced by io_log_setup(), and io_setup().

io_fid_stdout

integer, parameter, public scale_io::io_fid_stdout = 6

Definition at line 56 of file scale_io.F90.

  integer,               public, parameter :: IO_FID_STDOUT = 6

Referenced by io_finalize(), io_log_setup(), scale_prc::prc_timereorder(), and scale_prof::prof_rapreport().

io_fid_conf

integer, public scale_io::io_fid_conf = -1

Config file ID.

Definition at line 57 of file scale_io.F90.

  integer,               public            :: IO_FID_CONF   = -1

Referenced by mod_admin_restart::admin_restart_setup(), mod_admin_time::admin_time_setup(), mod_admin_versioncheck::admin_versioncheck(), mod_atmos_admin::atmos_admin_setup(), mod_atmos_bnd_driver::atmos_boundary_driver_setup(), mod_atmos_dyn_driver::atmos_dyn_driver_setup(), scale_atmos_dyn_tstep_large_fvm_heve::atmos_dyn_tstep_large_fvm_heve_setup(), scale_atmos_dyn_tstep_short_fvm_hivi::atmos_dyn_tstep_short_fvm_hivi_setup(), mod_atmos_dyn_vars::atmos_dyn_vars_setup(), scale_atmos_grid_cartesc_index::atmos_grid_cartesc_index_setup_main(), scale_atmos_grid_cartesc_metric::atmos_grid_cartesc_metric_setup(), scale_atmos_grid_cartesc_real::atmos_grid_cartesc_real_setup(), scale_atmos_grid_cartesc::atmos_grid_cartesc_setup(), scale_atmos_grid_icoa_index::atmos_grid_icoa_index_setup(), scale_atmos_hydrostatic::atmos_hydrostatic_setup(), scale_atmos_phy_ae_kajino13::atmos_phy_ae_kajino13_setup(), scale_atmos_phy_ae_kajino13::atmos_phy_ae_kajino13_tracer_setup(), scale_atmos_phy_ae_offline::atmos_phy_ae_offline_setup(), mod_atmos_phy_ae_vars::atmos_phy_ae_vars_setup(), scale_atmos_phy_bl_mynn_jmapplib::atmos_phy_bl_mynn_jmapplib_setup(), scale_atmos_phy_bl_mynn::atmos_phy_bl_mynn_setup(), scale_atmos_phy_bl_mynn::atmos_phy_bl_mynn_tracer_setup(), mod_atmos_phy_bl_vars::atmos_phy_bl_vars_setup(), scale_atmos_phy_ch_rn222::atmos_phy_ch_rn222_setup(), mod_atmos_phy_ch_vars::atmos_phy_ch_vars_setup(), scale_atmos_phy_cp_common::atmos_phy_cp_common_setup(), scale_atmos_phy_cp_kf_jmapplib::atmos_phy_cp_kf_jmapplib_setup(), scale_atmos_phy_cp_kf::atmos_phy_cp_kf_setup(), mod_atmos_phy_cp_vars::atmos_phy_cp_vars_setup(), mod_atmos_phy_lt_driver::atmos_phy_lt_driver_setup(), scale_atmos_phy_lt_sato2019::atmos_phy_lt_sato2019_setup(), mod_atmos_phy_lt_vars::atmos_phy_lt_vars_setup(), mod_atmos_phy_mp_driver::atmos_phy_mp_driver_setup(), scale_atmos_phy_mp_sn14::atmos_phy_mp_sn14_setup(), scale_atmos_phy_mp_sn14::atmos_phy_mp_sn14_terminal_velocity(), scale_atmos_phy_mp_suzuki10::atmos_phy_mp_suzuki10_setup(), scale_atmos_phy_mp_suzuki10::atmos_phy_mp_suzuki10_tracer_setup(), scale_atmos_phy_mp_tomita08::atmos_phy_mp_tomita08_setup(), mod_atmos_phy_mp_vars::atmos_phy_mp_vars_setup(), mod_atmos_phy_rd_driver::atmos_phy_rd_driver_setup(), scale_atmos_phy_rd_mstrnx::atmos_phy_rd_mstrnx_setup(), scale_atmos_phy_rd_offline::atmos_phy_rd_offline_setup(), scale_atmos_phy_rd_profile::atmos_phy_rd_profile_setup(), mod_atmos_phy_rd_vars::atmos_phy_rd_vars_setup(), scale_atmos_phy_sf_bulk::atmos_phy_sf_bulk_setup(), scale_atmos_phy_sf_const::atmos_phy_sf_const_setup(), mod_atmos_phy_sf_vars::atmos_phy_sf_vars_setup(), scale_atmos_phy_tb_d1980::atmos_phy_tb_d1980_setup(), scale_atmos_phy_tb_dns::atmos_phy_tb_dns_setup(), scale_atmos_phy_tb_smg::atmos_phy_tb_smg_setup(), mod_atmos_phy_tb_vars::atmos_phy_tb_vars_setup(), scale_atmos_refstate::atmos_refstate_setup(), scale_atmos_saturation::atmos_saturation_setup(), scale_atmos_sfc_ch_rn222::atmos_sfc_ch_rn222_setup(), scale_atmos_solarins::atmos_solarins_setup(), mod_atmos_vars::atmos_vars_setup(), scale_bulkflux::bulkflux_setup(), scale_calendar::calendar_setup(), mod_cnvlanduse::cnvlanduse(), mod_cnvlanduse::cnvlanduse_setup(), mod_cnvtopo::cnvtopo(), mod_cnvtopo::cnvtopo_setup(), mod_cnvuser::cnvuser_setup(), scale_comm_cartesc_nest::comm_cartesc_nest_setup(), scale_comm_icoa::comm_setup(), scale_comm_cartesc::comm_setup(), scale_const::const_setup(), mod_convert::convert_setup(), mod_copytopo::copytopo(), scale_coriolis::coriolis_setup(), scale_cpl_phy_sfc_skin::cpl_phy_sfc_skin_setup(), mod_da_admin::da_admin_setup(), mod_da_param_estimation::da_param_estimation_setup(), mod_da_vars::da_vars_setup(), scale_file_cartesc::file_cartesc_setup(), scale_file_external_input::file_external_input_setup(), scale_file_history_cartesc::file_history_cartesc_setup(), scale_file_history::file_history_setup(), scale_file::file_setup(), mod_mkinit::flux_setup(), scale_interp::interp_setup(), io_finalize(), io_log_setup(), io_setup(), mod_land_admin::land_admin_setup(), scale_land_dyn_bucket::land_dyn_bucket_setup(), scale_land_grid_cartesc_index::land_grid_cartesc_index_setup(), scale_land_grid_cartesc::land_grid_cartesc_setup(), scale_land_grid_icoa_index::land_grid_icoa_index_setup(), scale_land_grid_icoa::land_grid_icoa_setup(), scale_land_phy_matsiro::land_phy_matsiro_setup(), scale_land_phy_snow_ky90::land_phy_snow_ky90_setup(), mod_mkinit::land_setup(), mod_land_vars::land_vars_check(), mod_land_vars::land_vars_setup(), scale_landuse::landuse_setup(), scale_letkf::letkf_setup(), scale_mapprojection::mapprojection_setup(), mod_mkinit::mkinit(), mod_mkinit::mkinit_setup(), mod_mktopo::mktopo(), mod_mktopo::mktopo_setup(), scale_monitor::monitor_setup(), mod_ocean_admin::ocean_admin_setup(), scale_ocean_dyn_offline::ocean_dyn_offline_setup(), scale_ocean_dyn_slab::ocean_dyn_slab_setup(), scale_ocean_grid_cartesc_index::ocean_grid_cartesc_index_setup(), scale_ocean_grid_cartesc::ocean_grid_cartesc_setup(), scale_ocean_grid_icoa_index::ocean_grid_icoa_index_setup(), scale_ocean_grid_icoa::ocean_grid_icoa_setup(), scale_ocean_phy_albedo::ocean_phy_albedo_const_setup(), scale_ocean_phy_albedo::ocean_phy_albedo_seaice_setup(), scale_ocean_phy_ice_simple::ocean_phy_ice_setup(), scale_ocean_phy_roughness::ocean_phy_roughness_const_setup(), scale_ocean_phy_roughness_miller92::ocean_phy_roughness_miller92_setup(), scale_ocean_phy_roughness_moon07::ocean_phy_roughness_moon07_setup(), scale_ocean_phy_roughness::ocean_phy_roughness_seaice_setup(), scale_ocean_phy_roughness::ocean_phy_roughness_setup(), scale_ocean_phy_tc::ocean_phy_tc_seaice_setup(), mod_mkinit::ocean_setup(), mod_ocean_vars::ocean_vars_setup(), mod_realinput_netcdf::parentatmossetupnetcdf(), mod_realinput_netcdf::parentlandsetupnetcdf(), mod_realinput_netcdf::parentoceansetupnetcdf(), scale_prc_cartesc::prc_cartesc_setup(), scale_prc_icoa::prc_icoa_setup(), scale_prc::prc_timereorder(), scale_prof::prof_setup(), scale_random::random_setup(), mod_mkinit::read_sounding(), mod_realinput::realinput_atmos(), mod_realinput::realinput_surface(), mod_mkinit::rect_setup(), scale_spnudge::spnudge_setup(), scale_statistics::statistics_setup(), mod_mkinit::tke_setup(), scale_topography::topography_setup(), mod_urban_admin::urban_admin_setup(), scale_urban_dyn_kusaka01::urban_dyn_kusaka01_setup(), scale_urban_grid_cartesc_index::urban_grid_cartesc_index_setup(), scale_urban_grid_cartesc::urban_grid_cartesc_setup(), scale_urban_grid_icoa_index::urban_grid_icoa_index_setup(), scale_urban_grid_icoa::urban_grid_icoa_setup(), mod_mkinit::urban_setup(), mod_urban_vars::urban_vars_setup(), and mod_user::user_setup().

io_fid_log

integer, public scale_io::io_fid_log = -1

Log file ID.

Definition at line 58 of file scale_io.F90.

  integer,               public            :: IO_FID_LOG    = -1

Referenced by scale_atmos_solarins::atmos_solarins_setup(), scale_comm_icoa::comm_setup(), io_finalize(), io_log_setup(), scale_monitor::monitor_setup(), scale_prc::prc_timereorder(), scale_prof::prof_rapreport(), mod_rm_driver::rm_driver(), and scale_comm_icoa::suf().

io_fid_nml

integer, public scale_io::io_fid_nml = -1

Log file ID (only for output namelist)

Definition at line 59 of file scale_io.F90.

  integer,               public            :: IO_FID_NML    = -1

Referenced by io_finalize(), io_log_setup(), scale_monitor::monitor_setup(), scale_prc_cartesc::prc_cartesc_setup(), and scale_prc_icoa::prc_icoa_setup().

io_log_basename

character(len=h_long), public scale_io::io_log_basename = 'LOG'

basename of logfile

Definition at line 61 of file scale_io.F90.

  character(len=H_LONG), public            :: IO_LOG_BASENAME     = 'LOG'

Referenced by io_log_setup(), and io_setup().

io_nml_filename

character(len=h_long), public scale_io::io_nml_filename = ''

filename of logfile (only for output namelist)

Definition at line 62 of file scale_io.F90.

  character(len=H_LONG), public            :: IO_NML_FILENAME     = ''

Referenced by io_log_setup(), and io_setup().

io_l

logical, public scale_io::io_l = .false.

output log or not? (this process)

Definition at line 63 of file scale_io.F90.

  logical,               public            :: IO_L                = .false. 

Referenced by scale_atmos_solarins::atmos_solarins_setup(), scale_comm_icoa::comm_setup(), io_finalize(), io_log_setup(), scale_prc_cartesc::prc_cartesc_setup(), scale_prc_icoa::prc_icoa_setup(), scale_prc::prc_timereorder(), scale_prof::prof_rapreport(), mod_rm_driver::rm_driver(), and scale_comm_icoa::suf().

io_nml

logical, public scale_io::io_nml = .false.

output log or not? (for namelist, this process)

Definition at line 64 of file scale_io.F90.

  logical,               public            :: IO_NML              = .false. 

Referenced by scale_comm_icoa::comm_setup(), io_finalize(), io_log_setup(), scale_prc_cartesc::prc_cartesc_setup(), and scale_prc_icoa::prc_icoa_setup().

io_log_suppress

logical, public scale_io::io_log_suppress = .false.

suppress all of log output?

Definition at line 65 of file scale_io.F90.

  logical,               public            :: IO_LOG_SUPPRESS     = .false. 

Referenced by io_log_setup(), io_setup(), and scale_prof::prof_rapreport().

io_log_nml_suppress

logical, public scale_io::io_log_nml_suppress = .false.

suppress all of log output? (for namelist)

Definition at line 66 of file scale_io.F90.

  logical,               public            :: IO_LOG_NML_SUPPRESS = .false. 

Referenced by io_log_setup(), and io_setup().

io_log_allnode

logical, public scale_io::io_log_allnode = .false.

output log for each node?

Definition at line 67 of file scale_io.F90.

  logical,               public            :: IO_LOG_ALLNODE      = .false. 

Referenced by io_log_setup(), io_setup(), scale_monitor::monitor_write(), and scale_prof::prof_rapreport().

io_step_to_stdout

integer, public scale_io::io_step_to_stdout = -1

interval for output current step to STDOUT (negative is off)

Definition at line 68 of file scale_io.F90.

  integer,               public            :: IO_STEP_TO_STDOUT   = -1

Referenced by mod_admin_time::admin_time_checkstate(), and io_setup().

io_universalrank

character(len=6), public scale_io::io_universalrank = "UNKNWN"

universal rank for error log

Definition at line 70 of file scale_io.F90.

  character(len=6),      public            :: IO_UNIVERSALRANK    = "UNKNWN"

Referenced by io_set_universalrank().

io_jobid

character(len=6), public scale_io::io_jobid = "UNKNWN"

bulk job id for error log

Definition at line 71 of file scale_io.F90.

  character(len=6),      public            :: IO_JOBID            = "UNKNWN"

Referenced by io_set_universalrank().

io_domainid

character(len=6), public scale_io::io_domainid = "UNKNWN"

nesting domain id for error log

Definition at line 72 of file scale_io.F90.

  character(len=6),      public            :: IO_DOMAINID         = "UNKNWN"

Referenced by io_set_universalrank().

io_localrank

character(len=6), public scale_io::io_localrank = "UNKNWN"

local rank for error log

Definition at line 73 of file scale_io.F90.

  character(len=6),      public            :: IO_LOCALRANK        = "UNKNWN"

Referenced by io_log_setup().