shr_strdata_mod Module

Interface


Uses


Variables

Type Visibility Attributes Name Initial
character(len=*), public, parameter :: shr_strdata_nullstr = 'null'

Interfaces

public interface shr_strdata_pioinit

  • private subroutine shr_strdata_pioinit_oldway(SDAT, io_subsystem, io_type)

    Arguments

    Type IntentOptional Attributes Name
    type(shr_strdata_type), intent(inout) :: SDAT
    type(IOSystem_desc_t), pointer :: io_subsystem
    integer, intent(in) :: io_type

  • private subroutine shr_strdata_pioinit_newway(SDAT, compid)

    Arguments

    Type IntentOptional Attributes Name
    type(shr_strdata_type), intent(inout) :: SDAT
    integer, intent(in) :: compid

public interface shr_strdata_create

  • private subroutine shr_strdata_create_oldway(SDAT, name, mpicom, compid, gsmap, ggrid, nxg, nyg, yearFirst, yearLast, yearAlign, offset, domFilePath, domFileName, domTvarName, domXvarName, domYvarName, domAreaName, domMaskName, filePath, filename, fldListFile, fldListModel, pio_subsystem, pio_iotype, nzg, domZvarName, taxMode, dtlimit, tintalgo, readmode, fillalgo, fillmask, fillread, fillwrite, mapalgo, mapmask, mapread, mapwrite, calendar)

    Arguments

    Type IntentOptional Attributes Name
    type(shr_strdata_type), intent(inout) :: SDAT
    character(len=*), intent(in) :: name
    integer(kind=IN), intent(in) :: mpicom
    integer(kind=IN), intent(in) :: compid
    type(GlobalSegMap), intent(in) :: gsmap
    type(GeneralGrid), intent(in) :: ggrid
    integer(kind=IN), intent(in) :: nxg
    integer(kind=IN), intent(in) :: nyg
    integer(kind=IN), intent(in) :: yearFirst
    integer(kind=IN), intent(in) :: yearLast
    integer(kind=IN), intent(in) :: yearAlign
    integer(kind=IN), intent(in) :: offset
    character(len=*), intent(in) :: domFilePath
    character(len=*), intent(in) :: domFileName
    character(len=*), intent(in) :: domTvarName
    character(len=*), intent(in) :: domXvarName
    character(len=*), intent(in) :: domYvarName
    character(len=*), intent(in) :: domAreaName
    character(len=*), intent(in) :: domMaskName
    character(len=*), intent(in) :: filePath
    character(len=*), intent(in) :: filename(:)
    character(len=*), intent(in) :: fldListFile
    character(len=*), intent(in) :: fldListModel
    type(IOSystem_desc_t), pointer :: pio_subsystem
    integer(kind=IN), intent(in) :: pio_iotype
    integer(kind=IN), intent(in), optional :: nzg
    character(len=*), intent(in), optional :: domZvarName
    character(len=*), intent(in), optional :: taxMode
    real(kind=R8), intent(in), optional :: dtlimit
    character(len=*), intent(in), optional :: tintalgo
    character(len=*), intent(in), optional :: readmode
    character(len=*), intent(in), optional :: fillalgo
    character(len=*), intent(in), optional :: fillmask
    character(len=*), intent(in), optional :: fillread
    character(len=*), intent(in), optional :: fillwrite
    character(len=*), intent(in), optional :: mapalgo
    character(len=*), intent(in), optional :: mapmask
    character(len=*), intent(in), optional :: mapread
    character(len=*), intent(in), optional :: mapwrite
    character(len=*), intent(in), optional :: calendar

  • private subroutine shr_strdata_create_newway(SDAT, name, mpicom, compid, gsmap, ggrid, nxg, nyg, yearFirst, yearLast, yearAlign, offset, domFilePath, domFileName, domTvarName, domXvarName, domYvarName, domAreaName, domMaskName, filePath, filename, fldListFile, fldListModel, nzg, domZvarName, taxMode, dtlimit, tintalgo, readmode, fillalgo, fillmask, fillread, fillwrite, mapalgo, mapmask, mapread, mapwrite, calendar)

    Arguments

    Type IntentOptional Attributes Name
    type(shr_strdata_type), intent(inout) :: SDAT
    character(len=*), intent(in) :: name
    integer(kind=IN), intent(in) :: mpicom
    integer(kind=IN), intent(in) :: compid
    type(GlobalSegMap), intent(in) :: gsmap
    type(GeneralGrid), intent(in) :: ggrid
    integer(kind=IN), intent(in) :: nxg
    integer(kind=IN), intent(in) :: nyg
    integer(kind=IN), intent(in) :: yearFirst
    integer(kind=IN), intent(in) :: yearLast
    integer(kind=IN), intent(in) :: yearAlign
    integer(kind=IN), intent(in) :: offset
    character(len=*), intent(in) :: domFilePath
    character(len=*), intent(in) :: domFileName
    character(len=*), intent(in) :: domTvarName
    character(len=*), intent(in) :: domXvarName
    character(len=*), intent(in) :: domYvarName
    character(len=*), intent(in) :: domAreaName
    character(len=*), intent(in) :: domMaskName
    character(len=*), intent(in) :: filePath
    character(len=*), intent(in) :: filename(:)
    character(len=*), intent(in) :: fldListFile
    character(len=*), intent(in) :: fldListModel
    integer(kind=IN), intent(in), optional :: nzg
    character(len=*), intent(in), optional :: domZvarName
    character(len=*), intent(in), optional :: taxMode
    real(kind=R8), intent(in), optional :: dtlimit
    character(len=*), intent(in), optional :: tintalgo
    character(len=*), intent(in), optional :: readmode
    character(len=*), intent(in), optional :: fillalgo
    character(len=*), intent(in), optional :: fillmask
    character(len=*), intent(in), optional :: fillread
    character(len=*), intent(in), optional :: fillwrite
    character(len=*), intent(in), optional :: mapalgo
    character(len=*), intent(in), optional :: mapmask
    character(len=*), intent(in), optional :: mapread
    character(len=*), intent(in), optional :: mapwrite
    character(len=*), intent(in), optional :: calendar

Derived Types

type, public ::  shr_strdata_type

Components

Type Visibility Attributes Name Initial
character(len=CL), public :: dataMode
character(len=CL), public :: domainFile
character(len=CL), public :: streams(nStrMax)
character(len=CL), public :: taxMode(nStrMax)
real(kind=R8), public :: dtlimit(nStrMax)
character(len=CL), public :: vectors(nVecMax)
character(len=CL), public :: fillalgo(nStrMax)
character(len=CL), public :: fillmask(nStrMax)
character(len=CL), public :: fillread(nStrMax)
character(len=CL), public :: fillwrit(nStrMax)
character(len=CL), public :: mapalgo(nStrMax)
character(len=CL), public :: mapmask(nStrMax)
character(len=CL), public :: mapread(nStrMax)
character(len=CL), public :: mapwrit(nStrMax)
character(len=CL), public :: tintalgo(nStrMax)
character(len=CL), public :: readmode(nStrMax)
integer(kind=IN), public :: io_type
integer(kind=IN), public :: io_format
real(kind=R8), public :: eccen
real(kind=R8), public :: mvelpp
real(kind=R8), public :: lambm0
real(kind=R8), public :: obliqr
integer(kind=IN), public :: modeldt
integer(kind=IN), public :: nxg
integer(kind=IN), public :: nyg
integer(kind=IN), public :: nzg
integer(kind=IN), public :: lsize
type(GlobalSegMap), public :: gsmap
type(GeneralGrid), public :: grid
type(AttrVect), public :: avs(nStrMax)
type(shr_stream_streamType), public :: stream(nStrMax)
type(IOSystem_desc_t), public, pointer :: pio_subsystem => null()
type(io_desc_t), public :: pio_iodesc(nStrMax)
integer(kind=IN), public :: nstreams
integer(kind=IN), public :: strnxg(nStrMax)
integer(kind=IN), public :: strnyg(nStrMax)
integer(kind=IN), public :: strnzg(nStrMax)
logical, public :: dofill(nStrMax)
logical, public :: domaps(nStrMax)
integer(kind=IN), public :: lsizeR(nStrMax)
type(GlobalSegMap), public :: gsmapR(nStrMax)
type(Rearranger), public :: rearrR(nStrMax)
type(GeneralGrid), public :: gridR(nStrMax)
type(AttrVect), public :: avRFile(nStrMax)
type(AttrVect), public :: avRLB(nStrMax)
type(AttrVect), public :: avRUB(nStrMax)
type(AttrVect), public :: avFUB(nStrMax)
type(AttrVect), public :: avFLB(nStrMax)
type(AttrVect), public :: avCoszen(nStrMax)
type(SparseMatrixPlus), public :: sMatPf(nStrMax)
type(SparseMatrixPlus), public :: sMatPs(nStrMax)
integer(kind=IN), public :: ymdLB(nStrMax)
integer(kind=IN), public :: todLB(nStrMax)
integer(kind=IN), public :: ymdUB(nStrMax)
integer(kind=IN), public :: todUB(nStrMax)
real(kind=R8), public :: dtmin(nStrMax)
real(kind=R8), public :: dtmax(nStrMax)
integer(kind=IN), public :: ymd
integer(kind=IN), public :: tod
character(len=CL), public :: calendar
integer(kind=IN), public :: nvectors
integer(kind=IN), public :: ustrm(nVecMax)
integer(kind=IN), public :: vstrm(nVecMax)
character(len=CL), public :: allocstring

Subroutines

public subroutine shr_strdata_init(SDAT, mpicom, compid, name, scmmode, scmlon, scmlat, gsmap, ggrid, nxg, nyg, nzg, calendar, reset_domain_mask, dmodel_domain_fracname_from_stream)

Arguments

Type IntentOptional Attributes Name
type(shr_strdata_type), intent(inout) :: SDAT
integer(kind=IN), intent(in) :: mpicom
integer(kind=IN), intent(in) :: compid
character(len=*), intent(in), optional :: name
logical, intent(in), optional :: scmmode
real(kind=R8), intent(in), optional :: scmlon
real(kind=R8), intent(in), optional :: scmlat
type(GlobalSegMap), intent(in), optional :: gsmap
type(GeneralGrid), intent(in), optional :: ggrid
integer(kind=IN), intent(in), optional :: nxg
integer(kind=IN), intent(in), optional :: nyg
integer(kind=IN), intent(in), optional :: nzg
character(len=*), intent(in), optional :: calendar
logical, intent(in), optional :: reset_domain_mask
character(len=*), intent(in), optional :: dmodel_domain_fracname_from_stream

public subroutine shr_strdata_advance(SDAT, ymd, tod, mpicom, istr, timers)

Arguments

Type IntentOptional Attributes Name
type(shr_strdata_type), intent(inout) :: SDAT
integer(kind=IN), intent(in) :: ymd
integer(kind=IN), intent(in) :: tod
integer(kind=IN), intent(in) :: mpicom
character(len=*), intent(in), optional :: istr
logical, intent(in), optional :: timers

public subroutine shr_strdata_clean(SDAT)

Arguments

Type IntentOptional Attributes Name
type(shr_strdata_type), intent(inout) :: SDAT

public subroutine shr_strdata_restWrite(filename, SDAT, mpicom, str1, str2)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: filename
type(shr_strdata_type), intent(inout) :: SDAT
integer(kind=IN), intent(in) :: mpicom
character(len=*), intent(in) :: str1
character(len=*), intent(in) :: str2

public subroutine shr_strdata_restRead(filename, SDAT, mpicom)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: filename
type(shr_strdata_type), intent(inout) :: SDAT
integer(kind=IN), intent(in) :: mpicom

public subroutine shr_strdata_setOrbs(SDAT, eccen, mvelpp, lambm0, obliqr, modeldt)

Arguments

Type IntentOptional Attributes Name
type(shr_strdata_type), intent(inout) :: SDAT
real(kind=R8), intent(in) :: eccen
real(kind=R8), intent(in) :: mvelpp
real(kind=R8), intent(in) :: lambm0
real(kind=R8), intent(in) :: obliqr
integer(kind=IN), intent(in) :: modeldt

public subroutine shr_strdata_readnml(SDAT, file, rc, mpicom)

Arguments

Type IntentOptional Attributes Name
type(shr_strdata_type), intent(inout) :: SDAT
character(len=*), intent(in), optional :: file
integer(kind=IN), intent(out), optional :: rc
integer(kind=IN), intent(in), optional :: mpicom

public subroutine shr_strdata_print(SDAT, name)

Arguments

Type IntentOptional Attributes Name
type(shr_strdata_type), intent(in) :: SDAT
character(len=*), intent(in), optional :: name

public subroutine shr_strdata_bcastnml(SDAT, mpicom, rc)

Arguments

Type IntentOptional Attributes Name
type(shr_strdata_type), intent(inout) :: SDAT
integer(kind=IN), intent(in) :: mpicom
integer(kind=IN), intent(out), optional :: rc

public subroutine shr_strdata_setlogunit(nu)

Arguments

Type IntentOptional Attributes Name
integer(kind=IN), intent(in) :: nu