|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 ! ######### 00002 SUBROUTINE ALLOC_DIAG_TEB_GREENROOF(KLU,KLAYER_GR,KSW) 00003 ! ########################################################################## 00004 ! 00005 USE MODD_TEB_GREENROOF_n 00006 USE MODD_DIAG_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 INTEGER, INTENT(IN) :: KSW 00017 REAL(KIND=JPRB) :: ZHOOK_HANDLE 00018 ! 00019 !------------------------------------------------------------------------------- 00020 ! 00021 ! Diagnostic variables: 00022 ! 00023 IF (LHOOK) CALL DR_HOOK('ALLOC_DIAG_TEB_GREENROOF',0,ZHOOK_HANDLE) 00024 ALLOCATE(XRI (KLU )) 00025 ALLOCATE(XCD (KLU )) 00026 ALLOCATE(XCH (KLU )) 00027 ALLOCATE(XRN (KLU )) 00028 ALLOCATE(XH (KLU )) 00029 ALLOCATE(XGFLUX (KLU )) 00030 ALLOCATE(XQS (KLU )) 00031 ! 00032 ALLOCATE(XLEI (KLU )) 00033 ALLOCATE(XLEG (KLU )) 00034 ALLOCATE(XLEGI (KLU )) 00035 ALLOCATE(XLEV (KLU )) 00036 ALLOCATE(XLES (KLU )) 00037 ALLOCATE(XLER (KLU )) 00038 ALLOCATE(XLETR (KLU )) 00039 ALLOCATE(XEVAP (KLU )) 00040 ALLOCATE(XDRAIN (KLU )) 00041 ALLOCATE(XRUNOFF (KLU )) 00042 ALLOCATE(XHORT (KLU )) 00043 ALLOCATE(XDRIP (KLU )) 00044 ALLOCATE(XRRVEG (KLU )) 00045 ALLOCATE(XMELT (KLU )) 00046 ! 00047 ALLOCATE(XCG (KLU )) 00048 ALLOCATE(XC1 (KLU )) 00049 ALLOCATE(XC2 (KLU )) 00050 ALLOCATE(XWGEQ (KLU )) 00051 ALLOCATE(XCT (KLU )) 00052 ALLOCATE(XRS (KLU )) 00053 ALLOCATE(XCDN (KLU )) 00054 ALLOCATE(XHU (KLU )) 00055 ALLOCATE(XHUG (KLU )) 00056 ALLOCATE(XRESTORE (KLU )) 00057 ALLOCATE(XUSTAR (KLU )) 00058 ALLOCATE(XIACAN (KLU,3 )) 00059 ! 00060 ALLOCATE(XSNOWTEMP (KLU,TSNOW%NLAYER )) 00061 ALLOCATE(XSNOWLIQ (KLU,TSNOW%NLAYER )) 00062 ALLOCATE(XSNOWDZ (KLU,TSNOW%NLAYER )) 00063 ALLOCATE(XSNOWHMASS (KLU )) 00064 ALLOCATE(XMELTADV (KLU )) 00065 ! 00066 ALLOCATE(XHV (KLU )) 00067 ALLOCATE(XALBT (KLU )) 00068 ALLOCATE(XEMIST (KLU )) 00069 IF (LHOOK) CALL DR_HOOK('ALLOC_DIAG_TEB_GREENROOF',1,ZHOOK_HANDLE) 00070 ! 00071 ! 00072 END SUBROUTINE ALLOC_DIAG_TEB_GREENROOF
1.8.0
