From c1357163d1c158d72e4c86e6131c3b4879270822 Mon Sep 17 00:00:00 2001
From: mhirabay <mhirabay@purdue.edu>
Date: Thu, 29 Dec 2016 14:13:32 +0000
Subject: [PATCH] Call io_write_porotrack here.

---
 src/io/io_write_surf.f90 | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/io/io_write_surf.f90 b/src/io/io_write_surf.f90
index 5f407581..a8f7813a 100644
--- a/src/io/io_write_surf.f90
+++ b/src/io/io_write_surf.f90
@@ -65,6 +65,10 @@ subroutine io_write_surf(user,surf)
       !call io_write_regodist(user,surf)
       call io_write_regotrack(user,surf) 
    end if
+   
+   ! write data from porosity analysis
+   if (user%doporosity) call io_write_porotrack(user, surf)
+   
 !   if (user%docrustal_thinning) then
 !      recsize = sizeof(itmp) * user%gridsize * user%gridsize
 !      open(LUN,file=THICKFILE,status='replace',form='unformatted',recl=recsize,access='direct')