Screamer Project  V3.3.1
Screamer Structure
 All Files Functions Variables
end_run.f
Go to the documentation of this file.
1  subroutine banner_end_run (ifile,clen,bgin)
2 c
3 c-----description-------------------------------------------------------
4 c
5 c author/date: mathias bavay 11/04
6 c modifications:
7 c
8 c 2008-11-07 rbs: cleaned up writes and variable definitions
9 c now log file now records date and time correctly
10 c 2012-04-11 rbs: fixed run time and cleaned up routine.
11 c 2014-02-06 rbs: changed real*4 to real
12 c 2014-05-02 rbs: explicitly defined bgin as real
13 c
14 c ----------------------------------------------------------------------
15 c
16 c purpose: this subroutines prints a banner at the end of a run.
17 c
18 c called by: Program zdem
19 c
20 c calls: Subroutine banner, time, date_and_time
21 c
22 c files needed for variables inpfile and screamer_version
23 c
24  include 'version.h'
25 c
26 c define passed variables
27 c
28  character*(*) ifile
29  integer clen
30  real bgin
31 c
32 c define internal variables
33 c
34  real final
35  character endln*80
36  character(8) :: date
37  character(10) :: time
38  character(5) :: zone
39  integer,dimension(8) :: values
40 
41 c-----variable for c++ stdout-------------------------------------------
42  character(len=80)::buffer
43 c ----------------------------------------------------------------------
44 
45  endln = 'End of Simulation'
46 c
47 c set delta time in real seconds (final) knowing initial time bgin
48 c
49  call date_and_time(date,time,zone,values)
50  final = values(6)*60 + values(7) + values(8)*1e-3 - bgin
51  write (buffer,'(A,f12.5,A)') ' Run time:',final,' seconds'
52  call writebuffer(buffer)
53 c
54 c finish up with summary
55 c
56  call banner(endln)
57 c
58  write(9,'(/A,A)') 'The SCREAMER input file used: ',ifile(1:clen)
59  write(9,'(A,i2.2,A,i2.2)')
60  & ' Current time: ',values(5),':',values(6)
61  buffer=''
62 c write (buffer,'(A,i2.2,A,i2.2,A,i4)')
63 c & ' Current date: ',values(2),'/',values(3),'/',values(1)
64 c call writebuffer(buffer)
65  write(9,'(A,f12.3,A)')
66  & ' Run time: ',final,' seconds'
67  write(9,'(A)') screamer_version
68  close(unit=9)
69 
70  buffer=''
71  write(buffer,'(A)') ' Done'
72  call writebuffer(buffer)
73 
74  return
75  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 banner_end_run(ifile, clen, bgin)
Definition: end_run.f:1
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
c This is a Fortran header file
Definition: sfc.h:3