From 97d204a9f1ac03c7299fb6c477f541457cce3676 Mon Sep 17 00:00:00 2001 From: Mark Cianciosa Date: Mon, 29 Jan 2024 13:15:02 -0500 Subject: [PATCH] Save the toroidal modes to the restart file. --- Sources/restart_mod.f90 | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/Sources/restart_mod.f90 b/Sources/restart_mod.f90 index d8c54d1..068d15f 100644 --- a/Sources/restart_mod.f90 +++ b/Sources/restart_mod.f90 @@ -471,6 +471,8 @@ SUBROUTINE restart_write(restart_ext, wout_file) CALL cdf_define(ncid, vn_nfpin, nfp) CALL cdf_define(ncid, vn_wout, wout_file) + CALL cdf_define(ncid, vn_tor_modes, fourier_context%tor_modes) + CALL cdf_define(ncid, vn_jbsupss, jbsupsmnsh, dimname=restart_dims) CALL cdf_define(ncid, vn_jbsupuc, jbsupumnch, dimname=restart_dims) CALL cdf_define(ncid, vn_jbsupvc, jbsupvmnch, dimname=restart_dims) @@ -546,6 +548,8 @@ SUBROUTINE restart_write(restart_ext, wout_file) CALL cdf_write(ncid, vn_nfpin, nfp) CALL cdf_write(ncid, vn_wout, wout_file) + CALL cdf_write(ncid, vn_tor_modes, fourier_context%tor_modes) + CALL cdf_write(ncid, vn_jbsupss, jbsupsmnsh) CALL cdf_write(ncid, vn_jbsupuc, jbsupumnch) CALL cdf_write(ncid, vn_jbsupvc, jbsupvmnch)