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

Go to the documentation of this file.
00001 !     ########################################
00002       SUBROUTINE GET_ISBA_CONF_n(KPATCH,KGROUND_LAYER,KSNOW_LAYER,KNBIOMASS,  &
00003                                    KNLITTER, KNLITTLEVS, KNSOILCARB)  
00004 !     ########################################
00005 !
00006 !!****  *GET_ISBA_CONF_n* - routine to get some ISBA fields
00007 !!
00008 !!    PURPOSE
00009 !!    -------
00010 !!
00011 !!**  METHOD
00012 !!    ------
00013 !!
00014 !!    EXTERNAL
00015 !!    --------
00016 !!
00017 !!
00018 !!    IMPLICIT ARGUMENTS
00019 !!    ------------------
00020 !!
00021 !!    REFERENCE
00022 !!    ---------
00023 !!
00024 !!
00025 !!    AUTHOR
00026 !!    ------
00027 !!      V. Masson   *Meteo France*      
00028 !!
00029 !!    MODIFICATIONS
00030 !!    -------------
00031 !!      Original    04/2008
00032 !!      A.L. Gibelin 07/2009 : Dimensions for carbon options
00033 !!
00034 !-------------------------------------------------------------------------------
00035 !
00036 !*       0.    DECLARATIONS
00037 !              ------------
00038 !
00039 USE MODD_ISBA_n,     ONLY : NPATCH, NGROUND_LAYER, TSNOW, NNBIOMASS, &
00040                               NNLITTER, NNLITTLEVS, NNSOILCARB  
00041 !
00042 !
00043 USE YOMHOOK   ,ONLY : LHOOK,   DR_HOOK
00044 USE PARKIND1  ,ONLY : JPRB
00045 !
00046 IMPLICIT NONE
00047 !
00048 !*       0.1   Declarations of arguments
00049 !              -------------------------
00050 !
00051 INTEGER, INTENT(OUT) :: KPATCH        ! number of patchs
00052 INTEGER, INTENT(OUT) :: KGROUND_LAYER ! number of ground layers
00053 INTEGER, INTENT(OUT) :: KSNOW_LAYER   ! number of snow layers
00054 INTEGER, INTENT(OUT) :: KNBIOMASS     ! number of biomass pools
00055 INTEGER, INTENT(OUT) :: KNLITTER      ! number of litter pools
00056 INTEGER, INTENT(OUT) :: KNLITTLEVS    ! number of litter levels
00057 INTEGER, INTENT(OUT) :: KNSOILCARB    ! number of soil carbon pools
00058 REAL(KIND=JPRB) :: ZHOOK_HANDLE
00059 !
00060 !
00061 !*       0.2   Declarations of local variables
00062 !              -------------------------------
00063 !
00064 !
00065 !-------------------------------------------------------------------------------
00066 IF (LHOOK) CALL DR_HOOK('GET_ISBA_CONF_N',0,ZHOOK_HANDLE)
00067 KPATCH = NPATCH
00068 KGROUND_LAYER = NGROUND_LAYER
00069 KSNOW_LAYER = TSNOW%NLAYER
00070 KNBIOMASS = NNBIOMASS
00071 KNLITTER = NNLITTER
00072 KNLITTLEVS = NNLITTLEVS
00073 KNSOILCARB = NNSOILCARB
00074 IF (LHOOK) CALL DR_HOOK('GET_ISBA_CONF_N',1,ZHOOK_HANDLE)
00075 !
00076 !==============================================================================
00077 !
00078 END SUBROUTINE GET_ISBA_CONF_n