|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 ! ######### 00002 SUBROUTINE ALLOCATE_TEB_GARDEN(KLU,KGROUND_LAYER) 00003 ! ########################################################################## 00004 ! 00005 USE MODD_TEB_VEG_n, ONLY : NNBIOMASS 00006 USE MODD_TEB_GARDEN_n 00007 ! 00008 ! 00009 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK 00010 USE PARKIND1 ,ONLY : JPRB 00011 ! 00012 IMPLICIT NONE 00013 ! 00014 INTEGER, INTENT(IN) :: KLU 00015 INTEGER, INTENT(IN) :: KGROUND_LAYER 00016 REAL(KIND=JPRB) :: ZHOOK_HANDLE 00017 ! 00018 !------------------------------------------------------------------------------- 00019 ! 00020 ! Mask and number of grid elements containing patches/tiles: 00021 ! 00022 IF (LHOOK) CALL DR_HOOK('ALLOCATE_TEB_GARDEN',0,ZHOOK_HANDLE) 00023 ! 00024 !------------------------------------------------------------------------------- 00025 ! 00026 ! Averaged Surface radiative parameters: 00027 ! 00028 ALLOCATE(XSNOWFREE_ALB (KLU)) 00029 ALLOCATE(XSNOWFREE_ALB_VEG (KLU)) 00030 ALLOCATE(XSNOWFREE_ALB_SOIL (KLU)) 00031 ! 00032 !------------------------------------------------------------------------------- 00033 ! 00034 ! Prognostic variables: 00035 ! 00036 ! 00037 ! - Soil and vegetation heat and water: 00038 ! 00039 ALLOCATE(XWR (KLU )) 00040 ALLOCATE(XTG (KLU,KGROUND_LAYER )) 00041 ALLOCATE(XWG (KLU,KGROUND_LAYER )) 00042 ALLOCATE(XWGI (KLU,KGROUND_LAYER )) 00043 ALLOCATE(XRESA (KLU )) 00044 ! 00045 ! - Vegetation: Ags Prognostic (YPHOTO = 'LAI', 'LST', 'AGS' or 'LST') 00046 ! 00047 ALLOCATE(XAN (KLU )) 00048 ALLOCATE(XANDAY (KLU )) 00049 ALLOCATE(XANFM (KLU )) 00050 ALLOCATE(XLE (KLU )) 00051 ! 00052 ! - Vegetation (Ags 'NIT' 'NCB' option): 00053 ! 00054 ALLOCATE(XBIOMASS (KLU,NNBIOMASS )) 00055 ALLOCATE(XRESP_BIOMASS (KLU,NNBIOMASS )) 00056 ! 00057 IF (LHOOK) CALL DR_HOOK('ALLOCATE_TEB_GARDEN',1,ZHOOK_HANDLE) 00058 ! 00059 END SUBROUTINE ALLOCATE_TEB_GARDEN
1.8.0
