Call io_read_porotrack here.

MintonGroup · Dec 29, 2016 · ab45ebe · ab45ebe
1 parent a99cfdd
commit ab45ebe
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/src/io/io_read_surf.f90 b/src/io/io_read_surf.f90
@@ -79,6 +79,9 @@ subroutine io_read_surf(user,surf)
    close(LUN)
 
    if (user%doregotrack) call io_read_regotrack(user,surf)
+
+	! if doporosity, call io_read_porotrack to define the porosity linked list from the read files. 
+   if (user%doporosity)  call io_read_porotrack(user,surf)
 
    !if (user%docrustal_thinning) then
    !   recsize=sizeof(itmp)*user%gridsize*user%gridsize