IO: Store the equation system and equation of state among attributes.

Signed-off-by: Grzegorz Kowal <grzegorz@amuncode.org>
This commit is contained in:
Grzegorz Kowal 2015-06-24 16:53:58 -03:00
parent 647fa7a2ea
commit 929789c116

View File

@ -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 )