|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 ! ######### 00002 SUBROUTINE UNPACK_ISBA_PATCH_n(KMASK,KSIZE,KPATCH) 00003 !############################################## 00004 ! 00005 !!**** *UNPACK_ISBA_PATCH_n* - unpacks ISBA prognostic variables 00006 !! 00007 !! PURPOSE 00008 !! ------- 00009 ! 00010 !!** METHOD 00011 !! ------ 00012 !! 00013 !! REFERENCE 00014 !! --------- 00015 !! 00016 !! 00017 !! AUTHOR 00018 !! ------ 00019 !! A. Boone 00020 !! 00021 !! MODIFICATIONS 00022 !! ------------- 00023 !! Original 01/2004 00024 !! B. Decharme 2008 Floodplains 00025 !! A.L. Gibelin 04/2009 : BIOMASS and RESP_BIOMASS arrays 00026 !! A.L. Gibelin 04/2009 : TAU_WOOD for NCB option 00027 !! A.L. Gibelin 05/2009 : Add carbon spinup 00028 !! A.L. Gibelin 06/2009 : Soil carbon variables for CNT option 00029 !! A.L. Gibelin 07/2009 : Suppress RDK and transform GPP as a diagnostic 00030 !! A.L. Gibelin 07/2009 : Suppress PPST and PPSTF as outputs 00031 !! 00032 !!------------------------------------------------------------------ 00033 ! 00034 USE MODD_PACK_ISBA, ONLY : LBLOCK_SIMPLE, LBLOCK_0, TBLOCK_SIMPLE, TBLOCK_0, XBLOCK_SIMPLE, & 00035 XBLOCK_GROUND, XBLOCK_VEGTYPE, XBLOCK_TG, XBLOCK_SNOW, XBLOCK_ALB,& 00036 XBLOCK_2, XBLOCK_BIOMASS, XBLOCK_SOILCARB, XBLOCK_LITTLEVS, & 00037 XBLOCK_LITTER, XBLOCK_0, XBLOCK_00, XBLOCK_000, XBLOCK_01, & 00038 NBLOCK_SIMPLE, NBLOCK_0, & 00039 XP_Z0_O_Z0H, XP_EMIS, XP_Z0, & 00040 XP_WRMAX_CF, XP_GAMMA, XP_ALBNIR, XP_ALBVIS, XP_ALBUV, & 00041 XP_CV, XP_RGL, XP_VEGTYPE_PATCH, XP_DG, XP_RUNOFFD, XP_RUNOFFB, & 00042 XP_WDRAIN, XP_TAUICE, XP_Z0REL, XP_GAMMAT, NK_WG_LAYER, & 00043 XP_C1SAT, XP_C2REF, XP_C3, XP_C4B, XP_C4REF, XP_ACOEF, XP_PCOEF, & 00044 XP_WFC, XP_WWILT, XP_WSAT, XP_BCOEF, XP_WR, XP_TG, XP_WG, & 00045 XP_WGI, XP_LAI, XP_RESA, XP_VEG, XP_TDEEP, XP_ROOTFRAC, XP_DZG, & 00046 XP_DZDIF, XP_CONDSAT, XP_MPOTSAT, XP_CGSAT, XP_HCAPSOIL, & 00047 XP_CONDDRY, XP_CONDSLD, XP_RSMIN, XP_BSLAI, XP_LAIMIN, & 00048 XP_SEFOLD, XP_H_TREE, XP_ANF, XP_ANMAX, XP_FZERO, XP_EPSO, & 00049 XP_GAMM, XP_QDGAMM, XP_GMES, XP_RE25, XP_QDGMES, XP_T1GMES, & 00050 XP_T2GMES, XP_TAU_WOOD, XP_SOILWGHT, & 00051 XP_FAPARC, XP_FAPIRC, XP_LAI_EFFC, XP_MUS, & 00052 XP_AMAX, XP_QDAMAX, XP_T1AMAX, XP_T2AMAX, XP_AN, XP_ANFM, & 00053 XP_LE, LP_STRESS, XP_F2I, XP_GC, XP_AH, XP_BH, XP_DMAX, & 00054 XP_ANDAY, XP_Z0EFFIP,XP_Z0EFFIM,XP_Z0EFFJP,XP_Z0EFFJM, & 00055 XP_AOSIP,XP_AOSIM,XP_AOSJP,XP_AOSJM, & 00056 XP_HO2IP,XP_HO2IM,XP_HO2JP,XP_HO2JM,XP_SSO_SLOPE, & 00057 XP_SNOWSWE, XP_SNOWRHO, XP_SNOWHEAT, XP_SNOWEMIS, XP_SNOWALB, & 00058 XP_SNOWGRAN1, XP_SNOWGRAN2, XP_SNOWHIST, XP_SNOWAGE, & 00059 XP_ALBNIR_VEG, XP_ALBVIS_VEG, XP_ALBUV_VEG, & 00060 XP_ALBNIR_DRY, XP_ALBVIS_DRY, XP_ALBUV_DRY, & 00061 XP_ALBNIR_WET, XP_ALBVIS_WET, XP_ALBUV_WET, & 00062 XP_ALBNIR_SOIL, XP_ALBVIS_SOIL, XP_ALBUV_SOIL, & 00063 XP_CLAY, XP_SAND, XP_LAT, XP_LON, & 00064 XP_BIOMASS, XP_RESP_BIOMASS, & 00065 XP_LITTER, XP_SOILCARB, XP_LIGNIN_STRUC, & 00066 XP_CE_NITRO, XP_CF_NITRO, XP_CNA_NITRO, XP_BSLAI_NITRO, & 00067 TP_SEED,TP_REAP,XP_IRRIG,XP_WATSUP,XP_LIRRIDAY,XP_THRESHOLD, & 00068 XP_LIRRIGATE, XP_D_ICE,XP_KSAT_ICE,XP_MUF,XP_FSAT, & 00069 XP_FFLOOD, XP_Z0FLOOD, XP_PIFLOOD, XP_INCREASE, XP_TURNOVER, & 00070 XP_PSN, XP_PSNG, XP_PSNV, XP_PSNV_A, XP_FF, XP_FFG, XP_FFV, & 00071 XP_CPS, XP_LVTT, XP_LSTT, XP_DIR_ALB_WITH_SNOW, & 00072 XP_SCA_ALB_WITH_SNOW, XP_ALBF, XP_EMISF, XP_ICE_STO, XP_FFROZEN 00073 00074 USE MODD_AGRI, ONLY : LAGRIP 00075 USE MODD_AGRI_n, ONLY : LIRRIDAY 00076 00077 USE MODD_ISBA_n, ONLY : TSNOW, XWR, XTG, XWG, XWGI, XRESA, XLAI, XAN, XANFM, & 00078 XLE, XANDAY, CPHOTO, XALBNIR, XALBVIS, XALBUV, & 00079 XALBNIR_VEG, XALBVIS_VEG, XALBUV_VEG, LGLACIER, LTR_ML, & 00080 XZ0EFFIP, XZ0EFFIM, XZ0EFFJP, XZ0EFFJM, XLAI_EFFC, XMUS, & 00081 XVEG, XZ0, XEMIS, XALBNIR_SOIL, XALBVIS_SOIL, XALBUV_SOIL, & 00082 NPATCH, NNBIOMASS, NNLITTER, NNLITTLEVS, NNSOILCARB, & 00083 XBIOMASS, XRESP_BIOMASS, XINCREASE, XTURNOVER, XFAPARC, & 00084 CRESPSL, XLITTER, XSOILCARB, XLIGNIN_STRUC, XFAPIRC, & 00085 XCE_NITRO, XCF_NITRO, XCNA_NITRO, XBSLAI_NITRO, & 00086 LFLOOD, XZ0_FLOOD, XPCPS, XPLVTT, XPLSTT, XICE_STO 00087 ! 00088 USE MODD_SURF_PAR, ONLY : XUNDEF 00089 ! 00090 ! 00091 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK 00092 USE PARKIND1 ,ONLY : JPRB 00093 ! 00094 IMPLICIT NONE 00095 ! 00096 INTEGER, INTENT(IN) :: KSIZE, KPATCH 00097 ! 00098 INTEGER, DIMENSION(:), INTENT(IN) :: KMASK 00099 ! 00100 INTEGER JJ, JI, JK, JL 00101 REAL(KIND=JPRB) :: ZHOOK_HANDLE 00102 ! 00103 !------------------------------------------------------------------ 00104 ! 00105 IF (LHOOK) CALL DR_HOOK('UNPACK_ISBA_PATCH_N',0,ZHOOK_HANDLE) 00106 IF (NPATCH==1) THEN 00107 TSNOW%WSNOW (:, :, 1) = XP_SNOWSWE (:, :) 00108 TSNOW%RHO (:, :, 1) = XP_SNOWRHO (:, :) 00109 TSNOW%ALB (:, 1) = XP_SNOWALB (:) 00110 XWR (:, 1) = XP_WR (:) 00111 XTG (:, :, 1) = XP_TG (:, :) 00112 XWG (:, :, 1) = XP_WG (:, :) 00113 XWGI (:, :, 1) = XP_WGI (:, :) 00114 XRESA (:, 1) = XP_RESA (:) 00115 XPCPS (:, 1) = XP_CPS (:) 00116 XPLVTT (:, 1) = XP_LVTT (:) 00117 XPLSTT (:, 1) = XP_LSTT (:) 00118 XALBNIR (:, 1) = XP_ALBNIR (:) 00119 XALBVIS (:, 1) = XP_ALBVIS (:) 00120 XALBUV (:, 1) = XP_ALBUV (:) 00121 XALBNIR_VEG (:, 1) = XP_ALBNIR_VEG (:) 00122 XALBVIS_VEG (:, 1) = XP_ALBVIS_VEG (:) 00123 XALBUV_VEG (:, 1) = XP_ALBUV_VEG (:) 00124 XALBNIR_SOIL (:, 1) = XP_ALBNIR_SOIL(:) 00125 XALBVIS_SOIL (:, 1) = XP_ALBVIS_SOIL(:) 00126 XALBUV_SOIL (:, 1) = XP_ALBUV_SOIL (:) 00127 XEMIS (:, 1) = XP_EMIS (:) 00128 XLAI (:, 1) = XP_LAI (:) 00129 XVEG (:, 1) = XP_VEG (:) 00130 XZ0 (:, 1) = XP_Z0 (:) 00131 XZ0EFFIP (:, 1) = XP_Z0EFFIP (:) 00132 XZ0EFFIM (:, 1) = XP_Z0EFFIM (:) 00133 XZ0EFFJP (:, 1) = XP_Z0EFFJP (:) 00134 XZ0EFFJM (:, 1) = XP_Z0EFFJM (:) 00135 XLE (:, 1) = XP_LE (:) 00136 ! 00137 IF (LTR_ML) THEN 00138 XFAPARC (:, 1) = XP_FAPARC (:) 00139 XFAPIRC (:, 1) = XP_FAPIRC (:) 00140 XLAI_EFFC (:, 1) = XP_LAI_EFFC (:) 00141 XMUS (:, 1) = XP_MUS (:) 00142 ENDIF 00143 ! 00144 IF (CPHOTO/='NON') THEN 00145 XAN (:, 1) = XP_AN (:) 00146 XANDAY (:, 1) = XP_ANDAY (:) 00147 XANFM (:, 1) = XP_ANFM (:) 00148 XBIOMASS (:,:,1) = XP_BIOMASS (:,:) 00149 XRESP_BIOMASS (:,:,1) = XP_RESP_BIOMASS (:,:) 00150 END IF 00151 ! 00152 IF(CPHOTO=='NIT' .OR. CPHOTO=='NCB') THEN 00153 XBSLAI_NITRO (:,1) = XP_BSLAI_NITRO (:) 00154 END IF 00155 ! 00156 IF(CPHOTO=='NCB') THEN 00157 XINCREASE (:,:,1) = XP_INCREASE (:,:) 00158 END IF 00159 ! 00160 IF(CRESPSL=='CNT') THEN 00161 XLITTER (:,:,:,1) = XP_LITTER (:,:,:) 00162 XSOILCARB (:,:,1) = XP_SOILCARB (:,:) 00163 XLIGNIN_STRUC (:,:,1) = XP_LIGNIN_STRUC (:,:) 00164 XTURNOVER (:,:,1) = XP_TURNOVER (:,:) 00165 END IF 00166 ! 00167 IF(LAGRIP .AND. (CPHOTO=='NIT' .OR. CPHOTO=='LAI' .OR. CPHOTO=='LST' .OR. CPHOTO=='NCB') ) THEN 00168 LIRRIDAY (:,1) = XP_LIRRIDAY (:) 00169 END IF 00170 ! 00171 IF (TSNOW%SCHEME=='3-L' .OR. TSNOW%SCHEME=='CRO') THEN 00172 TSNOW%HEAT (:, :, 1) = XP_SNOWHEAT (:, :) 00173 TSNOW%EMIS (:, 1) = XP_SNOWEMIS (:) 00174 END IF 00175 00176 IF (TSNOW%SCHEME=='CRO') THEN 00177 TSNOW%GRAN1 (:, :, 1) = XP_SNOWGRAN1 (:, :) 00178 TSNOW%GRAN2 (:, :, 1) = XP_SNOWGRAN2 (:, :) 00179 TSNOW%HIST (:, :, 1) = XP_SNOWHIST (:, :) 00180 TSNOW%AGE (:, :, 1) = XP_SNOWAGE (:, :) 00181 END IF 00182 ! 00183 IF(LFLOOD)THEN 00184 XZ0_FLOOD (:,1) = XP_Z0FLOOD (:) 00185 END IF 00186 ! 00187 IF(LGLACIER)THEN 00188 XICE_STO (:,1) = XP_ICE_STO (:) 00189 ENDIF 00190 ! 00191 ELSE 00192 ! 00193 ! Only save values for patches which are in use: 00194 ! 00195 DO JJ=1,KSIZE 00196 JI = KMASK (JJ) 00197 TSNOW%ALB (JI, KPATCH) = XP_SNOWALB (JJ) 00198 XWR (JI, KPATCH) = XP_WR (JJ) 00199 XRESA (JI, KPATCH) = XP_RESA (JJ) 00200 XPCPS (JI, KPATCH) = XP_CPS (JJ) 00201 XPLVTT (JI, KPATCH) = XP_LVTT (JJ) 00202 XPLSTT (JI, KPATCH) = XP_LSTT (JJ) 00203 XALBNIR (JI, KPATCH) = XP_ALBNIR (JJ) 00204 XALBVIS (JI, KPATCH) = XP_ALBVIS (JJ) 00205 XALBUV (JI, KPATCH) = XP_ALBUV (JJ) 00206 XALBNIR_VEG (JI, KPATCH) = XP_ALBNIR_VEG (JJ) 00207 XALBVIS_VEG (JI, KPATCH) = XP_ALBVIS_VEG (JJ) 00208 XALBUV_VEG (JI, KPATCH) = XP_ALBUV_VEG (JJ) 00209 XALBNIR_SOIL (JI, KPATCH) = XP_ALBNIR_SOIL(JJ) 00210 XALBVIS_SOIL (JI, KPATCH) = XP_ALBVIS_SOIL(JJ) 00211 XALBUV_SOIL (JI, KPATCH) = XP_ALBUV_SOIL (JJ) 00212 XEMIS (JI, KPATCH) = XP_EMIS (JJ) 00213 XLAI (JI, KPATCH) = XP_LAI (JJ) 00214 XVEG (JI, KPATCH) = XP_VEG (JJ) 00215 XZ0 (JI, KPATCH) = XP_Z0 (JJ) 00216 XZ0EFFIP (JI, KPATCH) = XP_Z0EFFIP (JJ) 00217 XZ0EFFIM (JI, KPATCH) = XP_Z0EFFIM (JJ) 00218 XZ0EFFJP (JI, KPATCH) = XP_Z0EFFJP (JJ) 00219 XZ0EFFJM (JI, KPATCH) = XP_Z0EFFJM (JJ) 00220 XLE (JI, KPATCH) = XP_LE (JJ) 00221 ! 00222 END DO 00223 DO JK=1,SIZE(XTG,2) 00224 DO JJ=1,KSIZE 00225 JI = KMASK(JJ) 00226 XTG (JI, JK, KPATCH) = XP_TG (JJ, JK) 00227 ENDDO 00228 ENDDO 00229 ! 00230 DO JK=1,SIZE(XWG,2) 00231 DO JJ=1,KSIZE 00232 JI = KMASK(JJ) 00233 XWG (JI, JK, KPATCH) = XP_WG (JJ, JK) 00234 XWGI (JI, JK, KPATCH) = XP_WGI (JJ, JK) 00235 ENDDO 00236 ENDDO 00237 ! 00238 DO JK=1,SIZE(XP_SNOWSWE,2) 00239 DO JJ=1,KSIZE 00240 JI = KMASK(JJ) 00241 TSNOW%WSNOW (JI, JK, KPATCH) = XP_SNOWSWE (JJ, JK) 00242 TSNOW%RHO (JI, JK, KPATCH) = XP_SNOWRHO (JJ, JK) 00243 ENDDO 00244 ENDDO 00245 ! 00246 IF (LTR_ML) THEN 00247 DO JJ=1,KSIZE 00248 JI = KMASK(JJ) 00249 XFAPARC (JI, KPATCH) = XP_FAPARC (JJ) 00250 XFAPIRC (JI, KPATCH) = XP_FAPIRC (JJ) 00251 XLAI_EFFC (JI, KPATCH) = XP_LAI_EFFC (JJ) 00252 XMUS (JI, KPATCH) = XP_MUS (JJ) 00253 ENDDO 00254 ENDIF 00255 ! 00256 IF (CPHOTO/='NON') THEN 00257 DO JJ=1,KSIZE 00258 JI = KMASK (JJ) 00259 XAN (JI, KPATCH) = XP_AN (JJ) 00260 XANDAY (JI, KPATCH) = XP_ANDAY (JJ) 00261 XANFM (JI, KPATCH) = XP_ANFM (JJ) 00262 ENDDO 00263 DO JK=1,SIZE(XBIOMASS,2) 00264 DO JJ=1,KSIZE 00265 JI = KMASK (JJ) 00266 XBIOMASS (JI, JK, KPATCH) = XP_BIOMASS (JJ, JK) 00267 XRESP_BIOMASS (JI, JK, KPATCH) = XP_RESP_BIOMASS (JJ, JK) 00268 ENDDO 00269 END DO 00270 END IF 00271 ! 00272 IF (CPHOTO=='NIT' .OR. CPHOTO=='NCB') THEN 00273 DO JJ=1,KSIZE 00274 JI = KMASK (JJ) 00275 XBSLAI_NITRO (JI, KPATCH) = XP_BSLAI_NITRO (JJ) 00276 END DO 00277 END IF 00278 ! 00279 IF (CPHOTO=='NCB') THEN 00280 DO JK=1,SIZE(XINCREASE,2) 00281 DO JJ=1,KSIZE 00282 JI = KMASK (JJ) 00283 XINCREASE (JI, JK, KPATCH) = XP_INCREASE (JJ, JK) 00284 ENDDO 00285 END DO 00286 END IF 00287 ! 00288 IF (CRESPSL=='CNT') THEN 00289 DO JL=1,SIZE(XP_LITTER,3) 00290 DO JK=1,SIZE(XP_LITTER,2) 00291 DO JJ=1,KSIZE 00292 JI = KMASK (JJ) 00293 XLITTER (JI, JK, JL, KPATCH) = XP_LITTER (JJ, JK, JL) 00294 ENDDO 00295 ENDDO 00296 ENDDO 00297 DO JK=1,SIZE(XP_SOILCARB,2) 00298 DO JJ=1,KSIZE 00299 JI = KMASK (JJ) 00300 XSOILCARB (JI, JK, KPATCH) = XP_SOILCARB (JJ, JK) 00301 ENDDO 00302 ENDDO 00303 DO JK=1,SIZE(XP_LIGNIN_STRUC,2) 00304 DO JJ=1,KSIZE 00305 JI = KMASK (JJ) 00306 XLIGNIN_STRUC (JI, JK, KPATCH) = XP_LIGNIN_STRUC (JJ, JK) 00307 ENDDO 00308 ENDDO 00309 DO JK=1,SIZE(XP_TURNOVER,2) 00310 DO JJ=1,KSIZE 00311 JI = KMASK(JJ) 00312 XTURNOVER (JI, JK, KPATCH) = XP_TURNOVER (JJ, JK) 00313 ENDDO 00314 END DO 00315 END IF 00316 ! 00317 IF(LAGRIP .AND. (CPHOTO=='NIT' .OR. CPHOTO=='LAI' .OR. CPHOTO=='LST' .OR. CPHOTO=='NCB') ) THEN 00318 DO JJ=1,KSIZE 00319 JI = KMASK (JJ) 00320 LIRRIDAY (JI,KPATCH) = XP_LIRRIDAY (JJ) 00321 END DO 00322 END IF 00323 ! 00324 IF (TSNOW%SCHEME=='3-L' .OR. TSNOW%SCHEME=='CRO') THEN 00325 DO JK=1,SIZE(XP_SNOWHEAT,2) 00326 DO JJ=1,KSIZE 00327 JI = KMASK (JJ) 00328 TSNOW%HEAT (JI, JK, KPATCH) = XP_SNOWHEAT (JJ, JK) 00329 ENDDO 00330 ENDDO 00331 DO JJ=1,KSIZE 00332 JI = KMASK (JJ) 00333 TSNOW%EMIS (JI, KPATCH) = XP_SNOWEMIS (JJ) 00334 END DO 00335 END IF 00336 00337 IF (TSNOW%SCHEME=='CRO') THEN 00338 DO JK=1,SIZE(XP_SNOWGRAN1,2) 00339 DO JJ=1,KSIZE 00340 JI = KMASK (JJ) 00341 TSNOW%GRAN1 (JI, JK, KPATCH) = XP_SNOWGRAN1 (JJ, JK) 00342 TSNOW%GRAN2 (JI, JK, KPATCH) = XP_SNOWGRAN2 (JJ, JK) 00343 TSNOW%HIST (JI, JK, KPATCH) = XP_SNOWHIST (JJ, JK) 00344 TSNOW%AGE (JI, JK, KPATCH) = XP_SNOWAGE (JJ, JK) 00345 ENDDO 00346 END DO 00347 END IF 00348 ! 00349 IF(LFLOOD)THEN 00350 DO JJ=1,KSIZE 00351 JI = KMASK (JJ) 00352 XZ0_FLOOD(JI, KPATCH) = XP_Z0FLOOD(JJ) 00353 END DO 00354 END IF 00355 ! 00356 IF(LGLACIER)THEN 00357 DO JJ=1,KSIZE 00358 JI = KMASK (JJ) 00359 XICE_STO(JI, KPATCH) = XP_ICE_STO(JJ) 00360 ENDDO 00361 ENDIF 00362 ! 00363 END IF 00364 ! 00365 !------------------------------------------------------------------ 00366 ! 00367 XP_Z0_O_Z0H => NULL() 00368 XP_EMIS => NULL() 00369 XP_ALBNIR => NULL() 00370 XP_ALBVIS => NULL() 00371 XP_ALBUV => NULL() 00372 XP_ALBNIR_VEG => NULL() 00373 XP_ALBVIS_VEG => NULL() 00374 XP_ALBUV_VEG => NULL() 00375 XP_ALBNIR_SOIL => NULL() 00376 XP_ALBVIS_SOIL => NULL() 00377 XP_ALBUV_SOIL => NULL() 00378 XP_Z0 => NULL() 00379 XP_WRMAX_CF => NULL() 00380 XP_GAMMA => NULL() 00381 XP_CV => NULL() 00382 XP_RGL => NULL() 00383 XP_RUNOFFD => NULL() 00384 XP_Z0EFFIP => NULL() 00385 XP_Z0EFFIM => NULL() 00386 XP_Z0EFFJP => NULL() 00387 XP_Z0EFFJM => NULL() 00388 XP_WR => NULL() 00389 XP_LAI => NULL() 00390 XP_RESA => NULL() 00391 XP_CPS => NULL() 00392 XP_LVTT => NULL() 00393 XP_LSTT => NULL() 00394 XP_VEG => NULL() 00395 XP_SNOWALB => NULL() 00396 XP_LE => NULL() 00397 XP_PSN => NULL() 00398 XP_PSNG => NULL() 00399 XP_PSNV => NULL() 00400 XP_ALBNIR_DRY => NULL() 00401 XP_ALBVIS_DRY => NULL() 00402 XP_ALBUV_DRY => NULL() 00403 XP_ALBNIR_WET => NULL() 00404 XP_ALBVIS_WET => NULL() 00405 XP_ALBUV_WET => NULL() 00406 XP_RUNOFFB => NULL() 00407 XP_WDRAIN => NULL() 00408 XP_TAUICE => NULL() 00409 XP_Z0REL => NULL() 00410 XP_AOSIP => NULL() 00411 XP_AOSIM => NULL() 00412 XP_AOSJP => NULL() 00413 XP_AOSJM => NULL() 00414 XP_HO2IP => NULL() 00415 XP_HO2IM => NULL() 00416 XP_HO2JP => NULL() 00417 XP_HO2JM => NULL() 00418 XP_SSO_SLOPE => NULL() 00419 XP_GAMMAT => NULL() 00420 XP_TDEEP => NULL() 00421 ! 00422 XP_CLAY => NULL() 00423 XP_SAND => NULL() 00424 XP_WFC => NULL() 00425 XP_WWILT => NULL() 00426 XP_WSAT => NULL() 00427 XP_CONDSAT => NULL() 00428 XP_DG => NULL() 00429 XP_WG => NULL() 00430 XP_WGI => NULL() 00431 ! 00432 XP_KSAT_ICE => NULL() 00433 XP_D_ICE => NULL() 00434 ! 00435 XP_VEGTYPE_PATCH=> NULL() 00436 ! 00437 XP_TG => NULL() 00438 ! 00439 XP_SNOWSWE => NULL() 00440 XP_SNOWRHO => NULL() 00441 ! 00442 XP_DIR_ALB_WITH_SNOW=> NULL() 00443 XP_SCA_ALB_WITH_SNOW=> NULL() 00444 ! 00445 XP_FFLOOD => NULL() 00446 XP_PIFLOOD => NULL() 00447 XP_Z0FLOOD => NULL() 00448 XP_FF => NULL() 00449 XP_FFG => NULL() 00450 XP_FFV => NULL() 00451 XP_FFROZEN => NULL() 00452 XP_ALBF => NULL() 00453 XP_EMISF => NULL() 00454 ! 00455 XP_PSNV_A => NULL() 00456 ! 00457 XP_SNOWHEAT => NULL() 00458 XP_SNOWEMIS => NULL() 00459 ! 00460 XP_SNOWGRAN1 => NULL() 00461 XP_SNOWGRAN2 => NULL() 00462 XP_SNOWHIST => NULL() 00463 XP_SNOWAGE => NULL() 00464 ! 00465 XP_ICE_STO => NULL() 00466 ! 00467 XP_HCAPSOIL => NULL() 00468 ! 00469 XP_CONDDRY => NULL() 00470 XP_CONDSLD => NULL() 00471 ! 00472 XP_C4B => NULL() 00473 XP_ACOEF => NULL() 00474 XP_PCOEF => NULL() 00475 XP_CGSAT => NULL() 00476 XP_C1SAT => NULL() 00477 XP_C2REF => NULL() 00478 XP_C4REF => NULL() 00479 XP_C3 => NULL() 00480 ! 00481 XP_MPOTSAT => NULL() 00482 XP_BCOEF => NULL() 00483 ! 00484 XP_ROOTFRAC => NULL() 00485 XP_DZG => NULL() 00486 XP_DZDIF => NULL() 00487 NK_WG_LAYER => NULL() 00488 XP_SOILWGHT => NULL() 00489 ! 00490 XP_RSMIN => NULL() 00491 ! 00492 XP_BSLAI => NULL() 00493 XP_LAIMIN => NULL() 00494 XP_SEFOLD => NULL() 00495 XP_H_TREE => NULL() 00496 XP_ANF => NULL() 00497 XP_ANMAX => NULL() 00498 XP_FZERO => NULL() 00499 XP_EPSO => NULL() 00500 XP_GAMM => NULL() 00501 XP_QDGAMM => NULL() 00502 XP_GMES => NULL() 00503 XP_RE25 => NULL() 00504 XP_QDGMES => NULL() 00505 XP_T1GMES => NULL() 00506 XP_T2GMES => NULL() 00507 XP_AMAX => NULL() 00508 XP_QDAMAX => NULL() 00509 XP_T1AMAX => NULL() 00510 XP_T2AMAX => NULL() 00511 XP_FAPARC => NULL() 00512 XP_FAPIRC => NULL() 00513 XP_LAI_EFFC => NULL() 00514 XP_MUS => NULL() 00515 XP_AN => NULL() 00516 XP_ANDAY => NULL() 00517 XP_ANFM => NULL() 00518 XP_GC => NULL() 00519 XP_LAT => NULL() 00520 XP_LON => NULL() 00521 XP_BIOMASS => NULL() 00522 XP_RESP_BIOMASS => NULL() 00523 ! 00524 LP_STRESS => NULL() 00525 XP_F2I => NULL() 00526 XP_AH => NULL() 00527 XP_BH => NULL() 00528 XP_DMAX => NULL() 00529 ! 00530 TP_SEED => NULL() 00531 TP_REAP => NULL() 00532 XP_IRRIG => NULL() 00533 XP_WATSUP => NULL() 00534 ! 00535 XP_LIRRIDAY => NULL() 00536 XP_THRESHOLD => NULL() 00537 XP_LIRRIGATE => NULL() 00538 ! 00539 XP_CE_NITRO => NULL() 00540 XP_CF_NITRO => NULL() 00541 XP_CNA_NITRO => NULL() 00542 XP_BSLAI_NITRO => NULL() 00543 ! 00544 XP_INCREASE => NULL() 00545 XP_TAU_WOOD => NULL() 00546 ! 00547 XP_LITTER => NULL() 00548 XP_SOILCARB => NULL() 00549 XP_LIGNIN_STRUC => NULL() 00550 XP_TURNOVER => NULL() 00551 ! 00552 XP_FSAT=> NULL() 00553 ! 00554 XP_MUF=> NULL() 00555 ! 00556 ! 00557 DEALLOCATE(LBLOCK_SIMPLE) 00558 DEALLOCATE(LBLOCK_0) 00559 DEALLOCATE(NBLOCK_SIMPLE) 00560 DEALLOCATE(NBLOCK_0) 00561 DEALLOCATE(TBLOCK_SIMPLE) 00562 DEALLOCATE(TBLOCK_0) 00563 DEALLOCATE(XBLOCK_SIMPLE) 00564 DEALLOCATE(XBLOCK_GROUND) 00565 DEALLOCATE(XBLOCK_VEGTYPE) 00566 DEALLOCATE(XBLOCK_TG) 00567 DEALLOCATE(XBLOCK_SNOW) 00568 DEALLOCATE(XBLOCK_ALB) 00569 DEALLOCATE(XBLOCK_2) 00570 DEALLOCATE(XBLOCK_BIOMASS) 00571 DEALLOCATE(XBLOCK_SOILCARB) 00572 DEALLOCATE(XBLOCK_LITTLEVS) 00573 DEALLOCATE(XBLOCK_LITTER) 00574 DEALLOCATE(XBLOCK_0) 00575 DEALLOCATE(XBLOCK_00) 00576 DEALLOCATE(XBLOCK_000) 00577 DEALLOCATE(XBLOCK_01) 00578 ! 00579 IF (LHOOK) CALL DR_HOOK('UNPACK_ISBA_PATCH_N',1,ZHOOK_HANDLE) 00580 !------------------------------------------------------------------ 00581 ! 00582 END SUBROUTINE UNPACK_ISBA_PATCH_n
1.8.0
