← Back to branch summary

~fluidity-core/fluidity/refactor-netcdf

« back to all changes in this revision

Viewing changes to femtools/Halos_Registration.F90

  • Committer: Jon Hill
  • Date: 2013-02-16 09:01:40 UTC
  • mfrom: (3981.7.159 fluidity)
  • Revision ID: jon.hill@imperial.ac.uk-20130216090140-bplzxqzdk1eik4za
Megre from trunk, fixing several conflicts

Show diffs side-by-side

added added

removed removed

Lines of Context:
femtools/Halos_Registration.F90
250
250
    type(mesh_type), intent(inout) :: subdomain_mesh
251
251
    integer, dimension(:) :: node_list, inverse_node_list 
252
252
 
253
 
    type(integer_set), dimension(:), allocatable :: subdomain_mesh_sends_indices
254
 
    type(integer_set), dimension(:), allocatable :: subdomain_mesh_receives_indices
255
 
 
256
 
    integer, dimension(:), allocatable :: subdomain_mesh_nreceives, subdomain_mesh_nsends
257
 
    integer, dimension(:), allocatable :: subdomain_mesh_receives, subdomain_mesh_sends
258
 
 
259
 
    integer, dimension(:), allocatable :: external_mesh_nreceives, external_mesh_nsends
260
 
    integer, dimension(:), allocatable :: external_mesh_receives, external_mesh_sends
261
 
 
262
 
    integer, dimension(:), allocatable :: external_mesh_sends_indices 
263
 
    integer, dimension(:), allocatable :: external_mesh_receives_indices
264
 
 
265
253
    integer :: nhalos, communicator, nprocs, procno, ihalo, inode, iproc, nowned_nodes
266
254
 
267
255
    ewrite(1, *) "In generate_substate_halos"