qmomk_write_restart.f

Go to the documentation of this file.

!vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC
!                                                                      C
!  Module name: QMOMK_WRITE_RESTART                                    C
!  Purpose: Writing QMOMK data for restart                             C
!                                                                      C
!                                                                      C
!  Author: Alberto Passalacqua                        Date:            C
!  Reviewer:                                          Date:            C
!                                                                      C
!^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C


SUBROUTINE qmomk_write_restart

  USE param1
  USE qmom_kinetic_equation
  USE run

  IMPLICIT NONE

  OPEN (unit=901, file=trim(run_name)//'_QMOMK.RES', form='Unformatted', status='unknown')

  rewind(901)

  ! Only weights and abscissas are necessary for restarting a calculation
  ! Moments are NOT necessary because they are calculated directly from
  ! weights and abscissas - Alberto Passalacqua

  WRITE (901) qmomk_n1
  WRITE (901) qmomk_u1
  WRITE (901) qmomk_v1
  WRITE (901) qmomk_w1

END SUBROUTINE qmomk_write_restart