MAKE_SPX_GRID_WITH_LOC_NUMERATION.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	make_spx_grid_with_loc_numeration ()
	Makes local spectral grids with nodes numbered according to the new local numeration.

Function/Subroutine Documentation

make_spx_grid_with_loc_numeration()

subroutine make_spx_grid_with_loc_numeration

Makes local spectral grids with nodes numbered according to the new local numeration.

Author

Ilario Mazzieri

Date

September, 2013

Version

1.0

Definition at line 25 of file MAKE_SPX_GRID_WITH_LOC_NUMERATION.f90.

     
      use max_var
      use speed_par
 
      implicit none
 
      include 'SPEED.MPI'
 
!***********************************************************************************
!     LOCAL NODES RENUMBERING
!***********************************************************************************
                   
     call make_loc_nodes_numeration(nnod_loc, local_node_num, nrecv, node_recv)            
    
 
     call make_spx_loc_numeration(nnod_loc, local_node_num, &
                            con_nnz_loc, con_spx_loc, &
                            con_nnz_bc_loc, con_spx_bc_loc)
 
     if (nnod_loc.gt.0) then
          allocate (xx_spx_loc(nnod_loc), yy_spx_loc(nnod_loc), zz_spx_loc(nnod_loc))
     else 
         write(*,'(A)')'Error ! nnod_loc = 0'
         call exit(exit_no_elements)
     endif
 
      
     call read_filemesh_loc(grid_file, nnod_loc, xx_spx_loc, yy_spx_loc, zz_spx_loc, &
                            local_node_num)
      
     if(mpi_id .eq.0) write(*,'(A)')
     if(mpi_id.eq.0) write(*,'(A,I20)') 'Total Spectral Nodes : ',nnod
 
     
     allocate(alfa11(nelem_loc),alfa12(nelem_loc),alfa13(nelem_loc))
     allocate(alfa21(nelem_loc),alfa22(nelem_loc),alfa23(nelem_loc))
     allocate(alfa31(nelem_loc),alfa32(nelem_loc),alfa33(nelem_loc))
     allocate(beta11(nelem_loc),beta12(nelem_loc),beta13(nelem_loc))
     allocate(beta21(nelem_loc),beta22(nelem_loc),beta23(nelem_loc))
     allocate(beta31(nelem_loc),beta32(nelem_loc),beta33(nelem_loc))
     allocate(gamma1(nelem_loc),gamma2(nelem_loc),gamma3(nelem_loc))
     allocate(delta1(nelem_loc),delta2(nelem_loc),delta3(nelem_loc))
           
     
     call make_spx_grid_loc(nnod_loc,xx_spx_loc,yy_spx_loc,zz_spx_loc,&
                            con_nnz_loc, con_spx_loc, nmat, tag_mat, sdeg_mat, nelem_loc, &
                            local_node_num, &
                            alfa11,alfa12,alfa13, &
                            alfa21,alfa22,alfa23, &
                            alfa31,alfa32,alfa33, &
                            beta11,beta12,beta13, &
                            beta21,beta22,beta23, &
                            beta31,beta32,beta33, &
                            gamma1,gamma2,gamma3, &
                            delta1,delta2,delta3 )
 
 
     

References 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::con_nnz_bc_loc, speed_par::con_nnz_loc, speed_par::con_spx_bc_loc, speed_par::con_spx_loc, speed_par::delta1, speed_par::delta2, speed_par::delta3, speed_par::gamma1, speed_par::gamma2, speed_par::gamma3, speed_par::grid_file, speed_par::local_node_num, make_loc_nodes_numeration(), make_spx_grid_loc(), make_spx_loc_numeration(), speed_par::mpi_id, speed_par::nelem_loc, speed_par::nmat, speed_par::nnod, speed_par::nnod_loc, speed_par::node_recv, speed_par::nrecv, read_filemesh_loc(), speed_par::sdeg_mat, speed_par::tag_mat, speed_par::xx_spx_loc, speed_par::yy_spx_loc, and speed_par::zz_spx_loc.

Here is the call graph for this function: