From 90873e1930e3c77b1bf7e016882b72fef98f26f2 Mon Sep 17 00:00:00 2001
From: Dave Whipp <dwhipp@dal.ca>
Date: Tue, 22 Dec 2009 19:36:00 +0000
Subject: [PATCH] Typo fixed
---
src/write_global_output.f90 | 2 ++
1 file changed, 2 insertions(+)
diff --git a/src/write_global_output.f90 b/src/write_global_output.f90
index 5257eea2..8b726764 100644
--- a/src/write_global_output.f90
+++ b/src/write_global_output.f90
@@ -119,6 +119,8 @@ if (iproc.eq.0) then
osolve%spressure(i), &
osolve%crit(i), &
osolve%e2d(i), &
+ osolve%effective_viscosity(i), &
+ osolve%is_plastic(i), &
ov%whole_leaf_in_fluid(i), &
i=1,osolve%nleaves)
! write octree information
--
GitLab