Choral
mesh_visu.f90
Go to the documentation of this file.
1 
13 
14 program mesh_visu
15 
16  use choral
18 
19  implicit none
20 
21  !! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
22  !! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
23  !!
24  !! VARAIBLE DEFINITION : BEGIN
25  !!
26  !!
27 
28  !! verb = verbosity level
29  !!
30  integer, parameter :: verb = 2
31 
32  !! msh_file = mesh file name
33  !! msh = mesh
34  !! mesh_desc = a variable for the mesh analysis process
35  !!
36  character(len=150) :: msh_file
37  type(mesh) :: msh
38  integer, dimension(4,6) :: mesh_desc
39 
40  !!
41  !! VARAIBLE DEFINITION : END
42  !!
43  !! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
44  !! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
45 
46  call choral_init(verb=verb)
47 
48  write(*,*)
49  write(*,*)'mesh_visu: start'
50  write(*,*)""
51  write(*,*)" ASSEMBLE A MESH "
52  write(*,*)""
53  write(*,*)" and visualise it with gmsh"
54  write(*,*)""
55 
56  !!
57  !! settings: choose a mesh
58  !!
59  ! msh_file = trim(GMSH_DIR)//"disk/disk1_1.msh"
60  msh_file = trim(gmsh_dir)//"disk/disk2_1.msh"
61  ! msh_file = trim(GMSH_DIR)//"sphere/sphere1_1.msh"
62  ! msh_file = trim(GMSH_DIR)//"sphere/sphere2_1.msh"
63 
64 
65  write(*,*) ""
66  write(*,*)"================================== ASSEMBLING THE MESH "
67  msh = mesh(trim(msh_file), "gmsh")
68  if (verb>1) call print(msh)
69 
70  write(*,*) ""
71  write(*,*)"================================== ANALYSE THE MESH "
72  mesh_desc = mesh_analyse(msh, verb-1)
73 
74  write(*,*) ""
75  write(*,*)"================================== MESH DISPLAY "
76  call system("gmsh -option "//trim(gmsh_dir)//"gmsh-options-mesh "//trim(msh_file))
77 
78 
79 end program mesh_visu
subroutine, public choral_init(verb)
Initialisation for the CHORAL library
Definition: choral.F90:166
TOP-LEVEL MODULE FOR THE LIBRARY CHORAL
Definition: choral.F90:27
program mesh_visu
CONSTRUCT AND VISUALISE A mesh
Definition: mesh_visu.f90:14
CHORAL CONSTANTS