|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 ! ####################### 00002 SUBROUTINE COVER301_573 00003 ! ####################### 00004 ! 00005 USE MODD_DATA_COVER, ONLY : XDATA_TOWN, XDATA_NATURE, XDATA_SEA, XDATA_WATER, & 00006 XDATA_VEGTYPE, XDATA_H_TREE, & 00007 XDATA_GROUND_DEPTH, XDATA_ROOT_DEPTH, & 00008 XDATA_Z0_TOWN, XDATA_Z0H_TOWN, XDATA_ALB_ROOF, & 00009 XDATA_EMIS_ROOF, XDATA_HC_ROOF, XDATA_TC_ROOF, & 00010 XDATA_D_ROOF, XDATA_ALB_ROAD, XDATA_EMIS_ROAD, & 00011 XDATA_HC_ROAD, XDATA_TC_ROAD, XDATA_D_ROAD, & 00012 XDATA_ALB_WALL, XDATA_EMIS_WALL, XDATA_HC_WALL, & 00013 XDATA_TC_WALL, XDATA_D_WALL, XDATA_BLD_HEIGHT, & 00014 XDATA_WALL_O_HOR, XDATA_BLD, XDATA_CAN_HW_RATIO, & 00015 XDATA_H_TRAFFIC, XDATA_LE_TRAFFIC, & 00016 XDATA_H_INDUSTRY, XDATA_LE_INDUSTRY, & 00017 TDATA_SEED, TDATA_REAP, XDATA_WATSUP, XDATA_IRRIG,& 00018 XDATA_LAI_ALL_YEARS, LDATA_IRRIG, XDATA_DICE, & 00019 LREAD_DATA_COVER 00020 00021 USE MODD_DATA_COVER_PAR, ONLY : NVT_NO, NVT_ROCK, NVT_SNOW, NVT_PARK, & 00022 NVT_TREE, NVT_CONI, NVT_EVER, NVT_C3, & 00023 NVT_C4, NVT_IRR, NVT_GRAS, NVT_TROG 00024 ! 00025 USE MODD_SURF_PAR, ONLY : XUNDEF, NUNDEF 00026 ! 00027 USE MODI_READ_COVERS_PARAM 00028 ! 00029 USE MODI_DEFAULT_LAI_ECO2_Y2002_01 00030 USE MODI_DEFAULT_LAI_ECO2_Y2002_02 00031 USE MODI_DEFAULT_LAI_ECO2_Y2002_03 00032 USE MODI_DEFAULT_LAI_ECO2_Y2002_04 00033 USE MODI_DEFAULT_LAI_ECO2_Y2002_05 00034 USE MODI_DEFAULT_LAI_ECO2_Y2002_06 00035 USE MODI_DEFAULT_LAI_ECO2_Y2002_07 00036 USE MODI_DEFAULT_LAI_ECO2_Y2002_08 00037 USE MODI_DEFAULT_LAI_ECO2_Y2002_09 00038 USE MODI_DEFAULT_LAI_ECO2_Y2002_10 00039 USE MODI_DEFAULT_LAI_ECO2_Y2002_11 00040 USE MODI_DEFAULT_LAI_ECO2_Y2002_12 00041 USE MODI_DEFAULT_LAI_ECO2_Y2003_01 00042 USE MODI_DEFAULT_LAI_ECO2_Y2003_02 00043 USE MODI_DEFAULT_LAI_ECO2_Y2003_03 00044 USE MODI_DEFAULT_LAI_ECO2_Y2003_04 00045 USE MODI_DEFAULT_LAI_ECO2_Y2003_05 00046 USE MODI_DEFAULT_LAI_ECO2_Y2003_06 00047 USE MODI_DEFAULT_LAI_ECO2_Y2003_07 00048 USE MODI_DEFAULT_LAI_ECO2_Y2003_08 00049 USE MODI_DEFAULT_LAI_ECO2_Y2003_09 00050 USE MODI_DEFAULT_LAI_ECO2_Y2003_10 00051 USE MODI_DEFAULT_LAI_ECO2_Y2003_11 00052 USE MODI_DEFAULT_LAI_ECO2_Y2003_12 00053 USE MODI_DEFAULT_LAI_ECO2_Y2004_01 00054 USE MODI_DEFAULT_LAI_ECO2_Y2004_02 00055 USE MODI_DEFAULT_LAI_ECO2_Y2004_03 00056 USE MODI_DEFAULT_LAI_ECO2_Y2004_04 00057 USE MODI_DEFAULT_LAI_ECO2_Y2004_05 00058 USE MODI_DEFAULT_LAI_ECO2_Y2004_06 00059 USE MODI_DEFAULT_LAI_ECO2_Y2004_07 00060 USE MODI_DEFAULT_LAI_ECO2_Y2004_08 00061 USE MODI_DEFAULT_LAI_ECO2_Y2004_09 00062 USE MODI_DEFAULT_LAI_ECO2_Y2004_10 00063 USE MODI_DEFAULT_LAI_ECO2_Y2004_11 00064 USE MODI_DEFAULT_LAI_ECO2_Y2004_12 00065 USE MODI_DEFAULT_LAI_ECO2_Y2005_01 00066 USE MODI_DEFAULT_LAI_ECO2_Y2005_02 00067 USE MODI_DEFAULT_LAI_ECO2_Y2005_03 00068 USE MODI_DEFAULT_LAI_ECO2_Y2005_04 00069 USE MODI_DEFAULT_LAI_ECO2_Y2005_05 00070 USE MODI_DEFAULT_LAI_ECO2_Y2005_06 00071 USE MODI_DEFAULT_LAI_ECO2_Y2005_07 00072 USE MODI_DEFAULT_LAI_ECO2_Y2005_08 00073 USE MODI_DEFAULT_LAI_ECO2_Y2005_09 00074 USE MODI_DEFAULT_LAI_ECO2_Y2005_10 00075 USE MODI_DEFAULT_LAI_ECO2_Y2005_11 00076 USE MODI_DEFAULT_LAI_ECO2_Y2005_12 00077 USE MODI_DEFAULT_LAI_ECO2_Y2006_01 00078 USE MODI_DEFAULT_LAI_ECO2_Y2006_02 00079 USE MODI_DEFAULT_LAI_ECO2_Y2006_03 00080 USE MODI_DEFAULT_LAI_ECO2_Y2006_04 00081 USE MODI_DEFAULT_LAI_ECO2_Y2006_05 00082 USE MODI_DEFAULT_LAI_ECO2_Y2006_06 00083 USE MODI_DEFAULT_LAI_ECO2_Y2006_07 00084 USE MODI_DEFAULT_LAI_ECO2_Y2006_08 00085 USE MODI_DEFAULT_LAI_ECO2_Y2006_09 00086 USE MODI_DEFAULT_LAI_ECO2_Y2006_10 00087 USE MODI_DEFAULT_LAI_ECO2_Y2006_11 00088 USE MODI_DEFAULT_LAI_ECO2_Y2006_12 00089 ! 00090 USE MODI_DEFAULT_ALB_ECO2_01_1 00091 USE MODI_DEFAULT_ALB_ECO2_02_1 00092 USE MODI_DEFAULT_ALB_ECO2_03_1 00093 USE MODI_DEFAULT_ALB_ECO2_04_1 00094 USE MODI_DEFAULT_ALB_ECO2_05_1 00095 USE MODI_DEFAULT_ALB_ECO2_06_1 00096 USE MODI_DEFAULT_ALB_ECO2_07_1 00097 USE MODI_DEFAULT_ALB_ECO2_08_1 00098 USE MODI_DEFAULT_ALB_ECO2_09_1 00099 USE MODI_DEFAULT_ALB_ECO2_10_1 00100 USE MODI_DEFAULT_ALB_ECO2_11_1 00101 USE MODI_DEFAULT_ALB_ECO2_12_1 00102 USE MODI_DEFAULT_ALB_ECO2_01_2 00103 USE MODI_DEFAULT_ALB_ECO2_02_2 00104 USE MODI_DEFAULT_ALB_ECO2_03_2 00105 USE MODI_DEFAULT_ALB_ECO2_04_2 00106 USE MODI_DEFAULT_ALB_ECO2_05_2 00107 USE MODI_DEFAULT_ALB_ECO2_06_2 00108 USE MODI_DEFAULT_ALB_ECO2_07_2 00109 USE MODI_DEFAULT_ALB_ECO2_08_2 00110 USE MODI_DEFAULT_ALB_ECO2_09_2 00111 USE MODI_DEFAULT_ALB_ECO2_10_2 00112 USE MODI_DEFAULT_ALB_ECO2_11_2 00113 USE MODI_DEFAULT_ALB_ECO2_12_2 00114 USE MODI_DEFAULT_ALB_ECO2_01_3 00115 USE MODI_DEFAULT_ALB_ECO2_02_3 00116 USE MODI_DEFAULT_ALB_ECO2_03_3 00117 USE MODI_DEFAULT_ALB_ECO2_04_3 00118 USE MODI_DEFAULT_ALB_ECO2_05_3 00119 USE MODI_DEFAULT_ALB_ECO2_06_3 00120 USE MODI_DEFAULT_ALB_ECO2_07_3 00121 USE MODI_DEFAULT_ALB_ECO2_08_3 00122 USE MODI_DEFAULT_ALB_ECO2_09_3 00123 USE MODI_DEFAULT_ALB_ECO2_10_3 00124 USE MODI_DEFAULT_ALB_ECO2_11_3 00125 USE MODI_DEFAULT_ALB_ECO2_12_3 00126 ! 00127 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK 00128 USE PARKIND1 ,ONLY : JPRB 00129 ! 00130 IMPLICIT NONE 00131 ! 00132 !* dummy arguments 00133 ! --------------- 00134 ! 00135 ! 00136 !* local variables 00137 ! --------------- 00138 ! 00139 REAL(KIND=JPRB) :: ZHOOK_HANDLE 00140 ! 00141 !------------------------------------------------------------------------------ 00142 ! 00143 IF (LHOOK) CALL DR_HOOK('COVER301_573',0,ZHOOK_HANDLE) 00144 LDATA_IRRIG = .FALSE. 00145 ! 00146 !------------------------------------------------------------------------------- 00147 ! 00148 !* 3. Land-use and vegetation data for each ecoclimap2 cover 00149 ! ------------------------------------------------------ 00150 ! 00151 IF (LREAD_DATA_COVER) THEN 00152 CALL READ_COVERS_PARAM(2) 00153 ELSE 00154 CALL DEFAULT_LAI_ECO2_Y2002_01 00155 CALL DEFAULT_LAI_ECO2_Y2002_02 00156 CALL DEFAULT_LAI_ECO2_Y2002_03 00157 CALL DEFAULT_LAI_ECO2_Y2002_04 00158 CALL DEFAULT_LAI_ECO2_Y2002_05 00159 CALL DEFAULT_LAI_ECO2_Y2002_06 00160 CALL DEFAULT_LAI_ECO2_Y2002_07 00161 CALL DEFAULT_LAI_ECO2_Y2002_08 00162 CALL DEFAULT_LAI_ECO2_Y2002_09 00163 CALL DEFAULT_LAI_ECO2_Y2002_10 00164 CALL DEFAULT_LAI_ECO2_Y2002_11 00165 CALL DEFAULT_LAI_ECO2_Y2002_12 00166 CALL DEFAULT_LAI_ECO2_Y2003_01 00167 CALL DEFAULT_LAI_ECO2_Y2003_02 00168 CALL DEFAULT_LAI_ECO2_Y2003_03 00169 CALL DEFAULT_LAI_ECO2_Y2003_04 00170 CALL DEFAULT_LAI_ECO2_Y2003_05 00171 CALL DEFAULT_LAI_ECO2_Y2003_06 00172 CALL DEFAULT_LAI_ECO2_Y2003_07 00173 CALL DEFAULT_LAI_ECO2_Y2003_08 00174 CALL DEFAULT_LAI_ECO2_Y2003_09 00175 CALL DEFAULT_LAI_ECO2_Y2003_10 00176 CALL DEFAULT_LAI_ECO2_Y2003_11 00177 CALL DEFAULT_LAI_ECO2_Y2003_12 00178 CALL DEFAULT_LAI_ECO2_Y2004_01 00179 CALL DEFAULT_LAI_ECO2_Y2004_02 00180 CALL DEFAULT_LAI_ECO2_Y2004_03 00181 CALL DEFAULT_LAI_ECO2_Y2004_04 00182 CALL DEFAULT_LAI_ECO2_Y2004_05 00183 CALL DEFAULT_LAI_ECO2_Y2004_06 00184 CALL DEFAULT_LAI_ECO2_Y2004_07 00185 CALL DEFAULT_LAI_ECO2_Y2004_08 00186 CALL DEFAULT_LAI_ECO2_Y2004_09 00187 CALL DEFAULT_LAI_ECO2_Y2004_10 00188 CALL DEFAULT_LAI_ECO2_Y2004_11 00189 CALL DEFAULT_LAI_ECO2_Y2004_12 00190 CALL DEFAULT_LAI_ECO2_Y2005_01 00191 CALL DEFAULT_LAI_ECO2_Y2005_02 00192 CALL DEFAULT_LAI_ECO2_Y2005_03 00193 CALL DEFAULT_LAI_ECO2_Y2005_04 00194 CALL DEFAULT_LAI_ECO2_Y2005_05 00195 CALL DEFAULT_LAI_ECO2_Y2005_06 00196 CALL DEFAULT_LAI_ECO2_Y2005_07 00197 CALL DEFAULT_LAI_ECO2_Y2005_08 00198 CALL DEFAULT_LAI_ECO2_Y2005_09 00199 CALL DEFAULT_LAI_ECO2_Y2005_10 00200 CALL DEFAULT_LAI_ECO2_Y2005_11 00201 CALL DEFAULT_LAI_ECO2_Y2005_12 00202 CALL DEFAULT_LAI_ECO2_Y2006_01 00203 CALL DEFAULT_LAI_ECO2_Y2006_02 00204 CALL DEFAULT_LAI_ECO2_Y2006_03 00205 CALL DEFAULT_LAI_ECO2_Y2006_04 00206 CALL DEFAULT_LAI_ECO2_Y2006_05 00207 CALL DEFAULT_LAI_ECO2_Y2006_06 00208 CALL DEFAULT_LAI_ECO2_Y2006_07 00209 CALL DEFAULT_LAI_ECO2_Y2006_08 00210 CALL DEFAULT_LAI_ECO2_Y2006_09 00211 CALL DEFAULT_LAI_ECO2_Y2006_10 00212 CALL DEFAULT_LAI_ECO2_Y2006_11 00213 CALL DEFAULT_LAI_ECO2_Y2006_12 00214 ! 00215 CALL DEFAULT_ALB_ECO2_01_1 00216 CALL DEFAULT_ALB_ECO2_02_1 00217 CALL DEFAULT_ALB_ECO2_03_1 00218 CALL DEFAULT_ALB_ECO2_04_1 00219 CALL DEFAULT_ALB_ECO2_05_1 00220 CALL DEFAULT_ALB_ECO2_06_1 00221 CALL DEFAULT_ALB_ECO2_07_1 00222 CALL DEFAULT_ALB_ECO2_08_1 00223 CALL DEFAULT_ALB_ECO2_09_1 00224 CALL DEFAULT_ALB_ECO2_10_1 00225 CALL DEFAULT_ALB_ECO2_11_1 00226 CALL DEFAULT_ALB_ECO2_12_1 00227 ! 00228 CALL DEFAULT_ALB_ECO2_01_2 00229 CALL DEFAULT_ALB_ECO2_02_2 00230 CALL DEFAULT_ALB_ECO2_03_2 00231 CALL DEFAULT_ALB_ECO2_04_2 00232 CALL DEFAULT_ALB_ECO2_05_2 00233 CALL DEFAULT_ALB_ECO2_06_2 00234 CALL DEFAULT_ALB_ECO2_07_2 00235 CALL DEFAULT_ALB_ECO2_08_2 00236 CALL DEFAULT_ALB_ECO2_09_2 00237 CALL DEFAULT_ALB_ECO2_10_2 00238 CALL DEFAULT_ALB_ECO2_11_2 00239 CALL DEFAULT_ALB_ECO2_12_2 00240 ! 00241 CALL DEFAULT_ALB_ECO2_01_3 00242 CALL DEFAULT_ALB_ECO2_02_3 00243 CALL DEFAULT_ALB_ECO2_03_3 00244 CALL DEFAULT_ALB_ECO2_04_3 00245 CALL DEFAULT_ALB_ECO2_05_3 00246 CALL DEFAULT_ALB_ECO2_06_3 00247 CALL DEFAULT_ALB_ECO2_07_3 00248 CALL DEFAULT_ALB_ECO2_08_3 00249 CALL DEFAULT_ALB_ECO2_09_3 00250 CALL DEFAULT_ALB_ECO2_10_3 00251 CALL DEFAULT_ALB_ECO2_11_3 00252 CALL DEFAULT_ALB_ECO2_12_3 00253 ! 00254 ENDIF 00255 ! 00256 IF (LHOOK) CALL DR_HOOK('COVER301_573',1,ZHOOK_HANDLE) 00257 !------------------------------------------------------------------------------- 00258 !------------------------------------------------------------------------------- 00259 !------------------------------------------------------------------------------ 00260 ! 00261 END SUBROUTINE COVER301_573
1.8.0
