|
SURFEX v7.3
General documentation of Surfex
|
|
SURFEX v7.3
General documentation of Surfex
|
00001 !###################### 00002 MODULE MODD_PACK_DIAG_ISBA 00003 !###################### 00004 ! 00005 !!**** *MODD_PACK_DIAG_ISBA - declaration of packed diagnostics for ISBA scheme 00006 !! 00007 !! PURPOSE 00008 !! ------- 00009 ! 00010 !! 00011 !!** IMPLICIT ARGUMENTS 00012 !! ------------------ 00013 !! None 00014 !! 00015 !! REFERENCE 00016 !! --------- 00017 !! 00018 !! AUTHOR 00019 !! ------ 00020 !! V. Masson *Meteo France* 00021 !! 00022 !! MODIFICATIONS 00023 !! ------------- 00024 !! Original 01/2004 00025 !! Modified 10/2004 by P. Le Moigne: add Halstead coefficient 00026 !! Modified 11/2009 by S. Senesi: add precipitation intercepted by the vegetation (XP_RRVEG) 00027 !! Modified 04-09 by A.L. Gibelin : Add carbon diagnostics 00028 ! 00029 !* 0. DECLARATIONS 00030 ! ------------ 00031 ! 00032 ! 00033 IMPLICIT NONE 00034 !------------------------------------------------------------------------------ 00035 ! 00036 INTEGER :: NSIZE_SIMPLE 00037 !$OMP THREADPRIVATE(NSIZE_SIMPLE) 00038 INTEGER :: NSIZE_GROUND 00039 !$OMP THREADPRIVATE(NSIZE_GROUND) 00040 INTEGER :: NSIZE_SNOW 00041 !$OMP THREADPRIVATE(NSIZE_SNOW) 00042 INTEGER :: NSIZE_KSW 00043 !$OMP THREADPRIVATE(NSIZE_KSW) 00044 INTEGER :: NSIZE_ABC 00045 !$OMP THREADPRIVATE(NSIZE_ABC) 00046 INTEGER :: NSIZE_0 00047 !$OMP THREADPRIVATE(NSIZE_0) 00048 INTEGER :: NSIZE_00 00049 !$OMP THREADPRIVATE(NSIZE_00) 00050 REAL, ALLOCATABLE, DIMENSION(:,:), TARGET :: XBLOCK_SIMPLE 00051 !$OMP THREADPRIVATE(XBLOCK_SIMPLE) 00052 REAL, ALLOCATABLE, DIMENSION(:,:,:), TARGET :: XBLOCK_GROUND 00053 !$OMP THREADPRIVATE(XBLOCK_GROUND) 00054 REAL, ALLOCATABLE, DIMENSION(:,:,:), TARGET :: XBLOCK_SNOW 00055 !$OMP THREADPRIVATE(XBLOCK_SNOW) 00056 REAL, ALLOCATABLE, DIMENSION(:,:,:), TARGET :: XBLOCK_KSW 00057 !$OMP THREADPRIVATE(XBLOCK_KSW) 00058 REAL, ALLOCATABLE, DIMENSION(:,:,:), TARGET :: XBLOCK_ABC 00059 !$OMP THREADPRIVATE(XBLOCK_ABC) 00060 REAL, ALLOCATABLE, DIMENSION(:,:), TARGET :: XBLOCK_0 00061 !$OMP THREADPRIVATE(XBLOCK_0) 00062 REAL, ALLOCATABLE, DIMENSION(:,:,:), TARGET :: XBLOCK_00 00063 !$OMP THREADPRIVATE(XBLOCK_00) 00064 ! 00065 REAL, POINTER, DIMENSION(:) :: XP_RNSNOW ! net radiative flux from snow (ISBA-ES:3-L) (W/m2) 00066 !$OMP THREADPRIVATE(XP_RNSNOW) 00067 REAL, POINTER, DIMENSION(:) :: XP_HSNOW ! sensible heat flux from snow (ISBA-ES:3-L) (W/m2) 00068 !$OMP THREADPRIVATE(XP_HSNOW) 00069 REAL, POINTER, DIMENSION(:) :: XP_HPSNOW ! heat release from rainfall (ISBA-ES:3-L) (W/m2) 00070 !$OMP THREADPRIVATE(XP_HPSNOW) 00071 REAL, POINTER, DIMENSION(:) :: XP_SMELTFLUX ! energy removed from soil/vegetation surface 00072 !$OMP THREADPRIVATE(XP_SMELTFLUX) 00073 REAL, POINTER, DIMENSION(:) :: XP_GFLUXSNOW ! net surface energy flux into snowpack 00074 !$OMP THREADPRIVATE(XP_GFLUXSNOW) 00075 ! ! (ISBA-ES:3-L) (W/m2) 00076 REAL, POINTER, DIMENSION(:) :: XP_USTARSNOW ! friction velocity over snow 00077 !$OMP THREADPRIVATE(XP_USTARSNOW) 00078 ! ! (ISBA-ES:3-L) (m/s) 00079 REAL, POINTER, DIMENSION(:) :: XP_GRNDFLUX ! soil/snow interface heat flux (ISBA-ES:3-L) (W/m2) 00080 !$OMP THREADPRIVATE(XP_GRNDFLUX) 00081 REAL, POINTER, DIMENSION(:) :: XP_SRSFC ! snowfall over snowpack (ISBA-ES:3-L) (kg/m2/s) 00082 !$OMP THREADPRIVATE(XP_SRSFC) 00083 REAL, POINTER, DIMENSION(:) :: XP_RRSFC ! rainfall over snowpack (ISBA-ES:3-L) (kg/m2/s) 00084 !$OMP THREADPRIVATE(XP_RRSFC) 00085 REAL, POINTER, DIMENSION(:) :: XP_LESL ! snowpack evaporation (ISBA-ES:3-L) (W/m2) 00086 !$OMP THREADPRIVATE(XP_LESL) 00087 REAL, POINTER, DIMENSION(:) :: XP_CDSNOW ! snow drag coefficient (ISBA-ES:3-L) (-) 00088 !$OMP THREADPRIVATE(XP_CDSNOW) 00089 REAL, POINTER, DIMENSION(:) :: XP_CHSNOW ! heat turbulent transfer coefficient 00090 !$OMP THREADPRIVATE(XP_CHSNOW) 00091 ! ! (ISBA-ES:3-L) (-) 00092 REAL, POINTER, DIMENSION(:,:)::XP_SNOWTEMP ! snow temperature profile (ISBA-ES:3-L) (K) 00093 !$OMP THREADPRIVATE(XP_SNOWTEMP) 00094 REAL, POINTER, DIMENSION(:,:)::XP_SNOWLIQ ! snow liquid water profile (ISBA-ES:3-L) (m) 00095 !$OMP THREADPRIVATE(XP_SNOWLIQ) 00096 REAL, POINTER, DIMENSION(:,:)::XP_SNOWDZ ! snow layer thicknesses (m) 00097 !$OMP THREADPRIVATE(XP_SNOWDZ) 00098 REAL, POINTER, DIMENSION(:) :: XP_SNOWHMASS ! heat content change due to mass 00099 !$OMP THREADPRIVATE(XP_SNOWHMASS) 00100 ! ! changes in snowpack: for budget 00101 ! ! calculations only. (ISBA-ES:3-L) (J/m2) 00102 REAL, POINTER, DIMENSION(:) :: XP_RN_ISBA ! net radiative flux from snow-free surface 00103 !$OMP THREADPRIVATE(XP_RN_ISBA) 00104 ! ! (ISBA-ES:3-L) (W/m2) 00105 REAL, POINTER, DIMENSION(:) :: XP_H_ISBA ! sensible heat flux from snow-free surface 00106 !$OMP THREADPRIVATE(XP_H_ISBA) 00107 ! ! (ISBA-ES:3-L) (W/m2) 00108 REAL, POINTER, DIMENSION(:) :: XP_LEG_ISBA ! baresoil evaporation from snow-free surface 00109 !$OMP THREADPRIVATE(XP_LEG_ISBA) 00110 ! ! (ISBA-ES:3-L) (W/m2) 00111 REAL, POINTER, DIMENSION(:) :: XP_LEGI_ISBA ! baresoil sublimation from snow-free surface 00112 !$OMP THREADPRIVATE(XP_LEGI_ISBA) 00113 ! ! (ISBA-ES:3-L) (W/m2) 00114 REAL, POINTER, DIMENSION(:) :: XP_LEV_ISBA ! total evapotranspiration from vegetation over 00115 !$OMP THREADPRIVATE(XP_LEV_ISBA) 00116 ! ! snow-free surface (ISBA-ES:3-L) (W/m2) 00117 REAL, POINTER, DIMENSION(:) :: XP_LETR_ISBA ! transpiration from snow-free surface 00118 !$OMP THREADPRIVATE(XP_LETR_ISBA) 00119 ! ! (ISBA-ES:3-L) (W/m2) 00120 REAL, POINTER, DIMENSION(:) :: XP_USTAR_ISBA! friction velocity from snow-free 00121 !$OMP THREADPRIVATE(XP_USTAR_ISBA) 00122 ! ! surface (ISBA-ES:3-L) (m/s) 00123 REAL, POINTER, DIMENSION(:) :: XP_LER_ISBA ! evaporation from canopy water interception 00124 !$OMP THREADPRIVATE(XP_LER_ISBA) 00125 ! ! store over snow-free surface (ISBA-ES:3-L) (W/m2) 00126 REAL, POINTER, DIMENSION(:) :: XP_LE_ISBA ! total latent heat flux from snow-free surface 00127 !$OMP THREADPRIVATE(XP_LE_ISBA) 00128 REAL, POINTER, DIMENSION(:) :: XP_LEI_ISBA ! sublimation latent heat flux from snow-free surface 00129 !$OMP THREADPRIVATE(XP_LEI_ISBA) 00130 ! ! (ISBA-ES:3-L) (W/m2) 00131 REAL, POINTER, DIMENSION(:) :: XP_GFLUX_ISBA! net energy flux into the snow-free surface 00132 !$OMP THREADPRIVATE(XP_GFLUX_ISBA) 00133 ! ! (ISBA-ES:3-L) (W/m2) 00134 REAL, POINTER, DIMENSION(:) :: XP_MELTADV ! advective energy from snow melt water 00135 !$OMP THREADPRIVATE(XP_MELTADV) 00136 ! ! (ISBA-ES:3-L) (W/m2) 00137 REAL, POINTER, DIMENSION(:) :: XP_CH ! thermal diffusion coefficient (W/s) 00138 !$OMP THREADPRIVATE(XP_CH) 00139 REAL, POINTER, DIMENSION(:) :: XP_CE ! transfer coefficient for vapor (W/s/K) 00140 !$OMP THREADPRIVATE(XP_CE) 00141 REAL, POINTER, DIMENSION(:) :: XP_CD ! drag coefficient (-) 00142 !$OMP THREADPRIVATE(XP_CD) 00143 REAL, POINTER, DIMENSION(:) :: XP_CDN ! neutral drag coefficient (-) 00144 !$OMP THREADPRIVATE(XP_CDN) 00145 REAL, POINTER, DIMENSION(:) :: XP_RI ! Bulk-Richardson number (-) 00146 !$OMP THREADPRIVATE(XP_RI) 00147 REAL, POINTER, DIMENSION(:) :: XP_HU ! area averaged surface humidity coefficient (-) 00148 !$OMP THREADPRIVATE(XP_HU) 00149 REAL, POINTER, DIMENSION(:) :: XP_HUG ! baresoil surface humidity coefficient (-) 00150 !$OMP THREADPRIVATE(XP_HUG) 00151 REAL, POINTER, DIMENSION(:) :: XP_HV ! Halstead coefficient (-) 00152 !$OMP THREADPRIVATE(XP_HV) 00153 ! 00154 REAL, POINTER, DIMENSION(:) :: XP_ALBT ! Total Albedo (-) 00155 !$OMP THREADPRIVATE(XP_ALBT) 00156 ! 00157 REAL, POINTER, DIMENSION(:) :: XP_RN ! net radiation at surface (W/m2) 00158 !$OMP THREADPRIVATE(XP_RN) 00159 REAL, POINTER, DIMENSION(:) :: XP_H ! sensible heat flux (W/m2) 00160 !$OMP THREADPRIVATE(XP_H) 00161 REAL, POINTER, DIMENSION(:) :: XP_LEG ! baresoil evaporation (W/m2) 00162 !$OMP THREADPRIVATE(XP_LEG) 00163 REAL, POINTER, DIMENSION(:) :: XP_LEGI ! baresoil sublimation (W/m2) 00164 !$OMP THREADPRIVATE(XP_LEGI) 00165 REAL, POINTER, DIMENSION(:) :: XP_LEV ! total evapotranspiration from vegetation (W/m2) 00166 !$OMP THREADPRIVATE(XP_LEV) 00167 REAL, POINTER, DIMENSION(:) :: XP_LES ! snow sublimation (W/m2) 00168 !$OMP THREADPRIVATE(XP_LES) 00169 REAL, POINTER, DIMENSION(:) :: XP_LER ! evaporation from canopy water interception 00170 !$OMP THREADPRIVATE(XP_LER) 00171 ! ! store (W/m2) 00172 REAL, POINTER, DIMENSION(:) :: XP_LETR ! transpiration (W/m2) 00173 !$OMP THREADPRIVATE(XP_LETR) 00174 REAL, POINTER, DIMENSION(:) :: XP_EVAP ! evapotranspiration (kg/m2/s) 00175 !$OMP THREADPRIVATE(XP_EVAP) 00176 REAL, POINTER, DIMENSION(:) :: XP_LEI ! sublimation latent heat flux from snow-free surface (W/m2) 00177 !$OMP THREADPRIVATE(XP_LEI) 00178 REAL, POINTER, DIMENSION(:) :: XP_GFLUX ! net soil-vegetation flux (W/m2) 00179 !$OMP THREADPRIVATE(XP_GFLUX) 00180 REAL, POINTER, DIMENSION(:) :: XP_RESTORE ! surface energy budget restore term (W/m2) 00181 !$OMP THREADPRIVATE(XP_RESTORE) 00182 REAL, POINTER, DIMENSION(:) :: XP_DRAIN ! soil drainage flux (kg/m2/s) 00183 !$OMP THREADPRIVATE(XP_DRAIN) 00184 REAL, POINTER, DIMENSION(:) :: XP_RUNOFF ! sub-grid and supersaturation runoff (kg/m2/s) 00185 !$OMP THREADPRIVATE(XP_RUNOFF) 00186 REAL, POINTER, DIMENSION(:) :: XP_MELT ! melting rate of the snow (kg/m2/s) 00187 !$OMP THREADPRIVATE(XP_MELT) 00188 REAL, POINTER, DIMENSION(:) :: XP_SNOWFREE_ALB ! snow-free global albedo (-) 00189 !$OMP THREADPRIVATE(XP_SNOWFREE_ALB) 00190 REAL, POINTER, DIMENSION(:) :: XP_SNOWFREE_ALB_VEG ! snow-free global albedo of vegetation 00191 !$OMP THREADPRIVATE(XP_SNOWFREE_ALB_VEG) 00192 REAL, POINTER, DIMENSION(:) :: XP_SNOWFREE_ALB_SOIL! snow-free soil albedo 00193 !$OMP THREADPRIVATE(XP_SNOWFREE_ALB_SOIL) 00194 REAL, POINTER, DIMENSION(:) :: XP_Z0_WITH_SNOW ! total roughness length (including snow) (m) 00195 !$OMP THREADPRIVATE(XP_Z0_WITH_SNOW) 00196 REAL, POINTER, DIMENSION(:) :: XP_Z0H_WITH_SNOW! roughness length for heat (including snow) (m) 00197 !$OMP THREADPRIVATE(XP_Z0H_WITH_SNOW) 00198 REAL, POINTER, DIMENSION(:) :: XP_Z0EFF ! effective roughness length (with relief added)(m) 00199 !$OMP THREADPRIVATE(XP_Z0EFF) 00200 ! 00201 REAL, POINTER, DIMENSION(:,:)::XP_IACAN ! PAR in the canopy at different gauss level (micmolphot/m2/s) 00202 !$OMP THREADPRIVATE(XP_IACAN) 00203 ! 00204 REAL, POINTER, DIMENSION(:) :: XP_CG ! heat capacity of the ground 00205 !$OMP THREADPRIVATE(XP_CG) 00206 REAL, POINTER, DIMENSION(:) :: XP_C1 ! coefficients for the moisure 00207 !$OMP THREADPRIVATE(XP_C1) 00208 REAL, POINTER, DIMENSION(:) :: XP_C2 ! equation. 00209 !$OMP THREADPRIVATE(XP_C2) 00210 REAL, POINTER, DIMENSION(:) :: XP_WGEQ ! equilibrium volumetric water 00211 !$OMP THREADPRIVATE(XP_WGEQ) 00212 ! ! content 00213 REAL, POINTER, DIMENSION(:) :: XP_CT ! area-averaged heat capacity 00214 !$OMP THREADPRIVATE(XP_CT) 00215 REAL, POINTER, DIMENSION(:) :: XP_RS ! stomatal resistance (s/m) 00216 !$OMP THREADPRIVATE(XP_RS) 00217 !------------------------------------------------------------------------------ 00218 ! 00219 REAL, POINTER, DIMENSION(:) :: XP_TS ! Surface temperature (K) 00220 !$OMP THREADPRIVATE(XP_TS) 00221 REAL, POINTER, DIMENSION(:) :: XP_TSRAD ! Radiative surface temperature (K) 00222 !$OMP THREADPRIVATE(XP_TSRAD) 00223 REAL, POINTER, DIMENSION(:) :: XP_T2M ! Air temperature at 2 meters (K) 00224 !$OMP THREADPRIVATE(XP_T2M) 00225 REAL, POINTER, DIMENSION(:) :: XP_Q2M ! Air spec. humidity at 2 meters (kg/kg) 00226 !$OMP THREADPRIVATE(XP_Q2M) 00227 REAL, POINTER, DIMENSION(:) :: XP_HU2M ! Air rela. humidity at 2 meters (-) 00228 !$OMP THREADPRIVATE(XP_HU2M) 00229 REAL, POINTER, DIMENSION(:) :: XP_ZON10M ! zonal Wind at 10 meters (m/s) 00230 !$OMP THREADPRIVATE(XP_ZON10M) 00231 REAL, POINTER, DIMENSION(:) :: XP_MER10M ! meridian Wind at 10 meters (m/s) 00232 !$OMP THREADPRIVATE(XP_MER10M) 00233 ! 00234 !------------------------------------------------------------------------------ 00235 ! 00236 REAL, POINTER, DIMENSION(:) :: XP_QS ! humidity at surface (Kg/kg) 00237 !$OMP THREADPRIVATE(XP_QS) 00238 REAL, POINTER, DIMENSION(:,:) :: XP_SWI ! soil wetness index profile (-) 00239 !$OMP THREADPRIVATE(XP_SWI) 00240 REAL, POINTER, DIMENSION(:,:) :: XP_TSWI ! total soil wetness index profile (-) 00241 !$OMP THREADPRIVATE(XP_TSWI) 00242 ! 00243 !------------------------------------------------------------------------------ 00244 ! 00245 REAL, POINTER, DIMENSION(:) :: XP_TWSNOW ! total snow reservoir (kg/m2) 00246 !$OMP THREADPRIVATE(XP_TWSNOW) 00247 REAL, POINTER, DIMENSION(:) :: XP_TDSNOW ! total snow height (m) 00248 !$OMP THREADPRIVATE(XP_TDSNOW) 00249 ! 00250 !------------------------------------------------------------------------------ 00251 ! 00252 REAL, POINTER, DIMENSION(:) :: XP_SWD ! downward short wave radiation (W/m2) 00253 !$OMP THREADPRIVATE(XP_SWD) 00254 REAL, POINTER, DIMENSION(:) :: XP_SWU ! upward short wave radiation (W/m2) 00255 !$OMP THREADPRIVATE(XP_SWU) 00256 REAL, POINTER, DIMENSION(:,:) :: XP_SWBD ! downward short wave radiation by spectral band (W/m2) 00257 !$OMP THREADPRIVATE(XP_SWBD) 00258 REAL, POINTER, DIMENSION(:,:) :: XP_SWBU ! upward short wave radiation by spectral band (W/m2) 00259 !$OMP THREADPRIVATE(XP_SWBU) 00260 REAL, POINTER, DIMENSION(:) :: XP_LWD ! downward long wave radiation (W/m2) 00261 !$OMP THREADPRIVATE(XP_LWD) 00262 REAL, POINTER, DIMENSION(:) :: XP_LWU ! upward long wave radiation (W/m2) 00263 !$OMP THREADPRIVATE(XP_LWU) 00264 REAL, POINTER, DIMENSION(:) :: XP_FMU ! horizontal momentum flux zonal (m2/s2) 00265 !$OMP THREADPRIVATE(XP_FMU) 00266 REAL, POINTER, DIMENSION(:) :: XP_FMV ! horizontal momentum flux meridian (m2/s2) 00267 !$OMP THREADPRIVATE(XP_FMV) 00268 ! 00269 !------------------------------------------------------------------------------ 00270 ! 00271 REAL, POINTER, DIMENSION(:) :: XP_HORT ! sub-grid Horton runoff from the SGH scheme (kg/m2/s) 00272 !$OMP THREADPRIVATE(XP_HORT) 00273 REAL, POINTER, DIMENSION(:) :: XP_DRIP ! dripping from the vegetation reservoir (kg/m2/s) 00274 !$OMP THREADPRIVATE(XP_DRIP) 00275 REAL, POINTER, DIMENSION(:) :: XP_IFLOOD ! flood infiltration (kg/m2/s) 00276 !$OMP THREADPRIVATE(XP_IFLOOD) 00277 REAL, POINTER, DIMENSION(:) :: XP_PFLOOD ! precipitation intercepted by the floodplains (kg/m2/s) 00278 !$OMP THREADPRIVATE(XP_PFLOOD) 00279 REAL, POINTER, DIMENSION(:) :: XP_LE_FLOOD ! flood evaporation (W/m2) 00280 !$OMP THREADPRIVATE(XP_LE_FLOOD) 00281 REAL, POINTER, DIMENSION(:) :: XP_LEI_FLOOD ! frozen flood evaporation (W/m2) 00282 !$OMP THREADPRIVATE(XP_LEI_FLOOD) 00283 REAL, POINTER, DIMENSION(:) :: XP_ICEFLUX 00284 !$OMP THREADPRIVATE(XP_ICEFLUX) 00285 REAL, POINTER, DIMENSION(:) :: XP_RRVEG ! precipitation intercepted by the vegetation (kg/m2/s) 00286 !$OMP THREADPRIVATE(XP_RRVEG) 00287 REAL, POINTER, DIMENSION(:) :: XP_IRRIG_FLUX! irrigation rate (kg/m2/s) 00288 !$OMP THREADPRIVATE(XP_IRRIG_FLUX) 00289 ! 00290 !------------------------------------------------------------------------------ 00291 ! 00292 REAL, POINTER, DIMENSION(:) :: XP_GPP ! Gross primary production (kgCO2/m2/s) 00293 !$OMP THREADPRIVATE(XP_GPP) 00294 REAL, POINTER, DIMENSION(:) :: XP_RESP_AUTO ! Autotrophic respiration (kgCO2/m2/s) 00295 !$OMP THREADPRIVATE(XP_RESP_AUTO) 00296 REAL, POINTER, DIMENSION(:) :: XP_RESP_ECO ! Ecosystem respiration (kgCO2/m2/s) 00297 !$OMP THREADPRIVATE(XP_RESP_ECO) 00298 REAL, POINTER, DIMENSION(:) :: XP_FAPAR ! Fapar of vegetation 00299 !$OMP THREADPRIVATE(XP_FAPAR) 00300 REAL, POINTER, DIMENSION(:) :: XP_FAPIR ! Fapir of vegetation 00301 !$OMP THREADPRIVATE(XP_FAPIR) 00302 REAL, POINTER, DIMENSION(:) :: XP_FAPAR_BS ! Fapar of bare soil 00303 !$OMP THREADPRIVATE(XP_FAPAR_BS) 00304 REAL, POINTER, DIMENSION(:) :: XP_FAPIR_BS ! Fapir of bare soil 00305 !$OMP THREADPRIVATE(XP_FAPIR_BS) 00306 ! 00307 !------------------------------------------------------------------------------ 00308 ! 00309 REAL, POINTER, DIMENSION(:) :: XP_DWG ! liquid soil moisture time tendencies (kg/m2/s) 00310 !$OMP THREADPRIVATE(XP_DWG) 00311 REAL, POINTER, DIMENSION(:) :: XP_DWGI ! solid soil moisture time tendencies (kg/m2/s) 00312 !$OMP THREADPRIVATE(XP_DWGI) 00313 REAL, POINTER, DIMENSION(:) :: XP_DWR ! canopy water time tendencies (kg/m2/s) 00314 !$OMP THREADPRIVATE(XP_DWR) 00315 REAL, POINTER, DIMENSION(:) :: XP_DSWE ! snow water equivalent time tendencies (kg/m2/s) 00316 !$OMP THREADPRIVATE(XP_DSWE) 00317 REAL, POINTER, DIMENSION(:) :: XP_WATBUD ! ISBA water budget (kg/m2/s) 00318 !$OMP THREADPRIVATE(XP_WATBUD) 00319 ! 00320 !------------------------------------------------------------------------------ 00321 ! 00322 END MODULE MODD_PACK_DIAG_ISBA 00323 00324
1.8.0
