DEALLOCATE_VARIABLES.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	deallocate_variables ()
	Deallocates variables.

Function/Subroutine Documentation

deallocate_variables()

subroutine deallocate_variables

Deallocates variables.

Author

Ilario Mazzieri

Date

September, 2013

Version

1.0

Definition at line 24 of file DEALLOCATE_VARIABLES.f90.

        
              
      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)
 
      
      
      
      
      
      
      
      
      

References speed_par::a0_ray, speed_par::a1_ray, speed_par::alfa11, speed_par::alfa12, speed_par::alfa13, speed_par::alfa21, speed_par::alfa22, speed_par::alfa23, speed_par::alfa31, speed_par::alfa32, speed_par::alfa33, speed_par::beta11, speed_par::beta12, speed_par::beta13, speed_par::beta21, speed_par::beta22, speed_par::beta23, speed_par::beta31, speed_par::beta32, speed_par::beta33, speed_par::check_dist_node_expl, speed_par::check_dist_node_sism, speed_par::check_node_expl, speed_par::check_node_sism, speed_par::con_bc, speed_par::con_spx_bc_loc, speed_par::con_spx_dg, speed_par::con_spx_loc, speed_par::damping_type, speed_par::delta1, speed_par::delta2, speed_par::delta3, speed_par::el_monitor_lst, speed_par::el_monitor_pgm, speed_par_dg::el_new, speed_par::factor_explosive_source, speed_par::factor_seismic_moment, speed_par::fel, speed_par::frequency_range, speed_par::fun_dirx_el, speed_par::fun_diry_el, speed_par::fun_dirz_el, speed_par::fun_expl_el, speed_par::fun_forx_el, speed_par::fun_fory_el, speed_par::fun_forz_el, speed_par::fun_neux_el, speed_par::fun_neuy_el, speed_par::fun_neuz_el, speed_par::fun_poix_el, speed_par::fun_poiy_el, speed_par::fun_poiz_el, speed_par::fun_pres_el, speed_par::fun_shea_el, speed_par::fun_sism_el, speed_par::func_data, speed_par::func_indx, speed_par::func_type, speed_par::gamma1, speed_par::gamma2, speed_par::gamma3, speed_par::ielem_abc, speed_par::inode_dirx, speed_par::inode_diry, speed_par::inode_dirz, speed_par::lambda_nhe, speed_par::lambda_rnd, speed_par::local_el_num, speed_par::local_node_num, speed_par::local_node_num_dg, speed_par::max_a, speed_par::max_o, speed_par::max_u, speed_par::max_v, speed_par::mu_nhe, speed_par::mu_rnd, speed_par::n_case, speed_par::n_monitor_lst, speed_par::n_monitor_pgm, speed_par::nelem_abc, speed_par::nelem_dg, speed_par::nelem_dg_glo, speed_par::nface, speed_par::nfunc, speed_par::nload_abc_el, speed_par::nload_dg_el, speed_par::nload_dirx_el, speed_par::nload_diry_el, speed_par::nload_dirz_el, speed_par::nload_expl_el, speed_par::nload_forx_el, speed_par::nload_fory_el, speed_par::nload_forz_el, speed_par::nload_neux_el, speed_par::nload_neuy_el, speed_par::nload_neuz_el, speed_par::nload_poix_el, speed_par::nload_poiy_el, speed_par::nload_poiz_el, speed_par::nload_pres_el, speed_par::nload_shea_el, speed_par::nload_sism_el, speed_par::nmat_nhe, speed_par::nmat_rnd, speed_par::nmonitors_lst, speed_par::nmonitors_pgm, speed_par::nnode_dirx, speed_par::nnode_diry, speed_par::nnode_dirz, speed_par::node_recv, speed_par::node_recv_jump, speed_par::node_send, speed_par::node_send_jump, speed_par::num_node_expl, speed_par::num_node_sism, speed_par::proc_recv, speed_par::proc_recv_jump, speed_par::proc_send, speed_par::proc_send_jump, speed_par::prop_mat, speed_par::qp, speed_par::qp_nhe_el, speed_par::qs, speed_par::qs_nhe_el, speed_par::rho_nhe, speed_par::rho_rnd, speed_par::sdeg_mat, speed_par::sub_tag_all, speed_par::tag_abc_el, speed_par::tag_dg_el, speed_par::tag_dg_link, speed_par::tag_dg_yn, speed_par::tag_dirx_el, speed_par::tag_diry_el, speed_par::tag_dirz_el, speed_par::tag_expl_el, speed_par::tag_mat, speed_par::tag_neux_el, speed_par::tag_neuy_el, speed_par::tag_neuz_el, speed_par::tag_sism_el, speed_par::tau_seismic_moment, speed_par::thick, speed_par::tref_mat, speed_par::trof, speed_par::type_mat, speed_par::val_dirx_el, speed_par::val_diry_el, speed_par::val_dirz_el, speed_par::val_expl_el, speed_par::val_forx_el, speed_par::val_fory_el, speed_par::val_forz_el, speed_par::val_neux_el, speed_par::val_neuy_el, speed_par::val_neuz_el, speed_par::val_poix_el, speed_par::val_poiy_el, speed_par::val_poiz_el, speed_par::val_pres_el, speed_par::val_shea_el, speed_par::val_sism_el, speed_par::vs_tria, speed_par::x_monitor_lst, speed_par::x_monitor_pgm, speed_par::xr_monitor_lst, speed_par::xr_monitor_pgm, speed_par::xx_spx_loc, speed_par::y_lambda, speed_par::y_monitor_lst, speed_par::y_monitor_pgm, speed_par::y_mu, speed_par::yr_monitor_lst, speed_par::yr_monitor_pgm, speed_par::yy_spx_loc, speed_par::z_monitor_lst, speed_par::z_monitor_pgm, speed_par::zr_monitor_lst, speed_par::zr_monitor_pgm, speed_par::zs_all, speed_par::zs_elev, and speed_par::zz_spx_loc.