casa_phenology.F90 Source File


This file depends on

sourcefile~~casa_phenology.f90~~EfferentGraph sourcefile~casa_phenology.f90 casa_phenology.F90 sourcefile~casa_dimension.f90 casa_dimension.F90 sourcefile~casa_phenology.f90->sourcefile~casa_dimension.f90 sourcefile~cable_define_types.f90 cable_define_types.F90 sourcefile~casa_dimension.f90->sourcefile~cable_define_types.f90 sourcefile~cable_climate_type_mod.f90 cable_climate_type_mod.F90 sourcefile~cable_define_types.f90->sourcefile~cable_climate_type_mod.f90 sourcefile~cable_common.f90 cable_common.F90 sourcefile~cable_climate_type_mod.f90->sourcefile~cable_common.f90 sourcefile~grid_constants_cbl.f90 grid_constants_cbl.F90 sourcefile~cable_climate_type_mod.f90->sourcefile~grid_constants_cbl.f90 sourcefile~cable_runtime_opts_mod.f90 cable_runtime_opts_mod.F90 sourcefile~cable_common.f90->sourcefile~cable_runtime_opts_mod.f90

Files dependent on this one

sourcefile~~casa_phenology.f90~~AfferentGraph sourcefile~casa_phenology.f90 casa_phenology.F90 sourcefile~bgcdriver.f90 bgcdriver.F90 sourcefile~bgcdriver.f90->sourcefile~casa_phenology.f90 sourcefile~cable_phenology.f90 cable_phenology.F90 sourcefile~bgcdriver.f90->sourcefile~cable_phenology.f90 sourcefile~biogeochem_casa.f90 biogeochem_casa.F90 sourcefile~bgcdriver.f90->sourcefile~biogeochem_casa.f90 sourcefile~cable_input.f90 cable_input.F90 sourcefile~cable_input.f90->sourcefile~casa_phenology.f90 sourcefile~cable_parameters.f90 cable_parameters.F90 sourcefile~cable_input.f90->sourcefile~cable_parameters.f90 sourcefile~casa_inout.f90 casa_inout.F90 sourcefile~cable_input.f90->sourcefile~casa_inout.f90 sourcefile~casa_readbiome.f90 casa_readbiome.F90 sourcefile~cable_input.f90->sourcefile~casa_readbiome.f90 sourcefile~cable_mpimaster.f90 cable_mpimaster.F90 sourcefile~cable_mpimaster.f90->sourcefile~casa_phenology.f90 sourcefile~cable_mpimaster.f90->sourcefile~bgcdriver.f90 sourcefile~cable_mpimaster.f90->sourcefile~cable_input.f90 sourcefile~casa_cable.f90 casa_cable.F90 sourcefile~cable_mpimaster.f90->sourcefile~casa_cable.f90 sourcefile~cable_mpimaster.f90->sourcefile~casa_inout.f90 sourcefile~casa_offline_inout.f90 casa_offline_inout.F90 sourcefile~cable_mpimaster.f90->sourcefile~casa_offline_inout.f90 sourcefile~landuse3.f90 landuse3.F90 sourcefile~cable_mpimaster.f90->sourcefile~landuse3.f90 sourcefile~cable_driver_common.f90 cable_driver_common.F90 sourcefile~cable_mpimaster.f90->sourcefile~cable_driver_common.f90 sourcefile~cable_mpiworker.f90 cable_mpiworker.F90 sourcefile~cable_mpiworker.f90->sourcefile~casa_phenology.f90 sourcefile~cable_mpiworker.f90->sourcefile~bgcdriver.f90 sourcefile~cable_mpiworker.f90->sourcefile~cable_input.f90 sourcefile~cable_mpiworker.f90->sourcefile~casa_cable.f90 sourcefile~cable_mpiworker.f90->sourcefile~casa_inout.f90 sourcefile~cable_mpiworker.f90->sourcefile~biogeochem_casa.f90 sourcefile~cable_mpiworker.f90->sourcefile~cable_driver_common.f90 sourcefile~cable_parameters.f90->sourcefile~casa_phenology.f90 sourcefile~cable_phenology.f90->sourcefile~casa_phenology.f90 sourcefile~cable_serial.f90 cable_serial.F90 sourcefile~cable_serial.f90->sourcefile~casa_phenology.f90 sourcefile~cable_serial.f90->sourcefile~bgcdriver.f90 sourcefile~cable_serial.f90->sourcefile~cable_input.f90 sourcefile~cable_serial.f90->sourcefile~casa_cable.f90 sourcefile~cable_serial.f90->sourcefile~casa_inout.f90 sourcefile~cable_serial.f90->sourcefile~casa_offline_inout.f90 sourcefile~cable_serial.f90->sourcefile~landuse3.f90 sourcefile~cable_serial.f90->sourcefile~cable_driver_common.f90 sourcefile~casa_cable.f90->sourcefile~casa_phenology.f90 sourcefile~casa_cnp.f90 casa_cnp.F90 sourcefile~casa_cable.f90->sourcefile~casa_cnp.f90 sourcefile~casa_cnp.f90->sourcefile~casa_phenology.f90 sourcefile~casa_inout.f90->sourcefile~casa_phenology.f90 sourcefile~casa_inout.f90->sourcefile~casa_offline_inout.f90 sourcefile~casa_offline_inout.f90->sourcefile~casa_phenology.f90 sourcefile~casa_readbiome.f90->sourcefile~casa_phenology.f90 sourcefile~casa_rplant.f90 casa_rplant.F90 sourcefile~casa_rplant.f90->sourcefile~casa_phenology.f90 sourcefile~casa_rplant.f90->sourcefile~casa_cnp.f90 sourcefile~casaonly_luc.f90 CASAONLY_LUC.F90 sourcefile~casaonly_luc.f90->sourcefile~casa_phenology.f90 sourcefile~casaonly_luc.f90->sourcefile~casa_cable.f90 sourcefile~casaonly_luc.f90->sourcefile~casa_inout.f90 sourcefile~casaonly_luc.f90->sourcefile~casa_offline_inout.f90 sourcefile~casaonly_luc.f90->sourcefile~biogeochem_casa.f90 sourcefile~landuse3.f90->sourcefile~casa_phenology.f90 sourcefile~spincasacnp.f90 spincasacnp.F90 sourcefile~spincasacnp.f90->sourcefile~casa_phenology.f90 sourcefile~spincasacnp.f90->sourcefile~casa_cable.f90 sourcefile~spincasacnp.f90->sourcefile~casa_inout.f90 sourcefile~spincasacnp.f90->sourcefile~biogeochem_casa.f90 sourcefile~biogeochem_casa.f90->sourcefile~casa_cnp.f90 sourcefile~biogeochem_casa.f90->sourcefile~casa_inout.f90 sourcefile~biogeochem_casa.f90->sourcefile~casa_rplant.f90 sourcefile~cable_driver_common.f90->sourcefile~cable_input.f90 sourcefile~cable_offline_driver.f90 cable_offline_driver.F90 sourcefile~cable_offline_driver.f90->sourcefile~cable_serial.f90 sourcefile~cable_offline_driver.f90->sourcefile~cable_driver_common.f90 sourcefile~casa_feedback.f90 casa_feedback.F90 sourcefile~casa_feedback.f90->sourcefile~casa_cnp.f90 sourcefile~landuse_inout.f90 landuse_inout.F90 sourcefile~landuse_inout.f90->sourcefile~landuse3.f90

Source Code

!==============================================================================
! This source code is part of the
! Australian Community Atmosphere Biosphere Land Exchange (CABLE) model.
! This work is licensed under the CSIRO Open Source Software License
! Agreement (variation of the BSD / MIT License).
!
! You may not use this file except in compliance with this License.
! A copy of the License (CSIRO_BSD_MIT_License_v2.0_CABLE.txt) is located
! in each directory containing CABLE code.
!
! ==============================================================================
! Purpose: defines/allocates variables for CASA-CNP
!
! Contact: Yingping.Wang@csiro.au
!
! History: Developed for offline CASA-CNP, code revision likely to better
!          suit ACCESS and to merge more consistently with CABLE code
!
!
! ==============================================================================
! casa_variable.f90
!
! the following modules are used when "casacnp" is coupled to "cable"
!   casadimension
!   casaparm
!   casavariable with subroutine alloc_casavariable
!   phenvariable with subroutine alloc_phenvariable

MODULE phenvariable
  USE casadimension
  IMPLICIT NONE
  TYPE phen_variable
     INTEGER,   DIMENSION(:),  POINTER :: phase
     REAL(r_2), DIMENSION(:),  POINTER :: TKshed
     INTEGER,   DIMENSION(:,:),POINTER :: doyphase
     REAL, DIMENSION(:),  POINTER :: phen   ! fraction of max LAI
     REAL, DIMENSION(:),  POINTER :: aphen  ! annual leaf on sum
     INTEGER,   DIMENSION(:,:),POINTER :: phasespin
     INTEGER,   DIMENSION(:,:),POINTER :: doyphasespin_1
     INTEGER,   DIMENSION(:,:),POINTER :: doyphasespin_2
     INTEGER,   DIMENSION(:,:),POINTER :: doyphasespin_3
     INTEGER,   DIMENSION(:,:),POINTER :: doyphasespin_4

  END TYPE phen_variable

CONTAINS

  SUBROUTINE alloc_phenvariable(phen,arraysize)

    IMPLICIT NONE
    TYPE(phen_variable), INTENT(INOUT) :: phen
    INTEGER,             INTENT(IN) :: arraysize

    ALLOCATE(phen%Tkshed(mvtype))
    ALLOCATE(phen%phase(arraysize),         &
         phen%doyphase(arraysize,mphase))
    ALLOCATE(phen%phen(arraysize), &
         phen%aphen(arraysize), &
         phen%phasespin(arraysize,mdyear), &
         phen%doyphasespin_1(arraysize,mdyear), &
         phen%doyphasespin_2(arraysize,mdyear), &
         phen%doyphasespin_3(arraysize,mdyear), &
         phen%doyphasespin_4(arraysize,mdyear))
  END SUBROUTINE alloc_phenvariable

END MODULE phenvariable