|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 !############################################################# 00002 SUBROUTINE CONVERT_PATCH_TEB_GREENROOF(KLU,KDECADE) 00003 !############################################################# 00004 ! 00005 !!**** *CONVERT_PATCH_TEB_GREENROOF* - routine to initialize TEB_GREENROOF 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_GREENROOF_n, ONLY: LPAR_GREENROOF, LSTRESS, NLAYER_GR, & 00040 XEMIS, XVEG, XLAI, XWRMAX_CF, XRSMIN, & 00041 XGAMMA, XCV, XRGL, & 00042 XZ0, XDG2, XDROOT, NWG_LAYER, & 00043 XGMES, XSOILGRID_GR, & 00044 XBSLAI, XLAIMIN, XSEFOLD, & 00045 XF2I, XGC, & 00046 XCE_NITRO, XCF_NITRO, XCNA_NITRO, & 00047 XRE25, & 00048 XALBNIR_VEG, XALBVIS_VEG, XALBUV_VEG, & 00049 XALBNIR_SOIL, XALBVIS_SOIL, XALBUV_SOIL, & 00050 XDMAX, XALBNIR, XALBVIS, XALBUV, & 00051 XVEGTYPE, & 00052 XD_ICE, XDG, XH_TREE, XRE25, XROOTFRAC, & 00053 XZ0_O_Z0H 00054 ! 00055 USE MODI_CONVERT_PATCH_ISBA 00056 ! 00057 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK 00058 USE PARKIND1 ,ONLY : JPRB 00059 ! 00060 IMPLICIT NONE 00061 ! 00062 !* 0.1 Declarations of arguments 00063 ! ------------------------- 00064 ! 00065 INTEGER, INTENT(IN) :: KLU ! number of points 00066 INTEGER, INTENT(IN) :: KDECADE ! number of decades 00067 ! 00068 ! 00069 ! 00070 !* 0.2 Declarations of local variables 00071 ! ------------------------------- 00072 ! 00073 REAL, DIMENSION(KLU,1) :: ZLAI 00074 REAL, DIMENSION(KLU,1) :: ZVEG 00075 REAL, DIMENSION(KLU,1) :: ZZ0 00076 REAL, DIMENSION(KLU,1) :: ZALBNIR 00077 REAL, DIMENSION(KLU,1) :: ZALBVIS 00078 REAL, DIMENSION(KLU,1) :: ZALBUV 00079 REAL, DIMENSION(KLU,1) :: ZEMIS 00080 REAL, DIMENSION(KLU,1) :: ZRSMIN 00081 REAL, DIMENSION(KLU,1) :: ZGAMMA 00082 REAL, DIMENSION(KLU,1) :: ZWRMAX_CF 00083 REAL, DIMENSION(KLU,1) :: ZRGL 00084 REAL, DIMENSION(KLU,1) :: ZCV 00085 REAL, DIMENSION(KLU,1) :: ZGMES 00086 REAL, DIMENSION(KLU,1) :: ZBSLAI 00087 REAL, DIMENSION(KLU,1) :: ZLAIMIN 00088 REAL, DIMENSION(KLU,1) :: ZSEFOLD 00089 REAL, DIMENSION(KLU,1) :: ZGC 00090 REAL, DIMENSION(KLU,1) :: ZDMAX 00091 REAL, DIMENSION(KLU,1) :: ZF2I 00092 REAL, DIMENSION(KLU,1) :: ZALBNIR_VEG 00093 REAL, DIMENSION(KLU,1) :: ZALBVIS_VEG 00094 REAL, DIMENSION(KLU,1) :: ZALBUV_VEG 00095 REAL, DIMENSION(KLU,1) :: ZALBNIR_SOIL 00096 REAL, DIMENSION(KLU,1) :: ZALBVIS_SOIL 00097 REAL, DIMENSION(KLU,1) :: ZALBUV_SOIL 00098 REAL, DIMENSION(KLU,1) :: ZCE_NITRO 00099 REAL, DIMENSION(KLU,1) :: ZCF_NITRO 00100 REAL, DIMENSION(KLU,1) :: ZCNA_NITRO 00101 REAL, DIMENSION(KLU,1) :: ZRE25 00102 REAL, DIMENSION(KLU,1) :: ZH_TREE 00103 REAL, DIMENSION(KLU,NLAYER_GR,1) :: ZROOTFRAC 00104 REAL, DIMENSION(KLU,NLAYER_GR,1) :: ZDG 00105 REAL, DIMENSION(KLU,1) :: ZDROOT 00106 REAL, DIMENSION(KLU,1) :: ZDG2 00107 INTEGER, DIMENSION(KLU,1) :: IWG_LAYER 00108 REAL, DIMENSION(KLU,1) :: ZZ0_O_Z0H 00109 REAL, DIMENSION(KLU,1) :: ZD_ICE 00110 LOGICAL, DIMENSION(KLU,1) :: GSTRESS 00111 00112 ! 00113 REAL(KIND=JPRB) :: ZHOOK_HANDLE 00114 ! 00115 !------------------------------------------------------------------------------- 00116 ! 00117 ! Initialisation for IO 00118 ! 00119 IF (LHOOK) CALL DR_HOOK('CONVERT_PATCH_TEB_GREENROOF',0,ZHOOK_HANDLE) 00120 ! 00121 !------------------------------------------------------------------------------- 00122 ! 00123 ! 00124 CALL CONVERT_PATCH_ISBA(CISBA,KDECADE,KDECADE,XCOVER,CPHOTO,.FALSE., & 00125 'GRD',PVEG=ZVEG,PLAI=ZLAI, & 00126 PRSMIN=ZRSMIN,PGAMMA=ZGAMMA,PWRMAX_CF=ZWRMAX_CF, & 00127 PRGL=ZRGL,PCV=ZCV,PSOILGRID=XSOILGRID_GR, & 00128 PDG=ZDG,KWG_LAYER=IWG_LAYER,PDROOT=ZDROOT,PDG2=ZDG2, & 00129 PZ0=ZZ0,PZ0_O_Z0H=ZZ0_O_Z0H, & 00130 PALBNIR_VEG=ZALBNIR_VEG,PALBVIS_VEG=ZALBVIS_VEG, & 00131 PALBUV_VEG=ZALBUV_VEG,PEMIS_ECO=ZEMIS, & 00132 PVEGTYPE=XVEGTYPE,PROOTFRAC=ZROOTFRAC, & 00133 PGMES=ZGMES,PBSLAI=ZBSLAI,PLAIMIN=ZLAIMIN, & 00134 PSEFOLD=ZSEFOLD,PGC=ZGC, & 00135 PDMAX=ZDMAX,PF2I=ZF2I,OSTRESS=GSTRESS,PH_TREE=ZH_TREE, & 00136 PRE25=ZRE25,PCE_NITRO=ZCE_NITRO,PCF_NITRO=ZCF_NITRO, & 00137 PCNA_NITRO=ZCNA_NITRO,PD_ICE=ZD_ICE ) 00138 ! 00139 XVEG = ZVEG(:,1) 00140 XLAI = ZLAI(:,1) 00141 XZ0 = ZZ0(:,1) 00142 XALBNIR = ZALBNIR(:,1) 00143 XALBVIS = ZALBVIS(:,1) 00144 XALBUV = ZALBUV(:,1) 00145 XEMIS = ZEMIS(:,1) 00146 XRSMIN = ZRSMIN(:,1) 00147 XGAMMA = ZGAMMA(:,1) 00148 XWRMAX_CF = ZWRMAX_CF(:,1) 00149 XRGL = ZRGL(:,1) 00150 XCV = ZCV(:,1) 00151 XGMES = ZGMES(:,1) 00152 XBSLAI = ZBSLAI(:,1) 00153 XLAIMIN = ZLAIMIN(:,1) 00154 XSEFOLD = ZSEFOLD(:,1) 00155 XGC = ZGC(:,1) 00156 XDMAX = ZDMAX(:,1) 00157 XF2I = ZF2I(:,1) 00158 LSTRESS = GSTRESS(:,1) 00159 XALBNIR_VEG = ZALBNIR_VEG(:,1) 00160 XALBVIS_VEG = ZALBVIS_VEG(:,1) 00161 XALBUV_VEG = ZALBUV_VEG(:,1) 00162 XALBNIR_SOIL = ZALBNIR_SOIL(:,1) 00163 XALBVIS_SOIL = ZALBVIS_SOIL(:,1) 00164 XALBUV_SOIL = ZALBUV_SOIL(:,1) 00165 XCE_NITRO = ZCE_NITRO(:,1) 00166 XCF_NITRO = ZCF_NITRO(:,1) 00167 XCNA_NITRO = ZCNA_NITRO(:,1) 00168 XH_TREE = ZH_TREE(:,1) 00169 XRE25 = ZRE25(:,1) 00170 XROOTFRAC = ZROOTFRAC(:,:,1) 00171 XDG = ZDG(:,:,1) 00172 XZ0_O_Z0H = ZZ0_O_Z0H(:,1) 00173 XD_ICE = ZD_ICE(:,1) 00174 ! 00175 !------------------------------------------------------------------------------- 00176 ! 00177 IF (LHOOK) CALL DR_HOOK('CONVERT_PATCH_TEB_GREENROOF',1,ZHOOK_HANDLE) 00178 ! 00179 !------------------------------------------------------------------------------- 00180 ! 00181 ! 00182 END SUBROUTINE CONVERT_PATCH_TEB_GREENROOF
1.8.0
