|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 ! ######### 00002 SUBROUTINE ALLOCATE_TEB_GREENROOF(KLU,KLAYER_GR) 00003 ! ########################################################################## 00004 ! 00005 USE MODD_TEB_VEG_n, ONLY : NNBIOMASS 00006 USE MODD_TEB_GREENROOF_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) :: KLAYER_GR 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_GREENROOF',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 ! - Soil and vegetation heat and water: 00037 ! 00038 ALLOCATE(XWR (KLU )) 00039 ALLOCATE(XTG (KLU,KLAYER_GR )) 00040 ALLOCATE(XWG (KLU,KLAYER_GR )) 00041 ALLOCATE(XWGI (KLU,KLAYER_GR )) 00042 ALLOCATE(XRESA (KLU )) 00043 ! 00044 ! - Vegetation: Ags Prognostic (YPHOTO = 'LAI', 'LST', 'AGS' or 'LST') 00045 ! 00046 ALLOCATE(XAN (KLU )) 00047 ALLOCATE(XANDAY (KLU )) 00048 ALLOCATE(XANFM (KLU )) 00049 ALLOCATE(XLE (KLU )) 00050 ! 00051 ! - Vegetation (Ags 'NIT' 'NCB' option): 00052 ! 00053 ALLOCATE(XBIOMASS (KLU,NNBIOMASS )) 00054 ALLOCATE(XRESP_BIOMASS (KLU,NNBIOMASS )) 00055 ! 00056 IF (LHOOK) CALL DR_HOOK('ALLOCATE_TEB_GREENROOF',1,ZHOOK_HANDLE) 00057 ! 00058 END SUBROUTINE ALLOCATE_TEB_GREENROOF
1.8.0
