undo weighting needed for restart

2022-11-20 13:36:03 +01:00 · 2022-11-20 13:36:03 +01:00 · 2173c9e499
parent 34fb7e921a
commit 2173c9e499
1 changed files with 1 additions and 1 deletions
--- a/src/grid/spectral_utilities.f90
+++ b/src/grid/spectral_utilities.f90
@ -1118,7 +1118,7 @@ subroutine utilities_saveReferenceStiffness()
    open(newunit=fileUnit, file=getSolverJobName()//'.C_ref',&
         status='replace',access='stream',action='write',iostat=ierr)
    if (ierr /=0) call IO_error(100,ext_msg='could not open file '//getSolverJobName()//'.C_ref')
-    write(fileUnit) C_ref
+    write(fileUnit) C_ref*wgt
    close(fileUnit)
  end if