The AHA Model  Revision: 12809
Reference implementation 04 (HEDG02_04)
m_hormon.f90 File Reference

The Hormone architecture of the AHA Model. More...

Go to the source code of this file.

Data Types

type  the_hormones::hormones
 This type adds hormonal architecture extending the genome object. More...
 

Modules

module  the_hormones
 Definition the hormonal architecture of the agent.
 

Functions/Subroutines

subroutine the_hormones::hormones_init_genotype (this)
 Initialise hormone levels based on the genome value. Two alleles are selected at random and input into the gamma2gene function to get the initial hormone values rescaled to 0:1. Note that the gamma2gene alleles defining the shape of the gamma function and the half-max effect are selected randomly in this version. Also, polyploid organisms are possible, in such case, two parameters are also randomly defined from a larger set (e.g. from four chromosomes in case of tetraploids). See implementation details and comments for each of the hormones. More...
 
elemental subroutine the_hormones::hormones_clean_history_stack (this)
 Clean the history stack of hormones: testosterone and estrogen histories are set to MISSING. More...
 
elemental subroutine the_hormones::hormones_update_history (this)
 Update the sex steroid hormones history stack from the current level. More...
 
elemental real(srp) function the_hormones::hormones_reproductive_factor_calc (this)
 Calculate the reproductive factor. Reproductive factor is defined as the current level of the_hormones::testosterone_level in males and the_hormones::estrogen_level in females. More...
 
elemental real(srp) function the_hormones::testosteron_baseline_get_level (this)
 Get the value of testosterone baseline. More...
 
elemental real(srp) function the_hormones::estrogen_baseline_get_level (this)
 Get the value of estrogen baseline. More...
 
Accessor functions for all the hormones.

Get and set functions for each hormone follow. We left them as individual hormone-specific functions duplicating code. Not ideal, but easy to use provided hormones do not change too often. Tiny atomic hormone get/set functions are easy to code.

elemental real(srp) function the_hormones::growhorm_get_level (this)
 Get the value of growth hormone. More...
 
elemental subroutine the_hormones::growhorm_set_level (this, value_set)
 Set the value of growth hormone. More...
 
elemental real(srp) function the_hormones::thyroid_get_level (this)
 Get the value of thyroid. More...
 
elemental subroutine the_hormones::thyroid_set_level (this, value_set)
 Set the value of thyroid. More...
 
elemental real(srp) function the_hormones::adrenaline_get_level (this)
 Get the value of adrenaline. More...
 
elemental subroutine the_hormones::adrenaline_set_level (this, value_set)
 Set the value of adrenaline. More...
 
elemental real(srp) function the_hormones::cortisol_get_level (this)
 Get the value of cortisol. More...
 
elemental subroutine the_hormones::cortisol_set_level (this, value_set)
 Set the value of cortisol. More...
 
elemental real(srp) function the_hormones::testosterone_get_level (this)
 Get the value of testosterone. More...
 
elemental subroutine the_hormones::testosterone_set_level (this, value_set, update_history)
 Set the value of testosterone. More...
 
elemental real(srp) function the_hormones::estrogen_get_level (this)
 Get the value of estrogen. More...
 
elemental subroutine the_hormones::estrogen_set_level (this, value_set, update_history)
 Set the value of estrogen. More...
 

Variables

character(len= *), parameter, private the_hormones::modname = "(THE_HORMONES)"
 

Detailed Description

The Hormone architecture of the AHA Model.

Author
Sergey Budaev serge.nosp@m.y.bu.nosp@m.daev@.nosp@m.uib..nosp@m.no
Jarl Giske jarl..nosp@m.gisk.nosp@m.e@uib.nosp@m..no
Date
2016-2017

Definition in file m_hormon.f90.