modd_gr_biog_greenroofn.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_greenroof_n
!     ######################
!
!!
!!!!****  *MODD_GR_BIOG_GREENROOF_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_greenroof_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 :: XP_IACAN !pack radiation
  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_greenroof_t



 CONTAINS

!




SUBROUTINE gr_biog_greenroof_init(YGR_BIOG_GREENROOF)
TYPE(gr_biog_greenroof_t), INTENT(INOUT) :: ygr_biog_greenroof
REAL(KIND=JPRB) :: zhook_handle
IF (lhook) CALL dr_hook("MODD_GR_BIOG_GREENROOF_N:GR_BIOG_GREENROOF_INIT",0,zhook_handle)
  nullify(ygr_biog_greenroof%XISOPOT)
  nullify(ygr_biog_greenroof%XMONOPOT)
  nullify(ygr_biog_greenroof%XP_IACAN)
  nullify(ygr_biog_greenroof%XIACAN)
  nullify(ygr_biog_greenroof%XFISO)
  nullify(ygr_biog_greenroof%XFMONO)
IF (lhook) CALL dr_hook("MODD_GR_BIOG_GREENROOF_N:GR_BIOG_GREENROOF_INIT",1,zhook_handle)
END SUBROUTINE gr_biog_greenroof_init


END MODULE modd_gr_biog_greenroof_n