SURFEX v7.3: /home/dasprezs/EXPORT_v7_3/src/SURFEX/modd_pack_ch

Go to the documentation of this file.
00001 !     ######################
00002       MODULE MODD_PACK_CH_ISBA
00003 !     ######################
00004 !
00005 !!****  *MODD_PACK_CH_ISBA - declaration of packed surface parameters for chemistry
00006 !!
00007 !!    PURPOSE
00008 !!    -------
00009 !
00010 !!
00011 !!**  IMPLICIT ARGUMENTS
00012 !!    ------------------
00013 !!      None 
00014 !!
00015 !!    REFERENCE
00016 !!    ---------
00017 !!
00018 !!    AUTHOR
00019 !!    ------
00020 !!      A. Boone   *Meteo France*
00021 !!
00022 !!    MODIFICATIONS
00023 !!    -------------
00024 !!      Original       20/09/02
00025 !
00026 !*       0.   DECLARATIONS
00027 !             ------------
00028 !
00029 !
00030 IMPLICIT NONE
00031 !-------------------------------------------------------------------------------
00032 !
00033 REAL, ALLOCATABLE, DIMENSION(:,:), TARGET :: XBLOCK_SIMPLE
00034 !$OMP THREADPRIVATE(XBLOCK_SIMPLE)
00035 !
00036 REAL, POINTER, DIMENSION(:)    :: XP_SOILRC_SO2 ! for SO2 deposition
00037 !$OMP THREADPRIVATE(XP_SOILRC_SO2)
00038 REAL, POINTER, DIMENSION(:)    :: XP_SOILRC_O3  ! for SO2 deposition
00039 !$OMP THREADPRIVATE(XP_SOILRC_O3)
00040 REAL, ALLOCATABLE, DIMENSION(:,:)  :: XP_DEP        ! deposition velocity
00041 !$OMP THREADPRIVATE(XP_DEP)
00042 !
00043 !-------------------------------------------------------------------------------
00044 !
00045 END MODULE MODD_PACK_CH_ISBA
00046