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