261
262
263 implicit none
264#include "constant.inc"
265 class(ALE_), intent(inout) :: this
266
267 this%GRID%ALPHA = zero
268 this%GRID%GAMMA = zero
269 this%GRID%VGX = zero
270 this%GRID%VGY = zero
271 this%GRID%VGZ = zero
272 this%GRID%VGY0 = zero
273 this%GRID%VGZ0 = zero
274 this%GRID%NWALE_ENGINE = -1
275 this%GRID%NWALE_RST = 0
276 this%GRID%NWALE = 0
277 this%GRID%flow_tracking_data%EP(1:9) = zero
278 this%GRID%flow_tracking_data%LD(1:6) = zero
279 this%GRID%flow_tracking_data%LW(1:3) = zero
280 this%GRID%flow_tracking_data%MOM_L(1:3) = zero
281 this%GRID%flow_tracking_data%COG_L(1:3) = zero
282 this%GRID%flow_tracking_data%SUM_M = zero
283
284 this%UPWIND%UPWMG = zero
285 this%UPWIND%UPWOG = zero
286 this%UPWIND%UPWSM = zero
287 this%UPWIND%CUPWM = zero
288 this%UPWIND%UPWMG2 = zero
289 this%UPWIND%UPWOG2 = zero
290 this%UPWIND%UPWSM2 = zero
291 this%UPWIND%I_SUPG_ON_OFF = 0
292 this%UPWIND%UPWM = 0
293 this%UPWIND%UPW_UPDATE = 0
294
295 this%GLOBAL%NALENOVS = 0
296 this%GLOBAL%ICAA = 0
297 this%GLOBAL%HLLC_LOWMACH = 0
298 this%GLOBAL%INCOMP = 0
299 this%GLOBAL%ISFINT = 3
300 this%GLOBAL%I_DT_NODA_ALE_ON = 0
301 this%GLOBAL%I_DT_NODA_ALE_ON_KEY = 0
302 this%GLOBAL%IDT_ALE = 0
303 this%GLOBAL%IS_BOUNDARY_MATERIAL = .false.
304 this%GLOBAL%LCONV = 10
305 this%GLOBAL%CODV(1:10) = 0
306 this%GLOBAL%NVCONV = 0
307 this%GLOBAL%SNALE = 0
308 this%GLOBAL%SIELVS = 0
309 this%GLOBAL%IS_DEFINED_ALE = 0
310 this%GLOBAL%IS_DEFINED_EULER = 0
311
312 this%SUB%IALESUB = 0
313 this%SUB%IFSUB = 0
314 this%SUB%IFSUBM = 0
315 this%SUB%NODSUBDT = 0
316 this%SUB%DT1SAVE = zero
317 this%SUB%DTFSUB = zero
318 this%SUB%DTMSUB = zero
319
320 this%REZON%NUM_NUVAR_MAT = 0
321 this%REZON%NUM_NUVAR_EOS = 0