FrontISTR 5.2.0
Large-scale structural analysis program with finit element method
Loading...
Searching...
No Matches
hecmw_adapt_proc.f90
Go to the documentation of this file.
1!-------------------------------------------------------------------------------
2! Copyright (c) 2019 FrontISTR Commons
3! This software is released under the MIT License, see LICENSE.txt
4!-------------------------------------------------------------------------------
6
7subroutine hecmw_adapt_proc (hecMESH)
8
9 use hecmw_util
10 type (hecmwST_local_mesh) :: hecMESH
11
12 hecmesh%n_adapt= hecmesh%n_adapt + 1
13
14 if (hecmesh%my_rank.eq.0) write (*,'(/,a)') '#EXTEND EMB.'
15 call hecmw_adapt_extemb (hecmesh)
16
17 if (hecmesh%my_rank.eq.0) write (*,'(a)') '#GRID smoothing'
18 call hecmw_adapt_grid_smooth (hecmesh)
19
20 if (hecmesh%my_rank.eq.0) write (*,'(/,a)') '#create NEW nodes'
21 call hecmw_adapt_new_node (hecmesh)
22
23 if (hecmesh%my_rank.eq.0) write (*,'( a)') '#create NEW CELL'
24 call hecmw_adapt_new_cell (hecmesh)
25
26 if (hecmesh%my_rank.eq.0) write (*,'( a)') '#create CELL INFO.'
28
29 if (hecmesh%my_rank.eq.0) write (*,'(/,a)') '#create NEW BC pointer'
30 call hecmw_adapt_bc_pointer (hecmesh)
31
32 if (hecmesh%my_rank.eq.0) write (*,'(/,a)') '#create NEW comm. table'
33 call hecmw_adapt_repro_comm_table (hecmesh)
34
35end subroutine hecmw_adapt_proc
subroutine hecmw_adapt_bc_pointer(hecmesh)
Adaptive Mesh Refinement.
subroutine hecmw_adapt_extemb(hecmesh)
Adaptive Mesh Refinement.
subroutine hecmw_adapt_get_new_cell_info(hecmesh)
Adaptive Mesh Refinement.
subroutine hecmw_adapt_grid_smooth(hecmesh)
Adaptive Mesh Refinement.
subroutine hecmw_adapt_new_cell(hecmesh)
Adaptive Mesh Refinement.
subroutine hecmw_adapt_new_node(hecmesh)
Adaptive Mesh Refinement.
subroutine hecmw_adapt_proc(hecmesh)
Adaptive Mesh Refinement.
subroutine hecmw_adapt_repro_comm_table(hecmesh)
Adaptive Mesh Refinement.
I/O and Utility.
Definition: hecmw_util_f.F90:7