|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 !######################## 00002 MODULE MODD_DIAG_EVAP_ISBA_n 00003 !######################## 00004 ! 00005 !!**** *MODD_DIAG_ISBA - declaration of packed surface parameters for ISBA scheme 00006 !! 00007 !! PURPOSE 00008 !! ------- 00009 ! 00010 !! 00011 !!** IMPLICIT ARGUMENTS 00012 !! ------------------ 00013 !! None 00014 !! 00015 !! REFERENCE 00016 !! --------- 00017 !! 00018 !! AUTHOR 00019 !! ------ 00020 !! P. Le Moigne *Meteo France* 00021 !! 00022 !! MODIFICATIONS 00023 !! ------------- 00024 !! Original 07/11/03 00025 ! 00026 !* 0. DECLARATIONS 00027 ! ------------ 00028 ! 00029 ! 00030 USE YOMHOOK ,ONLY : LHOOK, DR_HOOK 00031 USE PARKIND1 ,ONLY : JPRB 00032 ! 00033 IMPLICIT NONE 00034 00035 TYPE DIAG_EVAP_ISBA_t 00036 !------------------------------------------------------------------------------ 00037 ! 00038 LOGICAL :: LSURF_EVAP_BUDGET ! flag for all terms of evaporation 00039 LOGICAL :: LSURF_BUDGETC ! flag for surface cumulated energy budget 00040 LOGICAL :: LRESET_BUDGETC ! flag for surface cumulated energy budget 00041 LOGICAL :: LWATER_BUDGET ! flag for isba water budget including input 00042 ! fluxes (rain and snow) and reservoir tendencies 00043 ! 00044 !* variables for each patch 00045 ! 00046 REAL, POINTER, DIMENSION(:,:) :: XLEG ! latent heat of evaporation over the ground (W/m2) 00047 REAL, POINTER, DIMENSION(:,:) :: XLEGI ! surface soil ice sublimation (W/m2) 00048 REAL, POINTER, DIMENSION(:,:) :: XLEV ! latent heat of evaporation over vegetation (W/m2) 00049 REAL, POINTER, DIMENSION(:,:) :: XLES ! latent heat of sublimation over the snow (W/m2) 00050 REAL, POINTER, DIMENSION(:,:) :: XLESL ! latent heat of evaporation over the snow (W/m2) 00051 REAL, POINTER, DIMENSION(:,:) :: XLER ! evaporation from canopy water interception (W/m2) 00052 REAL, POINTER, DIMENSION(:,:) :: XLETR ! evapotranspiration of the vegetation (W/m2) 00053 REAL, POINTER, DIMENSION(:,:) :: XEVAP ! evapotranspiration (W/m2) 00054 REAL, POINTER, DIMENSION(:,:) :: XDRAIN ! soil drainage flux (kg/m2/s) 00055 REAL, POINTER, DIMENSION(:,:) :: XRUNOFF ! sub-grid and supersaturation runoff (kg/m2/s) 00056 REAL, POINTER, DIMENSION(:,:) :: XHORT ! sub-grid Horton runoff from the SGH scheme (kg/m2/s) 00057 REAL, POINTER, DIMENSION(:,:) :: XRRVEG ! precipitation intercepted by the vegetation (kg/m2/s) 00058 REAL, POINTER, DIMENSION(:,:) :: XMELT ! snow melt (kg/m2/s) 00059 REAL, POINTER, DIMENSION(:,:) :: XIFLOOD ! Floodplains infiltration (kg/m2/s) 00060 REAL, POINTER, DIMENSION(:,:) :: XPFLOOD ! Precipitation intercepted by the floodplains (kg/m2/s) 00061 REAL, POINTER, DIMENSION(:,:) :: XLE_FLOOD ! Floodplains evapotration (W/m2) 00062 REAL, POINTER, DIMENSION(:,:) :: XLEI_FLOOD ! Floodplains evapotration (W/m2) 00063 REAL, POINTER, DIMENSION(:,:) :: XDRIP ! dripping from the vegetation reservoir (kg/m2/s) 00064 REAL, POINTER, DIMENSION(:,:) :: XIRRIG_FLUX ! irrigation rate (as soil input) (kg/m2/s) 00065 ! 00066 REAL, POINTER, DIMENSION(:,:) :: XGPP ! Gross Primary Production (kgCO2/m2/s) 00067 REAL, POINTER, DIMENSION(:,:) :: XRESP_AUTO ! Autotrophic respiration (kgCO2/m2/s) 00068 REAL, POINTER, DIMENSION(:,:) :: XRESP_ECO ! Ecosystem respiration (kgCO2/m2/s) 00069 ! 00070 REAL, POINTER, DIMENSION(:,:) :: XDWG ! liquid soil moisture time tendencies (kg/m2/s) 00071 REAL, POINTER, DIMENSION(:,:) :: XDWGI ! solid soil moisture time tendencies (kg/m2/s) 00072 REAL, POINTER, DIMENSION(:,:) :: XDWR ! canopy water time tendencies (kg/m2/s) 00073 REAL, POINTER, DIMENSION(:,:) :: XDSWE ! snow water equivalent time tendencies (kg/m2/s) 00074 REAL, POINTER, DIMENSION(:,:) :: XWATBUD ! ISBA water budget (kg/m2/s) 00075 ! 00076 !* average variables 00077 ! 00078 REAL, POINTER, DIMENSION(:) :: XAVG_LEG ! latent heat of evaporation over the ground (W/m2) 00079 REAL, POINTER, DIMENSION(:) :: XAVG_LEGI ! surface soil ice sublimation (W/m2) 00080 REAL, POINTER, DIMENSION(:) :: XAVG_LEV ! latent heat of evaporation over vegetation (W/m2) 00081 REAL, POINTER, DIMENSION(:) :: XAVG_LES ! latent heat of sublimation over the snow (W/m2) 00082 REAL, POINTER, DIMENSION(:) :: XAVG_LESL ! latent heat of evaporation over the snow (W/m2) 00083 REAL, POINTER, DIMENSION(:) :: XAVG_LER ! evaporation from canopy water interception (W/m2) 00084 REAL, POINTER, DIMENSION(:) :: XAVG_LETR ! evapotranspiration of the vegetation (W/m2) 00085 REAL, POINTER, DIMENSION(:) :: XAVG_EVAP ! evapotranspiration (W/m2) 00086 REAL, POINTER, DIMENSION(:) :: XAVG_DRAIN ! soil drainage flux (kg/m2/s) 00087 REAL, POINTER, DIMENSION(:) :: XAVG_RUNOFF ! sub-grid and supersaturation runoff (kg/m2/s) 00088 REAL, POINTER, DIMENSION(:) :: XAVG_HORT ! sub-grid Horton runoff from the SGH scheme (kg/m2/s) 00089 REAL, POINTER, DIMENSION(:) :: XAVG_DRIP ! dripping from the vegetation reservoir (kg/m2/s) 00090 REAL, POINTER, DIMENSION(:) :: XAVG_MELT ! snow melt (kg/m2/s) 00091 REAL, POINTER, DIMENSION(:) :: XAVG_IFLOOD ! Floodplains infiltration (kg/m2/s) 00092 REAL, POINTER, DIMENSION(:) :: XAVG_PFLOOD ! Precipitation intercepted by the floodplains (kg/m2/s) 00093 REAL, POINTER, DIMENSION(:) :: XAVG_LE_FLOOD ! Floodplains evapotration (W/m2) 00094 REAL, POINTER, DIMENSION(:) :: XAVG_LEI_FLOOD! Floodplains evapotration (W/m2) 00095 REAL, POINTER, DIMENSION(:) :: XAVG_RRVEG ! precipitation intercepted by the vegetation (kg/m2/s) 00096 REAL, POINTER, DIMENSION(:) :: XAVG_IRRIG_FLUX! irrigation rate (as soil input) (kg/m2/s) 00097 ! 00098 REAL, POINTER, DIMENSION(:) :: XAVG_GPP ! Gross Primary Production (kgCO2/m2/s) 00099 REAL, POINTER, DIMENSION(:) :: XAVG_RESP_AUTO! Autotrophic respiration (kgCO2/m2/s) 00100 REAL, POINTER, DIMENSION(:) :: XAVG_RESP_ECO ! Ecosystem respiration (kgCO2/m2/s) 00101 ! 00102 REAL, POINTER, DIMENSION(:) :: XRAINFALL ! input rainfall rate for LWATER_BUDGET (kg/m2/s) 00103 REAL, POINTER, DIMENSION(:) :: XSNOWFALL ! input snowfall rate for LWATER_BUDGET (kg/m2/s) 00104 REAL, POINTER, DIMENSION(:) :: XAVG_DWG ! liquid soil moisture time tendencies (kg/m2/s) 00105 REAL, POINTER, DIMENSION(:) :: XAVG_DWGI ! solid soil moisture time tendencies (kg/m2/s) 00106 REAL, POINTER, DIMENSION(:) :: XAVG_DWR ! canopy water time tendencies (kg/m2/s) 00107 REAL, POINTER, DIMENSION(:) :: XAVG_DSWE ! snow water equivalent time tendencies (kg/m2/s) 00108 REAL, POINTER, DIMENSION(:) :: XAVG_WATBUD ! ISBA water budget (kg/m2/s) 00109 ! 00110 !* budget summation variables for each patch 00111 ! 00112 REAL, POINTER, DIMENSION(:,:) :: XRNC ! net radiation at surface (J/m2) 00113 REAL, POINTER, DIMENSION(:,:) :: XHC ! sensible heat flux (J/m2) 00114 REAL, POINTER, DIMENSION(:,:) :: XLEC ! total latent heat flux (J/m2) 00115 REAL, POINTER, DIMENSION(:,:) :: XLEIC ! sublimation latent heat flux (J/m2) 00116 REAL, POINTER, DIMENSION(:,:) :: XGFLUXC ! net soil-vegetation flux (J/m2) 00117 REAL, POINTER, DIMENSION(:,:) :: XLEGC ! latent heat of evaporation over the ground (J/m2) 00118 REAL, POINTER, DIMENSION(:,:) :: XLEGIC ! surface soil ice sublimation (J/m2) 00119 REAL, POINTER, DIMENSION(:,:) :: XLEVC ! latent heat of evaporation over vegetation (J/m2) 00120 REAL, POINTER, DIMENSION(:,:) :: XLESC ! latent heat of sublimation over the snow (J/m2) 00121 REAL, POINTER, DIMENSION(:,:) :: XLESLC ! latent heat of evaporation over the snow (J/m2) 00122 REAL, POINTER, DIMENSION(:,:) :: XLERC ! evaporation from canopy water interception (J/m2) 00123 REAL, POINTER, DIMENSION(:,:) :: XLETRC ! evapotranspiration of the vegetation (J/m2) 00124 REAL, POINTER, DIMENSION(:,:) :: XEVAPC ! evapotranspiration (J/m2) 00125 REAL, POINTER, DIMENSION(:,:) :: XDRAINC ! soil drainage flux (kg/m2) 00126 REAL, POINTER, DIMENSION(:,:) :: XRUNOFFC ! sub-grid and supersaturation runoff (kg/m2) 00127 REAL, POINTER, DIMENSION(:,:) :: XHORTC ! sub-grid Horton runoff from the SGH scheme (kg/m2) 00128 REAL, POINTER, DIMENSION(:,:) :: XDRIPC ! dripping from the vegetation reservoir (kg/m2/s) 00129 REAL, POINTER, DIMENSION(:,:) :: XMELTC ! snow melt (kg/m2) 00130 REAL, POINTER, DIMENSION(:,:) :: XIFLOODC ! Floodplains infiltration (kg/m2) 00131 REAL, POINTER, DIMENSION(:,:) :: XPFLOODC ! Precipitation intercepted by the floodplains (kg/m2) 00132 REAL, POINTER, DIMENSION(:,:) :: XLE_FLOODC ! Floodplains evapotration (J/m2) 00133 REAL, POINTER, DIMENSION(:,:) :: XLEI_FLOODC ! Floodplains evapotration (J/m2) 00134 REAL, POINTER, DIMENSION(:,:) :: XICEFLUXC ! ice calving flux (kg/m2) 00135 REAL, POINTER, DIMENSION(:,:) :: XRRVEGC ! precipitation intercepted by the vegetation (kg/m2) 00136 REAL, POINTER, DIMENSION(:,:) :: XIRRIG_FLUXC ! irrigation rate (as soil input) (kg/m2) 00137 ! 00138 REAL, POINTER, DIMENSION(:,:) :: XGPPC ! Gross Primary Production (kgCO2/m2) 00139 REAL, POINTER, DIMENSION(:,:) :: XRESPC_AUTO ! Autotrophic respiration (kgCO2/m2) 00140 REAL, POINTER, DIMENSION(:,:) :: XRESPC_ECO ! Ecosystem respiration (kgCO2/m2) 00141 ! 00142 REAL, POINTER, DIMENSION(:,:) :: XDWGC ! liquid soil moisture time tendencies (kg/m2) 00143 REAL, POINTER, DIMENSION(:,:) :: XDWGIC ! solid soil moisture time tendencies (kg/m2) 00144 REAL, POINTER, DIMENSION(:,:) :: XDWRC ! canopy water time tendencies (kg/m2) 00145 REAL, POINTER, DIMENSION(:,:) :: XDSWEC ! snow water equivalent time tendencies (kg/m2) 00146 REAL, POINTER, DIMENSION(:,:) :: XWATBUDC ! ISBA water budget (kg/m2) 00147 ! 00148 !* average budget summation variables 00149 ! 00150 REAL, POINTER, DIMENSION(:) :: XAVG_RNC ! net radiation at surface (J/m2) 00151 REAL, POINTER, DIMENSION(:) :: XAVG_HC ! sensible heat flux (J/m2) 00152 REAL, POINTER, DIMENSION(:) :: XAVG_LEC ! total latent heat flux (J/m2) 00153 REAL, POINTER, DIMENSION(:) :: XAVG_LEIC ! sublimation latent heat flux (J/m2) 00154 REAL, POINTER, DIMENSION(:) :: XAVG_GFLUXC ! net soil-vegetation flux (J/m2) 00155 REAL, POINTER, DIMENSION(:) :: XAVG_LEGC ! latent heat of evaporation over the ground (J/m2) 00156 REAL, POINTER, DIMENSION(:) :: XAVG_LEGIC ! surface soil ice sublimation (J/m2) 00157 REAL, POINTER, DIMENSION(:) :: XAVG_LEVC ! latent heat of evaporation over vegetation (J/m2) 00158 REAL, POINTER, DIMENSION(:) :: XAVG_LESC ! latent heat of sublimation over the snow (J/m2) 00159 REAL, POINTER, DIMENSION(:) :: XAVG_LESLC ! latent heat of evaporation over the snow (J/m2) 00160 REAL, POINTER, DIMENSION(:) :: XAVG_LERC ! evaporation from canopy water interception (J/m2) 00161 REAL, POINTER, DIMENSION(:) :: XAVG_LETRC ! evapotranspiration of the vegetation (J/m2) 00162 REAL, POINTER, DIMENSION(:) :: XAVG_EVAPC ! evapotranspiration (J/m2) 00163 REAL, POINTER, DIMENSION(:) :: XAVG_DRAINC ! soil drainage flux (kg/m2) 00164 REAL, POINTER, DIMENSION(:) :: XAVG_RUNOFFC ! sub-grid and supersaturation runoff (kg/m2) 00165 REAL, POINTER, DIMENSION(:) :: XAVG_HORTC ! sub-grid Horton runoff from the SGH scheme (kg/m2) 00166 REAL, POINTER, DIMENSION(:) :: XAVG_DRIPC ! dripping from the vegetation reservoir (kg/m2/s) 00167 REAL, POINTER, DIMENSION(:) :: XAVG_MELTC ! snow melt (kg/m2) 00168 REAL, POINTER, DIMENSION(:) :: XAVG_IFLOODC ! Floodplains infiltration (kg/m2) 00169 REAL, POINTER, DIMENSION(:) :: XAVG_PFLOODC ! Precipitation intercepted by the floodplains (kg/m2) 00170 REAL, POINTER, DIMENSION(:) :: XAVG_LE_FLOODC ! Floodplains evapotration (J/m2) 00171 REAL, POINTER, DIMENSION(:) :: XAVG_LEI_FLOODC! Floodplains evapotration (J/m2) 00172 REAL, POINTER, DIMENSION(:) :: XAVG_ICEFLUXC ! ice calving flux (kg/m2) 00173 REAL, POINTER, DIMENSION(:) :: XAVG_RRVEGC ! precipitation intercepted by the vegetation (kg/m2) 00174 REAL, POINTER, DIMENSION(:) :: XAVG_IRRIG_FLUXC! irrigation rate (as soil input) (kg/m2) 00175 ! 00176 REAL, POINTER, DIMENSION(:) :: XAVG_GPPC ! Gross Primary Production (kgCO2/m2) 00177 REAL, POINTER, DIMENSION(:) :: XAVG_RESPC_AUTO! Autotrophic respiration (kgCO2/m2) 00178 REAL, POINTER, DIMENSION(:) :: XAVG_RESPC_ECO ! Ecosystem respiration (kgCO2/m2) 00179 ! 00180 REAL, POINTER, DIMENSION(:) :: XRAINFALLC ! input rainfall rate for LWATER_BUDGET (kg/m2) 00181 REAL, POINTER, DIMENSION(:) :: XSNOWFALLC ! input snowfall rate for LWATER_BUDGET (kg/m2) 00182 REAL, POINTER, DIMENSION(:) :: XAVG_DWGC ! liquid soil moisture time tendencies (kg/m2) 00183 REAL, POINTER, DIMENSION(:) :: XAVG_DWGIC ! solid soil moisture time tendencies (kg/m2) 00184 REAL, POINTER, DIMENSION(:) :: XAVG_DWRC ! canopy water time tendencies (kg/m2) 00185 REAL, POINTER, DIMENSION(:) :: XAVG_DSWEC ! snow water equivalent time tendencies (kg/m2) 00186 REAL, POINTER, DIMENSION(:) :: XAVG_WATBUDC ! ISBA water budget (kg/m2) 00187 ! 00188 !------------------------------------------------------------------------------ 00189 ! 00190 00191 END TYPE DIAG_EVAP_ISBA_t 00192 00193 TYPE(DIAG_EVAP_ISBA_t), ALLOCATABLE, TARGET, SAVE :: DIAG_EVAP_ISBA_MODEL(:) 00194 00195 LOGICAL, POINTER :: LSURF_EVAP_BUDGET=>NULL() 00196 !$OMP THREADPRIVATE(LSURF_EVAP_BUDGET) 00197 LOGICAL, POINTER :: LSURF_BUDGETC=>NULL() 00198 !$OMP THREADPRIVATE(LSURF_BUDGETC) 00199 LOGICAL, POINTER :: LRESET_BUDGETC=>NULL() 00200 !$OMP THREADPRIVATE(LRESET_BUDGETC) 00201 LOGICAL, POINTER :: LWATER_BUDGET=>NULL() 00202 !$OMP THREADPRIVATE(LWATER_BUDGET) 00203 REAL, POINTER, DIMENSION(:,:) :: XLEG=>NULL() 00204 !$OMP THREADPRIVATE(XLEG) 00205 REAL, POINTER, DIMENSION(:,:) :: XLEGI=>NULL() 00206 !$OMP THREADPRIVATE(XLEGI) 00207 REAL, POINTER, DIMENSION(:,:) :: XLEV=>NULL() 00208 !$OMP THREADPRIVATE(XLEV) 00209 REAL, POINTER, DIMENSION(:,:) :: XLES=>NULL() 00210 !$OMP THREADPRIVATE(XLES) 00211 REAL, POINTER, DIMENSION(:,:) :: XLESL=>NULL() 00212 !$OMP THREADPRIVATE(XLESL) 00213 REAL, POINTER, DIMENSION(:,:) :: XLER=>NULL() 00214 !$OMP THREADPRIVATE(XLER) 00215 REAL, POINTER, DIMENSION(:,:) :: XLETR=>NULL() 00216 !$OMP THREADPRIVATE(XLETR) 00217 REAL, POINTER, DIMENSION(:,:) :: XEVAP=>NULL() 00218 !$OMP THREADPRIVATE(XEVAP) 00219 REAL, POINTER, DIMENSION(:,:) :: XDRAIN=>NULL() 00220 !$OMP THREADPRIVATE(XDRAIN) 00221 REAL, POINTER, DIMENSION(:,:) :: XRUNOFF=>NULL() 00222 !$OMP THREADPRIVATE(XRUNOFF) 00223 REAL, POINTER, DIMENSION(:,:) :: XHORT=>NULL() 00224 !$OMP THREADPRIVATE(XHORT) 00225 REAL, POINTER, DIMENSION(:,:) :: XDRIP=>NULL() 00226 !$OMP THREADPRIVATE(XDRIP) 00227 REAL, POINTER, DIMENSION(:,:) :: XMELT=>NULL() 00228 !$OMP THREADPRIVATE(XMELT) 00229 REAL, POINTER, DIMENSION(:,:) :: XIFLOOD=>NULL() 00230 !$OMP THREADPRIVATE(XIFLOOD) 00231 REAL, POINTER, DIMENSION(:,:) :: XPFLOOD=>NULL() 00232 !$OMP THREADPRIVATE(XPFLOOD) 00233 REAL, POINTER, DIMENSION(:,:) :: XLE_FLOOD=>NULL() 00234 !$OMP THREADPRIVATE(XLE_FLOOD) 00235 REAL, POINTER, DIMENSION(:,:) :: XLEI_FLOOD=>NULL() 00236 !$OMP THREADPRIVATE(XLEI_FLOOD) 00237 REAL, POINTER, DIMENSION(:,:) :: XRRVEG=>NULL() 00238 !$OMP THREADPRIVATE(XRRVEG) 00239 REAL, POINTER, DIMENSION(:,:) :: XIRRIG_FLUX=>NULL() 00240 !$OMP THREADPRIVATE(XIRRIG_FLUX) 00241 REAL, POINTER, DIMENSION(:,:) :: XGPP=>NULL() 00242 !$OMP THREADPRIVATE(XGPP) 00243 REAL, POINTER, DIMENSION(:,:) :: XRESP_AUTO=>NULL() 00244 !$OMP THREADPRIVATE(XRESP_AUTO) 00245 REAL, POINTER, DIMENSION(:,:) :: XRESP_ECO=>NULL() 00246 !$OMP THREADPRIVATE(XRESP_ECO) 00247 REAL, POINTER, DIMENSION(:,:) :: XDWG=>NULL() 00248 !$OMP THREADPRIVATE(XDWG) 00249 REAL, POINTER, DIMENSION(:,:) :: XDWGI=>NULL() 00250 !$OMP THREADPRIVATE(XDWGI) 00251 REAL, POINTER, DIMENSION(:,:) :: XDWR=>NULL() 00252 !$OMP THREADPRIVATE(XDWR) 00253 REAL, POINTER, DIMENSION(:,:) :: XDSWE=>NULL() 00254 !$OMP THREADPRIVATE(XDSWE) 00255 REAL, POINTER, DIMENSION(:,:) :: XWATBUD=>NULL() 00256 !$OMP THREADPRIVATE(XWATBUD) 00257 REAL, POINTER, DIMENSION(:) :: XAVG_LEG=>NULL() 00258 !$OMP THREADPRIVATE(XAVG_LEG) 00259 REAL, POINTER, DIMENSION(:) :: XAVG_LEGI=>NULL() 00260 !$OMP THREADPRIVATE(XAVG_LEGI) 00261 REAL, POINTER, DIMENSION(:) :: XAVG_LEV=>NULL() 00262 !$OMP THREADPRIVATE(XAVG_LEV) 00263 REAL, POINTER, DIMENSION(:) :: XAVG_LES=>NULL() 00264 !$OMP THREADPRIVATE(XAVG_LES) 00265 REAL, POINTER, DIMENSION(:) :: XAVG_LESL=>NULL() 00266 !$OMP THREADPRIVATE(XAVG_LESL) 00267 REAL, POINTER, DIMENSION(:) :: XAVG_LER=>NULL() 00268 !$OMP THREADPRIVATE(XAVG_LER) 00269 REAL, POINTER, DIMENSION(:) :: XAVG_LETR=>NULL() 00270 !$OMP THREADPRIVATE(XAVG_LETR) 00271 REAL, POINTER, DIMENSION(:) :: XAVG_EVAP=>NULL() 00272 !$OMP THREADPRIVATE(XAVG_EVAP) 00273 REAL, POINTER, DIMENSION(:) :: XAVG_DRAIN=>NULL() 00274 !$OMP THREADPRIVATE(XAVG_DRAIN) 00275 REAL, POINTER, DIMENSION(:) :: XAVG_RUNOFF=>NULL() 00276 !$OMP THREADPRIVATE(XAVG_RUNOFF) 00277 REAL, POINTER, DIMENSION(:) :: XAVG_HORT=>NULL() 00278 !$OMP THREADPRIVATE(XAVG_HORT) 00279 REAL, POINTER, DIMENSION(:) :: XAVG_DRIP=>NULL() 00280 !$OMP THREADPRIVATE(XAVG_DRIP) 00281 REAL, POINTER, DIMENSION(:) :: XAVG_MELT=>NULL() 00282 !$OMP THREADPRIVATE(XAVG_MELT) 00283 REAL, POINTER, DIMENSION(:) :: XAVG_IFLOOD=>NULL() 00284 !$OMP THREADPRIVATE(XAVG_IFLOOD) 00285 REAL, POINTER, DIMENSION(:) :: XAVG_PFLOOD=>NULL() 00286 !$OMP THREADPRIVATE(XAVG_PFLOOD) 00287 REAL, POINTER, DIMENSION(:) :: XAVG_LE_FLOOD=>NULL() 00288 !$OMP THREADPRIVATE(XAVG_LE_FLOOD) 00289 REAL, POINTER, DIMENSION(:) :: XAVG_LEI_FLOOD=>NULL() 00290 !$OMP THREADPRIVATE(XAVG_LEI_FLOOD) 00291 REAL, POINTER, DIMENSION(:) :: XAVG_RRVEG=>NULL() 00292 !$OMP THREADPRIVATE(XAVG_RRVEG) 00293 REAL, POINTER, DIMENSION(:) :: XAVG_IRRIG_FLUX=>NULL() 00294 !$OMP THREADPRIVATE(XAVG_IRRIG_FLUX) 00295 REAL, POINTER, DIMENSION(:) :: XAVG_GPP=>NULL() 00296 !$OMP THREADPRIVATE(XAVG_GPP) 00297 REAL, POINTER, DIMENSION(:) :: XAVG_RESP_AUTO=>NULL() 00298 !$OMP THREADPRIVATE(XAVG_RESP_AUTO) 00299 REAL, POINTER, DIMENSION(:) :: XAVG_RESP_ECO=>NULL() 00300 !$OMP THREADPRIVATE(XAVG_RESP_ECO) 00301 REAL, POINTER, DIMENSION(:) :: XRAINFALL=>NULL() 00302 !$OMP THREADPRIVATE(XRAINFALL) 00303 REAL, POINTER, DIMENSION(:) :: XSNOWFALL=>NULL() 00304 !$OMP THREADPRIVATE(XSNOWFALL) 00305 REAL, POINTER, DIMENSION(:) :: XAVG_DWG=>NULL() 00306 !$OMP THREADPRIVATE(XAVG_DWG) 00307 REAL, POINTER, DIMENSION(:) :: XAVG_DWGI=>NULL() 00308 !$OMP THREADPRIVATE(XAVG_DWGI) 00309 REAL, POINTER, DIMENSION(:) :: XAVG_DWR=>NULL() 00310 !$OMP THREADPRIVATE(XAVG_DWR) 00311 REAL, POINTER, DIMENSION(:) :: XAVG_DSWE=>NULL() 00312 !$OMP THREADPRIVATE(XAVG_DSWE) 00313 REAL, POINTER, DIMENSION(:) :: XAVG_WATBUD=>NULL() 00314 !$OMP THREADPRIVATE(XAVG_WATBUD) 00315 REAL, POINTER, DIMENSION(:,:) :: XRNC=>NULL() 00316 !$OMP THREADPRIVATE(XRNC) 00317 REAL, POINTER, DIMENSION(:,:) :: XHC=>NULL() 00318 !$OMP THREADPRIVATE(XHC) 00319 REAL, POINTER, DIMENSION(:,:) :: XLEC=>NULL() 00320 !$OMP THREADPRIVATE(XLEC) 00321 REAL, POINTER, DIMENSION(:,:) :: XLEIC=>NULL() 00322 !$OMP THREADPRIVATE(XLEIC) 00323 REAL, POINTER, DIMENSION(:,:) :: XGFLUXC=>NULL() 00324 !$OMP THREADPRIVATE(XGFLUXC) 00325 REAL, POINTER, DIMENSION(:,:) :: XLEGC=>NULL() 00326 !$OMP THREADPRIVATE(XLEGC) 00327 REAL, POINTER, DIMENSION(:,:) :: XLEGIC=>NULL() 00328 !$OMP THREADPRIVATE(XLEGIC) 00329 REAL, POINTER, DIMENSION(:,:) :: XLEVC=>NULL() 00330 !$OMP THREADPRIVATE(XLEVC) 00331 REAL, POINTER, DIMENSION(:,:) :: XLESC=>NULL() 00332 !$OMP THREADPRIVATE(XLESC) 00333 REAL, POINTER, DIMENSION(:,:) :: XLESLC=>NULL() 00334 !$OMP THREADPRIVATE(XLESLC) 00335 REAL, POINTER, DIMENSION(:,:) :: XLERC=>NULL() 00336 !$OMP THREADPRIVATE(XLERC) 00337 REAL, POINTER, DIMENSION(:,:) :: XLETRC=>NULL() 00338 !$OMP THREADPRIVATE(XLETRC) 00339 REAL, POINTER, DIMENSION(:,:) :: XEVAPC=>NULL() 00340 !$OMP THREADPRIVATE(XEVAPC) 00341 REAL, POINTER, DIMENSION(:,:) :: XDRAINC=>NULL() 00342 !$OMP THREADPRIVATE(XDRAINC) 00343 REAL, POINTER, DIMENSION(:,:) :: XRUNOFFC=>NULL() 00344 !$OMP THREADPRIVATE(XRUNOFFC) 00345 REAL, POINTER, DIMENSION(:,:) :: XHORTC=>NULL() 00346 !$OMP THREADPRIVATE(XHORTC) 00347 REAL, POINTER, DIMENSION(:,:) :: XDRIPC=>NULL() 00348 !$OMP THREADPRIVATE(XDRIPC) 00349 REAL, POINTER, DIMENSION(:,:) :: XMELTC=>NULL() 00350 !$OMP THREADPRIVATE(XMELTC) 00351 REAL, POINTER, DIMENSION(:,:) :: XIFLOODC=>NULL() 00352 !$OMP THREADPRIVATE(XIFLOODC) 00353 REAL, POINTER, DIMENSION(:,:) :: XPFLOODC=>NULL() 00354 !$OMP THREADPRIVATE(XPFLOODC) 00355 REAL, POINTER, DIMENSION(:,:) :: XLE_FLOODC=>NULL() 00356 !$OMP THREADPRIVATE(XLE_FLOODC) 00357 REAL, POINTER, DIMENSION(:,:) :: XLEI_FLOODC=>NULL() 00358 !$OMP THREADPRIVATE(XLEI_FLOODC) 00359 REAL, POINTER, DIMENSION(:,:) :: XICEFLUXC=>NULL() 00360 !$OMP THREADPRIVATE(XICEFLUXC) 00361 REAL, POINTER, DIMENSION(:,:) :: XRRVEGC=>NULL() 00362 !$OMP THREADPRIVATE(XRRVEGC) 00363 REAL, POINTER, DIMENSION(:,:) :: XIRRIG_FLUXC=>NULL() 00364 !$OMP THREADPRIVATE(XIRRIG_FLUXC) 00365 REAL, POINTER, DIMENSION(:,:) :: XGPPC=>NULL() 00366 !$OMP THREADPRIVATE(XGPPC) 00367 REAL, POINTER, DIMENSION(:,:) :: XRESPC_AUTO=>NULL() 00368 !$OMP THREADPRIVATE(XRESPC_AUTO) 00369 REAL, POINTER, DIMENSION(:,:) :: XRESPC_ECO=>NULL() 00370 !$OMP THREADPRIVATE(XRESPC_ECO) 00371 REAL, POINTER, DIMENSION(:,:) :: XDWGC=>NULL() 00372 !$OMP THREADPRIVATE(XDWGC) 00373 REAL, POINTER, DIMENSION(:,:) :: XDWGIC=>NULL() 00374 !$OMP THREADPRIVATE(XDWGIC) 00375 REAL, POINTER, DIMENSION(:,:) :: XDWRC=>NULL() 00376 !$OMP THREADPRIVATE(XDWRC) 00377 REAL, POINTER, DIMENSION(:,:) :: XDSWEC=>NULL() 00378 !$OMP THREADPRIVATE(XDSWEC) 00379 REAL, POINTER, DIMENSION(:,:) :: XWATBUDC=>NULL() 00380 !$OMP THREADPRIVATE(XWATBUDC) 00381 REAL, POINTER, DIMENSION(:) :: XAVG_RNC=>NULL() 00382 !$OMP THREADPRIVATE(XAVG_RNC) 00383 REAL, POINTER, DIMENSION(:) :: XAVG_HC=>NULL() 00384 !$OMP THREADPRIVATE(XAVG_HC) 00385 REAL, POINTER, DIMENSION(:) :: XAVG_LEC=>NULL() 00386 !$OMP THREADPRIVATE(XAVG_LEC) 00387 REAL, POINTER, DIMENSION(:) :: XAVG_LEIC=>NULL() 00388 !$OMP THREADPRIVATE(XAVG_LEIC) 00389 REAL, POINTER, DIMENSION(:) :: XAVG_GFLUXC=>NULL() 00390 !$OMP THREADPRIVATE(XAVG_GFLUXC) 00391 REAL, POINTER, DIMENSION(:) :: XAVG_LEGC=>NULL() 00392 !$OMP THREADPRIVATE(XAVG_LEGC) 00393 REAL, POINTER, DIMENSION(:) :: XAVG_LEGIC=>NULL() 00394 !$OMP THREADPRIVATE(XAVG_LEGIC) 00395 REAL, POINTER, DIMENSION(:) :: XAVG_LEVC=>NULL() 00396 !$OMP THREADPRIVATE(XAVG_LEVC) 00397 REAL, POINTER, DIMENSION(:) :: XAVG_LESC=>NULL() 00398 !$OMP THREADPRIVATE(XAVG_LESC) 00399 REAL, POINTER, DIMENSION(:) :: XAVG_LESLC=>NULL() 00400 !$OMP THREADPRIVATE(XAVG_LESLC) 00401 REAL, POINTER, DIMENSION(:) :: XAVG_LERC=>NULL() 00402 !$OMP THREADPRIVATE(XAVG_LERC) 00403 REAL, POINTER, DIMENSION(:) :: XAVG_LETRC=>NULL() 00404 !$OMP THREADPRIVATE(XAVG_LETRC) 00405 REAL, POINTER, DIMENSION(:) :: XAVG_EVAPC=>NULL() 00406 !$OMP THREADPRIVATE(XAVG_EVAPC) 00407 REAL, POINTER, DIMENSION(:) :: XAVG_DRAINC=>NULL() 00408 !$OMP THREADPRIVATE(XAVG_DRAINC) 00409 REAL, POINTER, DIMENSION(:) :: XAVG_RUNOFFC=>NULL() 00410 !$OMP THREADPRIVATE(XAVG_RUNOFFC) 00411 REAL, POINTER, DIMENSION(:) :: XAVG_HORTC=>NULL() 00412 !$OMP THREADPRIVATE(XAVG_HORTC) 00413 REAL, POINTER, DIMENSION(:) :: XAVG_DRIPC=>NULL() 00414 !$OMP THREADPRIVATE(XAVG_DRIPC) 00415 REAL, POINTER, DIMENSION(:) :: XAVG_MELTC=>NULL() 00416 !$OMP THREADPRIVATE(XAVG_MELTC) 00417 REAL, POINTER, DIMENSION(:) :: XAVG_IFLOODC=>NULL() 00418 !$OMP THREADPRIVATE(XAVG_IFLOODC) 00419 REAL, POINTER, DIMENSION(:) :: XAVG_PFLOODC=>NULL() 00420 !$OMP THREADPRIVATE(XAVG_PFLOODC) 00421 REAL, POINTER, DIMENSION(:) :: XAVG_LE_FLOODC=>NULL() 00422 !$OMP THREADPRIVATE(XAVG_LE_FLOODC) 00423 REAL, POINTER, DIMENSION(:) :: XAVG_LEI_FLOODC=>NULL() 00424 !$OMP THREADPRIVATE(XAVG_LEI_FLOODC) 00425 REAL, POINTER, DIMENSION(:) :: XAVG_ICEFLUXC=>NULL() 00426 !$OMP THREADPRIVATE(XAVG_ICEFLUXC) 00427 REAL, POINTER, DIMENSION(:) :: XAVG_RRVEGC=>NULL() 00428 !$OMP THREADPRIVATE(XAVG_RRVEGC) 00429 REAL, POINTER, DIMENSION(:) :: XAVG_IRRIG_FLUXC=>NULL() 00430 !$OMP THREADPRIVATE(XAVG_IRRIG_FLUXC) 00431 REAL, POINTER, DIMENSION(:) :: XAVG_GPPC=>NULL() 00432 !$OMP THREADPRIVATE(XAVG_GPPC) 00433 REAL, POINTER, DIMENSION(:) :: XAVG_RESPC_AUTO=>NULL() 00434 !$OMP THREADPRIVATE(XAVG_RESPC_AUTO) 00435 REAL, POINTER, DIMENSION(:) :: XAVG_RESPC_ECO=>NULL() 00436 !$OMP THREADPRIVATE(XAVG_RESPC_ECO) 00437 REAL, POINTER, DIMENSION(:) :: XRAINFALLC=>NULL() 00438 !$OMP THREADPRIVATE(XRAINFALLC) 00439 REAL, POINTER, DIMENSION(:) :: XSNOWFALLC=>NULL() 00440 !$OMP THREADPRIVATE(XSNOWFALLC) 00441 REAL, POINTER, DIMENSION(:) :: XAVG_DWGC=>NULL() 00442 !$OMP THREADPRIVATE(XAVG_DWGC) 00443 REAL, POINTER, DIMENSION(:) :: XAVG_DWGIC=>NULL() 00444 !$OMP THREADPRIVATE(XAVG_DWGIC) 00445 REAL, POINTER, DIMENSION(:) :: XAVG_DWRC=>NULL() 00446 !$OMP THREADPRIVATE(XAVG_DWRC) 00447 REAL, POINTER, DIMENSION(:) :: XAVG_DSWEC=>NULL() 00448 !$OMP THREADPRIVATE(XAVG_DSWEC) 00449 REAL, POINTER, DIMENSION(:) :: XAVG_WATBUDC=>NULL() 00450 !$OMP THREADPRIVATE(XAVG_WATBUDC) 00451 ! 00452 CONTAINS 00453 ! 00454 SUBROUTINE DIAG_EVAP_ISBA_GOTO_MODEL(KFROM, KTO, LKFROM) 00455 LOGICAL, INTENT(IN) :: LKFROM 00456 INTEGER, INTENT(IN) :: KFROM, KTO 00457 REAL(KIND=JPRB) :: ZHOOK_HANDLE 00458 ! 00459 ! Save current state for allocated arrays 00460 IF (LKFROM) THEN 00461 DIAG_EVAP_ISBA_MODEL(KFROM)%XLEG=>XLEG 00462 DIAG_EVAP_ISBA_MODEL(KFROM)%XLEGI=>XLEGI 00463 DIAG_EVAP_ISBA_MODEL(KFROM)%XLEV=>XLEV 00464 DIAG_EVAP_ISBA_MODEL(KFROM)%XLES=>XLES 00465 DIAG_EVAP_ISBA_MODEL(KFROM)%XLESL=>XLESL 00466 DIAG_EVAP_ISBA_MODEL(KFROM)%XLER=>XLER 00467 DIAG_EVAP_ISBA_MODEL(KFROM)%XLETR=>XLETR 00468 DIAG_EVAP_ISBA_MODEL(KFROM)%XEVAP=>XEVAP 00469 DIAG_EVAP_ISBA_MODEL(KFROM)%XDRAIN=>XDRAIN 00470 DIAG_EVAP_ISBA_MODEL(KFROM)%XRUNOFF=>XRUNOFF 00471 DIAG_EVAP_ISBA_MODEL(KFROM)%XHORT=>XHORT 00472 DIAG_EVAP_ISBA_MODEL(KFROM)%XDRIP=>XDRIP 00473 DIAG_EVAP_ISBA_MODEL(KFROM)%XMELT=>XMELT 00474 DIAG_EVAP_ISBA_MODEL(KFROM)%XIFLOOD=>XIFLOOD 00475 DIAG_EVAP_ISBA_MODEL(KFROM)%XPFLOOD=>XPFLOOD 00476 DIAG_EVAP_ISBA_MODEL(KFROM)%XLE_FLOOD=>XLE_FLOOD 00477 DIAG_EVAP_ISBA_MODEL(KFROM)%XLEI_FLOOD=>XLEI_FLOOD 00478 DIAG_EVAP_ISBA_MODEL(KFROM)%XRRVEG=>XRRVEG 00479 DIAG_EVAP_ISBA_MODEL(KFROM)%XIRRIG_FLUX=>XIRRIG_FLUX 00480 DIAG_EVAP_ISBA_MODEL(KFROM)%XGPP=>XGPP 00481 DIAG_EVAP_ISBA_MODEL(KFROM)%XRESP_AUTO=>XRESP_AUTO 00482 DIAG_EVAP_ISBA_MODEL(KFROM)%XRESP_ECO=>XRESP_ECO 00483 DIAG_EVAP_ISBA_MODEL(KFROM)%XDWG=>XDWG 00484 DIAG_EVAP_ISBA_MODEL(KFROM)%XDWGI=>XDWGI 00485 DIAG_EVAP_ISBA_MODEL(KFROM)%XDWR=>XDWR 00486 DIAG_EVAP_ISBA_MODEL(KFROM)%XDSWE=>XDSWE 00487 DIAG_EVAP_ISBA_MODEL(KFROM)%XWATBUD=>XWATBUD 00488 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_LEG=>XAVG_LEG 00489 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_LEGI=>XAVG_LEGI 00490 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_LEV=>XAVG_LEV 00491 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_LES=>XAVG_LES 00492 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_LESL=>XAVG_LESL 00493 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_LER=>XAVG_LER 00494 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_LETR=>XAVG_LETR 00495 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_EVAP=>XAVG_EVAP 00496 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_DRAIN=>XAVG_DRAIN 00497 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_RUNOFF=>XAVG_RUNOFF 00498 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_HORT=>XAVG_HORT 00499 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_DRIP=>XAVG_DRIP 00500 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_MELT=>XAVG_MELT 00501 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_IFLOOD=>XAVG_IFLOOD 00502 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_PFLOOD=>XAVG_PFLOOD 00503 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_LE_FLOOD=>XAVG_LE_FLOOD 00504 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_LEI_FLOOD=>XAVG_LEI_FLOOD 00505 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_RRVEG=>XAVG_RRVEG 00506 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_IRRIG_FLUX=>XAVG_IRRIG_FLUX 00507 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_GPP=>XAVG_GPP 00508 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_RESP_AUTO=>XAVG_RESP_AUTO 00509 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_RESP_ECO=>XAVG_RESP_ECO 00510 DIAG_EVAP_ISBA_MODEL(KFROM)%XRAINFALL=>XRAINFALL 00511 DIAG_EVAP_ISBA_MODEL(KFROM)%XSNOWFALL=>XSNOWFALL 00512 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_DWG=>XAVG_DWG 00513 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_DWGI=>XAVG_DWGI 00514 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_DWR=>XAVG_DWR 00515 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_DSWE=>XAVG_DSWE 00516 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_WATBUD=>XAVG_WATBUD 00517 DIAG_EVAP_ISBA_MODEL(KFROM)%XRNC=>XRNC 00518 DIAG_EVAP_ISBA_MODEL(KFROM)%XHC=>XHC 00519 DIAG_EVAP_ISBA_MODEL(KFROM)%XLEC=>XLEC 00520 DIAG_EVAP_ISBA_MODEL(KFROM)%XLEIC=>XLEIC 00521 DIAG_EVAP_ISBA_MODEL(KFROM)%XGFLUXC=>XGFLUXC 00522 DIAG_EVAP_ISBA_MODEL(KFROM)%XLEGC=>XLEGC 00523 DIAG_EVAP_ISBA_MODEL(KFROM)%XLEGIC=>XLEGIC 00524 DIAG_EVAP_ISBA_MODEL(KFROM)%XLEVC=>XLEVC 00525 DIAG_EVAP_ISBA_MODEL(KFROM)%XLESC=>XLESC 00526 DIAG_EVAP_ISBA_MODEL(KFROM)%XLESLC=>XLESLC 00527 DIAG_EVAP_ISBA_MODEL(KFROM)%XLERC=>XLERC 00528 DIAG_EVAP_ISBA_MODEL(KFROM)%XLETRC=>XLETRC 00529 DIAG_EVAP_ISBA_MODEL(KFROM)%XEVAPC=>XEVAPC 00530 DIAG_EVAP_ISBA_MODEL(KFROM)%XDRAINC=>XDRAINC 00531 DIAG_EVAP_ISBA_MODEL(KFROM)%XRUNOFFC=>XRUNOFFC 00532 DIAG_EVAP_ISBA_MODEL(KFROM)%XHORTC=>XHORTC 00533 DIAG_EVAP_ISBA_MODEL(KFROM)%XDRIPC=>XDRIPC 00534 DIAG_EVAP_ISBA_MODEL(KFROM)%XMELTC=>XMELTC 00535 DIAG_EVAP_ISBA_MODEL(KFROM)%XIFLOODC=>XIFLOODC 00536 DIAG_EVAP_ISBA_MODEL(KFROM)%XPFLOODC=>XPFLOODC 00537 DIAG_EVAP_ISBA_MODEL(KFROM)%XLE_FLOODC=>XLE_FLOODC 00538 DIAG_EVAP_ISBA_MODEL(KFROM)%XLEI_FLOODC=>XLEI_FLOODC 00539 DIAG_EVAP_ISBA_MODEL(KFROM)%XICEFLUXC=>XICEFLUXC 00540 DIAG_EVAP_ISBA_MODEL(KFROM)%XRRVEGC=>XRRVEGC 00541 DIAG_EVAP_ISBA_MODEL(KFROM)%XIRRIG_FLUXC=>XIRRIG_FLUXC 00542 DIAG_EVAP_ISBA_MODEL(KFROM)%XGPPC=>XGPPC 00543 DIAG_EVAP_ISBA_MODEL(KFROM)%XRESPC_AUTO=>XRESPC_AUTO 00544 DIAG_EVAP_ISBA_MODEL(KFROM)%XRESPC_ECO=>XRESPC_ECO 00545 DIAG_EVAP_ISBA_MODEL(KFROM)%XDWGC=>XDWGC 00546 DIAG_EVAP_ISBA_MODEL(KFROM)%XDWGIC=>XDWGIC 00547 DIAG_EVAP_ISBA_MODEL(KFROM)%XDWRC=>XDWRC 00548 DIAG_EVAP_ISBA_MODEL(KFROM)%XDSWEC=>XDSWEC 00549 DIAG_EVAP_ISBA_MODEL(KFROM)%XWATBUDC=>XWATBUDC 00550 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_RNC=>XAVG_RNC 00551 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_HC=>XAVG_HC 00552 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_LEC=>XAVG_LEC 00553 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_LEIC=>XAVG_LEIC 00554 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_GFLUXC=>XAVG_GFLUXC 00555 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_LEGC=>XAVG_LEGC 00556 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_LEGIC=>XAVG_LEGIC 00557 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_LEVC=>XAVG_LEVC 00558 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_LESC=>XAVG_LESC 00559 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_LESLC=>XAVG_LESLC 00560 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_LERC=>XAVG_LERC 00561 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_LETRC=>XAVG_LETRC 00562 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_EVAPC=>XAVG_EVAPC 00563 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_DRAINC=>XAVG_DRAINC 00564 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_RUNOFFC=>XAVG_RUNOFFC 00565 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_HORTC=>XAVG_HORTC 00566 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_DRIPC=>XAVG_DRIPC 00567 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_MELTC=>XAVG_MELTC 00568 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_IFLOODC=>XAVG_IFLOODC 00569 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_PFLOODC=>XAVG_PFLOODC 00570 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_LE_FLOODC=>XAVG_LE_FLOODC 00571 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_LEI_FLOODC=>XAVG_LEI_FLOODC 00572 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_ICEFLUXC=>XAVG_ICEFLUXC 00573 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_RRVEGC=>XAVG_RRVEGC 00574 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_IRRIG_FLUXC=>XAVG_IRRIG_FLUXC 00575 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_GPPC=>XAVG_GPPC 00576 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_RESPC_AUTO=>XAVG_RESPC_AUTO 00577 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_RESPC_ECO=>XAVG_RESPC_ECO 00578 DIAG_EVAP_ISBA_MODEL(KFROM)%XRAINFALLC=>XRAINFALLC 00579 DIAG_EVAP_ISBA_MODEL(KFROM)%XSNOWFALLC=>XSNOWFALLC 00580 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_DWGC=>XAVG_DWGC 00581 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_DWGIC=>XAVG_DWGIC 00582 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_DWRC=>XAVG_DWRC 00583 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_DSWEC=>XAVG_DSWEC 00584 DIAG_EVAP_ISBA_MODEL(KFROM)%XAVG_WATBUDC=>XAVG_WATBUDC 00585 ENDIF 00586 ! 00587 ! Current model is set to model KTO 00588 IF (LHOOK) CALL DR_HOOK('MODD_DIAG_EVAP_ISBA_N:DIAG_EVAP_ISBA_GOTO_MODEL',0,ZHOOK_HANDLE) 00589 LSURF_EVAP_BUDGET=>DIAG_EVAP_ISBA_MODEL(KTO)%LSURF_EVAP_BUDGET 00590 LSURF_BUDGETC=>DIAG_EVAP_ISBA_MODEL(KTO)%LSURF_BUDGETC 00591 LRESET_BUDGETC=>DIAG_EVAP_ISBA_MODEL(KTO)%LRESET_BUDGETC 00592 LWATER_BUDGET=>DIAG_EVAP_ISBA_MODEL(KTO)%LWATER_BUDGET 00593 XLEG=>DIAG_EVAP_ISBA_MODEL(KTO)%XLEG 00594 XLEGI=>DIAG_EVAP_ISBA_MODEL(KTO)%XLEGI 00595 XLEV=>DIAG_EVAP_ISBA_MODEL(KTO)%XLEV 00596 XLES=>DIAG_EVAP_ISBA_MODEL(KTO)%XLES 00597 XLESL=>DIAG_EVAP_ISBA_MODEL(KTO)%XLESL 00598 XLER=>DIAG_EVAP_ISBA_MODEL(KTO)%XLER 00599 XLETR=>DIAG_EVAP_ISBA_MODEL(KTO)%XLETR 00600 XEVAP=>DIAG_EVAP_ISBA_MODEL(KTO)%XEVAP 00601 XDRAIN=>DIAG_EVAP_ISBA_MODEL(KTO)%XDRAIN 00602 XRUNOFF=>DIAG_EVAP_ISBA_MODEL(KTO)%XRUNOFF 00603 XHORT=>DIAG_EVAP_ISBA_MODEL(KTO)%XHORT 00604 XDRIP=>DIAG_EVAP_ISBA_MODEL(KTO)%XDRIP 00605 XMELT=>DIAG_EVAP_ISBA_MODEL(KTO)%XMELT 00606 XIFLOOD=>DIAG_EVAP_ISBA_MODEL(KTO)%XIFLOOD 00607 XPFLOOD=>DIAG_EVAP_ISBA_MODEL(KTO)%XPFLOOD 00608 XLE_FLOOD=>DIAG_EVAP_ISBA_MODEL(KTO)%XLE_FLOOD 00609 XLEI_FLOOD=>DIAG_EVAP_ISBA_MODEL(KTO)%XLEI_FLOOD 00610 XRRVEG=>DIAG_EVAP_ISBA_MODEL(KTO)%XRRVEG 00611 XIRRIG_FLUX=>DIAG_EVAP_ISBA_MODEL(KTO)%XIRRIG_FLUX 00612 XGPP=>DIAG_EVAP_ISBA_MODEL(KTO)%XGPP 00613 XRESP_AUTO=>DIAG_EVAP_ISBA_MODEL(KTO)%XRESP_AUTO 00614 XRESP_ECO=>DIAG_EVAP_ISBA_MODEL(KTO)%XRESP_ECO 00615 XDWG=>DIAG_EVAP_ISBA_MODEL(KTO)%XDWG 00616 XDWGI=>DIAG_EVAP_ISBA_MODEL(KTO)%XDWGI 00617 XDWR=>DIAG_EVAP_ISBA_MODEL(KTO)%XDWR 00618 XDSWE=>DIAG_EVAP_ISBA_MODEL(KTO)%XDSWE 00619 XWATBUD=>DIAG_EVAP_ISBA_MODEL(KTO)%XWATBUD 00620 XAVG_LEG=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_LEG 00621 XAVG_LEGI=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_LEGI 00622 XAVG_LEV=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_LEV 00623 XAVG_LES=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_LES 00624 XAVG_LESL=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_LESL 00625 XAVG_LER=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_LER 00626 XAVG_LETR=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_LETR 00627 XAVG_EVAP=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_EVAP 00628 XAVG_DRAIN=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_DRAIN 00629 XAVG_RUNOFF=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_RUNOFF 00630 XAVG_HORT=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_HORT 00631 XAVG_DRIP=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_DRIP 00632 XAVG_MELT=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_MELT 00633 XAVG_IFLOOD=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_IFLOOD 00634 XAVG_PFLOOD=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_PFLOOD 00635 XAVG_LE_FLOOD=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_LE_FLOOD 00636 XAVG_LEI_FLOOD=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_LEI_FLOOD 00637 XAVG_RRVEG=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_RRVEG 00638 XAVG_IRRIG_FLUX=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_IRRIG_FLUX 00639 XAVG_GPP=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_GPP 00640 XAVG_RESP_AUTO=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_RESP_AUTO 00641 XAVG_RESP_ECO=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_RESP_ECO 00642 XRAINFALL=>DIAG_EVAP_ISBA_MODEL(KTO)%XRAINFALL 00643 XSNOWFALL=>DIAG_EVAP_ISBA_MODEL(KTO)%XSNOWFALL 00644 XAVG_DWG=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_DWG 00645 XAVG_DWGI=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_DWGI 00646 XAVG_DWR=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_DWR 00647 XAVG_DSWE=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_DSWE 00648 XAVG_WATBUD=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_WATBUD 00649 XRNC=>DIAG_EVAP_ISBA_MODEL(KTO)%XRNC 00650 XHC=>DIAG_EVAP_ISBA_MODEL(KTO)%XHC 00651 XLEC=>DIAG_EVAP_ISBA_MODEL(KTO)%XLEC 00652 XLEIC=>DIAG_EVAP_ISBA_MODEL(KTO)%XLEIC 00653 XGFLUXC=>DIAG_EVAP_ISBA_MODEL(KTO)%XGFLUXC 00654 XLEGC=>DIAG_EVAP_ISBA_MODEL(KTO)%XLEGC 00655 XLEGIC=>DIAG_EVAP_ISBA_MODEL(KTO)%XLEGIC 00656 XLEVC=>DIAG_EVAP_ISBA_MODEL(KTO)%XLEVC 00657 XLESC=>DIAG_EVAP_ISBA_MODEL(KTO)%XLESC 00658 XLESLC=>DIAG_EVAP_ISBA_MODEL(KTO)%XLESLC 00659 XLERC=>DIAG_EVAP_ISBA_MODEL(KTO)%XLERC 00660 XLETRC=>DIAG_EVAP_ISBA_MODEL(KTO)%XLETRC 00661 XEVAPC=>DIAG_EVAP_ISBA_MODEL(KTO)%XEVAPC 00662 XDRAINC=>DIAG_EVAP_ISBA_MODEL(KTO)%XDRAINC 00663 XRUNOFFC=>DIAG_EVAP_ISBA_MODEL(KTO)%XRUNOFFC 00664 XHORTC=>DIAG_EVAP_ISBA_MODEL(KTO)%XHORTC 00665 XDRIPC=>DIAG_EVAP_ISBA_MODEL(KTO)%XDRIPC 00666 XMELTC=>DIAG_EVAP_ISBA_MODEL(KTO)%XMELTC 00667 XIFLOODC=>DIAG_EVAP_ISBA_MODEL(KTO)%XIFLOODC 00668 XPFLOODC=>DIAG_EVAP_ISBA_MODEL(KTO)%XPFLOODC 00669 XLE_FLOODC=>DIAG_EVAP_ISBA_MODEL(KTO)%XLE_FLOODC 00670 XLEI_FLOODC=>DIAG_EVAP_ISBA_MODEL(KTO)%XLEI_FLOODC 00671 XICEFLUXC=>DIAG_EVAP_ISBA_MODEL(KTO)%XICEFLUXC 00672 XRRVEGC=>DIAG_EVAP_ISBA_MODEL(KTO)%XRRVEGC 00673 XIRRIG_FLUXC=>DIAG_EVAP_ISBA_MODEL(KTO)%XIRRIG_FLUXC 00674 XGPPC=>DIAG_EVAP_ISBA_MODEL(KTO)%XGPPC 00675 XRESPC_AUTO=>DIAG_EVAP_ISBA_MODEL(KTO)%XRESPC_AUTO 00676 XRESPC_ECO=>DIAG_EVAP_ISBA_MODEL(KTO)%XRESPC_ECO 00677 XDWGC=>DIAG_EVAP_ISBA_MODEL(KTO)%XDWGC 00678 XDWGIC=>DIAG_EVAP_ISBA_MODEL(KTO)%XDWGIC 00679 XDWRC=>DIAG_EVAP_ISBA_MODEL(KTO)%XDWRC 00680 XDSWEC=>DIAG_EVAP_ISBA_MODEL(KTO)%XDSWEC 00681 XWATBUDC=>DIAG_EVAP_ISBA_MODEL(KTO)%XWATBUDC 00682 XAVG_RNC=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_RNC 00683 XAVG_HC=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_HC 00684 XAVG_LEC=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_LEC 00685 XAVG_LEIC=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_LEIC 00686 XAVG_GFLUXC=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_GFLUXC 00687 XAVG_LEGC=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_LEGC 00688 XAVG_LEGIC=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_LEGIC 00689 XAVG_LEVC=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_LEVC 00690 XAVG_LESC=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_LESC 00691 XAVG_LESLC=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_LESLC 00692 XAVG_LERC=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_LERC 00693 XAVG_LETRC=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_LETRC 00694 XAVG_EVAPC=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_EVAPC 00695 XAVG_DRAINC=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_DRAINC 00696 XAVG_RUNOFFC=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_RUNOFFC 00697 XAVG_HORTC=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_HORTC 00698 XAVG_DRIPC=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_DRIPC 00699 XAVG_MELTC=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_MELTC 00700 XAVG_IFLOODC=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_IFLOODC 00701 XAVG_PFLOODC=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_PFLOODC 00702 XAVG_LE_FLOODC=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_LE_FLOODC 00703 XAVG_LEI_FLOODC=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_LEI_FLOODC 00704 XAVG_ICEFLUXC=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_ICEFLUXC 00705 XAVG_RRVEGC=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_RRVEGC 00706 XAVG_IRRIG_FLUXC=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_IRRIG_FLUXC 00707 XAVG_GPPC=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_GPPC 00708 XAVG_RESPC_AUTO=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_RESPC_AUTO 00709 XAVG_RESPC_ECO=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_RESPC_ECO 00710 XRAINFALLC=>DIAG_EVAP_ISBA_MODEL(KTO)%XRAINFALLC 00711 XSNOWFALLC=>DIAG_EVAP_ISBA_MODEL(KTO)%XSNOWFALLC 00712 XAVG_DWGC=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_DWGC 00713 XAVG_DWGIC=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_DWGIC 00714 XAVG_DWRC=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_DWRC 00715 XAVG_DSWEC=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_DSWEC 00716 XAVG_WATBUDC=>DIAG_EVAP_ISBA_MODEL(KTO)%XAVG_WATBUDC 00717 IF (LHOOK) CALL DR_HOOK('MODD_DIAG_EVAP_ISBA_N:DIAG_EVAP_ISBA_GOTO_MODEL',1,ZHOOK_HANDLE) 00718 00719 END SUBROUTINE DIAG_EVAP_ISBA_GOTO_MODEL 00720 00721 SUBROUTINE DIAG_EVAP_ISBA_ALLOC(KMODEL) 00722 INTEGER, INTENT(IN) :: KMODEL 00723 INTEGER :: J 00724 REAL(KIND=JPRB) :: ZHOOK_HANDLE 00725 IF (LHOOK) CALL DR_HOOK("MODD_DIAG_EVAP_ISBA_N:DIAG_EVAP_ISBA_ALLOC",0,ZHOOK_HANDLE) 00726 ALLOCATE(DIAG_EVAP_ISBA_MODEL(KMODEL)) 00727 DO J=1,KMODEL 00728 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XLEG) 00729 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XLEGI) 00730 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XLEV) 00731 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XLES) 00732 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XLESL) 00733 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XLER) 00734 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XLETR) 00735 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XEVAP) 00736 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XDRAIN) 00737 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XRUNOFF) 00738 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XHORT) 00739 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XRRVEG) 00740 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XMELT) 00741 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XIFLOOD) 00742 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XPFLOOD) 00743 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XLE_FLOOD) 00744 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XLEI_FLOOD) 00745 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XDRIP) 00746 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XIRRIG_FLUX) 00747 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XGPP) 00748 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XRESP_AUTO) 00749 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XRESP_ECO) 00750 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XDWG) 00751 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XDWGI) 00752 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XDWR) 00753 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XDSWE) 00754 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XWATBUD) 00755 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_LEG) 00756 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_LEGI) 00757 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_LEV) 00758 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_LES) 00759 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_LESL) 00760 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_LER) 00761 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_LETR) 00762 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_EVAP) 00763 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_DRAIN) 00764 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_RUNOFF) 00765 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_HORT) 00766 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_DRIP) 00767 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_MELT) 00768 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_IFLOOD) 00769 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_PFLOOD) 00770 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_LE_FLOOD) 00771 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_LEI_FLOOD) 00772 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_RRVEG) 00773 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_IRRIG_FLUX) 00774 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_GPP) 00775 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_RESP_AUTO) 00776 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_RESP_ECO) 00777 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XRAINFALL) 00778 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XSNOWFALL) 00779 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_DWG) 00780 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_DWGI) 00781 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_DWR) 00782 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_DSWE) 00783 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_WATBUD) 00784 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XRNC) 00785 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XHC) 00786 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XLEC) 00787 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XLEIC) 00788 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XGFLUXC) 00789 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XLEGC) 00790 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XLEGIC) 00791 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XLEVC) 00792 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XLESC) 00793 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XLESLC) 00794 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XLERC) 00795 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XLETRC) 00796 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XEVAPC) 00797 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XDRAINC) 00798 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XRUNOFFC) 00799 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XHORTC) 00800 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XDRIPC) 00801 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XMELTC) 00802 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XIFLOODC) 00803 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XPFLOODC) 00804 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XLE_FLOODC) 00805 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XLEI_FLOODC) 00806 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XICEFLUXC) 00807 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XRRVEGC) 00808 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XIRRIG_FLUXC) 00809 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XGPPC) 00810 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XRESPC_AUTO) 00811 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XRESPC_ECO) 00812 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XDWGC) 00813 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XDWGIC) 00814 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XDWRC) 00815 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XDSWEC) 00816 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XWATBUDC) 00817 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_RNC) 00818 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_HC) 00819 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_LEC) 00820 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_LEIC) 00821 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_GFLUXC) 00822 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_LEGC) 00823 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_LEGIC) 00824 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_LEVC) 00825 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_LESC) 00826 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_LESLC) 00827 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_LERC) 00828 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_LETRC) 00829 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_EVAPC) 00830 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_DRAINC) 00831 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_RUNOFFC) 00832 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_HORTC) 00833 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_DRIPC) 00834 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_MELTC) 00835 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_IFLOODC) 00836 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_PFLOODC) 00837 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_LE_FLOODC) 00838 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_LEI_FLOODC) 00839 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_ICEFLUXC) 00840 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_RRVEGC) 00841 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_IRRIG_FLUXC) 00842 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_GPPC) 00843 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_RESPC_AUTO) 00844 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_RESPC_ECO) 00845 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XRAINFALLC) 00846 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XSNOWFALLC) 00847 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_DWGC) 00848 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_DWGIC) 00849 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_DWRC) 00850 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_DSWEC) 00851 NULLIFY(DIAG_EVAP_ISBA_MODEL(J)%XAVG_WATBUDC) 00852 ENDDO 00853 DIAG_EVAP_ISBA_MODEL(:)%LSURF_EVAP_BUDGET=.FALSE. 00854 DIAG_EVAP_ISBA_MODEL(:)%LSURF_BUDGETC=.FALSE. 00855 DIAG_EVAP_ISBA_MODEL(:)%LRESET_BUDGETC=.FALSE. 00856 DIAG_EVAP_ISBA_MODEL(:)%LWATER_BUDGET=.FALSE. 00857 IF (LHOOK) CALL DR_HOOK("MODD_DIAG_EVAP_ISBA_N:DIAG_EVAP_ISBA_ALLOC",1,ZHOOK_HANDLE) 00858 END SUBROUTINE DIAG_EVAP_ISBA_ALLOC 00859 00860 SUBROUTINE DIAG_EVAP_ISBA_DEALLO 00861 REAL(KIND=JPRB) :: ZHOOK_HANDLE 00862 IF (LHOOK) CALL DR_HOOK("MODD_DIAG_EVAP_ISBA_N:DIAG_EVAP_ISBA_DEALLO",0,ZHOOK_HANDLE) 00863 IF (ALLOCATED(DIAG_EVAP_ISBA_MODEL)) DEALLOCATE(DIAG_EVAP_ISBA_MODEL) 00864 IF (LHOOK) CALL DR_HOOK("MODD_DIAG_EVAP_ISBA_N:DIAG_EVAP_ISBA_DEALLO",1,ZHOOK_HANDLE) 00865 END SUBROUTINE DIAG_EVAP_ISBA_DEALLO 00866 00867 END MODULE MODD_DIAG_EVAP_ISBA_n
1.8.0
