Added integer 'matnum' (material number) to osolve. Added logical 'nest' to...

Added integer 'matnum' (material number) to osolve. Added logical 'nest' to parameters. Cleaned up a bit.

src/module_definitions.f90

@@ -98,6 +98,7 @@ module definitions
       double precision,dimension(:),pointer::eviscosity,q,dilatr
       integer,dimension(:,:),pointer::icon,iface
       logical,dimension(:),pointer::is_plastic
+      integer,dimension(:),pointer :: matnum
       end type octreesolve
 
 !=====[MATERIAL]================================================================
@@ -220,6 +221,8 @@ module definitions
       logical bulkvisc
       logical init_e2d
       logical invariants_2d
+      logical ismooth
+      logical nest
       integer nmpi
       integer matrule
       integer levelcut
@@ -232,7 +235,6 @@ module definitions
       integer debug
       integer npmin,npmax
       integer irestart
-      logical ismooth      
       integer refine_criterion
       integer niter_move
       integer griditer
@@ -244,6 +246,11 @@ module definitions
       integer nsections
       integer ns
       integer initial_refine_level
+      integer baselevelx0
+      integer baselevelx1
+      integer baselevely0
+      integer baselevely1
+      integer,dimension(:),pointer::materialn
       double precision ztemp
       double precision dt
       double precision refine_ratio
@@ -262,11 +269,6 @@ module definitions
       double precision density_difference
       double precision vex
       double precision e2d0
-      integer baselevelx0
-      integer baselevelx1
-      integer baselevely0
-      integer baselevely1
-      integer,dimension(:),pointer::materialn
       character*128 restartfile
       character*40  infile
    end type