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

1     
2           SUBROUTINE Deallocate_CUT_CELL_ARRAYS
3     
4     !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
5     !
6     !  Module name: Deallocate_CUT_CELL_ARRAYS
7     !  Purpose: Deallocate arrays
8     !                                                                      C
9     !  Author: Jeff Dietiker                              Date: 21-Feb-08  C
10     !  Reviewer:
11     !
12     !-----------------------------------------------
13     !   M o d u l e s
14     !-----------------------------------------------
15           USE param
16           USE param1
17           Use indices
18     
19           USE cutcell
20     
21           IMPLICIT NONE
22     
23     
24           Deallocate(  INTERSECT_X  )
25           Deallocate(  INTERSECT_Y  )
26           Deallocate(  INTERSECT_Z  )
27     
28           Deallocate(  X_int  )
29           Deallocate(  Y_int  )
30           Deallocate(  Z_int  )
31     
32           Deallocate(  Xn_int )
33           Deallocate(  Xn_U_int )
34           Deallocate(  Xn_V_int )
35           Deallocate(  Xn_W_int )
36     
37           Deallocate(  Ye_int )
38           Deallocate(  Ye_U_int )
39           Deallocate(  Ye_V_int )
40           Deallocate(  Ye_W_int )
41     
42           Deallocate(  Zt_int )
43           Deallocate(  Zt_U_int )
44           Deallocate(  Zt_V_int )
45           Deallocate(  Zt_W_int )
46     
47           Deallocate( DELX_Ue   )
48           Deallocate( DELX_Uw   )
49     !      Deallocate( DELY_Un   )
50     !      Deallocate( DELY_Us   )
51     !      Deallocate( DELZ_Ut   )
52     !      Deallocate( DELZ_Ub   )
53     
54     !      Deallocate( DELX_Ve  )
55     !      Deallocate( DELX_Vw  )
56           Deallocate( DELY_Vn  )
57           Deallocate( DELY_Vs  )
58     !      Deallocate( DELZ_Vt  )
59     !      Deallocate( DELZ_Vb  )
60     
61     !      Deallocate( DELX_We  )
62     !      Deallocate( DELX_Ww  )
63           Deallocate( DELY_Wn  )
64           Deallocate( DELY_Ws  )
65           Deallocate( DELZ_Wt  )
66           Deallocate( DELZ_Wb  )
67     
68           Deallocate( X_U_ec  )
69           Deallocate( Y_U_ec  )
70           Deallocate( Z_U_ec  )
71           Deallocate( X_U_nc  )
72           Deallocate( Y_U_nc  )
73           Deallocate( Z_U_nc  )
74           Deallocate( X_U_tc  )
75           Deallocate( Y_U_tc  )
76           Deallocate( Z_U_tc  )
77     
78           Deallocate( X_V_ec  )
79           Deallocate( Y_V_ec  )
80           Deallocate( Z_V_ec  )
81           Deallocate( X_V_nc  )
82           Deallocate( Y_V_nc  )
83           Deallocate( Z_V_nc  )
84           Deallocate( X_V_tc  )
85           Deallocate( Y_V_tc  )
86           Deallocate( Z_V_tc  )
87     
88           Deallocate( X_W_ec  )
89           Deallocate( Y_W_ec  )
90           Deallocate( Z_W_ec  )
91           Deallocate( X_W_nc  )
92           Deallocate( Y_W_nc  )
93           Deallocate( Z_W_nc  )
94           Deallocate( X_W_tc  )
95           Deallocate( Y_W_tc  )
96           Deallocate( Z_W_tc  )
97     
98           Deallocate(  SNAP )
99     
100     
101           RETURN
102           END SUBROUTINE Deallocate_CUT_CELL_ARRAYS
103     
104     
105