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

1     !vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC
2     !                                                                      C
3     !  Module name: WRITE_HEADER                                           C
4     !  Purpose: read and verify input data, open files                     C
5     !                                                                      C
6     !  Author: M. Syamlal                                 Date: 18-APR-97  C
7     !                                                                      C
8     !^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C
9     !
10           SUBROUTINE WRITE_HEADER
11     !...Translated by Pacific-Sierra Research VAST-90 2.06G5  12:17:31  12/09/98
12     !...Switches: -xf
13     !-----------------------------------------------
14     !   M o d u l e s
15     !-----------------------------------------------
16           USE param
17           USE param1
18           USE run
19           USE output
20           USE funits
21           USE compar       !//d
22           IMPLICIT NONE
23     !-----------------------------------------------
24     !   G l o b a l   P a r a m e t e r s
25     !-----------------------------------------------
26     !-----------------------------------------------
27     !   L o c a l   P a r a m e t e r s
28     !-----------------------------------------------
29     !-----------------------------------------------
30     !   L o c a l   V a r i a b l e s
31     !-----------------------------------------------
32     !
33     !
34     !                      Memory required for the run
35           DOUBLE PRECISION :: MEMORY
36     !-----------------------------------------------
37     !
38     !
39           CALL START_LOG
40     !
41           IF(DMP_LOG)WRITE (UNIT_LOG, *) ' '
42           IF(DMP_LOG)WRITE (UNIT_LOG, 1005) ID_VERSION, ID_NODE
43           IF(DMP_LOG)WRITE (UNIT_LOG,1010)RUN_NAME,ID_HOUR,ID_MINUTE,ID_MONTH,ID_DAY,ID_YEAR
44     !
45           IF (FULL_LOG .and. myPE.eq.PE_IO) THEN    !//d
46              WRITE (*, *) ' '
47              WRITE (*, 1005) ID_VERSION, ID_NODE
48              WRITE(*,1010)RUN_NAME,ID_HOUR,ID_MINUTE,ID_MONTH,ID_DAY,ID_YEAR
49           ENDIF
50     !
51     !   Calculate the memory requirement for the present run
52     !
53           MEMORY = 9. + (8.*DIMENSION_3/ONEMEG)*(95. + 32.*DIMENSION_M + 4.*&
54              DIMENSION_N_G + 4.*DIMENSION_M*DIMENSION_N_S)
55           IF(DMP_LOG)WRITE (UNIT_LOG, '(1X,A,F7.2,A)') 'Memory required: ', MEMORY, ' Mb'
56           IF (FULL_LOG .and. myPE.eq.PE_IO) THEN     !//d
57              WRITE (*, '(1X,A,F7.2,A)') 'Memory required: ', MEMORY, ' Mb'
58              WRITE (*, 1015)
59           ENDIF
60     !
61           IF(DMP_LOG)WRITE (UNIT_LOG, 1015)
62           CALL END_LOG
63     !
64           RETURN
65      1005 FORMAT(1X,'MFIX (',A10,') simulation on computer: ',A20)
66      1010 FORMAT(1X,'Run name: ',A20,2X,'Time: ',I2,':',I2.0,20X,'Date: ',I2,'-',I2&
67              ,'-',I4)
68      1015 FORMAT(72('_'))
69           END SUBROUTINE WRITE_HEADER
70