Commit 86901f0e authored by Gregor Michalicek's avatar Gregor Michalicek

Corrected missmatch of sizes in io/cdnpot_io_hdf.F90

parent e00aaee7
......@@ -2471,7 +2471,7 @@ MODULE m_cdnpot_io_hdf
CALL h5dopen_f(cdncGroupID, 'rhcs', rhcsSetID, hdfError)
CALL io_write_real3(rhcsSetID,(/1,1,1/),dimsInt(:3),rhcs)
CALL io_write_real3(rhcsSetID,(/1,1,1/),dimsInt(:3),rhcs(:dimsInt(1),:dimsInt(2),:dimsInt(3)))
CALL h5dclose_f(rhcsSetID, hdfError)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment