crop_type Derived Type

type, public :: crop_type

Components

Type	Visibility	Attributes		Name		Initial
integer,	public,	pointer	::	nyrs_crop_active_patch(:)
logical,	public,	pointer	::	croplive_patch(:)
logical,	public,	pointer	::	cropplant_patch(:)
integer,	public,	pointer	::	harvdate_patch(:)
real(kind=r8),	public,	pointer	::	fertnitro_patch(:)
real(kind=r8),	public,	pointer	::	gddplant_patch(:)
real(kind=r8),	public,	pointer	::	gddtsoi_patch(:)
real(kind=r8),	public,	pointer	::	vf_patch(:)
real(kind=r8),	public,	pointer	::	cphase_patch(:)
real(kind=r8),	public,	pointer	::	latbaset_patch(:)
character(len=20),	public		::	baset_mapping
real(kind=r8),	public		::	baset_latvary_intercept
real(kind=r8),	public		::	baset_latvary_slope

Type-Bound Procedures

procedure, public :: Init

private subroutine Init(this, bounds)

Arguments

Type	Intent	Optional	Attributes		Name
class(crop_type),	intent(inout)			::	this
type(bounds_type),	intent(in)			::	bounds

procedure, public :: InitAccBuffer

private subroutine InitAccBuffer(this, bounds)

Arguments

Type	Intent	Optional	Attributes		Name
class(crop_type),	intent(in)			::	this
type(bounds_type),	intent(in)			::	bounds

procedure, public :: InitAccVars

private subroutine InitAccVars(this, bounds)

Arguments

Type	Intent	Optional	Attributes		Name
class(crop_type),	intent(inout)			::	this
type(bounds_type),	intent(in)			::	bounds

procedure, public :: Restart

private subroutine Restart(this, bounds, ncid, flag)

Arguments

Type	Intent	Optional	Attributes		Name
class(crop_type),	intent(inout)			::	this
type(bounds_type),	intent(in)			::	bounds
type(file_desc_t),	intent(inout)			::	ncid
character(len=*),	intent(in)			::	flag

procedure, public :: ReadNML

private subroutine ReadNML(this, NLFilename)

Arguments

Type	Intent	Optional	Attributes		Name
class(crop_type),	intent(inout)			::	this
character(len=*),	intent(in)			::	NLFilename

procedure, public :: CropUpdateAccVars

private subroutine CropUpdateAccVars(this, bounds, t_ref2m_patch, t_soisno_col)

Arguments

Type	Intent	Optional	Attributes		Name
class(crop_type),	intent(inout)			::	this
type(bounds_type),	intent(in)			::	bounds
real(kind=r8),	intent(in)			::	t_ref2m_patch(bounds%begp:)
real(kind=r8),	intent(inout)			::	t_soisno_col(bounds%begc:,-nlevsno+1:)

procedure, public :: CropIncrementYear

private subroutine CropIncrementYear(this, num_pcropp, filter_pcropp)

Arguments

Type	Intent	Optional	Attributes		Name
class(crop_type)				::	this
integer,	intent(in)			::	num_pcropp
integer,	intent(in)			::	filter_pcropp(:)