crop – SWIM

Uses

- utilities
Help
Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Used by

Help
Graph Key

Nodes of different colours represent the following:

Solid arrows point from a submodule to the (sub)module which it is descended from. Dashed arrows point from a module or program unit to modules which it uses.

Variables

actual aryld arylda aryldc aryldrot arylds avyld avylda avyldc avyldrot avylds be cnam cnum2 cnyld cpyld crop_input_file crop_input_file_id crop_management_input_file crop_management_input_file_id crop_yield_output_id cur_nop cva dlp1 dlp2 fen feno fep fon fop hi hia hiad huharv hun icc iccup icnum icrop idayx idfe idlef idop igro ihydFert ihydRot ihydRotCrp iopc ipo irotup isba istyr iwb iwr iww iyrrot k1 k6 k8 k9 landmgtdat mcrdb mfe mgt_fen mgt_feno mgt_fep mgt_id mgt_idfe mgt_idop mgt_iopc mgt_lu_id mgt_ncrp mgt_nop mgt_tot mgt_yr mop nclc ncrp ndgro ndpri nrotyrs nucr pt2 rdmx rwt sdn sdp snup spup swh swp yld ylda

Subroutines

crop_allocate crop_deallocate crop_growth crop_initialise crop_initialise_hydrotope crop_operation crop_process crop_read_input crop_read_management_input crop_yield_output

Variables

Type	Visibility	Attributes		Name		Initial
real(kind=dp),	public,	save	::	actual
real(kind=dp),	public,	save, dimension(:, :, :), allocatable	::	aryld
real(kind=dp),	public,	save, dimension(:, :), allocatable	::	arylda
real(kind=dp),	public,	save, dimension(:), allocatable	::	aryldc
integer,	public,	save, dimension(:, :), allocatable	::	aryldrot
real(kind=dp),	public,	save, dimension(:, :), allocatable	::	arylds
real(kind=dp),	public,	save, dimension(:, :, :), allocatable	::	avyld
real(kind=dp),	public,	save, dimension(:, :), allocatable	::	avylda
real(kind=dp),	public,	save, dimension(:), allocatable	::	avyldc
integer,	public,	save, dimension(:, :), allocatable	::	avyldrot
real(kind=dp),	public,	save, dimension(:, :), allocatable	::	avylds
real(kind=dp),	public,	save, dimension(:), allocatable	::	be
character(len=4),	public,	save, dimension(:), allocatable	::	cnam
real(kind=dp),	public,	save	::	cnum2	=	1.
real(kind=dp),	public,	save, dimension(:), allocatable	::	cnyld
real(kind=dp),	public,	save, dimension(:), allocatable	::	cpyld
character(len=path_max_length),	public		::	crop_input_file	=	"crop.csv"
integer,	public		::	crop_input_file_id
character(len=path_max_length),	public		::	crop_management_input_file	=	"crop_management.csv"
integer,	public		::	crop_management_input_file_id
integer,	public		::	crop_yield_output_id	=	0
integer,	public,	save	::	cur_nop	=	0
real(kind=dp),	public,	save, dimension(:, :), allocatable	::	cva
real(kind=dp),	public,	save	::	dlp1	=	0
real(kind=dp),	public,	save	::	dlp2	=	0
real(kind=dp),	public,	save, dimension(:), allocatable	::	fen
real(kind=dp),	public,	save, dimension(:), allocatable	::	feno
real(kind=dp),	public,	save, dimension(:), allocatable	::	fep
real(kind=dp),	public,	save, dimension(:, :, :), allocatable	::	fon
real(kind=dp),	public,	save, dimension(:, :, :), allocatable	::	fop
real(kind=dp),	public,	save, dimension(:), allocatable	::	hi
real(kind=dp),	public,	save, dimension(:, :), allocatable	::	hia
real(kind=dp),	public,	save, dimension(:, :), allocatable	::	hiad
real(kind=dp),	public,	save, dimension(:, :), allocatable	::	huharv
integer,	public,	save, dimension(:), allocatable	::	hun
integer,	public		::	icc	=	51
integer,	public,	save, dimension(:, :), allocatable	::	iccup
integer,	public,	save, dimension(:), allocatable	::	icnum
integer,	public,	save	::	icrop	=	1.
integer,	public,	save	::	idayx	=	-99
integer,	public,	save, dimension(:), allocatable	::	idfe
integer,	public,	save	::	idlef
integer,	public,	save, dimension(:), allocatable	::	idop
integer,	public,	save, dimension(:, :), allocatable	::	igro
integer,	public,	save, dimension(:), allocatable	::	ihydFert
integer,	public,	save, dimension(:), allocatable	::	ihydRot
integer,	public,	save, dimension(:), allocatable	::	ihydRotCrp
integer,	public,	save, dimension(:), allocatable	::	iopc
integer,	public		::	ipo	=	20
integer,	public,	save, dimension(:, :), allocatable	::	irotup
integer,	public		::	isba	=	22
integer,	public,	save	::	istyr
integer,	public		::	iwb	=	36
integer,	public		::	iwr	=	42
integer,	public		::	iww	=	45
integer,	public,	save	::	iyrrot	=	0
integer,	public,	save, dimension(4)	::	k1	=	(/9, 98, 915, 92/)
integer,	public,	save, dimension(4)	::	k6	=	(/51, 78, 648, 0/)
integer,	public,	save, dimension(4)	::	k8	=	(/20, 90, 215, 31/)
integer,	public,	save, dimension(4)	::	k9	=	(/320, 73, 631, 49/)
character(len=path_max_length),	public,	save	::	landmgtdat	=	'landmgt.csv'
integer,	public,	save	::	mcrdb	=	0
integer,	public		::	mfe	=	7
real(kind=dp),	public,	save, dimension(:, :), allocatable	::	mgt_fen
real(kind=dp),	public,	save, dimension(:, :), allocatable	::	mgt_feno
real(kind=dp),	public,	save, dimension(:, :), allocatable	::	mgt_fep
integer,	public,	save, dimension(:), allocatable	::	mgt_id
integer,	public,	save, dimension(:, :), allocatable	::	mgt_idfe
integer,	public,	save, dimension(:, :), allocatable	::	mgt_idop
integer,	public,	save, dimension(:, :), allocatable	::	mgt_iopc
integer,	public,	save, dimension(:), allocatable	::	mgt_lu_id
integer,	public,	save, dimension(:, :), allocatable	::	mgt_ncrp
integer,	public,	save, dimension(:), allocatable	::	mgt_nop
integer,	public,	save	::	mgt_tot	=	0
integer,	public,	save, dimension(:), allocatable	::	mgt_yr
integer,	public		::	mop	=	7
integer,	public,	save, dimension(:, :), allocatable	::	nclc
integer,	public,	save, dimension(:), allocatable	::	ncrp
integer,	public,	save	::	ndgro
integer,	public,	save	::	ndpri
integer,	public		::	nrotyrs	=	3
integer,	public,	save, dimension(:, :), allocatable	::	nucr
real(kind=dp),	public,	save, dimension(:), allocatable	::	pt2
real(kind=dp),	public,	save, dimension(:), allocatable	::	rdmx
real(kind=dp),	public,	save, dimension(:, :), allocatable	::	rwt
real(kind=dp),	public,	save	::	sdn	=	0.
real(kind=dp),	public,	save	::	sdp	=	0.
real(kind=dp),	public,	save, dimension(:, :), allocatable	::	snup
real(kind=dp),	public,	save, dimension(:, :), allocatable	::	spup
real(kind=dp),	public,	save, dimension(:, :), allocatable	::	swh
real(kind=dp),	public,	save, dimension(:, :), allocatable	::	swp
real(kind=dp),	public,	save, dimension(:, :), allocatable	::	yld
real(kind=dp),	public,	save, dimension(:, :), allocatable	::	ylda

Subroutines

public subroutine crop_allocate(mb, mcrdb, meap, ms, nbyr)

Arguments

Type	Intent		Name
integer,	intent(in)	::	mb
integer,	intent(in)	::	mcrdb
integer,	intent(in)	::	meap
integer,	intent(in)	::	ms
integer,	intent(in)	::	nbyr

public subroutine crop_deallocate()

Arguments

None

public subroutine crop_growth(avt, bSnowModule, flu, frar, ida, j, je, n, nn, nveg, pit, ra, tmit, tmn, tx, ylc, yls)

Arguments

Type	Intent	Attributes		Name
real(kind=dp),	intent(in),	dimension(:)	::	avt
logical,	intent(in)		::	bSnowModule
real(kind=dp),	intent(in),	dimension(:)	::	flu
real(kind=dp),	intent(in),	dimension(:, :)	::	frar
integer,	intent(in)		::	ida
integer			::	j
integer			::	je
integer			::	n
integer,	intent(in)		::	nn
integer,	intent(in),	dimension(:, :)	::	nveg
real(kind=dp),	intent(in)		::	pit
real(kind=dp),	intent(in),	dimension(:)	::	ra
real(kind=dp),	intent(in)		::	tmit
real(kind=dp),	intent(in),	dimension(:)	::	tmn
real(kind=dp),	intent(in),	dimension(:)	::	tx
real(kind=dp),	intent(in),	dimension(:)	::	ylc
real(kind=dp),	intent(in),	dimension(:)	::	yls

public subroutine crop_initialise(iyr, mb, meap, ms, nbyr)

Arguments

Type	Intent		Name
integer,	intent(in)	::	iyr
integer,	intent(in)	::	mb
integer,	intent(in)	::	meap
integer,	intent(in)	::	ms
integer,	intent(in)	::	nbyr

public subroutine crop_initialise_hydrotope(nsub, nhru, iy, mstruc)

Author : stefan.liersch@pik-potsdam.de Date : 2009-11-25 modified: 2009-12-08

Arguments

Type	Intent	Attributes		Name
integer,	intent(in)		::	nsub
integer,	intent(in)		::	nhru
integer,	intent(in)		::	iy
integer,	intent(in),	dimension(:, :, :)	::	mstruc

public subroutine crop_operation(j, je, k, alai, dm, frar, g, ida, iy, olai, rd, rsd, ws)

Arguments

Type	Intent	Attributes		Name
integer			::	j
integer			::	je
integer			::	k
real(kind=dp),	intent(inout),	dimension(:, :)	::	alai
real(kind=dp),	intent(inout),	dimension(:, :)	::	dm
real(kind=dp),	intent(in),	dimension(:, :)	::	frar
real(kind=dp),	intent(inout),	dimension(:, :)	::	g
integer,	intent(in)		::	ida
integer,	intent(in)		::	iy
real(kind=dp),	intent(out),	dimension(:, :)	::	olai
real(kind=dp),	intent(inout),	dimension(:, :)	::	rd
real(kind=dp),	intent(inout),	dimension(:, :, :)	::	rsd
real(kind=dp),	intent(inout),	dimension(:, :)	::	ws

public subroutine crop_process(j, je, k, n, wet, additionalGwUptake, avt, bWAM_Module, dart, daycounter, es, fc, flu, frar, humi, ida, iy, iyr, mstruc, nbyr, nn, nveg, pit, ra, sbar, sep, ste, tmn, tx, uap, ylc, yls, z, bSnowModule, tmit)

Arguments

Type	Intent	Attributes		Name
integer			::	j
integer			::	je
integer			::	k
integer			::	n
integer			::	wet
real(kind=dp),	intent(inout),	dimension(:)	::	additionalGwUptake
real(kind=dp),	intent(in),	dimension(:)	::	avt
logical,	intent(in)		::	bWAM_Module
real(kind=dp),	intent(in),	dimension(:)	::	dart
integer,	intent(in)		::	daycounter
real(kind=dp),	intent(in)		::	es
real(kind=dp),	intent(in),	dimension(:, :)	::	fc
real(kind=dp),	intent(in),	dimension(:)	::	flu
real(kind=dp),	intent(in),	dimension(:, :)	::	frar
real(kind=dp),	intent(in),	dimension(:)	::	humi
integer,	intent(in)		::	ida
integer,	intent(in)		::	iy
integer,	intent(in)		::	iyr
integer,	intent(in),	dimension(:, :, :)	::	mstruc
integer,	intent(in)		::	nbyr
integer,	intent(in)		::	nn
integer,	intent(in),	dimension(:, :)	::	nveg
real(kind=dp),	intent(in)		::	pit
real(kind=dp),	intent(in),	dimension(:)	::	ra
real(kind=dp),	intent(in),	dimension(:)	::	sbar
real(kind=dp),	intent(inout)		::	sep
real(kind=dp),	intent(inout),	dimension(:, :, :)	::	ste
real(kind=dp),	intent(in),	dimension(:)	::	tmn
real(kind=dp),	intent(in),	dimension(:)	::	tx
real(kind=dp),	intent(out)		::	uap
real(kind=dp),	intent(in),	dimension(:)	::	ylc
real(kind=dp),	intent(in),	dimension(:)	::	yls
real(kind=dp),	intent(in),	dimension(:, :)	::	z
logical,	intent(in)		::	bSnowModule
real(kind=dp),	intent(in)		::	tmit

public subroutine crop_read_input(bn1, bn2, bn3, bnu1, bnu2, bp1, bp2, bp3, bpu1, bpu2, cvm)

Arguments

Type	Intent	Attributes		Name
real(kind=dp),	intent(inout),	dimension(:)	::	bn1
real(kind=dp),	intent(inout),	dimension(:)	::	bn2
real(kind=dp),	intent(inout),	dimension(:)	::	bn3
real(kind=dp),	intent(inout),	dimension(:)	::	bnu1
real(kind=dp),	intent(inout),	dimension(:)	::	bnu2
real(kind=dp),	intent(inout),	dimension(:)	::	bp1
real(kind=dp),	intent(inout),	dimension(:)	::	bp2
real(kind=dp),	intent(inout),	dimension(:)	::	bp3
real(kind=dp),	intent(inout),	dimension(:)	::	bpu1
real(kind=dp),	intent(inout),	dimension(:)	::	bpu2
real(kind=dp),	intent(inout),	dimension(:)	::	cvm

public subroutine crop_read_management_input()

Author : stefan.liersch@pik-potsdam.de Date : 2009-11-25 modified: 2009-12-08

Arguments

None

public subroutine crop_yield_output(j, jek, k, ieap, ms, ndgro, tsav, wsav, ylda, is_cropland)

Arguments

Type	Intent	Attributes		Name
integer			::	j
integer			::	jek
integer			::	k
integer,	intent(inout)		::	ieap
integer,	intent(in)		::	ms
integer,	intent(in)		::	ndgro
real(kind=dp),	intent(inout),	dimension(:, :)	::	tsav
real(kind=dp),	intent(inout),	dimension(:, :)	::	wsav
real(kind=dp),	intent(in),	dimension(:, :)	::	ylda
logical,	intent(in)		::	is_cropland

crop Module

Contents

Variables

Subroutines

Uses

Used by

Contents

Variables

Subroutines

Variables

Subroutines

public subroutine crop_allocate(mb, mcrdb, meap, ms, nbyr)

Arguments

public subroutine crop_deallocate()

Arguments

public subroutine crop_growth(avt, bSnowModule, flu, frar, ida, j, je, n, nn, nveg, pit, ra, tmit, tmn, tx, ylc, yls)

Arguments

public subroutine crop_initialise(iyr, mb, meap, ms, nbyr)

Arguments

public subroutine crop_initialise_hydrotope(nsub, nhru, iy, mstruc)

Arguments

public subroutine crop_operation(j, je, k, alai, dm, frar, g, ida, iy, olai, rd, rsd, ws)

Arguments

public subroutine crop_process(j, je, k, n, wet, additionalGwUptake, avt, bWAM_Module, dart, daycounter, es, fc, flu, frar, humi, ida, iy, iyr, mstruc, nbyr, nn, nveg, pit, ra, sbar, sep, ste, tmn, tx, uap, ylc, yls, z, bSnowModule, tmit)

Arguments

public subroutine crop_read_input(bn1, bn2, bn3, bnu1, bnu2, bp1, bp2, bp3, bpu1, bpu2, cvm)

Arguments

public subroutine crop_read_management_input()

Arguments

public subroutine crop_yield_output(j, jek, k, ieap, ms, ndgro, tsav, wsav, ylda, is_cropland)

Arguments