From 66cee2cb3b900c671dc7883884f8bf2093e557c9 Mon Sep 17 00:00:00 2001 From: anand43 Date: Fri, 29 Sep 2023 07:49:48 -0400 Subject: [PATCH] added framework to I/O cb%rotphase to netcdf --- src/swiftest/swiftest_io.f90 | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/src/swiftest/swiftest_io.f90 b/src/swiftest/swiftest_io.f90 index 5535758cd..e885708df 100644 --- a/src/swiftest/swiftest_io.f90 +++ b/src/swiftest/swiftest_io.f90 @@ -2102,7 +2102,10 @@ module subroutine swiftest_io_netcdf_write_frame_cb(self, nc, param) "swiftest_io_netcdf_write_frame_cb nf90_put_var cb Ip_varid" ) call netcdf_io_check( nf90_put_var(nc%id, nc%rot_varid, self%rot(:) * RAD2DEG, start=[1, idslot, tslot], & count=[NDIM,1,1]), & - "swiftest_io_netcdf_write_frame_cby nf90_put_var cb rot_varid" ) + "swiftest_io_netcdf_write_frame_cb nf90_put_var cb rot_varid" ) + ! ADD + ! call netcdf_io_check( nf90_put_var(nc%id, nc%rotphase_varid, self%rotphase(:), start = [1, idslot, tslot]), & + ! "swiftest_io_netcdf_write_frame_cb nf90_put_var cb rotphase") end if status = nf90_inq_varid(nc%id, nc%c_lm_varname, nc%c_lm_varid)