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