write_header.f

Go to the documentation of this file.

!vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvC
!                                                                      C
!  Module name: WRITE_HEADER                                           C
!  Purpose: read and verify input data, open files                     C
!                                                                      C
!  Author: M. Syamlal                                 Date: 18-APR-97  C
!                                                                      C
!^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^C
!
      SUBROUTINE write_header
!...Translated by Pacific-Sierra Research VAST-90 2.06G5  12:17:31  12/09/98
!...Switches: -xf
!-----------------------------------------------
!   M o d u l e s
!-----------------------------------------------
      USE compar
      USE funits
      USE machine
      USE output
      USE param
      USE param1
      USE run
      IMPLICIT NONE
!-----------------------------------------------
!   G l o b a l   P a r a m e t e r s
!-----------------------------------------------
!-----------------------------------------------
!   L o c a l   P a r a m e t e r s
!-----------------------------------------------
!-----------------------------------------------
!   L o c a l   V a r i a b l e s
!-----------------------------------------------
!
!
!                      Memory required for the run
      DOUBLE PRECISION :: MEMORY
!-----------------------------------------------
!
!
      CALL start_log
!
      IF(dmp_log)WRITE (unit_log, *) ' '
      IF(dmp_log)WRITE (unit_log, 1005) id_version, id_node
      IF(dmp_log)WRITE (unit_log,1010)run_name,id_hour,id_minute,id_month,id_day,id_year
!
      IF (full_log .and. mype.eq.pe_io) THEN    !//d
         WRITE (*, *) ' '
         WRITE (*, 1005) id_version, id_node
         WRITE(*,1010)run_name,id_hour,id_minute,id_month,id_day,id_year
      ENDIF
!
!   Calculate the memory requirement for the present run
!
      memory = 9. + (8.*dimension_3/onemeg)*(95. + 32.*dimension_m + 4.*&
         dimension_n_g + 4.*dimension_m*dimension_n_s)
      IF(dmp_log)WRITE (unit_log, '(1X,A,F7.2,A)') 'Memory required: ', memory, ' Mb'
      IF (full_log .and. mype.eq.pe_io) THEN     !//d
         WRITE (*, '(1X,A,F7.2,A)') 'Memory required: ', memory, ' Mb'
         WRITE (*, 1015)
      ENDIF
!
      IF(dmp_log)WRITE (unit_log, 1015)
      CALL end_log
!
      RETURN
 1005 FORMAT(1x,'MFIX (',a10,') simulation on computer: ',a20)
 1010 FORMAT(1x,'Run name: ',a20,2x,'Time: ',i2,':',i2.0,20x,'Date: ',i2,'-',i2&
         ,'-',i4)
 1015 FORMAT(72('_'))
      END SUBROUTINE write_header