casa_phenology.F90 Source File

!==============================================================================
! 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)
    !* Allocate phen derived type instance.
    ! Allocated arrays are initialised to zero.

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

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

END MODULE phenvariable