From ab017e73fddc005df3a76cf6616060a925ebbc81 Mon Sep 17 00:00:00 2001 From: David Minton Date: Fri, 1 Mar 2024 12:17:30 -0500 Subject: [PATCH] Fixed some minor issues with the dimension coordinate definitions --- src/swiftest/swiftest_io.f90 | 19 +++++++------------ 1 file changed, 7 insertions(+), 12 deletions(-) diff --git a/src/swiftest/swiftest_io.f90 b/src/swiftest/swiftest_io.f90 index 4a020816b..0dabd4f99 100644 --- a/src/swiftest/swiftest_io.f90 +++ b/src/swiftest/swiftest_io.f90 @@ -1072,14 +1072,13 @@ module subroutine swiftest_io_netcdf_initialize_output(self, param) "netcdf_io_initialize_output nf90_put_var space" ) if (param%lrotation .and. nc%lc_lm_exists) then - - ! Populate coordinate values for l and m and export to hdf file - call netcdf_io_check( nf90_put_var(nc%id, nc%l_varid, [(i, i=0, nc%l_dim_max-1)]), & - "netcdf_io_write_frame_cb nf90_put_var l_varid") - call netcdf_io_check( nf90_put_var(nc%id, nc%m_varid, [(i, i=0, nc%m_dim_max-1)]), & - "netcdf_io_write_frame_cb nf90_put_var m_varid") - call netcdf_io_check( nf90_put_var(nc%id, nc%sign_varid, [1,-1]), & - "netcdf_io_write_frame_cb nf90_put_var sign_varid") + ! Populate coordinate values for l, m, and sign + call netcdf_io_check( nf90_put_var(nc%id, nc%l_varid, [(i, i=0, nc%l_dim_max-1)], start=[1], count=[nc%l_dim_max]), & + "netcdf_io_netcdf_initialize_output nf90_put_var l_varid") + call netcdf_io_check( nf90_put_var(nc%id, nc%m_varid, [(i, i=0, nc%m_dim_max-1)], start=[1], count=[nc%m_dim_max]), & + "netcdf_io_netcdf_initialize_output nf90_put_var m_varid") + call netcdf_io_check( nf90_put_var(nc%id, nc%sign_varid, nc%sign_coords, start=[1], count=[2] ), & + "netcdf_io_netcdf_initialize_output nf90_put_var sign_varid") end if end associate @@ -1617,10 +1616,6 @@ module function swiftest_io_netcdf_read_frame_system(self, nc, param) result(ier ! if (npl > 0) pl%Q(:) = pack(rtemp, plmask) ! end if - - - - call self%read_particle_info(nc, param, plmask, tpmask) if (param%in_form == "EL") then