shr_dmodel_mod Module

Uses

- perf_mod
- shr_sys_mod
- shr_mpi_mod
- shr_log_mod
- shr_kind_mod
- pio
- mct_mod

Variables

Type	Visibility	Attributes		Name		Initial
integer(kind=IN),	public,	parameter	::	shr_dmodel_gGridCompareXYabs	=	1
integer(kind=IN),	public,	parameter	::	shr_dmodel_gGridCompareXYrel	=	2
integer(kind=IN),	public,	parameter	::	shr_dmodel_gGridCompareAreaAbs	=	3
integer(kind=IN),	public,	parameter	::	shr_dmodel_gGridCompareAreaRel	=	4
integer(kind=IN),	public,	parameter	::	shr_dmodel_gGridCompareMaskIdent	=	5
integer(kind=IN),	public,	parameter	::	shr_dmodel_gGridCompareMaskZeros	=	6
integer(kind=IN),	public,	parameter	::	shr_dmodel_gGridCompareMaskSubset	=	7
integer(kind=IN),	public,	parameter	::	shr_dmodel_gGridCompareXYabsMask	=	101
integer(kind=IN),	public,	parameter	::	shr_dmodel_gGridCompareXYrelMask	=	102
integer(kind=IN),	public,	parameter	::	shr_dmodel_gGridCompareAreaAbsMask	=	103
integer(kind=IN),	public,	parameter	::	shr_dmodel_gGridCompareAreaRelMask	=	104
integer(kind=IN),	public,	parameter	::	shr_dmodel_gGridCompareMaskIdentMask	=	105
integer(kind=IN),	public,	parameter	::	shr_dmodel_gGridCompareMaskZerosMask	=	106
integer(kind=IN),	public,	parameter	::	shr_dmodel_gGridCompareMaskSubsetMask	=	107
integer(kind=IN),	public,	parameter	::	iotype_std_netcdf	=	-99

Interfaces

public interface shr_dmodel_gsmapCreate

private subroutine shr_dmodel_gsmapCreate_gsize(gsmap, gsize, compid, mpicom, decomp)

Arguments

Type	Intent	Optional	Attributes		Name
type(GlobalSegMap),	intent(inout)			::	gsmap
integer(kind=IN),	intent(in)			::	gsize
integer(kind=IN),	intent(in)			::	compid
integer(kind=IN),	intent(in)			::	mpicom
character(len=*),	intent(in)			::	decomp

private subroutine shr_dmodel_gsmapCreate_nxnynz(gsmap, nxg, nyg, nzg, compid, mpicom, decomp)

Arguments

Type	Intent	Optional	Attributes		Name
type(GlobalSegMap),	intent(inout)			::	gsmap
integer(kind=IN),	intent(in)			::	nxg
integer(kind=IN),	intent(in)			::	nyg
integer(kind=IN),	intent(in)			::	nzg
integer(kind=IN),	intent(in)			::	compid
integer(kind=IN),	intent(in)			::	mpicom
character(len=*),	intent(in)			::	decomp

public interface shr_dmodel_mapSet

private subroutine shr_dmodel_mapSet_global(smatp, ggridS, gsmapS, nxgS, nygS, ggridD, gsmapD, nxgD, nygD, name, type, algo, mask, vect, compid, mpicom, strategy)

Arguments

Type	Intent	Optional	Attributes		Name
type(SparseMatrixPlus),	intent(inout)			::	smatp
type(GeneralGrid),	intent(in)			::	ggridS
type(GlobalSegMap),	intent(in)			::	gsmapS
integer(kind=IN),	intent(in)			::	nxgS
integer(kind=IN),	intent(in)			::	nygS
type(GeneralGrid),	intent(in)			::	ggridD
type(GlobalSegMap),	intent(in)			::	gsmapD
integer(kind=IN),	intent(in)			::	nxgD
integer(kind=IN),	intent(in)			::	nygD
character(len=*),	intent(in)			::	name
character(len=*),	intent(in)			::	type
character(len=*),	intent(in)			::	algo
character(len=*),	intent(in)			::	mask
character(len=*),	intent(in)			::	vect
integer(kind=IN),	intent(in)			::	compid
integer(kind=IN),	intent(in)			::	mpicom
character(len=*),	intent(in),	optional		::	strategy

Functions

public function shr_dmodel_gGridCompare(ggrid1, gsmap1, ggrid2, gsmap2, method, mpicom, eps)

Arguments

Type	Intent	Optional	Attributes		Name
type(GeneralGrid),	intent(in)			::	ggrid1
type(GlobalSegMap),	intent(in)			::	gsmap1
type(GeneralGrid),	intent(in)			::	ggrid2
type(GlobalSegMap),	intent(in)			::	gsmap2
integer(kind=IN),	intent(in)			::	method
integer(kind=IN),	intent(in)			::	mpicom
real(kind=R8),	intent(in),	optional		::	eps

Return Value logical

Subroutines

public subroutine shr_dmodel_readgrid(gGrid, gsMap, nxgo, nygo, nzgo, filename, compid, mpicom, decomp, lonname, latname, hgtname, maskname, areaname, fracname, readfrac, scmmode, scmlon, scmlat)

Arguments

Type	Intent	Optional	Attributes		Name
type(GeneralGrid),	intent(inout)			::	gGrid
type(GlobalSegMap),	intent(inout)			::	gsMap
integer(kind=IN),	intent(out)			::	nxgo
integer(kind=IN),	intent(out)			::	nygo
integer(kind=IN),	intent(out)			::	nzgo
character(len=*),	intent(in)			::	filename
integer(kind=IN),	intent(in)			::	compid
integer(kind=IN),	intent(in)			::	mpicom
character(len=*),	intent(in),	optional		::	decomp
character(len=*),	intent(in),	optional		::	lonname
character(len=*),	intent(in),	optional		::	latname
character(len=*),	intent(in),	optional		::	hgtname
character(len=*),	intent(in),	optional		::	maskname
character(len=*),	intent(in),	optional		::	areaname
character(len=*),	intent(in),	optional		::	fracname
logical,	intent(in),	optional		::	readfrac
logical,	intent(in),	optional		::	scmmode
real(kind=R8),	intent(in),	optional		::	scmlon
real(kind=R8),	intent(in),	optional		::	scmlat

public subroutine shr_dmodel_readLBUB(stream, pio_subsystem, pio_iotype, pio_iodesc, mDate, mSec, mpicom, gsMap, avLB, mDateLB, mSecLB, avUB, mDateUB, mSecUB, avFile, readMode, newData, rmOldFile, istr)

Arguments

Type	Intent	Optional	Attributes		Name
type(shr_stream_streamType),	intent(inout)			::	stream
type(IOSystem_desc_t),	intent(inout),		target	::	pio_subsystem
integer(kind=IN),	intent(in)			::	pio_iotype
type(io_desc_t),	intent(inout)			::	pio_iodesc
integer(kind=IN),	intent(in)			::	mDate
integer(kind=IN),	intent(in)			::	mSec
integer(kind=IN),	intent(in)			::	mpicom
type(GlobalSegMap),	intent(in)			::	gsMap
type(AttrVect),	intent(inout)			::	avLB
integer(kind=IN),	intent(inout)			::	mDateLB
integer(kind=IN),	intent(inout)			::	mSecLB
type(AttrVect),	intent(inout)			::	avUB
integer(kind=IN),	intent(inout)			::	mDateUB
integer(kind=IN),	intent(inout)			::	mSecUB
type(AttrVect),	intent(inout)			::	avFile
character(len=*),	intent(in)			::	readMode
logical,	intent(out)			::	newData
logical,	intent(in),	optional		::	rmOldFile
character(len=*),	intent(in),	optional		::	istr

public subroutine shr_dmodel_rearrGGrid(ggridi, ggrido, gsmap, rearr, mpicom)

Arguments

Type	Intent	Optional	Attributes		Name
type(GeneralGrid),	intent(in)			::	ggridi
type(GeneralGrid),	intent(inout)			::	ggrido
type(GlobalSegMap),	intent(in)			::	gsmap
type(Rearranger),	intent(in)			::	rearr
integer(kind=IN),	intent(in)			::	mpicom

public subroutine shr_dmodel_translateAV(avi, avo, avifld, avofld, rearr)

Arguments

Type	Intent	Optional	Attributes		Name
type(AttrVect),	intent(in)			::	avi
type(AttrVect),	intent(inout)			::	avo
character(len=*),	intent(in)			::	avifld(:)
character(len=*),	intent(in)			::	avofld(:)
type(Rearranger),	intent(in),	optional		::	rearr

public subroutine shr_dmodel_translate_list(avi, avo, avifld, avofld, ilist, olist, cnt)

Arguments

Type	Intent	Optional	Attributes		Name
type(AttrVect),	intent(in)			::	avi
type(AttrVect),	intent(inout)			::	avo
character(len=*),	intent(in)			::	avifld(:)
character(len=*),	intent(in)			::	avofld(:)
character(len=CL),	intent(out)			::	ilist
character(len=CL),	intent(out)			::	olist
integer(kind=IN),	intent(out)			::	cnt

public subroutine shr_dmodel_translateAV_list(avi, avo, ilist, olist, rearr)

Arguments

Type	Intent	Optional	Attributes		Name
type(AttrVect),	intent(in)			::	avi
type(AttrVect),	intent(inout)			::	avo
character(len=CL),	intent(in)			::	ilist
character(len=CL),	intent(in)			::	olist
type(Rearranger),	intent(in),	optional		::	rearr