seq_io_mod Module


Uses


Interfaces

public interface seq_io_read

  • private subroutine seq_io_read_av(filename, gsmap, AV, dname, pre)

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: filename
    type(GlobalSegMap), intent(in) :: gsmap
    type(AttrVect), intent(inout) :: AV
    character(len=*), intent(in) :: dname
    character(len=*), intent(in), optional :: pre

  • private subroutine seq_io_read_avs(filename, gsmap, AVS, dname, pre)

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: filename
    type(GlobalSegMap), intent(in) :: gsmap
    type(AttrVect), intent(inout) :: AVS(:)
    character(len=*), intent(in) :: dname
    character(len=*), intent(in), optional :: pre

  • private subroutine seq_io_read_avscomp(filename, comp, flow, dname, pre)

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: filename
    type(component_type), intent(inout) :: comp(:)
    character(len=3), intent(in) :: flow
    character(len=*), intent(in) :: dname
    character(len=*), intent(in), optional :: pre

  • private subroutine seq_io_read_int(filename, idata, dname)

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: filename
    integer, intent(inout) :: idata
    character(len=*), intent(in) :: dname

  • private subroutine seq_io_read_int1d(filename, idata, dname)

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: filename
    integer(kind=in), intent(inout) :: idata(:)
    character(len=*), intent(in) :: dname

  • private subroutine seq_io_read_r8(filename, rdata, dname)

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: filename
    real(kind=r8), intent(inout) :: rdata
    character(len=*), intent(in) :: dname

  • private subroutine seq_io_read_r81d(filename, rdata, dname)

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: filename
    real(kind=r8), intent(inout) :: rdata(:)
    character(len=*), intent(in) :: dname

  • private subroutine seq_io_read_char(filename, rdata, dname)

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: filename
    character(len=*), intent(inout) :: rdata
    character(len=*), intent(in) :: dname

public interface seq_io_write

  • private subroutine seq_io_write_av(filename, gsmap, AV, dname, whead, wdata, nx, ny, nt, fillval, pre, tavg, use_float, file_ind)

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: filename
    type(GlobalSegMap), intent(in) :: gsmap
    type(AttrVect), intent(in) :: AV
    character(len=*), intent(in) :: dname
    logical, intent(in), optional :: whead
    logical, intent(in), optional :: wdata
    integer(kind=in), intent(in), optional :: nx
    integer(kind=in), intent(in), optional :: ny
    integer(kind=in), intent(in), optional :: nt
    real(kind=r8), intent(in), optional :: fillval
    character(len=*), intent(in), optional :: pre
    logical, intent(in), optional :: tavg
    logical, intent(in), optional :: use_float
    integer, intent(in), optional :: file_ind

  • private subroutine seq_io_write_avs(filename, gsmap, AVS, dname, whead, wdata, nx, ny, nt, fillval, pre, tavg, use_float, file_ind)

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: filename
    type(GlobalSegMap), intent(in) :: gsmap
    type(AttrVect), intent(in) :: AVS(:)
    character(len=*), intent(in) :: dname
    logical, intent(in), optional :: whead
    logical, intent(in), optional :: wdata
    integer(kind=in), intent(in), optional :: nx
    integer(kind=in), intent(in), optional :: ny
    integer(kind=in), intent(in), optional :: nt
    real(kind=r8), intent(in), optional :: fillval
    character(len=*), intent(in), optional :: pre
    logical, intent(in), optional :: tavg
    logical, intent(in), optional :: use_float
    integer, intent(in), optional :: file_ind

  • private subroutine seq_io_write_avscomp(filename, comp, flow, dname, whead, wdata, nx, ny, nt, fillval, pre, tavg, use_float, file_ind)

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: filename
    type(component_type), intent(in) :: comp(:)
    character(len=3), intent(in) :: flow
    character(len=*), intent(in) :: dname
    logical, intent(in), optional :: whead
    logical, intent(in), optional :: wdata
    integer(kind=in), intent(in), optional :: nx
    integer(kind=in), intent(in), optional :: ny
    integer(kind=in), intent(in), optional :: nt
    real(kind=r8), intent(in), optional :: fillval
    character(len=*), intent(in), optional :: pre
    logical, intent(in), optional :: tavg
    logical, intent(in), optional :: use_float
    integer, intent(in), optional :: file_ind

  • private subroutine seq_io_write_int(filename, idata, dname, whead, wdata, file_ind)

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: filename
    integer(kind=in), intent(in) :: idata
    character(len=*), intent(in) :: dname
    logical, intent(in), optional :: whead
    logical, intent(in), optional :: wdata
    integer, intent(in), optional :: file_ind

  • private subroutine seq_io_write_int1d(filename, idata, dname, whead, wdata, file_ind)

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: filename
    integer(kind=in), intent(in) :: idata(:)
    character(len=*), intent(in) :: dname
    logical, intent(in), optional :: whead
    logical, intent(in), optional :: wdata
    integer, intent(in), optional :: file_ind

  • private subroutine seq_io_write_r8(filename, rdata, dname, whead, wdata, file_ind)

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: filename
    real(kind=r8), intent(in) :: rdata
    character(len=*), intent(in) :: dname
    logical, intent(in), optional :: whead
    logical, intent(in), optional :: wdata
    integer, intent(in), optional :: file_ind

  • private subroutine seq_io_write_r81d(filename, rdata, dname, whead, wdata, file_ind)

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: filename
    real(kind=r8), intent(in) :: rdata(:)
    character(len=*), intent(in) :: dname
    logical, intent(in), optional :: whead
    logical, intent(in), optional :: wdata
    integer, intent(in), optional :: file_ind

  • private subroutine seq_io_write_char(filename, rdata, dname, whead, wdata, file_ind)

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: filename
    character(len=*), intent(in) :: rdata
    character(len=*), intent(in) :: dname
    logical, intent(in), optional :: whead
    logical, intent(in), optional :: wdata
    integer, intent(in), optional :: file_ind

  • private subroutine seq_io_write_time(filename, time_units, time_cal, time_val, nt, whead, wdata, tbnds, file_ind)

    Arguments

    Type IntentOptional Attributes Name
    character(len=*), intent(in) :: filename
    character(len=*), intent(in) :: time_units
    character(len=*), intent(in) :: time_cal
    real(kind=r8), intent(in) :: time_val
    integer(kind=in), intent(in), optional :: nt
    logical, intent(in), optional :: whead
    logical, intent(in), optional :: wdata
    real(kind=r8), intent(in), optional :: tbnds(2)
    integer, intent(in), optional :: file_ind

Functions

public function seq_io_date2yyyymmdd(date)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: date

Return Value character(len=24)

public function seq_io_sec2hms(seconds)

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: seconds

Return Value character(len=8)


Subroutines

public subroutine seq_io_cpl_init()

Arguments

None

public subroutine seq_io_wopen(filename, clobber, file_ind, model_doi_url)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: filename
logical, intent(in), optional :: clobber
integer, intent(in), optional :: file_ind
character(len=CL), intent(in), optional :: model_doi_url

public subroutine seq_io_close(filename, file_ind)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: filename
integer, intent(in), optional :: file_ind

public subroutine seq_io_redef(filename, file_ind)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: filename
integer, intent(in), optional :: file_ind

public subroutine seq_io_enddef(filename, file_ind)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: filename
integer, intent(in), optional :: file_ind