File: N:\mfix\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 compar
17           USE funits
18           USE machine
19           USE output
20           USE param
21           USE param1
22           USE run
23           IMPLICIT NONE
24     !-----------------------------------------------
25     !   G l o b a l   P a r a m e t e r s
26     !-----------------------------------------------
27     !-----------------------------------------------
28     !   L o c a l   P a r a m e t e r s
29     !-----------------------------------------------
30     !-----------------------------------------------
31     !   L o c a l   V a r i a b l e s
32     !-----------------------------------------------
33     !
34     !
35     !                      Memory required for the run
36           DOUBLE PRECISION :: MEMORY
37     !-----------------------------------------------
38     !
39     !
40           CALL START_LOG
41     !
42           IF(DMP_LOG)WRITE (UNIT_LOG, *) ' '
43           IF(DMP_LOG)WRITE (UNIT_LOG, 1005) ID_VERSION, ID_NODE
44           IF(DMP_LOG)WRITE (UNIT_LOG,1010)RUN_NAME,ID_HOUR,ID_MINUTE,ID_MONTH,ID_DAY,ID_YEAR
45     !
46           IF (FULL_LOG .and. myPE.eq.PE_IO) THEN    !//d
47              WRITE (*, *) ' '
48              WRITE (*, 1005) ID_VERSION, ID_NODE
49              WRITE(*,1010)RUN_NAME,ID_HOUR,ID_MINUTE,ID_MONTH,ID_DAY,ID_YEAR
50           ENDIF
51     !
52     !   Calculate the memory requirement for the present run
53     !
54           MEMORY = 9. + (8.*DIMENSION_3/ONEMEG)*(95. + 32.*DIMENSION_M + 4.*&
55              DIMENSION_N_G + 4.*DIMENSION_M*DIMENSION_N_S)
56           IF(DMP_LOG)WRITE (UNIT_LOG, '(1X,A,F7.2,A)') 'Memory required: ', MEMORY, ' Mb'
57           IF (FULL_LOG .and. myPE.eq.PE_IO) THEN     !//d
58              WRITE (*, '(1X,A,F7.2,A)') 'Memory required: ', MEMORY, ' Mb'
59              WRITE (*, 1015)
60           ENDIF
61     !
62           IF(DMP_LOG)WRITE (UNIT_LOG, 1015)
63           CALL END_LOG
64     !
65           RETURN
66      1005 FORMAT(1X,'MFIX (',A10,') simulation on computer: ',A20)
67      1010 FORMAT(1X,'Run name: ',A20,2X,'Time: ',I2,':',I2.0,20X,'Date: ',I2,'-',I2&
68              ,'-',I4)
69      1015 FORMAT(72('_'))
70           END SUBROUTINE WRITE_HEADER
71