|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 !############################################################# 00002 SUBROUTINE CONVERT_PATCH_GARDEN(KLU,KDECADE) 00003 !############################################################# 00004 ! 00005 !!**** *CONVERT_PATCH_GARDEN* - routine to initialize GARDEN parameters 00006 !! 00007 !! PURPOSE 00008 !! ------- 00009 !! 00010 !!** METHOD 00011 !! ------ 00012 !! 00013 !! EXTERNAL 00014 !! -------- 00015 !! 00016 !! 00017 !! IMPLICIT ARGUMENTS 00018 !! ------------------ 00019 !! 00020 !! REFERENCE 00021 !! --------- 00022 !! 00023 !! 00024 !! AUTHOR 00025 !! ------ 00026 !! A. Lemonsu *Meteo France* 00027 !! 00028 !! MODIFICATIONS 00029 !! ------------- 00030 !! Original 09/2009 00031 !------------------------------------------------------------------------------- 00032 ! 00033 !* 0. DECLARATIONS 00034 ! ------------ 00035 ! 00036 USE MODD_TYPE_DATE_SURF, ONLY: DATE_TIME 00037 USE MODD_TEB_n, ONLY: XCOVER 00038 USE MODD_TEB_VEG_n, ONLY: CISBA, CPHOTO 00039 USE MODD_TEB_GARDEN_n, ONLY: LPAR_GARDEN, LSTRESS, NGROUND_LAYER, & 00040 XEMIS, XVEG, XLAI, XWRMAX_CF, XRSMIN, & 00041 XGAMMA, XCV, XRGL, & 00042 XZ0, XDG2, XDROOT, NWG_LAYER, & 00043 XGMES, XSOILGRID, & 00044 XBSLAI, XLAIMIN, XSEFOLD, & 00045 XF2I, XGC, & 00046 XCE_NITRO, XCF_NITRO, XCNA_NITRO, & 00047 XALBNIR_VEG, XALBVIS_VEG, XALBUV_VEG, & 00048 XALBNIR_SOIL, XALBVIS_SOIL, XALBUV_SOIL, & 00049 XDMAX, XALBNIR, XALBVIS, XALBUV, & 00050 XVEGTYPE, & 00051 XD_ICE, XDG, XH_TREE, XRE25, XROOTFRAC, & 00052 XZ0_O_Z0H 00053 ! 00054 USE MODI_CONVERT_PATCH_ISBA 00055 ! 00056 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK 00057 USE PARKIND1 ,ONLY : JPRB 00058 ! 00059 IMPLICIT NONE 00060 ! 00061 !* 0.1 Declarations of arguments 00062 ! ------------------------- 00063 ! 00064 INTEGER, INTENT(IN) :: KLU ! number of points 00065 INTEGER, INTENT(IN) :: KDECADE ! number of decades 00066 ! 00067 ! 00068 ! 00069 !* 0.2 Declarations of local variables 00070 ! ------------------------------- 00071 ! 00072 REAL, DIMENSION(KLU,1) :: ZLAI 00073 REAL, DIMENSION(KLU,1) :: ZVEG 00074 REAL, DIMENSION(KLU,1) :: ZZ0 00075 REAL, DIMENSION(KLU,1) :: ZEMIS 00076 REAL, DIMENSION(KLU,1) :: ZRSMIN 00077 REAL, DIMENSION(KLU,1) :: ZGAMMA 00078 REAL, DIMENSION(KLU,1) :: ZWRMAX_CF 00079 REAL, DIMENSION(KLU,1) :: ZRGL 00080 REAL, DIMENSION(KLU,1) :: ZCV 00081 REAL, DIMENSION(KLU,1) :: ZGMES 00082 REAL, DIMENSION(KLU,1) :: ZBSLAI 00083 REAL, DIMENSION(KLU,1) :: ZLAIMIN 00084 REAL, DIMENSION(KLU,1) :: ZSEFOLD 00085 REAL, DIMENSION(KLU,1) :: ZGC 00086 REAL, DIMENSION(KLU,1) :: ZDMAX 00087 REAL, DIMENSION(KLU,1) :: ZF2I 00088 REAL, DIMENSION(KLU,1) :: ZALBNIR_VEG 00089 REAL, DIMENSION(KLU,1) :: ZALBVIS_VEG 00090 REAL, DIMENSION(KLU,1) :: ZALBUV_VEG 00091 REAL, DIMENSION(KLU,1) :: ZCE_NITRO 00092 REAL, DIMENSION(KLU,1) :: ZCF_NITRO 00093 REAL, DIMENSION(KLU,1) :: ZCNA_NITRO 00094 REAL, DIMENSION(KLU,1) :: ZRE25 00095 REAL, DIMENSION(KLU,1) :: ZH_TREE 00096 REAL, DIMENSION(KLU,1) :: ZZ0_O_Z0H 00097 REAL, DIMENSION(KLU,1) :: ZD_ICE 00098 REAL, DIMENSION(KLU,NGROUND_LAYER,1) :: ZROOTFRAC 00099 REAL, DIMENSION(KLU,NGROUND_LAYER,1) :: ZDG 00100 REAL, DIMENSION(KLU,1) :: ZDROOT 00101 REAL, DIMENSION(KLU,1) :: ZDG2 00102 INTEGER, DIMENSION(KLU,1) :: IWG_LAYER 00103 LOGICAL, DIMENSION(KLU,1) :: GSTRESS 00104 ! 00105 REAL(KIND=JPRB) :: ZHOOK_HANDLE 00106 ! 00107 !------------------------------------------------------------------------------- 00108 ! 00109 ! Initialisation for IO 00110 ! 00111 IF (LHOOK) CALL DR_HOOK('CONVERT_PATCH_GARDEN',0,ZHOOK_HANDLE) 00112 ! 00113 !------------------------------------------------------------------------------- 00114 ! 00115 ! 00116 CALL CONVERT_PATCH_ISBA(CISBA,KDECADE,KDECADE,XCOVER,CPHOTO,.FALSE., & 00117 'GRD',PVEG=ZVEG,PLAI=ZLAI, & 00118 PRSMIN=ZRSMIN,PGAMMA=ZGAMMA,PWRMAX_CF=ZWRMAX_CF, & 00119 PRGL=ZRGL,PCV=ZCV,PSOILGRID=XSOILGRID, & 00120 PDG=ZDG,KWG_LAYER=IWG_LAYER,PDROOT=ZDROOT,PDG2=ZDG2, & 00121 PZ0=ZZ0,PZ0_O_Z0H=ZZ0_O_Z0H, & 00122 PALBNIR_VEG=ZALBNIR_VEG,PALBVIS_VEG=ZALBVIS_VEG, & 00123 PALBUV_VEG=ZALBUV_VEG,PEMIS_ECO=ZEMIS, & 00124 PVEGTYPE=XVEGTYPE,PROOTFRAC=ZROOTFRAC, & 00125 PGMES=ZGMES,PBSLAI=ZBSLAI,PLAIMIN=ZLAIMIN, & 00126 PSEFOLD=ZSEFOLD,PGC=ZGC, & 00127 PDMAX=ZDMAX,PF2I=ZF2I,OSTRESS=GSTRESS,PH_TREE=ZH_TREE, & 00128 PRE25=ZRE25,PCE_NITRO=ZCE_NITRO,PCF_NITRO=ZCF_NITRO, & 00129 PCNA_NITRO=ZCNA_NITRO,PD_ICE=ZD_ICE ) 00130 ! 00131 XVEG = ZVEG(:,1) 00132 XLAI = ZLAI(:,1) 00133 XZ0 = ZZ0(:,1) 00134 XEMIS = ZEMIS(:,1) 00135 XRSMIN = ZRSMIN(:,1) 00136 XGAMMA = ZGAMMA(:,1) 00137 XWRMAX_CF = ZWRMAX_CF(:,1) 00138 XRGL = ZRGL(:,1) 00139 XCV = ZCV(:,1) 00140 XGMES = ZGMES(:,1) 00141 XBSLAI = ZBSLAI(:,1) 00142 XLAIMIN = ZLAIMIN(:,1) 00143 XSEFOLD = ZSEFOLD(:,1) 00144 XGC = ZGC(:,1) 00145 XDMAX = ZDMAX(:,1) 00146 XF2I = ZF2I(:,1) 00147 LSTRESS = GSTRESS(:,1) 00148 XALBNIR_VEG = ZALBNIR_VEG(:,1) 00149 XALBVIS_VEG = ZALBVIS_VEG(:,1) 00150 XALBUV_VEG = ZALBUV_VEG(:,1) 00151 XCE_NITRO = ZCE_NITRO(:,1) 00152 XCF_NITRO = ZCF_NITRO(:,1) 00153 XCNA_NITRO = ZCNA_NITRO(:,1) 00154 XH_TREE = ZH_TREE(:,1) 00155 XRE25 = ZRE25(:,1) 00156 XROOTFRAC = ZROOTFRAC(:,:,1) 00157 XDG = ZDG(:,:,1) 00158 XDROOT = ZDROOT(:,1) 00159 XDG2 = ZDG2(:,1) 00160 NWG_LAYER = IWG_LAYER(:,1) 00161 XZ0_O_Z0H = ZZ0_O_Z0H(:,1) 00162 XD_ICE = ZD_ICE(:,1) 00163 ! 00164 !------------------------------------------------------------------------------- 00165 ! 00166 IF (LHOOK) CALL DR_HOOK('CONVERT_PATCH_GARDEN',1,ZHOOK_HANDLE) 00167 ! 00168 !------------------------------------------------------------------------------- 00169 ! 00170 ! 00171 END SUBROUTINE CONVERT_PATCH_GARDEN
1.8.0
