modd_pack_ch_isba.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_pack_ch_isba
!     ######################
!
!!****  *MODD_PACK_CH_ISBA - declaration of packed surface parameters for chemistry
!!
!!    PURPOSE
!!    -------
!
!!
!!**  IMPLICIT ARGUMENTS
!!    ------------------
!!      None 
!!
!!    REFERENCE
!!    ---------
!!
!!    AUTHOR
!!    ------
!!      A. Boone   *Meteo France*
!!
!!    MODIFICATIONS
!!    -------------
!!      Original       20/09/02
!
!*       0.   DECLARATIONS
!             ------------
!
USE yomhook   ,ONLY : lhook,   dr_hook
USE parkind1  ,ONLY : jprb
!
IMPLICIT NONE
!
!-------------------------------------------------------------------------------
!
TYPE pack_ch_isba_t

  REAL, POINTER, DIMENSION(:,:) :: XBLOCK_SIMPLE
  REAL, POINTER, DIMENSION(:)   :: XP_SOILRC_SO2 ! for SO2 deposition
  REAL, POINTER, DIMENSION(:)   :: XP_SOILRC_O3  ! for SO2 deposition
  REAL, POINTER, DIMENSION(:,:) :: XP_DEP        ! deposition velocity

END TYPE pack_ch_isba_t
!
!-------------------------------------------------------------------------------
!


 CONTAINS

!
!




SUBROUTINE pack_ch_isba_init(YPACK_CH_ISBA)
TYPE(pack_ch_isba_t), INTENT(INOUT) :: ypack_ch_isba
REAL(KIND=JPRB) :: zhook_handle
IF (lhook) CALL dr_hook("MODD_PACK_CH_ISBA_N:PACK_CH_ISBA_INIT",0,zhook_handle)
  nullify(ypack_ch_isba%XBLOCK_SIMPLE)
  nullify(ypack_ch_isba%XP_SOILRC_SO2)
  nullify(ypack_ch_isba%XP_SOILRC_O3)
  nullify(ypack_ch_isba%XP_DEP)
IF (lhook) CALL dr_hook("MODD_PACK_CH_ISBA_N:PACK_CH_ISBA_INIT",1,zhook_handle)
END SUBROUTINE pack_ch_isba_init


END MODULE modd_pack_ch_isba