← Back to branch summary

~fluidity-core/fluidity/sea-ice-coupling

« back to all changes in this revision

Viewing changes to tools/test_laplacian.F90

  • Committer: Simon Mouradian
  • Date: 2012-05-21 21:54:54 UTC
  • mfrom: (3520.32.268 fluidity)
  • Revision ID: mouradian@gmail.com-20120521215454-xhzgwfcb0bnzuww1
merge from lp:fluidity

Show diffs side-by-side

added added

removed removed

Lines of Context:
tools/test_laplacian.F90
9
9
  ! 1x1x1 cube with the boundary conditions 1 and 2 applied on the
10
10
  ! sides of the first coordinates direction (e.g. test_laplacian.poly
11
11
  ! - create a mesh with 'triangle -a0.01 -e test_laplacian.poly' )
12
 
  use mesh_files
 
12
  use read_triangle
13
13
  use fields
14
14
  use FEtools
15
15
  use elements
70
70
 
71
71
  call read_command_line(filename, degree, quad_degree)
72
72
 
73
 
  positions=read_mesh_files(filename, quad_degree=quad_degree)
 
73
  positions=read_triangle_files(filename, quad_degree=quad_degree)
74
74
 
75
75
  call insert(state, positions, "Coordinate")
76
76