File: /nfs/home/0/users/jenkins/mfix.git/model/qmomk/qmomk_write_restart.f

1     !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC
2     !                                                                      C
3     !  Module name: QMOMK_WRITE_RESTART                                    C
4     !  Purpose: Writing QMOMK data for restart                             C
5     !                                                                      C
6     !                                                                      C
7     !  Author: Alberto Passalacqua                        Date:            C
8     !  Reviewer:                                          Date:            C
9     !                                                                      C
10     !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C
11     
12     
13     SUBROUTINE QMOMK_WRITE_RESTART
14     
15       USE param1
16       USE qmom_kinetic_equation
17       USE run
18     
19       IMPLICIT NONE
20     
21       OPEN (UNIT=901, FILE=TRIM(RUN_NAME)//'_QMOMK.RES', FORM='Unformatted', STATUS='unknown')
22     
23       REWIND (901)
24     
25       ! Only weights and abscissas are necessary for restarting a calculation
26       ! Moments are NOT necessary because they are calculated directly from
27       ! weights and abscissas - Alberto Passalacqua
28     
29       WRITE (901) QMOMK_N1
30       WRITE (901) QMOMK_U1
31       WRITE (901) QMOMK_V1
32       WRITE (901) QMOMK_W1
33     
34     END SUBROUTINE QMOMK_WRITE_RESTART
35     
36