DEALLOCATE_VARIABLES.f90

Go to the documentation of this file.

!    Copyright (C) 2012 The SPEED FOUNDATION
!    Author: Ilario Mazzieri
!
!    This file is part of SPEED.
!
!    SPEED is free software; you can redistribute it and/or modify it
!    under the terms of the GNU Affero General Public License as
!    published by the Free Software Foundation, either version 3 of the
!    License, or (at your option) any later version.
!
!    SPEED is distributed in the hope that it will be useful, but
!    WITHOUT ANY WARRANTY; without even the implied warranty of
!    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
!    Affero General Public License for more details.
!
!    You should have received a copy of the GNU Affero General Public License
!    along with SPEED.  If not, see <http://www.gnu.org/licenses/>.
 
 
      subroutine deallocate_variables()
        
              
      use max_var
      use str_mesh 
      use str_mesh_scratch                   
      use dgjump
 
      use speed_par
      use speed_par_dg
 
      implicit none
 
      include 'SPEED.MPI' 
      
      deallocate(node_send, node_recv, proc_send, proc_recv)
      deallocate(tag_mat,type_mat,sdeg_mat,tref_mat,prop_mat,qs,qp)
      deallocate(xx_spx_loc,yy_spx_loc,zz_spx_loc)
      deallocate(con_spx_loc)
      deallocate(alfa11,alfa12,alfa13,alfa21,alfa22,alfa23,alfa31,alfa32,alfa33)
      deallocate(beta11,beta12,beta13,beta21,beta22,beta23,beta31,beta32,beta33)
      deallocate(gamma1,gamma2,gamma3,delta1,delta2,delta3)
      deallocate(local_node_num,local_el_num)
      deallocate(fel)
 
      !deallocate(elem_domain) !!! AH 
      
      if (nmonitors_lst.gt.0) deallocate(x_monitor_lst,y_monitor_lst,z_monitor_lst,n_monitor_lst)
      if (nmonitors_lst.gt.0) deallocate(xr_monitor_lst,yr_monitor_lst,zr_monitor_lst,el_monitor_lst)
      if (nmonitors_pgm.gt.0) deallocate(x_monitor_pgm,y_monitor_pgm,z_monitor_pgm,n_monitor_pgm)
      if (nmonitors_pgm.gt.0) deallocate(xr_monitor_pgm,yr_monitor_pgm,zr_monitor_pgm,el_monitor_pgm)
      if (nmonitors_pgm .gt.0) deallocate(max_u, max_v, max_a, max_o)
    !  if (nsnaps.gt.0) deallocate(tsnap,itersnap)
      if (nload_dirx_el.gt.0) deallocate (val_dirx_el,fun_dirx_el,tag_dirx_el)
      if (nload_diry_el.gt.0) deallocate (val_diry_el,fun_diry_el,tag_diry_el)
      if (nload_dirz_el.gt.0) deallocate (val_dirz_el,fun_dirz_el,tag_dirz_el)
      if (nnode_dirx.gt.0) deallocate(inode_dirx)
      if (nnode_diry.gt.0) deallocate(inode_diry)
      if (nnode_dirz.gt.0) deallocate(inode_dirz)
      if (nload_neux_el.gt.0) deallocate (val_neux_el,fun_neux_el,tag_neux_el)
      if (nload_neuy_el.gt.0) deallocate (val_neuy_el,fun_neuy_el,tag_neuy_el)
      if (nload_neuz_el.gt.0) deallocate (val_neuz_el,fun_neuz_el,tag_neuz_el)
      if (nload_poix_el.gt.0) deallocate (val_poix_el,fun_poix_el)
      if (nload_poiy_el.gt.0) deallocate (val_poiy_el,fun_poiy_el)
      if (nload_poiz_el.gt.0) deallocate (val_poiz_el,fun_poiz_el)
      if (nload_forx_el.gt.0) deallocate (val_forx_el,fun_forx_el)
      if (nload_fory_el.gt.0) deallocate (val_fory_el,fun_fory_el)
      if (nload_forz_el.gt.0) deallocate (val_forz_el,fun_forz_el)
      if (nload_pres_el.gt.0) deallocate (val_pres_el,fun_pres_el)
      if (nload_shea_el.gt.0) deallocate (val_shea_el,fun_shea_el)
      if (nload_abc_el.gt.0) deallocate (tag_abc_el)
      if (nload_dg_el.gt.0) deallocate (tag_dg_el, tag_dg_yn, tag_dg_link)
      if (nfunc.gt.0) deallocate (func_type,func_indx,func_data)
      if (n_case.gt.0) deallocate(zs_elev, zs_all, sub_tag_all,vs_tria, thick) !tag_case, val_case, tol_case
      if (nface.gt.0) deallocate(con_spx_bc_loc,con_bc)
      if (nload_sism_el.gt.0) deallocate(num_node_sism, factor_seismic_moment, tau_seismic_moment)
      if (nload_sism_el.gt.0) deallocate(check_node_sism, check_dist_node_sism, val_sism_el, fun_sism_el, tag_sism_el)
      if (nload_expl_el.gt.0) deallocate(num_node_expl, factor_explosive_source)
      if (nload_expl_el.gt.0) deallocate(check_node_expl, check_dist_node_expl, val_expl_el, fun_expl_el, tag_expl_el)
      if (nelem_abc.gt.0) deallocate(ielem_abc)
 
      if (nelem_dg .gt.0) deallocate(el_new)
      if (nelem_dg_glo .gt. 0) deallocate(node_send_jump, node_recv_jump, proc_send_jump, proc_recv_jump, con_spx_dg)
      if (trof .eq. 0 .and. nelem_dg_glo .gt. 0) deallocate(local_node_num_dg)
      if (damping_type .eq. 2) deallocate(frequency_range,y_lambda,y_mu)
      if (damping_type .eq. 3) deallocate(a0_ray, a1_ray)
      if (nmat_rnd .gt. 0) deallocate(lambda_rnd,mu_rnd,rho_rnd)
      if (nmat_nhe .gt. 0) deallocate(lambda_nhe,mu_nhe,rho_nhe, qs_nhe_el, qp_nhe_el) !Gamma_nhe_el)
 
      
      
      
      
      
      
      
      
      
      end subroutine deallocate_variables