Elemental pressures and smooth pressures now written out

src/write_global_output.f90

@@ -112,7 +112,10 @@ if (iproc.eq.0) then
                 i=1,osolve%nnode)
    ! write icon array
    write (9) ((osolve%icon(k,i),k=1,8),   &
-!                 osolve%pressure(i),        &
+! Line below uncommented by dwhipp - 12/09 
+                 osolve%pressure(i),        & 
+! Line below added by dwhipp - 12/09 
+                 osolve%spressure(i),  &
                  osolve%crit(i),            &
                  osolve%e2d(i),             &
                  ov%whole_leaf_in_fluid(i), &