Screamer Project  V3.3.1
Screamer Structure
 All Files Functions Variables
banner_start.f
Go to the documentation of this file.
1  subroutine banner_start_run (bgin)
2 c
3 c-----description-------------------------------------------------------
4 c
5 c author/date: mathias bavay 11/04
6 c modifications:
7 c
8 c 2008-07-16 rbs gfortran fix, remove time, leave date_and_time
9 c 2008-09-10 rbs redefine buffer to 80
10 c 2008-11-07 rbs split off banner_start from start_run.f
11 c 2008-11-07 rbs Write & include clean up
12 c 2012-04-11 rbs: fixed bgin and start time issues
13 c ----------------------------------------------------------------------
14 c
15 c purpose: this subroutines prints a banner at the begining of a run.
16 c
17 c called by: Program zdem
18 c
19 c calls: subroutines date_and_time
20 c
21 c files needed for screamer_version
22 
23  include 'version.h'
24 
25  character(len=80)::buffer
26 c
27  character(8) :: date
28  character(10) :: time
29  character(5) :: zone
30  integer,dimension(8) :: values
31 c
32 c ----------------------------------------------------------------------
33 c
34 c Write out current version number and date and time to the screen
35 c
36  write (buffer,'(A,A,A)') ' ***** ',screamer_version,' *****'
37  call writebuffer(buffer)
38 c
39 c get the current date and time
40 c
41  call date_and_time(date,time,zone,values)
42 c
43  write (buffer,'(A,i2.2,A,i2.2,A,i2.2,A,i3.3,A)')
44  & ' ***** The current time is: '
45  & ,values(5),':',values(6),':',values(7),':',values(8), ' *****'
46  call writebuffer(buffer)
47  write (buffer,'(A,i2.2,A,i2.2,A,i4.4,A)')
48  & ' ***** The current date is: ',
49  & values(2),'/',values(3),'/',values(1),' *****'
50  call writebuffer(buffer)
51  bgin = values(6)*60 + values(7) + values(8)*1e-3
52 c write(*,*) bgin
53 
54  return
55  end
c *****************************************************************************c Various format statements for read_screamer_data output c To get these into made format to be characters c for each line corrected spelling errors in format added statement for Zflow Plasma Loss Model added format for CSV output type fixed more lines longer than characters added format for Measure Zflow Block and forward c reverse current directions in Zflow plasma loss c and Zflow POS models added format for SFC output type c removed from all code calls c c c c c a80 c i10 c No grids on plots c Do not write files containing the plotted points c Execute only one cycle c Do not echo the setup parameters and indicies c c &exitting c a13 c c c c c c c c102 c &described as a function of time c c c &described as a function of time c c c &function of time c c shell c &min A K c &trapped field time
Definition: zdemfmt.h:85
subroutine zdem(ifile, clen)
Definition: zdem.f:1
subroutine banner(line)
Definition: prtbannr.f:1
c *****************************************************************************c Various format statements for read_screamer_data output c To get these into made format to be characters c for each line c
Definition: zdemfmt.h:7