10 type (hecmwST_local_mesh) :: hecMESH
12 hecmesh%n_adapt= hecmesh%n_adapt + 1
14 if (hecmesh%my_rank.eq.0)
write (*,
'(/,a)')
'#EXTEND EMB.'
17 if (hecmesh%my_rank.eq.0)
write (*,
'(a)')
'#GRID smoothing'
20 if (hecmesh%my_rank.eq.0)
write (*,
'(/,a)')
'#create NEW nodes'
23 if (hecmesh%my_rank.eq.0)
write (*,
'( a)')
'#create NEW CELL'
26 if (hecmesh%my_rank.eq.0)
write (*,
'( a)')
'#create CELL INFO.'
29 if (hecmesh%my_rank.eq.0)
write (*,
'(/,a)')
'#create NEW BC pointer'
32 if (hecmesh%my_rank.eq.0)
write (*,
'(/,a)')
'#create NEW comm. table'
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.