ESMF_IOGridmosaicMod Module

Uses

Variables

Type	Visibility	Attributes		Name		Initial
integer,	private,	SAVE	::	PetCnt
integer,	private,	SAVE	::	PetNo
type(ESMF_VM),	private,	SAVE	::	vm

Interfaces

public interface ESMF_GridspecReadStagger

private subroutine ESMF_GridspecReadStaggerR8(filename, nx, ny, lon, lat, staggerLoc, start, count, rc)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	filename
integer,	intent(in)			::	nx
integer,	intent(in)			::	ny
real(kind=ESMF_KIND_R8),			TARGET	::	lon(:,:)
real(kind=ESMF_KIND_R8),			TARGET	::	lat(:,:)
type(ESMF_StaggerLoc)				::	staggerLoc
integer,	intent(in),	optional		::	start(2)
integer,	intent(in),	optional		::	count(2)
integer,	intent(out),	optional		::	rc

private subroutine ESMF_GridspecReadStaggerR4(filename, nx, ny, lon, lat, staggerLoc, start, count, rc)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	filename
integer,	intent(in)			::	nx
integer,	intent(in)			::	ny
real(kind=ESMF_KIND_R4),			TARGET	::	lon(:,:)
real(kind=ESMF_KIND_R4),			TARGET	::	lat(:,:)
type(ESMF_StaggerLoc)				::	staggerLoc
integer,	intent(in),	optional		::	start(2)
integer,	intent(in),	optional		::	count(2)
integer,	intent(out),	optional		::	rc

Derived Types

type, public :: ESMF_Mosaic

Components

Type	Visibility	Attributes		Name		Initial
character(len=ESMF_MAXPATHLEN),	public,	pointer	::	filenames(:)
character(len=ESMF_MAXPATHLEN),	public		::	tileDirectory
character(len=ESMF_MAXSTR),	public		::	name
character(len=ESMF_MAXSTR),	public,	pointer	::	tilenames(:)
integer,	public,	allocatable	::	connindex(:,:,:)
integer,	public,	allocatable	::	contact(:,:)
integer,	public		::	ncontacts
integer,	public		::	ntiles
integer,	public		::	nx
integer,	public		::	ny

Functions

private function CDFCheckError(ncStatus, module, fileName, lineNo, errmsg, rc)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ncStatus
character(len=*),	intent(in)			::	module
character(len=*),	intent(in)			::	fileName
integer,	intent(in)			::	lineNo
character(len=*),	intent(in)			::	errmsg
integer,	intent(out),	optional		::	rc

Return Value logical

Subroutines

public subroutine ESMF_GridspecQueryTileFile(filename, isSupergrid, rc)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	filename
logical,	intent(out)			::	isSupergrid
integer,	intent(out),	optional		::	rc

public subroutine ESMF_GridspecQueryTileGlobal(filename, isGlobal, rc)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	filename
logical,	intent(out)			::	isGlobal
integer,	intent(out),	optional		::	rc

public subroutine ESMF_GridspecQueryTileSize(filename, nx, ny, units, rc)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	filename
integer,	intent(out)			::	nx
integer,	intent(out)			::	ny
character(len=*),	intent(out),	optional		::	units
integer,	intent(out),	optional		::	rc

public subroutine ESMF_GridspecReadMosaic(filename, mosaic, tileFilePath, rc)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	filename
type(ESMF_Mosaic),	intent(inout)			::	mosaic
character(len=*),	intent(in),	optional		::	tileFilePath
integer,	intent(out),	optional		::	rc

private subroutine ESMF_GridspecReadStaggerR4(filename, nx, ny, lon, lat, staggerLoc, start, count, rc)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	filename
integer,	intent(in)			::	nx
integer,	intent(in)			::	ny
real(kind=ESMF_KIND_R4),			TARGET	::	lon(:,:)
real(kind=ESMF_KIND_R4),			TARGET	::	lat(:,:)
type(ESMF_StaggerLoc)				::	staggerLoc
integer,	intent(in),	optional		::	start(2)
integer,	intent(in),	optional		::	count(2)
integer,	intent(out),	optional		::	rc

private subroutine ESMF_GridspecReadStaggerR8(filename, nx, ny, lon, lat, staggerLoc, start, count, rc)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	filename
integer,	intent(in)			::	nx
integer,	intent(in)			::	ny
real(kind=ESMF_KIND_R8),			TARGET	::	lon(:,:)
real(kind=ESMF_KIND_R8),			TARGET	::	lat(:,:)
type(ESMF_StaggerLoc)				::	staggerLoc
integer,	intent(in),	optional		::	start(2)
integer,	intent(in),	optional		::	count(2)
integer,	intent(out),	optional		::	rc

public subroutine ESMF_GridspecReadTile(filename, nx, ny, centerLon, centerLat, cornerLon, cornerLat, start, count, rc)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(in)			::	filename
integer,	intent(in)			::	nx
integer,	intent(in)			::	ny
real(kind=ESMF_KIND_R8),			pointer	::	centerLon(:,:)
real(kind=ESMF_KIND_R8),			pointer	::	centerLat(:,:)
real(kind=ESMF_KIND_R8),		optional,	pointer	::	cornerLon(:,:)
real(kind=ESMF_KIND_R8),		optional,	pointer	::	cornerLat(:,:)
integer,	intent(in),	optional		::	start(2)
integer,	intent(in),	optional		::	count(2)
integer,	intent(out),	optional		::	rc

public subroutine ESMF_MosaicDestroy(mosaic, rc)

Arguments

Type	Intent	Optional	Attributes		Name
type(ESMF_Mosaic),	intent(inout)			::	mosaic
integer,	intent(out),	optional		::	rc

private subroutine parse_contact(string, tiles, tile1, tile2)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	string
character(len=*),	intent(in),		target	::	tiles(:)
integer,	intent(out)			::	tile1
integer,	intent(out)			::	tile2

private subroutine parse_contactindex(string, tiletuple)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*)				::	string
integer,	intent(out)			::	tiletuple(2,4)

private subroutine readContacts(ncid, varid, dims, mosaicname, tilenames, contact, connindex, rc)

Arguments

Type	Intent	Optional	Attributes		Name
integer,	intent(in)			::	ncid
integer,	intent(in)			::	varid
integer,	intent(in)			::	dims(2)
character(len=*),	intent(in)			::	mosaicname
character(len=*),	intent(in),		target	::	tilenames(:)
integer,	intent(inout)			::	contact(:,:)
integer,	intent(inout)			::	connindex(:,:,:)
integer,	intent(out)			::	rc

private subroutine trim_null(string)

Arguments

Type	Intent	Optional	Attributes		Name
character(len=*),	intent(inout)			::	string