|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 ! ################################################################################# 00002 SUBROUTINE DEALLOC_TEB_n 00003 ! ################################################################################# 00004 ! 00005 !!**** *DEALLOC_TEB_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 !! G. Pigeon 09/2012: deallocate ROUGH_WALL/ROUGH_ROOF 00025 !! G. Pigeon 10/2012: deallocate BEM variables 00026 !!------------------------------------------------------------------ 00027 ! 00028 00029 ! 00030 USE MODD_TEB_n, ONLY : LCOVER, XCOVER, XZS, & 00031 XH_TRAFFIC, XLE_TRAFFIC, XH_INDUSTRY, XLE_INDUSTRY, & 00032 XZ0_TOWN, XBLD, XGARDEN, XROAD_DIR, XGREENROOF, & 00033 XBLD_HEIGHT, XWALL_O_HOR, XCAN_HW_RATIO, & 00034 XROAD_O_GRND, XGARDEN_O_GRND, XWALL_O_GRND, & 00035 XALB_ROOF, XEMIS_ROOF, XHC_ROOF,XTC_ROOF, XD_ROOF, & 00036 XALB_ROAD, XEMIS_ROAD, XHC_ROAD,XTC_ROAD, XD_ROAD, & 00037 XALB_WALL, XEMIS_WALL, XHC_WALL,XTC_WALL, XD_WALL, & 00038 XSVF_ROAD, XSVF_WALL, TSNOW_ROOF, TSNOW_ROAD, & 00039 NROOF_LAYER, NROAD_LAYER, NWALL_LAYER, & 00040 XT_ROOF, XT_ROAD, XT_WALL_A, XT_WALL_B, & 00041 XAC_ROOF, XAC_ROAD, XAC_WALL, XAC_TOP, & 00042 XAC_ROOF_WAT, XAC_ROAD_WAT, & 00043 XQSAT_ROOF, XQSAT_ROAD, XDELT_ROOF, XDELT_ROAD, & 00044 XROUGH_ROOF, XROUGH_WALL 00045 USE MODD_TEB_GRID_n, ONLY : XGRID_PAR, XLAT, XLON, XMESH_SIZE 00046 USE MODD_CH_TEB_n, ONLY : XDEP, CCH_NAMES, CSV 00047 ! 00048 USE MODD_DATA_TEB_n, ONLY : XPAR_Z0_TOWN, XPAR_BLD, XPAR_ALB_ROOF, & 00049 XPAR_EMIS_ROOF, XPAR_HC_ROOF, XPAR_TC_ROOF, & 00050 XPAR_D_ROOF, XPAR_ALB_ROAD, XPAR_EMIS_ROAD, & 00051 XPAR_HC_ROAD, XPAR_TC_ROAD, XPAR_D_ROAD, & 00052 XPAR_ALB_WALL, XPAR_EMIS_WALL, XPAR_HC_WALL, & 00053 XPAR_TC_WALL, XPAR_D_WALL, XPAR_BLD_HEIGHT, & 00054 XPAR_WALL_O_HOR, & 00055 XPAR_H_TRAFFIC, XPAR_LE_TRAFFIC, & 00056 XPAR_H_INDUSTRY, XPAR_LE_INDUSTRY , & 00057 XPAR_GARDEN, NPAR_BLDTYPE, & 00058 XPAR_ROAD_DIR, NPAR_USETYPE, NPAR_BLD_AGE, & 00059 NPAR_BLDCODE, & 00060 XPAR_ROUGH_ROOF, XPAR_ROUGH_WALL 00061 ! 00062 USE MODD_BEM_n, ONLY : XHC_FLOOR, XTC_FLOOR, XD_FLOOR, XTCOOL_TARGET, & 00063 XTHEAT_TARGET, XF_WASTE_CAN, XEFF_HEAT, XTI_BLD, & 00064 XT_FLOOR, XT_MASS, XQIN, XQIN_FRAD, XSHGC, XSHGC_SH, & 00065 XU_WIN, XGR, XINF, CCOOL_COIL, CHEAT_COIL, & 00066 XF_WATER_COND, XAUX_MAX, XQIN_FLAT, & 00067 XHR_TARGET, XT_WIN2, XQI_BLD, XV_VENT, XCAP_SYS_HEAT, & 00068 XCAP_SYS_RAT, XT_ADP, XM_SYS_RAT, XCOP_RAT, XT_WIN1, & 00069 XALB_WIN, XABS_WIN, XT_SIZE_MAX, XT_SIZE_MIN, XUGG_WIN, & 00070 LSHADE, CNATVENT, LSHAD_DAY, LNATVENT_NIGHT, & 00071 XN_FLOOR, XGLAZ_O_BLD, XMASS_O_BLD, XFLOOR_HW_RATIO, & 00072 XF_FLOOR_MASS, XF_FLOOR_WALL, XF_FLOOR_WIN, & 00073 XF_FLOOR_ROOF, XF_WALL_FLOOR, XF_WALL_MASS, & 00074 XF_WALL_WIN, XF_WIN_FLOOR, XF_WIN_MASS, XF_WIN_WALL, & 00075 XF_MASS_FLOOR, XF_MASS_WALL, XF_MASS_WIN, & 00076 XTRAN_WIN, XFLOOR_HEIGHT 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_TEB_N',0,ZHOOK_HANDLE) 00095 IF (ASSOCIATED(LCOVER )) DEALLOCATE(LCOVER ) 00096 IF (ASSOCIATED(XCOVER )) DEALLOCATE(XCOVER ) 00097 IF (ASSOCIATED(XZS )) DEALLOCATE(XZS ) 00098 ! 00099 !------------------------------------------------------------------------------------- 00100 ! 00101 IF (ASSOCIATED(XGRID_PAR )) DEALLOCATE(XGRID_PAR ) 00102 IF (ASSOCIATED(XLAT )) DEALLOCATE(XLAT ) 00103 IF (ASSOCIATED(XLON )) DEALLOCATE(XLON ) 00104 IF (ASSOCIATED(XMESH_SIZE)) DEALLOCATE(XMESH_SIZE) 00105 ! 00106 !------------------------------------------------------------------------------------- 00107 ! 00108 IF(ASSOCIATED(XZ0_TOWN )) DEALLOCATE(XZ0_TOWN ) 00109 IF(ASSOCIATED(XALB_ROOF )) DEALLOCATE(XALB_ROOF ) 00110 IF(ASSOCIATED(XEMIS_ROOF )) DEALLOCATE(XEMIS_ROOF ) 00111 IF(ASSOCIATED(XALB_ROAD )) DEALLOCATE(XALB_ROAD ) 00112 IF(ASSOCIATED(XEMIS_ROAD )) DEALLOCATE(XEMIS_ROAD ) 00113 IF(ASSOCIATED(XALB_WALL )) DEALLOCATE(XALB_WALL ) 00114 IF(ASSOCIATED(XEMIS_WALL )) DEALLOCATE(XEMIS_WALL ) 00115 IF(ASSOCIATED(XBLD )) DEALLOCATE(XBLD ) 00116 IF(ASSOCIATED(XGARDEN )) DEALLOCATE(XGARDEN ) 00117 IF(ASSOCIATED(XROAD_DIR )) DEALLOCATE(XROAD_DIR ) 00118 IF(ASSOCIATED(XGREENROOF )) DEALLOCATE(XGREENROOF ) 00119 IF(ASSOCIATED(XBLD_HEIGHT )) DEALLOCATE(XBLD_HEIGHT ) 00120 IF(ASSOCIATED(XWALL_O_HOR )) DEALLOCATE(XWALL_O_HOR ) 00121 IF(ASSOCIATED(XCAN_HW_RATIO)) DEALLOCATE(XCAN_HW_RATIO) 00122 IF(ASSOCIATED(XROAD_O_GRND)) DEALLOCATE(XROAD_O_GRND) 00123 IF(ASSOCIATED(XGARDEN_O_GRND))DEALLOCATE(XGARDEN_O_GRND) 00124 IF(ASSOCIATED(XWALL_O_GRND)) DEALLOCATE(XWALL_O_GRND) 00125 IF(ASSOCIATED(XH_TRAFFIC )) DEALLOCATE(XH_TRAFFIC ) 00126 IF(ASSOCIATED(XLE_TRAFFIC )) DEALLOCATE(XLE_TRAFFIC ) 00127 IF(ASSOCIATED(XH_INDUSTRY )) DEALLOCATE(XH_INDUSTRY ) 00128 IF(ASSOCIATED(XLE_INDUSTRY )) DEALLOCATE(XLE_INDUSTRY ) 00129 IF(ASSOCIATED(XHC_ROOF )) DEALLOCATE(XHC_ROOF ) 00130 IF(ASSOCIATED(XTC_ROOF )) DEALLOCATE(XTC_ROOF ) 00131 IF(ASSOCIATED(XD_ROOF )) DEALLOCATE(XD_ROOF ) 00132 IF(ASSOCIATED(XHC_ROAD )) DEALLOCATE(XHC_ROAD ) 00133 IF(ASSOCIATED(XTC_ROAD )) DEALLOCATE(XTC_ROAD ) 00134 IF(ASSOCIATED(XD_ROAD )) DEALLOCATE(XD_ROAD ) 00135 IF(ASSOCIATED(XHC_WALL )) DEALLOCATE(XHC_WALL ) 00136 IF(ASSOCIATED(XTC_WALL )) DEALLOCATE(XTC_WALL ) 00137 IF(ASSOCIATED(XD_WALL )) DEALLOCATE(XD_WALL ) 00138 IF(ASSOCIATED(XSVF_ROAD)) DEALLOCATE(XSVF_ROAD) 00139 IF(ASSOCIATED(XSVF_WALL)) DEALLOCATE(XSVF_WALL) 00140 ! 00141 IF (ASSOCIATED(XT_ROOF)) DEALLOCATE(XT_ROOF) 00142 IF (ASSOCIATED(XT_ROAD)) DEALLOCATE(XT_ROAD) 00143 IF (ASSOCIATED(XT_WALL_A)) DEALLOCATE(XT_WALL_A) 00144 IF (ASSOCIATED(XT_WALL_B)) DEALLOCATE(XT_WALL_B) 00145 IF (ASSOCIATED(XAC_ROOF)) DEALLOCATE(XAC_ROOF) 00146 IF (ASSOCIATED(XAC_ROAD)) DEALLOCATE(XAC_ROAD) 00147 IF (ASSOCIATED(XAC_WALL)) DEALLOCATE(XAC_WALL) 00148 IF (ASSOCIATED(XAC_TOP)) DEALLOCATE(XAC_TOP) 00149 IF (ASSOCIATED(XAC_ROOF_WAT)) DEALLOCATE(XAC_ROOF_WAT) 00150 IF (ASSOCIATED(XAC_ROAD_WAT)) DEALLOCATE(XAC_ROAD_WAT) 00151 IF (ASSOCIATED(XQSAT_ROOF)) DEALLOCATE(XQSAT_ROOF) 00152 IF (ASSOCIATED(XQSAT_ROAD)) DEALLOCATE(XQSAT_ROAD) 00153 IF (ASSOCIATED(XDELT_ROOF)) DEALLOCATE(XDELT_ROOF) 00154 IF (ASSOCIATED(XDELT_ROAD)) DEALLOCATE(XDELT_ROAD) 00155 !------------------------------------------------------------------------------------- 00156 ! 00157 IF(ASSOCIATED(XAC_ROOF )) DEALLOCATE(XAC_ROOF ) 00158 IF(ASSOCIATED(XAC_ROAD )) DEALLOCATE(XAC_ROAD ) 00159 IF(ASSOCIATED(XAC_WALL )) DEALLOCATE(XAC_WALL ) 00160 IF(ASSOCIATED(XAC_TOP )) DEALLOCATE(XAC_TOP ) 00161 IF(ASSOCIATED(XAC_ROOF_WAT)) DEALLOCATE(XAC_ROOF_WAT) 00162 IF(ASSOCIATED(XAC_ROAD_WAT)) DEALLOCATE(XAC_ROAD_WAT) 00163 IF(ASSOCIATED(XQSAT_ROOF )) DEALLOCATE(XQSAT_ROOF ) 00164 IF(ASSOCIATED(XQSAT_ROAD )) DEALLOCATE(XQSAT_ROAD ) 00165 IF(ASSOCIATED(XDELT_ROOF )) DEALLOCATE(XDELT_ROOF ) 00166 IF(ASSOCIATED(XDELT_ROAD )) DEALLOCATE(XDELT_ROAD ) 00167 ! 00168 !------------------------------------------------------------------------------------- 00169 ! 00170 IF(ASSOCIATED(XDEP)) DEALLOCATE(XDEP) 00171 IF(ASSOCIATED(CCH_NAMES)) DEALLOCATE(CCH_NAMES) 00172 IF(ASSOCIATED(CSV)) DEALLOCATE(CSV) 00173 ! 00174 !------------------------------------------------------------------------------------- 00175 ! 00176 IF(ASSOCIATED(XPAR_Z0_TOWN )) DEALLOCATE(XPAR_Z0_TOWN ) 00177 IF(ASSOCIATED(XPAR_BLD )) DEALLOCATE(XPAR_BLD ) 00178 IF(ASSOCIATED(XPAR_ALB_ROOF )) DEALLOCATE(XPAR_ALB_ROOF ) 00179 IF(ASSOCIATED(XPAR_EMIS_ROOF )) DEALLOCATE(XPAR_EMIS_ROOF ) 00180 IF(ASSOCIATED(XPAR_HC_ROOF )) DEALLOCATE(XPAR_HC_ROOF ) 00181 IF(ASSOCIATED(XPAR_TC_ROOF )) DEALLOCATE(XPAR_TC_ROOF ) 00182 IF(ASSOCIATED(XPAR_D_ROOF )) DEALLOCATE(XPAR_D_ROOF ) 00183 IF(ASSOCIATED(XPAR_ALB_ROAD )) DEALLOCATE(XPAR_ALB_ROAD ) 00184 IF(ASSOCIATED(XPAR_EMIS_ROAD )) DEALLOCATE(XPAR_EMIS_ROAD ) 00185 IF(ASSOCIATED(XPAR_HC_ROAD )) DEALLOCATE(XPAR_HC_ROAD ) 00186 IF(ASSOCIATED(XPAR_TC_ROAD )) DEALLOCATE(XPAR_TC_ROAD ) 00187 IF(ASSOCIATED(XPAR_D_ROAD )) DEALLOCATE(XPAR_D_ROAD ) 00188 IF(ASSOCIATED(XPAR_ALB_WALL )) DEALLOCATE(XPAR_ALB_WALL ) 00189 IF(ASSOCIATED(XPAR_EMIS_WALL )) DEALLOCATE(XPAR_EMIS_WALL ) 00190 IF(ASSOCIATED(XPAR_HC_WALL )) DEALLOCATE(XPAR_HC_WALL ) 00191 IF(ASSOCIATED(XPAR_TC_WALL )) DEALLOCATE(XPAR_TC_WALL ) 00192 IF(ASSOCIATED(XPAR_D_WALL )) DEALLOCATE(XPAR_D_WALL ) 00193 IF(ASSOCIATED(XPAR_BLD_HEIGHT )) DEALLOCATE(XPAR_BLD_HEIGHT ) 00194 IF(ASSOCIATED(XPAR_WALL_O_HOR )) DEALLOCATE(XPAR_WALL_O_HOR ) 00195 IF(ASSOCIATED(XPAR_H_TRAFFIC )) DEALLOCATE(XPAR_H_TRAFFIC ) 00196 IF(ASSOCIATED(XPAR_LE_TRAFFIC )) DEALLOCATE(XPAR_LE_TRAFFIC ) 00197 IF(ASSOCIATED(XPAR_H_INDUSTRY )) DEALLOCATE(XPAR_H_INDUSTRY ) 00198 IF(ASSOCIATED(XPAR_LE_INDUSTRY)) DEALLOCATE(XPAR_LE_INDUSTRY) 00199 IF(ASSOCIATED(XPAR_GARDEN )) DEALLOCATE(XPAR_GARDEN ) 00200 IF(ASSOCIATED(XPAR_ROAD_DIR )) DEALLOCATE(XPAR_ROAD_DIR ) 00201 IF(ASSOCIATED(NPAR_BLDTYPE )) DEALLOCATE(NPAR_BLDTYPE ) 00202 IF(ASSOCIATED(NPAR_BLD_AGE )) DEALLOCATE(NPAR_BLD_AGE ) 00203 IF(ASSOCIATED(NPAR_BLDCODE )) DEALLOCATE(NPAR_BLDCODE ) 00204 IF(ASSOCIATED(NPAR_USETYPE )) DEALLOCATE(NPAR_USETYPE ) 00205 ! 00206 !------------------------------------------------------------------------------------- 00207 ! 00208 IF(ASSOCIATED(XHC_FLOOR )) DEALLOCATE(XHC_FLOOR ) 00209 IF(ASSOCIATED(XTC_FLOOR )) DEALLOCATE(XTC_FLOOR ) 00210 IF(ASSOCIATED(XD_FLOOR )) DEALLOCATE(XD_FLOOR ) 00211 ! 00212 IF(ASSOCIATED(XF_WASTE_CAN)) DEALLOCATE(XF_WASTE_CAN) 00213 IF(ASSOCIATED(XEFF_HEAT )) DEALLOCATE(XEFF_HEAT ) 00214 IF(ASSOCIATED(XQIN )) DEALLOCATE(XQIN ) 00215 IF(ASSOCIATED(XQIN_FRAD )) DEALLOCATE(XQIN_FRAD ) 00216 IF(ASSOCIATED(XSHGC )) DEALLOCATE(XSHGC ) 00217 IF(ASSOCIATED(XU_WIN )) DEALLOCATE(XU_WIN ) 00218 IF(ASSOCIATED(XTRAN_WIN )) DEALLOCATE(XTRAN_WIN ) 00219 IF(ASSOCIATED(XGR )) DEALLOCATE(XGR ) 00220 IF(ASSOCIATED(XFLOOR_HEIGHT)) DEALLOCATE(XFLOOR_HEIGHT) 00221 IF(ASSOCIATED(XINF )) DEALLOCATE(XINF ) 00222 ! 00223 IF(ASSOCIATED(XQIN_FLAT )) DEALLOCATE(XQIN_FLAT ) 00224 IF(ASSOCIATED(XHR_TARGET )) DEALLOCATE(XHR_TARGET ) 00225 IF(ASSOCIATED(XV_VENT )) DEALLOCATE(XV_VENT ) 00226 IF(ASSOCIATED(XCAP_SYS_HEAT)) DEALLOCATE(XCAP_SYS_HEAT) 00227 IF(ASSOCIATED(XCAP_SYS_RAT)) DEALLOCATE(XCAP_SYS_RAT) 00228 IF(ASSOCIATED(XT_ADP )) DEALLOCATE(XT_ADP ) 00229 IF(ASSOCIATED(XM_SYS_RAT )) DEALLOCATE(XM_SYS_RAT ) 00230 IF(ASSOCIATED(XCOP_RAT )) DEALLOCATE(XCOP_RAT ) 00231 IF(ASSOCIATED(XT_SIZE_MAX )) DEALLOCATE(XT_SIZE_MAX ) 00232 IF(ASSOCIATED(XT_SIZE_MIN )) DEALLOCATE(XT_SIZE_MIN ) 00233 ! 00234 IF(ASSOCIATED(XABS_WIN )) DEALLOCATE(XABS_WIN ) 00235 IF(ASSOCIATED(XALB_WIN )) DEALLOCATE(XALB_WIN ) 00236 IF(ASSOCIATED(XUGG_WIN )) DEALLOCATE(XUGG_WIN ) 00237 IF(ASSOCIATED(LSHAD_DAY )) DEALLOCATE(LSHAD_DAY ) 00238 IF(ASSOCIATED(LNATVENT_NIGHT)) DEALLOCATE(LNATVENT_NIGHT) 00239 IF(ASSOCIATED(CNATVENT )) DEALLOCATE(CNATVENT) 00240 IF(ASSOCIATED(LSHADE )) DEALLOCATE(LSHADE) 00241 IF(ASSOCIATED(XF_WATER_COND)) DEALLOCATE(XF_WATER_COND) 00242 IF(ASSOCIATED(XSHGC_SH )) DEALLOCATE(XSHGC_SH) 00243 00244 IF(ASSOCIATED(XPAR_ROUGH_ROOF )) DEALLOCATE(XPAR_ROUGH_ROOF) 00245 IF(ASSOCIATED(XPAR_ROUGH_WALL )) DEALLOCATE(XPAR_ROUGH_WALL) 00246 IF(ASSOCIATED(XROUGH_ROOF )) DEALLOCATE(XROUGH_ROOF) 00247 IF(ASSOCIATED(XROUGH_WALL )) DEALLOCATE(XROUGH_WALL) 00248 00249 IF(ASSOCIATED(XN_FLOOR )) DEALLOCATE(XN_FLOOR) 00250 IF(ASSOCIATED(XGLAZ_O_BLD )) DEALLOCATE(XGLAZ_O_BLD) 00251 IF(ASSOCIATED(XMASS_O_BLD )) DEALLOCATE(XMASS_O_BLD) 00252 IF(ASSOCIATED(XFLOOR_HW_RATIO )) DEALLOCATE(XFLOOR_HW_RATIO) 00253 IF(ASSOCIATED(XF_FLOOR_MASS )) DEALLOCATE(XF_FLOOR_MASS) 00254 IF(ASSOCIATED(XF_FLOOR_WALL )) DEALLOCATE(XF_FLOOR_WALL) 00255 IF(ASSOCIATED(XF_FLOOR_WIN )) DEALLOCATE(XF_FLOOR_WIN) 00256 IF(ASSOCIATED(XF_FLOOR_ROOF )) DEALLOCATE(XF_FLOOR_ROOF) 00257 IF(ASSOCIATED(XF_WALL_FLOOR )) DEALLOCATE(XF_WALL_FLOOR) 00258 IF(ASSOCIATED(XF_WALL_MASS )) DEALLOCATE(XF_WALL_MASS) 00259 IF(ASSOCIATED(XF_WALL_WIN )) DEALLOCATE(XF_WALL_WIN) 00260 IF(ASSOCIATED(XF_WIN_FLOOR )) DEALLOCATE(XF_WIN_FLOOR) 00261 IF(ASSOCIATED(XF_WIN_MASS )) DEALLOCATE(XF_WIN_MASS) 00262 IF(ASSOCIATED(XF_WIN_WALL )) DEALLOCATE(XF_WIN_WALL) 00263 IF(ASSOCIATED(XF_MASS_FLOOR )) DEALLOCATE(XF_MASS_FLOOR) 00264 IF(ASSOCIATED(XF_MASS_WALL )) DEALLOCATE(XF_MASS_WALL) 00265 IF(ASSOCIATED(XF_MASS_WIN )) DEALLOCATE(XF_MASS_WIN) 00266 IF(ASSOCIATED(XTI_BLD )) DEALLOCATE(XTI_BLD) 00267 IF(ASSOCIATED(XQI_BLD )) DEALLOCATE(XQI_BLD) 00268 IF(ASSOCIATED(XT_FLOOR )) DEALLOCATE(XT_FLOOR) 00269 IF(ASSOCIATED(XT_MASS )) DEALLOCATE(XT_MASS) 00270 IF(ASSOCIATED(CCOOL_COIL )) DEALLOCATE(CCOOL_COIL) 00271 IF(ASSOCIATED(XAUX_MAX )) DEALLOCATE(XAUX_MAX) 00272 IF(ASSOCIATED(XT_WIN2 )) DEALLOCATE(XT_WIN2) 00273 IF(ASSOCIATED(XT_WIN1 )) DEALLOCATE(XT_WIN1) 00274 ! 00275 ! 00276 IF (LHOOK) CALL DR_HOOK('DEALLOC_TEB_N',1,ZHOOK_HANDLE) 00277 ! 00278 !------------------------------------------------------------------------------------- 00279 ! 00280 END SUBROUTINE DEALLOC_TEB_n 00281 00282
1.8.0
