gkowal/amun-code
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Merge branch 'master' into reconnection

Browse Source
This commit is contained in:
Grzegorz Kowal 2022-05-31 19:31:42 -03:00
commit 464baa73ad
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
sources/io.F90
View File

@ -1440,7 +1440,7 @@ module io
open(newunit=lun, file=fname, form='unformatted', access='stream')
read(lun) lfcoefs
close(lun)
bytes = size(lfcoefs, kind=8) * kind(lfcoefs)
bytes = size(lfcoefs, kind=8) * kind(lfcoefs) * 2
call check_digest(loc, fname, c_loc(lfcoefs), bytes, hforce, dtype)
fcoefs = lfcoefs
deallocate(lfcoefs, stat=status)
@ -2212,7 +2212,7 @@ module io
if (nmodes > 0) then
write(fname,"(a,'.bin')") "forcing_coefficients"
bytes = size(fcoefs, kind=8) * kind(fcoefs)
bytes = size(fcoefs, kind=8) * kind(fcoefs) * 2
call write_binary_xml(dname, fname, c_loc(fcoefs), &
bytes, dtype, digest)
call write_attribute_xml(lun, "forcing", fname, 'complex64', &