pop_def.F90 Source File


Files dependent on this one

sourcefile~~pop_def.f90~~AfferentGraph sourcefile~pop_def.f90 pop_def.F90 sourcefile~bgcdriver.f90 bgcdriver.F90 sourcefile~bgcdriver.f90->sourcefile~pop_def.f90 sourcefile~cable_phenology.f90 cable_phenology.F90 sourcefile~bgcdriver.f90->sourcefile~cable_phenology.f90 sourcefile~pop.f90 POP.F90 sourcefile~bgcdriver.f90->sourcefile~pop.f90 sourcefile~pop_types.f90 pop_types.F90 sourcefile~bgcdriver.f90->sourcefile~pop_types.f90 sourcefile~biogeochem_casa.f90 biogeochem_casa.F90 sourcefile~bgcdriver.f90->sourcefile~biogeochem_casa.f90 sourcefile~cable_climate.f90 cable_climate.F90 sourcefile~cable_climate.f90->sourcefile~pop_def.f90 sourcefile~cable_driver_common.f90 cable_driver_common.F90 sourcefile~cable_driver_common.f90->sourcefile~pop_def.f90 sourcefile~cable_driver_common.f90->sourcefile~pop.f90 sourcefile~cable_driver_common.f90->sourcefile~pop_types.f90 sourcefile~popluc.f90 POPLUC.F90 sourcefile~cable_driver_common.f90->sourcefile~popluc.f90 sourcefile~cable_input.f90 cable_input.F90 sourcefile~cable_driver_common.f90->sourcefile~cable_input.f90 sourcefile~cable_mpimaster.f90 cable_mpimaster.F90 sourcefile~cable_mpimaster.f90->sourcefile~pop_def.f90 sourcefile~cable_mpimaster.f90->sourcefile~bgcdriver.f90 sourcefile~cable_mpimaster.f90->sourcefile~cable_climate.f90 sourcefile~cable_mpimaster.f90->sourcefile~cable_driver_common.f90 sourcefile~casa_cable.f90 casa_cable.F90 sourcefile~cable_mpimaster.f90->sourcefile~casa_cable.f90 sourcefile~cable_mpimaster.f90->sourcefile~pop.f90 sourcefile~pop_constants.f90 pop_constants.F90 sourcefile~cable_mpimaster.f90->sourcefile~pop_constants.f90 sourcefile~cable_mpimaster.f90->sourcefile~pop_types.f90 sourcefile~cable_mpimaster.f90->sourcefile~popluc.f90 sourcefile~cable_mpimaster.f90->sourcefile~cable_input.f90 sourcefile~pop_mpi.f90 pop_mpi.F90 sourcefile~cable_mpimaster.f90->sourcefile~pop_mpi.f90 sourcefile~cable_mpiworker.f90 cable_mpiworker.F90 sourcefile~cable_mpiworker.f90->sourcefile~pop_def.f90 sourcefile~cable_mpiworker.f90->sourcefile~bgcdriver.f90 sourcefile~cable_mpiworker.f90->sourcefile~cable_climate.f90 sourcefile~cable_mpiworker.f90->sourcefile~cable_driver_common.f90 sourcefile~cable_mpiworker.f90->sourcefile~casa_cable.f90 sourcefile~cable_mpiworker.f90->sourcefile~pop.f90 sourcefile~cable_mpiworker.f90->sourcefile~pop_constants.f90 sourcefile~cable_mpiworker.f90->sourcefile~pop_types.f90 sourcefile~cable_mpiworker.f90->sourcefile~biogeochem_casa.f90 sourcefile~cable_mpiworker.f90->sourcefile~cable_input.f90 sourcefile~cable_mpiworker.f90->sourcefile~pop_mpi.f90 sourcefile~cable_phenology.f90->sourcefile~pop_def.f90 sourcefile~casa_cable.f90->sourcefile~pop_def.f90 sourcefile~casa_cable.f90->sourcefile~pop.f90 sourcefile~casa_cable.f90->sourcefile~pop_types.f90 sourcefile~casaonly_luc.f90 CASAONLY_LUC.F90 sourcefile~casaonly_luc.f90->sourcefile~pop_def.f90 sourcefile~casaonly_luc.f90->sourcefile~casa_cable.f90 sourcefile~casaonly_luc.f90->sourcefile~pop.f90 sourcefile~casaonly_luc.f90->sourcefile~pop_types.f90 sourcefile~casaonly_luc.f90->sourcefile~popluc.f90 sourcefile~casaonly_luc.f90->sourcefile~biogeochem_casa.f90 sourcefile~pop.f90->sourcefile~pop_def.f90 sourcefile~pop.f90->sourcefile~pop_constants.f90 sourcefile~pop.f90->sourcefile~pop_types.f90 sourcefile~pop_constants.f90->sourcefile~pop_def.f90 sourcefile~pop_types.f90->sourcefile~pop_def.f90 sourcefile~pop_types.f90->sourcefile~pop_constants.f90 sourcefile~popluc.f90->sourcefile~pop_def.f90 sourcefile~popluc.f90->sourcefile~pop.f90 sourcefile~popluc.f90->sourcefile~pop_types.f90 sourcefile~spincasacnp.f90 spincasacnp.F90 sourcefile~spincasacnp.f90->sourcefile~pop_def.f90 sourcefile~spincasacnp.f90->sourcefile~casa_cable.f90 sourcefile~spincasacnp.f90->sourcefile~pop.f90 sourcefile~spincasacnp.f90->sourcefile~pop_types.f90 sourcefile~spincasacnp.f90->sourcefile~biogeochem_casa.f90 sourcefile~biogeochem_casa.f90->sourcefile~pop_types.f90 sourcefile~cable_input.f90->sourcefile~pop.f90 sourcefile~cable_input.f90->sourcefile~pop_types.f90 sourcefile~cable_input.f90->sourcefile~popluc.f90 sourcefile~cable_offline_driver.f90 cable_offline_driver.F90 sourcefile~cable_offline_driver.f90->sourcefile~cable_driver_common.f90 sourcefile~cable_serial.f90 cable_serial.F90 sourcefile~cable_offline_driver.f90->sourcefile~cable_serial.f90 sourcefile~cable_serial.f90->sourcefile~bgcdriver.f90 sourcefile~cable_serial.f90->sourcefile~cable_climate.f90 sourcefile~cable_serial.f90->sourcefile~cable_driver_common.f90 sourcefile~cable_serial.f90->sourcefile~casa_cable.f90 sourcefile~cable_serial.f90->sourcefile~pop_constants.f90 sourcefile~cable_serial.f90->sourcefile~pop_types.f90 sourcefile~cable_serial.f90->sourcefile~popluc.f90 sourcefile~cable_serial.f90->sourcefile~cable_input.f90 sourcefile~pop_io.f90 pop_io.F90 sourcefile~pop_io.f90->sourcefile~pop_constants.f90 sourcefile~pop_io.f90->sourcefile~pop_types.f90 sourcefile~pop_mpi.f90->sourcefile~pop_constants.f90 sourcefile~pop_mpi.f90->sourcefile~pop_types.f90

Source Code

! This file contains Fortran90 code for the POP model,
! a stand-alone tree demography and landscape structure module for Earth system models
! 17-01-2014
! Written by Vanessa Haverd, Ben Smith and Lars Nieradzik
! Report Bugs to Vanessa.Haverd@csiro.au


!CITATION
!--------------------------------------------------------
!When referring to this code in publications, please cite:
! Haverd, V., Smith, B., Cook, G., Briggs, P.R., Nieradzik, L., Roxburgh, S.R., Liedloff, A.,
! Meyer, C.P. and Canadell, J.G., 2013.
! A stand-alone tree demography and landscape structure module for Earth system models.
! Geophysical Research Letters, 40: 1-6.


!DISCLAIMER, COPYRIGHT AND LICENCE

!--------------------------------------------------------

! Use of this code is subject to the Legal Notice and Disclaimer at

! http://www.csiro.au/org/LegalNoticeAndDisclaimer.html

! This code is Copyright, CSIRO, 2014.

! This code is made available under the conditions of the Creative Commons

! Attribution-Share Alike 3.0 License:
! http://creativecommons.org/licenses/by-sa/3.0/
!===============================================================================

MODULE TypeDef
  !-------------------------------------------------------------------------------
  ! This module explicitly defines the sizes of variable types
  !-------------------------------------------------------------------------------
  IMPLICIT NONE
  SAVE
  ! Define integer kind parameters to accommodate the range of numbers usually
  ! associated with 4, 2, and 1 byte integers.
  INTEGER,PARAMETER :: i4b = SELECTED_INT_KIND(9)
  INTEGER,PARAMETER :: i2b = SELECTED_INT_KIND(4)
  INTEGER,PARAMETER :: i1b = SELECTED_INT_KIND(2)
  ! Define single and double precision real kind parameters:
  ! * Kind(1.0)   defines sp as the machine's default size for single precision
  ! * Kind(1.0d0) defines dp as the machine's default size for double precision
  INTEGER,PARAMETER :: sp  = KIND(1.0)
  INTEGER,PARAMETER :: dp  = KIND(1.0d0)
  ! lgt is set to the default kind required for representing logical values.
  INTEGER,PARAMETER :: lgt = KIND(.TRUE.)

END MODULE TypeDef