gtool_file Module Reference

module GTOOL_FILE More...

Functions/Subroutines
subroutine, public	filecreate (fid, existed, basename, title, source, institution, master, myrank, rankidx, single, time_units, append)
subroutine, public	filesetoption (fid, filetype, key, val)
subroutine, public	fileopen (fid, basename, mode, single)
subroutine, public	filedefaxis (fid, name, desc, units, dim_name, dtype, dim_size)
subroutine, public	filedefassociatedcoordinates (fid, name, desc, units, dim_names, dtype)
subroutine, public	filedefinevariable (fid, vid, varname, desc, units, ndims, dims, dtype, tint, tavg)
subroutine, public	filesettattr (fid, vname, key, val)
subroutine, public	filegetshape (dims, basename, varname, myrank, single)
subroutine, public	filegetdatainfo (basename, varname, myrank, istep, single, description, units, datatype, dim_rank, dim_name, dim_size, time_start, time_end, time_units)
subroutine, public	filegetalldatainfo (step_limit, dim_limit, basename, varname, myrank, step_nmax, description, units, datatype, dim_rank, dim_name, dim_size, time_start, time_end, time_units, single)
subroutine, public	fileenddef (fid)
subroutine, public	fileclose (fid)
subroutine, public	filecloseall
subroutine, public	filemakefname (fname, basename, prefix, myrank, len)

Variables
real(dp), parameter, public	rmiss = -9.9999e+30

Detailed Description

module GTOOL_FILE

Description

unified hundring of various kinds of files

Author

Team SCALE

History

• 2012-06-12 (S.Nishizawa) [new] Imported from SCALE-LES

Function/Subroutine Documentation

filecreate()

subroutine, public gtool_file::filecreate	(	integer, intent(out)	fid,
		logical, intent(out)	existed,
		character(len=*), intent(in)	basename,
		character(len=*), intent(in)	title,
		character(len=*), intent(in)	source,
		character(len=*), intent(in)	institution,
		integer, intent(in)	master,
		integer, intent(in)	myrank,
		integer, dimension(:), intent(in)	rankidx,
		logical, intent(in), optional	single,
		character(len=*), intent(in), optional	time_units,
		logical, intent(in), optional	append
	)

Definition at line 181 of file gtool_file.f90.

References gtool_file_h::file_fappend, gtool_file_h::file_fwrite, file_get_global_attribute_double(), file_get_global_attribute_float(), file_get_global_attribute_int(), file_get_global_attribute_text(), file_set_global_attribute_double(), file_set_global_attribute_float(), file_set_global_attribute_int(), file_set_global_attribute_text(), file_set_tunits(), dc_log::log(), and gtool_file_h::success_code.

Referenced by scale_fileio::fileio_create(), scale_fileio::fileio_write_1d(), scale_fileio::fileio_write_2d(), scale_fileio::fileio_write_3d(), scale_fileio::fileio_write_3d_t(), scale_fileio::fileio_write_4d(), and gtool_history::historyaddvariable().

    implicit none

    integer,          intent(out)           :: fid
    logical,          intent(out)           :: existed
    character(LEN=*), intent( in)           :: basename
    character(LEN=*), intent( in)           :: title
    character(LEN=*), intent( in)           :: source
    character(LEN=*), intent( in)           :: institution
    integer,          intent( in)           :: master
    integer,          intent( in)           :: myrank
    integer,          intent( in)           :: rankidx(:)
    character(LEN=*), intent( in), optional :: time_units
    logical,          intent( in), optional :: single
    logical,          intent( in), optional :: append

    character(len=File_HMID) :: time_units_
    logical :: single_
    integer :: mode
    integer :: error

    intrinsic size

    if ( present(time_units) ) then
       time_units_ = time_units
    else
       time_units_ = 'seconds'
    end if

    mpi_myrank = myrank

    if ( present(single) ) then
       if ( single .and. (myrank .ne. master) ) return
       single_ = single
    else
       single_ = .false.
    endif

    mode = file_fwrite
    if ( present(append) ) then
       if ( append ) mode = file_fappend
    end if

    call filegetfid( &
         fid,        & ! (out)
         existed,    & ! (out)
         basename,   & ! (in)
         mode,       & ! (in)
         single_     & ! (in)
         )

    if ( existed ) return

    !--- append package header to the file
    call filesetglobalattribute( fid, & ! (in)
         "title", title               ) ! (in)
    call filesetglobalattribute( fid, & ! (in)
         "source", source             ) ! (in)
    call filesetglobalattribute( fid, & ! (in)
         "institution", institution   ) ! (in)
    call filesetglobalattribute( fid, & ! (in)
         "myrank", (/myrank/)         ) ! (in)
    call filesetglobalattribute( fid, & ! (in)
         "rankidx", rankidx           ) ! (in)

    call file_set_tunits( fid, & ! (in)
         time_units_,          & ! (in)
         error                 ) ! (out)
    if ( error /= success_code ) then
       call log('E', 'xxx failed to set time units')
    end if

    return

Here is the call graph for this function:

Here is the caller graph for this function:

filesetoption()

subroutine, public gtool_file::filesetoption	(	integer, intent(in)	fid,
		character(len=*), intent(in)	filetype,
		character(len=*), intent(in)	key,
		character(len=*), intent(in)	val
	)

Definition at line 453 of file gtool_file.f90.

References file_set_option(), dc_log::log(), and gtool_file_h::success_code.

Referenced by gtool_history::historyaddvariable().

    integer,          intent(in) :: fid
    character(LEN=*), intent(in) :: filetype
    character(LEN=*), intent(in) :: key
    character(LEN=*), intent(in) :: val

    integer error

    call file_set_option( fid,                & ! (in)
                          filetype, key, val, & ! (in)
                          error               ) ! (out)
    if ( error /= success_code ) then
       call log('E', 'xxx failed to set option')
    end if

    return

Here is the call graph for this function:

Here is the caller graph for this function:

fileopen()

subroutine, public gtool_file::fileopen	(	integer, intent(out)	fid,
		character(len=*), intent(in)	basename,
		integer, intent(in)	mode,
		logical, intent(in), optional	single
	)

Definition at line 477 of file gtool_file.f90.

References gtool_file_h::already_existed_code, dc_types::dp, file_put_axis(), dc_log::log(), dc_types::sp, and gtool_file_h::success_code.

Referenced by filegetalldatainfo(), filegetdatainfo(), and filegetshape().

    implicit none

    integer,          intent(out) :: fid
    character(LEN=*), intent( in) :: basename
    integer,          intent( in) :: mode
    logical,          intent( in), optional :: single

    logical :: existed
    logical :: single_ = .false.

    if ( present(single) ) single_ = single

    call filegetfid( fid,        & ! (out)
         existed,                & ! (out)
         basename, mode, single_ ) ! (in)

    return

Here is the call graph for this function:

Here is the caller graph for this function:

filedefaxis()

subroutine, public gtool_file::filedefaxis	(	integer, intent(in)	fid,
		character(len=*), intent(in)	name,
		character(len=*), intent(in)	desc,
		character(len=*), intent(in)	units,
		character(len=*), intent(in)	dim_name,
		integer, intent(in)	dtype,
		integer, intent(in)	dim_size
	)

Definition at line 564 of file gtool_file.f90.

References gtool_file_h::already_existed_code, dc_types::dp, file_def_axis(), file_put_associated_coordinates(), file_write_axis(), dc_log::log(), dc_types::sp, and gtool_file_h::success_code.

Referenced by scale_fileio::fileio_def_axes(), and gtool_history::historyaddvariable().

    integer,          intent(in) :: fid
    character(len=*), intent(in) :: name
    character(len=*), intent(in) :: desc
    character(len=*), intent(in) :: units
    character(len=*), intent(in) :: dim_name
    integer,          intent(in) :: dtype
    integer,          intent(in) :: dim_size

    integer error
    intrinsic size

    call file_def_axis( fid, name, desc, units, dim_name, dtype, dim_size, & ! (in)
         error                                                             ) ! (out)
    if ( error /= success_code .and. error /= already_existed_code ) then
       call log('E', 'xxx failed to define axis')
    end if

    return

Here is the call graph for this function:

Here is the caller graph for this function:

filedefassociatedcoordinates()

subroutine, public gtool_file::filedefassociatedcoordinates	(	integer, intent(in)	fid,
		character(len=*), intent(in)	name,
		character(len=*), intent(in)	desc,
		character(len=*), intent(in)	units,
		character(len=*), dimension(:), intent(in)	dim_names,
		integer, intent(in)	dtype
	)

Definition at line 869 of file gtool_file.f90.

References gtool_file_h::already_existed_code, dc_types::dp, file_add_variable(), file_def_associated_coordinates(), file_write_associated_coordinates(), dc_log::log(), dc_types::sp, and gtool_file_h::success_code.

Referenced by scale_fileio::fileio_def_axes(), and gtool_history::historyaddvariable().

    integer,          intent(in) :: fid
    character(len=*), intent(in) :: name
    character(len=*), intent(in) :: desc
    character(len=*), intent(in) :: units
    character(len=*), intent(in) :: dim_names(:)
    integer,          intent(in) :: dtype

    integer error
    intrinsic size

    call file_def_associated_coordinates( fid,                 & ! (in)
         name, desc, units, dim_names, size(dim_names), dtype, & ! (in)
         error                                                 ) ! (out)
    if ( error /= success_code .and. error /= already_existed_code ) then
       call log('E', 'xxx failed to put associated coordinates')
    end if

    return

Here is the call graph for this function:

Here is the caller graph for this function:

filedefinevariable()

subroutine, public gtool_file::filedefinevariable	(	integer, intent(in)	fid,
		integer, intent(out)	vid,
		character(len=*), intent(in)	varname,
		character(len=*), intent(in)	desc,
		character(len=*), intent(in)	units,
		integer, intent(in)	ndims,
		character(len=*), dimension(:), intent(in)	dims,
		integer, intent(in)	dtype,
		real(dp), intent(in), optional	tint,
		logical, intent(in), optional	tavg
	)

Definition at line 1229 of file gtool_file.f90.

References file_add_variable(), dc_log::log(), and gtool_file_h::success_code.

Referenced by scale_fileio::fileio_def_var().

    integer,          intent(out) :: vid
    integer,          intent( in) :: fid
    character(len=*), intent( in) :: varname
    character(len=*), intent( in) :: desc
    character(len=*), intent( in) :: units
    integer,          intent( in) :: ndims
    character(len=*), intent( in) :: dims(:)
    integer,          intent( in) :: dtype
    real(DP),         intent( in), optional :: tint
    logical,          intent( in), optional :: tavg

    real(DP) :: tint_
    integer  :: itavg
    integer  :: error
    integer  :: n

    intrinsic size
    !---------------------------------------------------------------------------

    vid = -1
    do n = 1, file_vid_count
       if ( file_vid_fid_list(n) == fid .and. &
            varname == file_vname_list(n) ) then
          vid = file_vid_list(n)
       end if
    enddo

    if ( vid < 0 ) then ! variable registration
       !--- register new variable
       write(message,*) '*** [File] Var registration'
       call log("I", message)
       write(message,*) '*** variable name: ', trim(varname)
       call log("I", message)

       if ( .NOT. present(tint) ) then
          tint_ = -1.0_dp
       endif

       if ( present(tavg) ) then
          if ( tavg ) then
             itavg = 1
          else
             itavg = 0
          end if
       else
          itavg = 0
       end if

       call file_add_variable( vid,                        & ! (out)
            fid, varname, desc, units, dims, ndims, dtype, & ! (in)
            tint_, itavg,                                  & ! (in)
            error                                          ) ! (out)
       if ( error /= success_code ) then
          call log('E', 'xxx failed to add variable: '//trim(varname))
       end if

       file_vname_list(file_vid_count) = trim(varname)
       file_vid_list(file_vid_count) = vid
       file_vid_fid_list(file_vid_count) = fid
       file_vid_count                    = file_vid_count + 1
    endif

    return

Here is the call graph for this function:

Here is the caller graph for this function:

filesettattr()

subroutine, public gtool_file::filesettattr	(	integer, intent(in)	fid,
		character(len=*), intent(in)	vname,
		character(len=*), intent(in)	key,
		character(len=*), intent(in)	val
	)

Definition at line 1303 of file gtool_file.f90.

References gtool_file_h::already_existed_code, file_set_tattr(), dc_log::log(), and gtool_file_h::success_code.

Referenced by scale_fileio::fileio_def_axes(), scale_fileio::fileio_set_axes(), gtool_history::historyaddvariable(), and gtool_history::historysettattr().

    integer,          intent(in) :: fid
    character(len=*), intent(in) :: vname
    character(len=*), intent(in) :: key
    character(len=*), intent(in) :: val

    integer :: error

    call file_set_tattr( &
         fid, vname, & ! (in)
         key, val,   & ! (in)
         error       ) ! (out)
    if ( error /= success_code .and. error /= already_existed_code ) then
       call log('E', 'xxx failed to set attr for axis')
    end if

    return

Here is the call graph for this function:

Here is the caller graph for this function:

filegetshape()

subroutine, public gtool_file::filegetshape	(	integer, dimension(:), intent(out)	dims,
		character(len=*), intent(in)	basename,
		character(len=*), intent(in)	varname,
		integer, intent(in)	myrank,
		logical, intent(in), optional	single
	)

Definition at line 1331 of file gtool_file.f90.

References gtool_file_h::file_fread, file_get_datainfo(), fileopen(), dc_log::log(), and gtool_file_h::success_code.

Referenced by mod_realinput_nicam::parentatomsetupnicam(), mod_realinput_nicam::parentlandsetupnicam(), mod_realinput_nicam::parentoceansetupnicam(), and mod_mkinit::read_sounding().

    implicit none

    integer,          intent(out)           :: dims(:)
    character(LEN=*), intent( in)           :: basename
    character(LEN=*), intent( in)           :: varname
    integer,          intent( in)           :: myrank
    logical,          intent( in), optional :: single

    integer :: fid
    type(datainfo) :: dinfo
    integer :: error
    integer :: n

    logical :: single_ = .false.

    intrinsic size
    intrinsic shape
    !---------------------------------------------------------------------------

    mpi_myrank = myrank

    if ( present(single) ) single_ = single

    !--- search/register file
    call fileopen( fid,                & ! (out)
         basename, file_fread, single_ ) ! (in)

    !--- get data information
    call file_get_datainfo( dinfo, & ! (out)
         fid, varname, 1, .false., & ! (in)
         error                     ) ! (out)

    !--- verify
    if ( error /= success_code ) then
       call log('E', 'xxx failed to get data information :'//trim(varname))
    end if

    if ( dinfo%rank /= size(dims) ) then
       write(message,*) 'xxx rank is different, ', size(dims), dinfo%rank
       call log('E', message)
    end if
    do n = 1, size(dims)
       dims(n) = dinfo%dim_size(n)
    end do

    return

Here is the call graph for this function:

Here is the caller graph for this function:

filegetdatainfo()

subroutine, public gtool_file::filegetdatainfo	(	character(len=*), intent(in)	basename,
		character(len=*), intent(in)	varname,
		integer, intent(in)	myrank,
		integer, intent(in)	istep,
		logical, intent(in), optional	single,
		character(len=file_hmid), intent(out), optional	description,
		character(len=file_hshort), intent(out), optional	units,
		integer, intent(out), optional	datatype,
		integer, intent(out), optional	dim_rank,
		character(len=file_hshort), dimension(:), intent(out), optional	dim_name,
		integer, dimension(:), intent(out), optional	dim_size,
		real(dp), intent(out), optional	time_start,
		real(dp), intent(out), optional	time_end,
		character(len=file_hmid), intent(out), optional	time_units
	)

Definition at line 1397 of file gtool_file.f90.

References gtool_file_h::file_fread, file_get_datainfo(), fileopen(), dc_log::log(), and gtool_file_h::success_code.

Referenced by mod_admin_time::admin_time_setup().

    implicit none
    character(len=*),           intent(in)  :: basename
    character(len=*),           intent(in)  :: varname
    integer,                    intent(in)  :: myrank
    integer,                    intent(in)  :: istep
    logical,                    intent(in), optional :: single

    character(len=File_HMID),   intent(out), optional :: description
    character(len=File_HSHORT), intent(out), optional :: units
    integer,                    intent(out), optional :: datatype
    integer,                    intent(out), optional :: dim_rank
    character(len=File_HSHORT), intent(out), optional :: dim_name(:)
    integer,                    intent(out), optional :: dim_size(:)
    real(DP),                   intent(out), optional :: time_start
    real(DP),                   intent(out), optional :: time_end
    character(len=File_HMID),   intent(out), optional :: time_units

    integer        :: fid
    type(datainfo) :: dinfo

    integer :: ndim, idim
    real(DP):: time(1)

    integer :: error
    logical :: single_ = .false.

    intrinsic size
    !---------------------------------------------------------------------------

    mpi_myrank = myrank

    if ( present(single) ) single_ = single

    !--- search/register file
    call fileopen( fid,        & ! [OUT]
                   basename,   & ! [IN]
                   file_fread, & ! [IN]
                   single_     ) ! [IN]

    !--- get data information
    call file_get_datainfo( dinfo,   & ! [OUT]
                            fid,     & ! [IN]
                            varname, & ! [IN]
                            istep,   & ! [IN]
                            .false., & ! [IN]
                            error    ) ! [OUT]

    !--- verify and exit
    if ( error /= success_code ) then
       call log('E', 'xxx data info not found in '//trim(basename))
    endif

    if ( present(description) ) description = dinfo%description
    if ( present(units)       ) units       = dinfo%units
    if ( present(datatype)    ) datatype    = dinfo%datatype
    if ( present(dim_rank)    ) dim_rank    = dinfo%rank

    if ( present(dim_name) ) then
       ndim = min( dinfo%rank, size(dim_name) ) ! limit dimension rank
       do idim = 1, ndim
          dim_name(idim) = dinfo%dim_name(idim)
       enddo
    end if
    if ( present(dim_size) ) then
       ndim = min( dinfo%rank, size(dim_size) ) ! limit dimension rank
       do idim = 1, ndim
          dim_size(idim) = dinfo%dim_size(idim)
       enddo
    end if

    if ( present(time_units)  ) then
       if ( dinfo%time_units == "" ) then
          call filegetglobalattribute( fid, "time_units", time_units )
       else
          time_units  = dinfo%time_units
       end if
    end if
    if ( present(time_start)  ) then
       if ( dinfo%time_units == "" ) then
          call filegetglobalattribute( fid, "time", time )
          time_start = time(1)
       else
          time_start  = dinfo%time_start
       end if
    end if
    if ( present(time_end)  ) then
       if ( dinfo%time_units == "" ) then
          call filegetglobalattribute( fid, "time", time )
          time_end = time(1)
       else
          time_end  = dinfo%time_end
       end if
    end if

    return

Here is the call graph for this function:

Here is the caller graph for this function:

filegetalldatainfo()

subroutine, public gtool_file::filegetalldatainfo	(	integer, intent(in)	step_limit,
		integer, intent(in)	dim_limit,
		character(len=*), intent(in)	basename,
		character(len=*), intent(in)	varname,
		integer, intent(in)	myrank,
		integer, intent(out)	step_nmax,
		character(len=file_hmid), intent(out)	description,
		character(len=file_hshort), intent(out)	units,
		integer, intent(out)	datatype,
		integer, intent(out)	dim_rank,
		character(len=file_hshort), dimension (dim_limit), intent(out)	dim_name,
		integer, dimension (dim_limit), intent(out)	dim_size,
		real(dp), dimension(step_limit), intent(out)	time_start,
		real(dp), dimension (step_limit), intent(out)	time_end,
		character(len=file_hmid), intent(out)	time_units,
		logical, intent(in), optional	single
	)

Definition at line 1514 of file gtool_file.f90.

References dc_types::dp, gtool_file_h::file_fread, file_get_datainfo(), file_read_data(), file_write_data(), file_write_var(), fileopen(), dc_log::log(), rmiss, dc_types::sp, and gtool_file_h::success_code.

Referenced by scale_external_input::extin_setup().

    implicit none

    integer,                    intent(in)  :: step_limit
    integer,                    intent(in)  :: dim_limit
    character(len=*),           intent(in)  :: basename
    character(len=*),           intent(in)  :: varname
    integer,                    intent(in)  :: myrank
    integer,                    intent(out) :: step_nmax
    character(len=File_HMID),   intent(out) :: description
    character(len=File_HSHORT), intent(out) :: units
    integer,                    intent(out) :: datatype
    integer,                    intent(out) :: dim_rank
    character(len=File_HSHORT), intent(out) :: dim_name  (dim_limit)
    integer,                    intent(out) :: dim_size  (dim_limit)
    real(DP),                   intent(out) :: time_start(step_limit)
    real(DP),                   intent(out) :: time_end  (step_limit)
    character(len=File_HMID),   intent(out) :: time_units

    logical,                    intent(in), optional :: single

    integer        :: fid
    type(datainfo) :: dinfo

    integer :: ndim
    integer :: istep, idim
    logical :: flag_first = .true.

    integer :: error
    logical :: single_ = .false.
    !---------------------------------------------------------------------------

    mpi_myrank = myrank

    if ( present(single) ) single_ = single

    !--- search/register file
    call fileopen( fid,        & ! [OUT]
                   basename,   & ! [IN]
                   file_fread, & ! [IN]
                   single_     ) ! [IN]

    ! initialize
    description   = ""
    units         = ""
    datatype      = -1
    dim_rank      = -1
    dim_name(:) = ""
    dim_size(:) = -1
    time_start(:) = rmiss
    time_end(:) = rmiss

    do istep = 1, step_limit
       !--- get data information
       call file_get_datainfo( dinfo,   & ! [OUT]
                               fid,     & ! [IN]
                               varname, & ! [IN]
                               istep,   & ! [IN]
                               .true.,  & ! [IN]
                               error    ) ! [OUT]

       !--- verify and exit
       if ( error /= success_code ) then
          step_nmax = istep - 1
          exit
       endif

       if ( flag_first ) then
          flag_first = .false.

          description = dinfo%description
          units       = dinfo%units
          datatype    = dinfo%datatype
          dim_rank    = dinfo%rank

          ndim = min( dinfo%rank, dim_limit ) ! limit dimension rank
          do idim = 1, ndim
             dim_name(idim) = dinfo%dim_name(idim)
             dim_size(idim) = dinfo%dim_size(idim)
          enddo

          time_units        = dinfo%time_units
       endif

       time_start(istep) = dinfo%time_start
       time_end(istep) = dinfo%time_end
    enddo

    return

Here is the call graph for this function:

Here is the caller graph for this function:

fileenddef()

subroutine, public gtool_file::fileenddef

(

integer, intent(in)

fid

)

Definition at line 2844 of file gtool_file.f90.

References file_enddef(), dc_log::log(), and gtool_file_h::success_code.

Referenced by scale_fileio::fileio_enddef(), and gtool_history::historywriteaxes().

    implicit none

    integer, intent(in) :: fid

    integer :: error, n
    !---------------------------------------------------------------------------

    if ( fid < 0 ) return

    do n = 1, file_fid_count-1
       if ( file_fid_list(n) == fid ) exit
    end do
    if ( fid .NE. file_fid_list(n) ) then
       write(message,*) 'xxx in FileEndDef invalid fid' , fid
       call log('E', message)
    end if
    call file_enddef( fid , & ! (in)
         error             ) ! (out)
    if ( error .EQ. success_code ) then
       write(message, '(1x,A,i3)') '*** [File] File enddef : NO.', n
       call log('I', message)
       call log('I', '*** enddef filename: ' // trim(file_fname_list(n)))
    else
       call log('E', 'xxx failed to exit define mode')
    end if

    return

Here is the call graph for this function:

Here is the caller graph for this function:

fileclose()

subroutine, public gtool_file::fileclose

(

integer, intent(in)

fid

)

Definition at line 2877 of file gtool_file.f90.

References gtool_file_h::already_closed_code, file_close(), dc_log::log(), and gtool_file_h::success_code.

Referenced by filecloseall(), scale_fileio::fileio_close(), and gtool_history::historyfinalize().

    implicit none

    integer, intent(in) :: fid

    character(LEN=File_HLONG) :: fname
    integer                   :: error
    integer                   :: n
    !---------------------------------------------------------------------------

    if ( fid < 0 ) return

    do n = 1, file_fid_count-1
       if ( file_fid_list(n) == fid ) exit
    end do
    if ( n .EQ. file_fid_count ) return  ! already closed

    if ( fid /= file_fid_list(n) ) then
       write(message,*) 'xxx in FileClose invalid fid ', fid
       call log('E', message)
    end if
    call file_close( fid , & ! (in)
         error             ) ! (out)
    if ( error == success_code ) then
       write(message, '(1x,A,i3)') '*** [File] File Close : NO.', n
       call log('I', message)
       call log('I', '*** closed filename: ' // trim(file_fname_list(n)))
    else if ( error /= already_closed_code ) then
       call log('E', 'xxx failed to close file')
    end if

    do n = 1, file_fid_count-1
       if ( file_fid_list(n) == fid ) then
          file_fid_list(n) = -1
          file_fname_list(n) = ''
       end if
    end do

    return

Here is the call graph for this function:

Here is the caller graph for this function:

filecloseall()

subroutine, public gtool_file::filecloseall

(

)

Definition at line 2918 of file gtool_file.f90.

References fileclose().

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

    implicit none

    integer n
    !---------------------------------------------------------------------------

    do n = 1, file_fid_count-1
       call fileclose( file_fid_list(n) )
    enddo

    return

Here is the call graph for this function:

Here is the caller graph for this function:

filemakefname()

subroutine, public gtool_file::filemakefname	(	character(len=*), intent(out)	fname,
		character(len=*), intent(in)	basename,
		character(len=*), intent(in)	prefix,
		integer, intent(in)	myrank,
		integer, intent(in)	len
	)

Definition at line 2939 of file gtool_file.f90.

References file_open(), dc_log::log(), and gtool_file_h::success_code.

Referenced by scale_external_io::externalfilereadoffset4drealdp().

    character(len=*), intent(out) :: fname
    character(len=*), intent( in) :: basename
    character(len=*), intent( in) :: prefix
    integer,          intent( in) :: myrank
    integer,          intent( in) :: len

    !                           12345678901234567
    character(len=17) :: fmt = "(A, '.', A, I*.*)"
    !---------------------------------------------------------------------------

    if ( len < 1 .or. len > 9 ) then
       call log('E', 'xxx len is invalid')
    end if

    write(fmt(14:14),'(I1)') len
    write(fmt(16:16),'(I1)') len
    write(fname, fmt) trim(basename), trim(prefix), myrank

    return

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

rmiss

real(dp), parameter, public gtool_file::rmiss = -9.9999e+30

Definition at line 141 of file gtool_file.f90.

Referenced by filegetalldatainfo(), scale_fileio::fileio_write_2d(), scale_fileio::fileio_write_3d(), scale_fileio::fileio_write_3d_t(), scale_fileio::fileio_write_4d(), scale_fileio::fileio_write_var_2d(), scale_fileio::fileio_write_var_3d(), scale_fileio::fileio_write_var_3d_t(), scale_fileio::fileio_write_var_4d(), scale_history::hist_put_2d(), and scale_history::hist_put_3d().

  real(DP), parameter, public :: rmiss = -9.9999e+30