modd_gr_biogn.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_n
!     ######################
!
!!
!!!!****  *MODD_GR_BIOG_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_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
!SOILNOX
  REAL, DIMENSION(:), POINTER :: xnoflux
!
!
END TYPE gr_biog_t
!
TYPE gr_biog_np_t
!
TYPE(gr_biog_t), DIMENSION(:), POINTER :: al=>null()
!
END TYPE gr_biog_np_t
!
CONTAINS

!




SUBROUTINE gr_biog_init(YGR_BIOG)
TYPE(gr_biog_t), INTENT(INOUT) :: YGR_BIOG
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook("MODD_GR_BIOG_N:GR_BIOG_INIT",0,zhook_handle)
  NULLIFY(ygr_biog%XISOPOT)
  NULLIFY(ygr_biog%XMONOPOT)
  NULLIFY(ygr_biog%XIACAN)
  NULLIFY(ygr_biog%XFISO)
  NULLIFY(ygr_biog%XFMONO)
  NULLIFY(ygr_biog%XNOFLUX)
IF (lhook) CALL dr_hook("MODD_GR_BIOG_N:GR_BIOG_INIT",1,zhook_handle)
END SUBROUTINE gr_biog_init

SUBROUTINE gr_biog_np_init(YGR_BIOG_NP,KPATCH)
TYPE(gr_biog_np_t), INTENT(INOUT) :: YGR_BIOG_NP
INTEGER, INTENT(IN) :: KPATCH
INTEGER :: JP
REAL(KIND=JPRB) :: ZHOOK_HANDLE
IF (lhook) CALL dr_hook("MODD_GR_BIOG_N:GR_BIOG_NP_INIT",0,zhook_handle)
!
IF (ASSOCIATED(ygr_biog_np%AL)) THEN
  DO jp = 1,kpatch
    CALL gr_biog_init(ygr_biog_np%AL(jp))
  ENDDO        
  DEALLOCATE(ygr_biog_np%AL)
ELSE
  ALLOCATE(ygr_biog_np%AL(kpatch))
  DO jp = 1,kpatch
    CALL gr_biog_init(ygr_biog_np%AL(jp))
  ENDDO
ENDIF
!
IF (lhook) CALL dr_hook("MODD_GR_BIOG_N:GR_BIOG_NP_INIT",1,zhook_handle)
END SUBROUTINE gr_biog_np_init
!
END MODULE modd_gr_biog_n