modd_gr_biog_gardenn.F90

Go to the documentation of this file.

!SFX_LIC Copyright 1994-2014 CNRS, Meteo-France and Universite Paul Sabatier
!SFX_LIC This is part of the SURFEX software governed by the CeCILL-C licence
!SFX_LIC version 1. See LICENSE, CeCILL-C_V1-en.txt and CeCILL-C_V1-fr.txt  
!SFX_LIC for details. version 1.
!     #####################
      MODULE modd_gr_biog_garden_n
!     ######################
!
!!
!!!!****  *MODD_GR_BIOG_GARDEN_n* - Declaration of variables for biogenic emissions 
!
!!
!!**  IMPLICIT ARGUMENTS
!!    ------------------
!!      None 
!!
!!    REFERENCE
!!    ---------
!!    AUTHOR
!!    ------
!!      F. Solmon  *LA*
!!
!!    MODIFICATIONS
!!    -------------
!!    P. Tulet  30/07/03 externalisation of biogenics fluxes
!!     
!*       0.   DECLARATIONS
!             ----------
!
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE

TYPE gr_biog_garden_t
!
!
!
!* Emission potential for isoprene and monoterpenes 
  REAL, DIMENSION(:), POINTER :: xisopot 
  REAL, DIMENSION(:), POINTER :: xmonopot 
!
!* Radiation at different level(cf Gauss) in the canopy
  REAL, DIMENSION(:,:,:),POINTER ::xiacan ! PAR at 3 gauss level for each patch
!
!* XFISO  = isoprene emission flux (ppp.m.s-1)
!  XFMONO = monoterpenes emission flux (ppp m s-1)
  REAL, DIMENSION(:), POINTER :: xfiso, xfmono
!
!
END TYPE gr_biog_garden_t



CONTAINS

!




SUBROUTINE gr_biog_garden_init(YGR_BIOG_GARDEN)
TYPE(gr_biog_garden_t), INTENT(INOUT) :: YGR_BIOG_GARDEN
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook("MODD_GR_BIOG_GARDEN_N:GR_BIOG_GARDEN_INIT",0,zhook_handle)
  NULLIFY(ygr_biog_garden%XISOPOT)
  NULLIFY(ygr_biog_garden%XMONOPOT)
  NULLIFY(ygr_biog_garden%XIACAN)
  NULLIFY(ygr_biog_garden%XFISO)
  NULLIFY(ygr_biog_garden%XFMONO)
IF (lhook) CALL dr_hook("MODD_GR_BIOG_GARDEN_N:GR_BIOG_GARDEN_INIT",1,zhook_handle)
END SUBROUTINE gr_biog_garden_init


END MODULE modd_gr_biog_garden_n