|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 ! ######### 00002 SUBROUTINE ALLOCATE_TEB_GARDEN_PGD(OALLOC,KLU,KVEGTYPE,KGROUND_LAYER, KDIMTAB) 00003 ! ########################################################################## 00004 ! 00005 USE MODD_TEB_GARDEN_n 00006 ! 00007 ! 00008 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK 00009 USE PARKIND1 ,ONLY : JPRB 00010 ! 00011 IMPLICIT NONE 00012 ! 00013 LOGICAL, INTENT(IN) :: OALLOC ! True if constant PGD fields must be allocated 00014 INTEGER, INTENT(IN) :: KLU 00015 INTEGER, INTENT(IN) :: KVEGTYPE 00016 INTEGER, INTENT(IN) :: KGROUND_LAYER 00017 INTEGER, INTENT(IN) :: KDIMTAB 00018 REAL(KIND=JPRB) :: ZHOOK_HANDLE 00019 ! 00020 !------------------------------------------------------------------------------- 00021 ! 00022 ! 00023 IF (LHOOK) CALL DR_HOOK('ALLOCATE_TEB_GARDEN_PGD',0,ZHOOK_HANDLE) 00024 ! 00025 !------------------------------------------------------------------------------- 00026 ! 00027 ! - Physiographic field that can evolve prognostically 00028 ! 00029 ALLOCATE(XLAI (KLU )) 00030 ALLOCATE(XVEG (KLU )) 00031 ALLOCATE(XEMIS (KLU )) 00032 ALLOCATE(XZ0 (KLU )) 00033 ! 00034 ! - vegetation: 00035 ! 00036 ALLOCATE(XALBNIR_VEG (KLU )) 00037 ALLOCATE(XALBVIS_VEG (KLU )) 00038 ALLOCATE(XALBUV_VEG (KLU )) 00039 ! 00040 IF (.NOT. OALLOC) THEN 00041 IF (LHOOK) CALL DR_HOOK('ALLOCATE_TEB_GARDEN_PGD',1,ZHOOK_HANDLE) 00042 RETURN 00043 END IF 00044 !------------------------------------------------------------------------------- 00045 ! 00046 ! Mask and number of grid elements containing tiles: 00047 ALLOCATE(XVEGTYPE (KLU,KVEGTYPE )) 00048 ! 00049 !------------------------------------------------------------------------------- 00050 ! 00051 ! Input Parameters: 00052 ! 00053 ! - vegetation + bare soil: 00054 ! 00055 ALLOCATE(XZ0_O_Z0H (KLU )) 00056 00057 ! 00058 ! - vegetation: default option (Jarvis) and general parameters: 00059 ! 00060 ALLOCATE(XWRMAX_CF (KLU )) 00061 ALLOCATE(XGAMMA (KLU )) 00062 ALLOCATE(XCV (KLU )) 00063 ALLOCATE(XRGL (KLU )) 00064 ALLOCATE(XRSMIN (KLU )) 00065 ALLOCATE(XROOTFRAC (KLU,KGROUND_LAYER )) 00066 ALLOCATE(NWG_LAYER (KLU )) 00067 ALLOCATE(XDROOT (KLU )) 00068 ALLOCATE(XDG2 (KLU )) 00069 ! 00070 !------------------------------------------------------------------------------- 00071 ! 00072 ! - vegetation: Ags parameters ('AGS', 'LAI', 'AST', 'LST', 'NIT' options) 00073 ! 00074 ALLOCATE(XBSLAI (KLU )) 00075 ALLOCATE(XLAIMIN (KLU )) 00076 ALLOCATE(XSEFOLD (KLU )) 00077 ALLOCATE(XH_TREE (KLU )) 00078 ALLOCATE(XANF (KLU )) 00079 ALLOCATE(XGMES (KLU )) 00080 ALLOCATE(XRE25 (KLU )) 00081 ! 00082 !------------------------------------------------------------------------------- 00083 ! 00084 ! - vegetation: Ags Stress parameters ('AST', 'LST', 'NIT' options) 00085 ! 00086 ALLOCATE(LSTRESS (KLU )) 00087 ALLOCATE(XF2I (KLU )) 00088 ALLOCATE(XGC (KLU )) 00089 ALLOCATE(XAH (KLU )) 00090 ALLOCATE(XBH (KLU )) 00091 ALLOCATE(XDMAX (KLU )) 00092 ! 00093 !------------------------------------------------------------------------------- 00094 ! 00095 ! - vegetation: Ags Nitrogen-model parameters ('NIT' option) 00096 ! 00097 ALLOCATE(XCE_NITRO (KLU )) 00098 ALLOCATE(XCF_NITRO (KLU )) 00099 ALLOCATE(XCNA_NITRO (KLU )) 00100 ! 00101 !------------------------------------------------------------------------------- 00102 ! 00103 ! - soil: primary parameters 00104 ! 00105 ALLOCATE(XSAND (KLU,KGROUND_LAYER )) 00106 ALLOCATE(XCLAY (KLU,KGROUND_LAYER )) 00107 ALLOCATE(XRUNOFFB (KLU )) 00108 ALLOCATE(XWDRAIN (KLU )) 00109 ALLOCATE(XGAMMAT (KLU )) 00110 ALLOCATE(XDG (KLU,KGROUND_LAYER )) 00111 ALLOCATE(XRUNOFFD (KLU )) 00112 ! 00113 !------------------------------------------------------------------------------- 00114 ! 00115 ! - SGH scheme 00116 ! 00117 ALLOCATE(XD_ICE (KLU )) 00118 ! 00119 !------------------------------------------------------------------------------- 00120 ! 00121 IF (LHOOK) CALL DR_HOOK('ALLOCATE_TEB_GARDEN_PGD',1,ZHOOK_HANDLE) 00122 ! 00123 END SUBROUTINE ALLOCATE_TEB_GARDEN_PGD
1.8.0
