From 929789c1168d21ecec4a16345cd913f15adb9640 Mon Sep 17 00:00:00 2001 From: Grzegorz Kowal Date: Wed, 24 Jun 2015 16:53:58 -0300 Subject: [PATCH] IO: Store the equation system and equation of state among attributes. Signed-off-by: Grzegorz Kowal --- src/io.F90 | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/src/io.F90 b/src/io.F90 index f6516a4..21038e5 100644 --- a/src/io.F90 +++ b/src/io.F90 @@ -1104,6 +1104,7 @@ module io use coordinates , only : minlev, maxlev, toplev use coordinates , only : nc, ng, in, jn, kn, ir, jr, kr use coordinates , only : xmin, xmax, ymin, ymax, zmin, zmax + use equations , only : eqsys, eos use error , only : print_error use evolution , only : step, time, dt, dtn use hdf5 , only : hid_t @@ -1148,6 +1149,11 @@ module io end if +! store string attributes +! + call write_attribute(gid, 'eqsys' , eqsys ) + call write_attribute(gid, 'eos' , eos ) + ! store the integer attributes ! call write_attribute(gid, 'ndims' , NDIMS )