deallocate_cut_cell_arrays.f

Go to the documentation of this file.

      SUBROUTINE deallocate_cut_cell_arrays

!vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv
!
!  Module name: Deallocate_CUT_CELL_ARRAYS
!  Purpose: Deallocate arrays
!                                                                      C
!  Author: Jeff Dietiker                              Date: 21-Feb-08  C
!  Reviewer:
!
!-----------------------------------------------
!   M o d u l e s
!-----------------------------------------------
      USE param
      USE param1
      Use indices

      USE cutcell

      IMPLICIT NONE


      Deallocate(  intersect_x  )
      Deallocate(  intersect_y  )
      Deallocate(  intersect_z  )

      Deallocate(  x_int  )
      Deallocate(  y_int  )
      Deallocate(  z_int  )

      Deallocate(  xn_int )
      Deallocate(  xn_u_int )
      Deallocate(  xn_v_int )
      Deallocate(  xn_w_int )

      Deallocate(  ye_int )
      Deallocate(  ye_u_int )
      Deallocate(  ye_v_int )
      Deallocate(  ye_w_int )

      Deallocate(  zt_int )
      Deallocate(  zt_u_int )
      Deallocate(  zt_v_int )
      Deallocate(  zt_w_int )

      Deallocate( delx_ue   )
      Deallocate( delx_uw   )
!      Deallocate( DELY_Un   )
!      Deallocate( DELY_Us   )
!      Deallocate( DELZ_Ut   )
!      Deallocate( DELZ_Ub   )

!      Deallocate( DELX_Ve  )
!      Deallocate( DELX_Vw  )
      Deallocate( dely_vn  )
      Deallocate( dely_vs  )
!      Deallocate( DELZ_Vt  )
!      Deallocate( DELZ_Vb  )

!      Deallocate( DELX_We  )
!      Deallocate( DELX_Ww  )
      Deallocate( dely_wn  )
      Deallocate( dely_ws  )
      Deallocate( delz_wt  )
      Deallocate( delz_wb  )

      Deallocate( x_u_ec  )
      Deallocate( y_u_ec  )
      Deallocate( z_u_ec  )
      Deallocate( x_u_nc  )
      Deallocate( y_u_nc  )
      Deallocate( z_u_nc  )
      Deallocate( x_u_tc  )
      Deallocate( y_u_tc  )
      Deallocate( z_u_tc  )

      Deallocate( x_v_ec  )
      Deallocate( y_v_ec  )
      Deallocate( z_v_ec  )
      Deallocate( x_v_nc  )
      Deallocate( y_v_nc  )
      Deallocate( z_v_nc  )
      Deallocate( x_v_tc  )
      Deallocate( y_v_tc  )
      Deallocate( z_v_tc  )

      Deallocate( x_w_ec  )
      Deallocate( y_w_ec  )
      Deallocate( z_w_ec  )
      Deallocate( x_w_nc  )
      Deallocate( y_w_nc  )
      Deallocate( z_w_nc  )
      Deallocate( x_w_tc  )
      Deallocate( y_w_tc  )
      Deallocate( z_w_tc  )

      Deallocate(  snap )


      RETURN
      END SUBROUTINE deallocate_cut_cell_arrays