Technique

 Equations in submodel 'individual'

attribute = rand_const(0,100)
rank = count({one_role2})+1
where: {one_role1} = ../ranking/one (to individual in role1)
creation: initial number = 10

Equations in submodel 'ranking'
condition = (attribute_role1>attribute_role2)
where:
attribute_role1 = ../individual/attribute (from individual in role1)
attribute_role2 = ../individual/attribute (from individual in role2)]
one = 1

 Variable: n_total = sum({n}) 

Where: {n} = Cohort/n

Variable: population_total_size = sum({cohort_total_size})
Where: {cohort_total_size} = Cohort/cohort_total_size

--------------------------------------------------------------
Submodel Bigger

Submodel "Bigger" is an association submodel between "Cohort" and itself with roles "other" and "me".

Condition: condition = other_size>me_size
Where:
me_size = Value(s) of ../Cohort/size from submodel "Cohort" in role "me"
other_size = Value(s) of ../Cohort/size from submodel "Cohort" in role "other"

Variable: total_size_of_bigger_cohort = other_cohort_total_size
Where:
me_cohort_total_size = Value(s) of ../Cohort/cohort_total_size from submodel "Cohort" in role "me"
other_cohort_total_size = Value(s) of ../Cohort/cohort_total_size from submodel "Cohort" in role "other"

-------------------------------------------------------------------------
Submodel Cohort

Submodel "Cohort" is a population submodel.

Compartment: n
Initial value = 100
Rate of change = - loss

Compartment: size
Initial value = 0
Rate of change = + growth

Flow: growth = gr*(1-size/max_size)

Flow: loss = 5

Immigration: create_new_cohort = 1

Loss: remove_cohort = n<=0

Variable: cohort_total_size = n*size

Variable: gr = 1.5

Variable: max_size = 10

Variable: total_size_of_all_bigger_cohorts = sum({cohort_total_size_of_bigger_me})
Where:
{cohort_total_size_of_bigger_me} = ../Bigger/total_size_of_bigger_cohort for submodel "Cohort" in role "me"

Equations in BallBerry4aP

Equations in Environment

Variable C_a : Carbon dioxide concentration (umol CO2 (mol air)^-1)
C_a = graph(time())
Comments:
Typical diurnal curve in forest canopy

Variable H : Relative humidity (proportion)
H = graph(time())
Comments:
Typical diurnal graph (24 hour)

Variable Q : Photon flux density (umol m^-2 s^-1)
Q = graph(time())
Comments:
Graph for a sunny day (24 hours)

Equations in Ball-Berry

Variable Gs_start
Gs_start = if time()==0 then g_0 else last(Gs_0)
Where:
Gs_0=Iteration time step/Gs_0

Variable g_0 : Stomatal conductance in the dark (mol m^-2 s^-1)
g_0 = 0.01

Variable g_1 : Ball-Berry stomatal conductance coefficient
g_1 = 23

Equations in Iteration time step

Alarm
Variable Gs
Gs = if loop_count==0 then Gs_start else Gs_0
Where:
Gs_start=../Gs_start

Variable Gs_0 : Stomatal conductance (mol m^-2 s^-1)
Gs_0 = g_0+g_1*A*H/C_a
Where:
A=Assimilation/A
H=../../Environment/H
C_a=../../Environment/C_a
g_0=../g_0
g_1=../g_1
Comments:
Ball-Berry equation

Variable loop_count
loop_count = iterations(al1)

Equations in Assimilation

Variable A : Assimation (umol CO2 m^-2 s^-1)
A = A_Q*Gs
Where:
Gs=../Gs

Variable A_Q : Assimilation light response curve
A_Q = graph(Q)
Where:
Q=../../../Environment/Q
Comments:
Relationship of Assimilation with photon flux density (light) when stomatal conductance (Gs) is maximum

Equations in Desktop

Equations in Assimilation

Variable A : Assimation (umol CO2 m^-2 s^-1)
A = A_Q*last(Gs_0)
Where:
Gs_0=../Gs

Variable A_Q : Assimilation light response curve
A_Q = graph(Q)
Where:
Q=../../../Environment/Q
Comments:
Relationship of Assimilation with photon flux density (light) when stomatal conductance (Gs) is maximum

Equations in Environment

Variable C_a : Carbon dioxide concentration (umol CO2 (mol air)^-1)
C_a = graph(time())
Comments:
Typical diurnal curve in forest canopy

Variable H : Relative humidity (proportion)
H = graph(time())
Comments:
Typical diurnal graph (24 hour)

Variable Q : Photon flux density (umol m^-2 s^-1)
Q = graph(time())
Comments:
Graph for a sunny day (24 hours)

Equations in Iteration

Variable Gs : Stomatal conductance (mol m^-2 s^-1)
Gs = if time()==time then Gs else g_0+g_1*A*H/C_a
Where:
A=Assimilation/A
time=../time
H=../../Environment/H
C_a=../../Environment/C_a
g_0=../g_0
g_1=../g_1
Gs=../Gs
Comments:
Ball-Berry equation

Variable errorGs
errorGs = Gs_0-last(Gs_0)
Where:
Gs_0=Gs

Equations in Ball-Berry

Variable A
A = A
Where:
A=Iteration/Assimilation/A

Variable Gs
Gs = if time()==0 then g_0 else last(Gs_0)
Where:
Gs_0=Iteration/Gs

Variable errorGs
errorGs = last(errorGs_0)
Where:
errorGs_0=Iteration/errorGs

Variable g_0 : Stomatal conductance in the dark (mol m^-2 s^-1)
g_0 = 0.01

Variable g_1 : Ball-Berry stomatal conductance coefficient
g_1 = 23

Variable time
time = time()