hecmw_adapt_proc.f90

Go to the documentation of this file.

!-------------------------------------------------------------------------------
! Copyright (c) 2019 FrontISTR Commons
! This software is released under the MIT License, see LICENSE.txt
!-------------------------------------------------------------------------------
 
subroutine hecmw_adapt_proc (hecMESH)
 
  use  hecmw_util
  type      (hecmwST_local_mesh) :: hecMESH
 
  hecmesh%n_adapt= hecmesh%n_adapt + 1
 
  if (hecmesh%my_rank.eq.0) write (*,'(/,a)') '#EXTEND EMB.'
  call hecmw_adapt_extemb      (hecmesh)
 
  if (hecmesh%my_rank.eq.0) write (*,'(a)') '#GRID smoothing'
  call hecmw_adapt_grid_smooth (hecmesh)
 
  if (hecmesh%my_rank.eq.0) write (*,'(/,a)') '#create NEW nodes'
  call hecmw_adapt_new_node (hecmesh)
 
  if (hecmesh%my_rank.eq.0) write (*,'(  a)') '#create NEW CELL'
  call hecmw_adapt_new_cell (hecmesh)
 
  if (hecmesh%my_rank.eq.0) write (*,'(  a)') '#create CELL INFO.'
  call hecmw_adapt_get_new_cell_info (hecmesh)
 
  if (hecmesh%my_rank.eq.0) write (*,'(/,a)') '#create NEW BC pointer'
  call hecmw_adapt_bc_pointer (hecmesh)
 
  if (hecmesh%my_rank.eq.0) write (*,'(/,a)') '#create NEW comm. table'
  call hecmw_adapt_repro_comm_table (hecmesh)
 
end subroutine hecmw_adapt_proc