File: RELATIVE:/../../../mfix.git/model/cartesian_grid/allocate_dummy_cut_cell_arrays.f

1     
2           SUBROUTINE ALLOCATE_DUMMY_CUT_CELL_ARRAYS
3     
4     !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
5     !
6     !  Module name: ALLOCATE_DUMMY_CUT_CELL_ARRAYS
7     !  Purpose: allocate dummy cut cell arrays used to maintain original mfix code
8     !  when CARTESIAN_GRID = .FALSE.
9     !                                                                      C
10     !  Author: Jeff Dietiker                              Date: 21-Feb-08  C
11     !  Reviewer:
12     !
13     !-----------------------------------------------
14     !   M o d u l e s
15     !-----------------------------------------------
16           USE param
17           USE param1
18           Use indices
19     
20           USE cutcell
21     
22           IMPLICIT NONE
23     
24           Allocate(  CUT_TREATMENT_AT (DIMENSION_3) )
25           Allocate(  CUT_U_TREATMENT_AT (DIMENSION_3) )
26           Allocate(  CUT_V_TREATMENT_AT (DIMENSION_3) )
27           Allocate(  CUT_W_TREATMENT_AT (DIMENSION_3) )
28     
29           Allocate(  CUT_CELL_AT (DIMENSION_3) )
30           Allocate(  CUT_U_CELL_AT (DIMENSION_3) )
31           Allocate(  CUT_V_CELL_AT (DIMENSION_3) )
32           Allocate(  CUT_W_CELL_AT (DIMENSION_3) )
33     
34           Allocate(  BC_ID (DIMENSION_3) )
35           Allocate(  BC_U_ID (DIMENSION_3) )
36           Allocate(  BC_V_ID (DIMENSION_3) )
37           Allocate(  BC_W_ID (DIMENSION_3) )
38     
39           Allocate(  BLOCKED_U_CELL_AT (DIMENSION_3) )
40           Allocate(  BLOCKED_V_CELL_AT (DIMENSION_3) )
41           Allocate(  BLOCKED_W_CELL_AT (DIMENSION_3) )
42     
43           CUT_TREATMENT_AT = .FALSE.
44           CUT_U_TREATMENT_AT = .FALSE.
45           CUT_V_TREATMENT_AT = .FALSE.
46           CUT_W_TREATMENT_AT = .FALSE.
47     
48           CUT_CELL_AT = .FALSE.
49           CUT_U_CELL_AT = .FALSE.
50           CUT_V_CELL_AT = .FALSE.
51           CUT_W_CELL_AT = .FALSE.
52     
53           BLOCKED_U_CELL_AT = .FALSE.
54           BLOCKED_V_CELL_AT = .FALSE.
55           BLOCKED_W_CELL_AT = .FALSE.
56     
57           BC_ID = 0
58           BC_U_ID = 0
59           BC_V_ID = 0
60           BC_W_ID = 0
61     
62     
63     
64           RETURN
65           END SUBROUTINE ALLOCATE_DUMMY_CUT_CELL_ARRAYS
66     
67     
68