|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 ! ################################################################################# 00002 SUBROUTINE DEALLOC_ISBA_n 00003 ! ################################################################################# 00004 ! 00005 !!**** *DEALLOC_ISBA_n * - Deallocate all arrays 00006 !! 00007 !! PURPOSE 00008 !! ------- 00009 ! 00010 !!** METHOD 00011 !! ------ 00012 !! 00013 !! REFERENCE 00014 !! --------- 00015 !! 00016 !! 00017 !! AUTHOR 00018 !! ------ 00019 !! V. Masson 00020 !! 00021 !! MODIFICATIONS 00022 !! ------------- 00023 !! Original 01/2004 00024 !!------------------------------------------------------------------ 00025 ! 00026 00027 ! 00028 USE MODD_ISBA_n, ONLY : LCOVER, XCOVER, XZS, XZ0EFFJPDIR, XCLAY, XSAND, & 00029 XSOC, XRUNOFFB, & 00030 XAOSIP, XAOSIM, XAOSJP, XAOSJM, & 00031 XHO2IP, XHO2IM, XHO2JP, XHO2JM, & 00032 XZ0EFFIP, XZ0EFFIM, XZ0EFFJP, XZ0EFFJM, & 00033 XZ0REL, XSSO_SLOPE, & 00034 XWWILT, XWFC, XWSAT, & 00035 XVEG, XLAI, XRSMIN, XGAMMA, XRGL, XCV, & 00036 XDG, NWG_LAYER, XDROOT, XDG2, XDZG, XDZDIF, & 00037 XZ0, XZ0_O_Z0H, & 00038 XALBNIR_VEG, XALBVIS_VEG, XALBUV_VEG, & 00039 XEMIS, XVEGTYPE, XGMES, XRE25, XBSLAI, XLAIMIN, XGC,& 00040 XDMAX, LSTRESS, XF2I, & 00041 XSEFOLD, XH_TREE, XPATCH, NPATCH, XWRMAX_CF, & 00042 NR_NATURE_P, NSIZE_NATURE_P,NPATCH, & 00043 XALBNIR_DRY, XALBVIS_DRY, XALBUV_DRY, & 00044 XALBNIR_WET, XALBVIS_WET, XALBUV_WET, & 00045 XALBNIR_SOIL, XALBVIS_SOIL, XALBUV_SOIL, & 00046 XWG, XTG, TSNOW, XALBNIR, XALBVIS, XALBUV, & 00047 XEMIS_NAT, XTSRAD_NAT, & 00048 XVEGTYPE_PATCH,XROOTFRAC,XRUNOFFD,XSOILWGHT, & 00049 XCGSAT, XC1SAT, XC2REF, XC3, XC4B, XACOEF, XPCOEF, & 00050 XTAUICE, XACOEF, XBCOEF, XCONDSAT, & 00051 XHCAPSOIL, XCONDDRY, XCONDSLD, XC4REF, XMPOTSAT, & 00052 XTDEEP, XGAMMAT, XWDRAIN, & 00053 XCE_NITRO, XCF_NITRO, XCNA_NITRO, XBSLAI_NITRO, & 00054 XTI_MIN,XTI_MAX,XTI_MEAN,XTI_STD,XTI_SKEW,XTAB_FSAT,& 00055 XTAB_WTOP,XD_ICE,XKSAT_ICE,XMUF,XFSAT, & 00056 XFFLOOD, XPIFLOOD, XZ0_FLOOD, & 00057 XPSNG,XPSNV,XPSNV_A,XPSN,XDIR_ALB_WITH_SNOW, & 00058 XSCA_ALB_WITH_SNOW,XFFG,XFFV,XFF,XALBF,XEMISF, & 00059 XCPL_EFLOOD,XCPL_PFLOOD,XCPL_IFLOOD,XCPL_DRAIN, & 00060 XCPL_RUNOFF, XCPL_ICEFLUX, XICE_STO, XFFROZEN, & 00061 XDG_OLD,XPATCH_OLD,XABC,XPOI,XFRACSOC 00062 00063 USE MODD_DATA_ISBA_n, ONLY : XPAR_VEGTYPE, XPAR_LAI, XPAR_H_TREE, XPAR_DG, & 00064 XPAR_ROOTFRAC, XPAR_VEG, XPAR_Z0, XPAR_EMIS, XPAR_DICE, & 00065 XPAR_RSMIN, XPAR_GAMMA, XPAR_WRMAX_CF, XPAR_RGL, & 00066 XPAR_CV, XPAR_Z0_O_Z0H, & 00067 XPAR_ALBNIR_VEG, XPAR_ALBVIS_VEG, XPAR_ALBUV_VEG, & 00068 XPAR_ALBNIR_SOIL, XPAR_ALBVIS_SOIL, XPAR_ALBUV_SOIL, & 00069 XPAR_GMES, XPAR_BSLAI, XPAR_SEFOLD, XPAR_GC, XPAR_DMAX, & 00070 XPAR_RE25, XPAR_LAIMIN, XPAR_F2I, & 00071 XPAR_CE_NITRO,XPAR_CF_NITRO,XPAR_CNA_NITRO, & 00072 LPAR_STRESS, XPAR_IRRIG, XPAR_WATSUP 00073 ! 00074 USE MODD_ISBA_GRID_n, ONLY : XGRID_PAR, XLAT, XLON, XMESH_SIZE 00075 USE MODD_GR_BIOG_n, ONLY : XISOPOT, XMONOPOT 00076 USE MODD_CH_ISBA_n, ONLY : XDEP, CCH_NAMES, CSV 00077 ! 00078 ! 00079 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK 00080 USE PARKIND1 ,ONLY : JPRB 00081 ! 00082 IMPLICIT NONE 00083 ! 00084 !* 0.1 declarations of arguments 00085 ! 00086 ! 00087 !* 0.2 declarations of local variables 00088 ! 00089 !------------------------------------------------------------------------------------- 00090 ! 00091 00092 REAL(KIND=JPRB) :: ZHOOK_HANDLE 00093 00094 IF (LHOOK) CALL DR_HOOK('DEALLOC_ISBA_N',0,ZHOOK_HANDLE) 00095 IF (ASSOCIATED(LCOVER )) DEALLOCATE(LCOVER ) 00096 IF (ASSOCIATED(XCOVER )) DEALLOCATE(XCOVER ) 00097 IF (ASSOCIATED(XZS )) DEALLOCATE(XZS ) 00098 IF (ASSOCIATED(XZ0EFFJPDIR)) DEALLOCATE(XZ0EFFJPDIR) 00099 IF (ASSOCIATED(XCLAY )) DEALLOCATE(XCLAY ) 00100 IF (ASSOCIATED(XSAND )) DEALLOCATE(XSAND ) 00101 IF (ASSOCIATED(XSOC )) DEALLOCATE(XSOC ) 00102 IF (ASSOCIATED(XRUNOFFB )) DEALLOCATE(XRUNOFFB) 00103 ! 00104 IF (ASSOCIATED(XAOSIP)) DEALLOCATE( XAOSIP) 00105 IF (ASSOCIATED(XAOSIM)) DEALLOCATE( XAOSIM) 00106 IF (ASSOCIATED(XAOSJP)) DEALLOCATE( XAOSJP) 00107 IF (ASSOCIATED(XAOSJM)) DEALLOCATE( XAOSJM) 00108 IF (ASSOCIATED(XHO2IP)) DEALLOCATE( XHO2IP) 00109 IF (ASSOCIATED(XHO2IM)) DEALLOCATE( XHO2IM) 00110 IF (ASSOCIATED(XHO2JP)) DEALLOCATE( XHO2JP) 00111 IF (ASSOCIATED(XHO2JM)) DEALLOCATE( XHO2JM) 00112 IF (ASSOCIATED(XZ0EFFIP)) DEALLOCATE( XZ0EFFIP) 00113 IF (ASSOCIATED(XZ0EFFIM)) DEALLOCATE( XZ0EFFIM) 00114 IF (ASSOCIATED(XZ0EFFJP)) DEALLOCATE( XZ0EFFJP) 00115 IF (ASSOCIATED(XZ0EFFJM)) DEALLOCATE( XZ0EFFJM) 00116 IF (ASSOCIATED(XZ0REL)) DEALLOCATE( XZ0REL) 00117 IF (ASSOCIATED(XSSO_SLOPE)) DEALLOCATE( XSSO_SLOPE) 00118 ! 00119 !------------------------------------------------------------------------------------- 00120 ! 00121 IF (ASSOCIATED(XGRID_PAR )) DEALLOCATE(XGRID_PAR ) 00122 IF (ASSOCIATED(XLAT )) DEALLOCATE(XLAT ) 00123 IF (ASSOCIATED(XLON )) DEALLOCATE(XLON ) 00124 IF (ASSOCIATED(XMESH_SIZE)) DEALLOCATE(XMESH_SIZE) 00125 ! 00126 !------------------------------------------------------------------------------------- 00127 ! 00128 IF (ASSOCIATED(XMONOPOT)) DEALLOCATE(XMONOPOT) 00129 IF (ASSOCIATED(XISOPOT)) DEALLOCATE(XISOPOT) 00130 ! 00131 !------------------------------------------------------------------------------------- 00132 ! 00133 IF (ASSOCIATED(XLAI )) DEALLOCATE(XLAI ) 00134 IF (ASSOCIATED(XVEG )) DEALLOCATE(XVEG ) 00135 IF (ASSOCIATED(XRSMIN )) DEALLOCATE(XRSMIN ) 00136 IF (ASSOCIATED(XGAMMA )) DEALLOCATE(XGAMMA ) 00137 IF (ASSOCIATED(XWRMAX_CF )) DEALLOCATE(XWRMAX_CF ) 00138 IF (ASSOCIATED(XRGL )) DEALLOCATE(XRGL ) 00139 IF (ASSOCIATED(XCV )) DEALLOCATE(XCV ) 00140 IF (ASSOCIATED(XDG )) DEALLOCATE(XDG ) 00141 IF (ASSOCIATED(XDZG )) DEALLOCATE(XDZG ) 00142 IF (ASSOCIATED(XDZDIF )) DEALLOCATE(XDZDIF ) 00143 IF (ASSOCIATED(XDG_OLD )) DEALLOCATE(XDG_OLD ) 00144 IF (ASSOCIATED(NWG_LAYER )) DEALLOCATE(NWG_LAYER ) 00145 IF (ASSOCIATED(XDROOT )) DEALLOCATE(XDROOT ) 00146 IF (ASSOCIATED(XDG2 )) DEALLOCATE(XDG2 ) 00147 IF (ASSOCIATED(XROOTFRAC )) DEALLOCATE(XROOTFRAC ) 00148 IF (ASSOCIATED(XZ0 )) DEALLOCATE(XZ0 ) 00149 IF (ASSOCIATED(XZ0_O_Z0H )) DEALLOCATE(XZ0_O_Z0H ) 00150 IF (ASSOCIATED(XALBNIR_VEG)) DEALLOCATE(XALBNIR_VEG) 00151 IF (ASSOCIATED(XALBVIS_VEG)) DEALLOCATE(XALBVIS_VEG) 00152 IF (ASSOCIATED(XALBUV_VEG )) DEALLOCATE(XALBUV_VEG ) 00153 IF (ASSOCIATED(XEMIS )) DEALLOCATE(XEMIS ) 00154 IF (ASSOCIATED(XVEGTYPE )) DEALLOCATE(XVEGTYPE ) 00155 IF (ASSOCIATED(XGMES )) DEALLOCATE(XGMES ) 00156 IF (ASSOCIATED(XRE25 )) DEALLOCATE(XRE25 ) 00157 IF (ASSOCIATED(XBSLAI )) DEALLOCATE(XBSLAI ) 00158 IF (ASSOCIATED(XLAIMIN )) DEALLOCATE(XLAIMIN ) 00159 IF (ASSOCIATED(XSEFOLD )) DEALLOCATE(XSEFOLD ) 00160 IF (ASSOCIATED(XGC )) DEALLOCATE(XGC ) 00161 IF (ASSOCIATED(XDMAX )) DEALLOCATE(XDMAX ) 00162 IF (ASSOCIATED(XF2I )) DEALLOCATE(XF2I ) 00163 IF (ASSOCIATED(LSTRESS )) DEALLOCATE(LSTRESS ) 00164 IF (ASSOCIATED(XH_TREE )) DEALLOCATE(XH_TREE ) 00165 IF (ASSOCIATED(XCE_NITRO )) DEALLOCATE(XCE_NITRO ) 00166 IF (ASSOCIATED(XCF_NITRO )) DEALLOCATE(XCF_NITRO ) 00167 IF (ASSOCIATED(XCNA_NITRO )) DEALLOCATE(XCNA_NITRO ) 00168 IF (ASSOCIATED(XBSLAI_NITRO)) DEALLOCATE(XBSLAI_NITRO) 00169 IF (ASSOCIATED(XPATCH )) DEALLOCATE(XPATCH ) 00170 IF (ASSOCIATED(XVEGTYPE_PATCH)) DEALLOCATE(XVEGTYPE_PATCH) 00171 IF (ASSOCIATED(XPATCH_OLD )) DEALLOCATE(XPATCH_OLD ) 00172 IF (ASSOCIATED(NSIZE_NATURE_P)) DEALLOCATE(NSIZE_NATURE_P) 00173 IF (ASSOCIATED(NR_NATURE_P)) DEALLOCATE(NR_NATURE_P) 00174 IF (ASSOCIATED(XWDRAIN)) DEALLOCATE(XWDRAIN) 00175 IF (ASSOCIATED(XTDEEP )) DEALLOCATE(XTDEEP ) 00176 IF (ASSOCIATED(XGAMMAT)) DEALLOCATE(XGAMMAT) 00177 IF (ASSOCIATED(XWWILT)) DEALLOCATE(XWWILT) 00178 IF (ASSOCIATED(XWFC )) DEALLOCATE(XWFC ) 00179 IF (ASSOCIATED(XWSAT )) DEALLOCATE(XWSAT ) 00180 IF (ASSOCIATED(XTAUICE)) DEALLOCATE(XTAUICE) 00181 IF (ASSOCIATED(XBCOEF)) DEALLOCATE(XBCOEF) 00182 IF (ASSOCIATED(XRUNOFFD)) DEALLOCATE(XRUNOFFD) 00183 IF (ASSOCIATED(XSOILWGHT)) DEALLOCATE(XSOILWGHT) 00184 IF (ASSOCIATED(XHCAPSOIL)) DEALLOCATE(XHCAPSOIL) 00185 IF (ASSOCIATED(XCONDDRY )) DEALLOCATE(XCONDDRY ) 00186 IF (ASSOCIATED(XCONDSLD )) DEALLOCATE(XCONDSLD ) 00187 IF (ASSOCIATED(XCGSAT )) DEALLOCATE(XCGSAT ) 00188 IF (ASSOCIATED(XC1SAT)) DEALLOCATE(XC1SAT) 00189 IF (ASSOCIATED(XC2REF)) DEALLOCATE(XC2REF) 00190 IF (ASSOCIATED(XC3 )) DEALLOCATE(XC3 ) 00191 IF (ASSOCIATED(XC4B )) DEALLOCATE(XC4B ) 00192 IF (ASSOCIATED(XACOEF)) DEALLOCATE(XACOEF) 00193 IF (ASSOCIATED(XPCOEF)) DEALLOCATE(XPCOEF) 00194 IF (ASSOCIATED(XC4REF)) DEALLOCATE(XC4REF) 00195 IF (ASSOCIATED(XCONDSAT)) DEALLOCATE(XCONDSAT) 00196 IF (ASSOCIATED(XMPOTSAT)) DEALLOCATE(XMPOTSAT) 00197 IF (ASSOCIATED(XALBNIR_DRY)) DEALLOCATE(XALBNIR_DRY) 00198 IF (ASSOCIATED(XALBVIS_DRY)) DEALLOCATE(XALBVIS_DRY) 00199 IF (ASSOCIATED(XALBUV_DRY )) DEALLOCATE(XALBUV_DRY ) 00200 IF (ASSOCIATED(XALBNIR_WET)) DEALLOCATE(XALBNIR_WET) 00201 IF (ASSOCIATED(XALBVIS_WET)) DEALLOCATE(XALBVIS_WET) 00202 IF (ASSOCIATED(XALBUV_WET )) DEALLOCATE(XALBUV_WET ) 00203 IF (ASSOCIATED(XABC)) DEALLOCATE(XABC) 00204 IF (ASSOCIATED(XPOI)) DEALLOCATE(XPOI) 00205 ! 00206 !------------------------------------------------------------------------------------- 00207 ! 00208 IF(ASSOCIATED(XDEP)) DEALLOCATE(XDEP) 00209 IF(ASSOCIATED(CCH_NAMES)) DEALLOCATE(CCH_NAMES) 00210 IF(ASSOCIATED(CSV)) DEALLOCATE(CSV) 00211 ! 00212 !------------------------------------------------------------------------------------- 00213 ! 00214 IF(ASSOCIATED(XTI_MIN)) DEALLOCATE(XTI_MIN) 00215 IF(ASSOCIATED(XTI_MAX)) DEALLOCATE(XTI_MAX) 00216 IF(ASSOCIATED(XTI_MEAN)) DEALLOCATE(XTI_MEAN) 00217 IF(ASSOCIATED(XTI_STD)) DEALLOCATE(XTI_STD) 00218 IF(ASSOCIATED(XTI_SKEW)) DEALLOCATE(XTI_SKEW) 00219 IF(ASSOCIATED(XTAB_FSAT)) DEALLOCATE(XTAB_FSAT) 00220 IF(ASSOCIATED(XTAB_WTOP)) DEALLOCATE(XTAB_WTOP) 00221 IF(ASSOCIATED(XMUF)) DEALLOCATE(XMUF) 00222 IF(ASSOCIATED(XFSAT)) DEALLOCATE(XFSAT) 00223 IF(ASSOCIATED(XD_ICE)) DEALLOCATE(XD_ICE) 00224 IF(ASSOCIATED(XKSAT_ICE)) DEALLOCATE(XKSAT_ICE) 00225 IF(ASSOCIATED(XFRACSOC)) DEALLOCATE(XFRACSOC) 00226 ! 00227 IF(ASSOCIATED(XFFLOOD)) DEALLOCATE(XFFLOOD) 00228 IF(ASSOCIATED(XPIFLOOD)) DEALLOCATE(XPIFLOOD) 00229 IF(ASSOCIATED(XZ0_FLOOD)) DEALLOCATE(XZ0_FLOOD) 00230 ! 00231 IF(ASSOCIATED(XPSNG)) DEALLOCATE(XPSNG) 00232 IF(ASSOCIATED(XPSNV)) DEALLOCATE(XPSNV) 00233 IF(ASSOCIATED(XPSNV_A)) DEALLOCATE(XPSNV_A) 00234 IF(ASSOCIATED(XPSN)) DEALLOCATE(XPSN) 00235 IF(ASSOCIATED(XDIR_ALB_WITH_SNOW)) DEALLOCATE(XDIR_ALB_WITH_SNOW) 00236 IF(ASSOCIATED(XSCA_ALB_WITH_SNOW)) DEALLOCATE(XSCA_ALB_WITH_SNOW) 00237 IF(ASSOCIATED(XFFG)) DEALLOCATE(XFFG) 00238 IF(ASSOCIATED(XFFV)) DEALLOCATE(XFFV) 00239 IF(ASSOCIATED(XFF)) DEALLOCATE(XFF) 00240 IF(ASSOCIATED(XFFROZEN)) DEALLOCATE(XFFROZEN) 00241 IF(ASSOCIATED(XALBF)) DEALLOCATE(XALBF) 00242 IF(ASSOCIATED(XEMISF)) DEALLOCATE(XEMISF) 00243 !------------------------------------------------------------------------------------- 00244 IF(ASSOCIATED(XCPL_EFLOOD)) DEALLOCATE(XCPL_EFLOOD) 00245 IF(ASSOCIATED(XCPL_PFLOOD)) DEALLOCATE(XCPL_PFLOOD) 00246 IF(ASSOCIATED(XCPL_IFLOOD)) DEALLOCATE(XCPL_IFLOOD) 00247 IF(ASSOCIATED(XCPL_DRAIN)) DEALLOCATE(XCPL_DRAIN) 00248 IF(ASSOCIATED(XCPL_RUNOFF)) DEALLOCATE(XCPL_RUNOFF) 00249 !------------------------------------------------------------------------------------- 00250 IF(ASSOCIATED(XICE_STO)) DEALLOCATE(XICE_STO) 00251 IF(ASSOCIATED(XCPL_ICEFLUX)) DEALLOCATE(XCPL_ICEFLUX) 00252 !------------------------------------------------------------------------------------- 00253 IF(ASSOCIATED(XPAR_VEGTYPE )) DEALLOCATE(XPAR_VEGTYPE ) 00254 IF(ASSOCIATED(XPAR_LAI )) DEALLOCATE(XPAR_LAI ) 00255 IF(ASSOCIATED(XPAR_H_TREE )) DEALLOCATE(XPAR_H_TREE ) 00256 IF(ASSOCIATED(XPAR_DG )) DEALLOCATE(XPAR_DG ) 00257 IF(ASSOCIATED(XPAR_ROOTFRAC )) DEALLOCATE(XPAR_ROOTFRAC ) 00258 IF(ASSOCIATED(XPAR_VEG )) DEALLOCATE(XPAR_VEG ) 00259 IF(ASSOCIATED(XPAR_Z0 )) DEALLOCATE(XPAR_Z0 ) 00260 IF(ASSOCIATED(XPAR_EMIS )) DEALLOCATE(XPAR_EMIS ) 00261 IF(ASSOCIATED(XPAR_DICE )) DEALLOCATE(XPAR_DICE ) 00262 IF(ASSOCIATED(XPAR_RSMIN )) DEALLOCATE(XPAR_RSMIN ) 00263 IF(ASSOCIATED(XPAR_GAMMA )) DEALLOCATE(XPAR_GAMMA ) 00264 IF(ASSOCIATED(XPAR_WRMAX_CF )) DEALLOCATE(XPAR_WRMAX_CF ) 00265 IF(ASSOCIATED(XPAR_RGL )) DEALLOCATE(XPAR_RGL ) 00266 IF(ASSOCIATED(XPAR_CV )) DEALLOCATE(XPAR_CV ) 00267 IF(ASSOCIATED(XPAR_Z0_O_Z0H )) DEALLOCATE(XPAR_Z0_O_Z0H ) 00268 IF(ASSOCIATED(XPAR_ALBNIR_VEG )) DEALLOCATE(XPAR_ALBNIR_VEG ) 00269 IF(ASSOCIATED(XPAR_ALBVIS_VEG )) DEALLOCATE(XPAR_ALBVIS_VEG ) 00270 IF(ASSOCIATED(XPAR_ALBUV_VEG )) DEALLOCATE(XPAR_ALBUV_VEG ) 00271 IF(ASSOCIATED(XPAR_ALBNIR_SOIL)) DEALLOCATE(XPAR_ALBNIR_SOIL) 00272 IF(ASSOCIATED(XPAR_ALBVIS_SOIL)) DEALLOCATE(XPAR_ALBVIS_SOIL) 00273 IF(ASSOCIATED(XPAR_ALBUV_SOIL )) DEALLOCATE(XPAR_ALBUV_SOIL ) 00274 IF(ASSOCIATED(XPAR_GMES )) DEALLOCATE(XPAR_GMES ) 00275 IF(ASSOCIATED(XPAR_BSLAI )) DEALLOCATE(XPAR_BSLAI ) 00276 IF(ASSOCIATED(XPAR_SEFOLD )) DEALLOCATE(XPAR_SEFOLD ) 00277 IF(ASSOCIATED(XPAR_GC )) DEALLOCATE(XPAR_GC ) 00278 IF(ASSOCIATED(XPAR_DMAX )) DEALLOCATE(XPAR_DMAX ) 00279 IF(ASSOCIATED(XPAR_RE25 )) DEALLOCATE(XPAR_RE25 ) 00280 IF(ASSOCIATED(XPAR_LAIMIN )) DEALLOCATE(XPAR_LAIMIN ) 00281 IF(ASSOCIATED(XPAR_F2I )) DEALLOCATE(XPAR_F2I ) 00282 IF(ASSOCIATED(XPAR_CE_NITRO )) DEALLOCATE(XPAR_CE_NITRO ) 00283 IF(ASSOCIATED(XPAR_CF_NITRO )) DEALLOCATE(XPAR_CF_NITRO ) 00284 IF(ASSOCIATED(XPAR_CNA_NITRO )) DEALLOCATE(XPAR_CNA_NITRO ) 00285 IF(ASSOCIATED(LPAR_STRESS )) DEALLOCATE(LPAR_STRESS ) 00286 IF(ASSOCIATED(XPAR_IRRIG )) DEALLOCATE(XPAR_IRRIG ) 00287 IF(ASSOCIATED(XPAR_WATSUP )) DEALLOCATE(XPAR_WATSUP ) 00288 !------------------------------------------------------------------------------------- 00289 IF (LHOOK) CALL DR_HOOK('DEALLOC_ISBA_N',1,ZHOOK_HANDLE) 00290 !------------------------------------------------------------------------------------- 00291 ! 00292 END SUBROUTINE DEALLOC_ISBA_n
1.8.0
