Screamer Project  V3.3.1
Screamer Structure
 All Files Functions Variables
write_outs.f
Go to the documentation of this file.
1  subroutine write_outs
2 c -----------------------------------------------------------------------------
3 c
4 c include the files with the various keywords and integer flags.
5 c
6  include 'zdemparm.h'
7  include 'zdempprm.h'
8 c
9 c include the files specifying the array dimensions and the common blocks.
10 c
11  include 'zdemmax.h'
12  include 'zdemcomm.h'
13  include 'zdemwork.h'
14  include 'zdemout.h'
15  include 'zdemenv.h'
16  include 'zdemvars.h'
17 c
18 c include file with version string
19 c
20  include 'version.h'
21 
22  character(len=80)::buffer
23 
24 c -----------------------------------------------------------------------------
25  write(buffer,213)
26  call writebuffer(buffer)
27  213 format('SCREAMER is now writing to the output file')
28 c
29 
30  if (iset .eq. all_cycles) then
31 c
32 c create files for future processing, one file for each request.
33 c
34  if (numfil .gt. 0) then
35  call filvals
36  end if
37 c
38 c create screamer compatible tables, one file for each request.
39 c
40  if (numtab .gt. 0) then
41  call tabvals
42  end if
43 c
44 c create ufo file.
45 c
46  if (numufo .gt. 0) then
47  call ufovals
48  end if
49 c
50 c ------------------------- section if pff is used ------------------
51 c
52 c#if defined(USE_PFF)
53 c
54 c create pff file.
55 c
56 c if (numpff .gt. 0) then
57 c call pffvals
58 c end if
59 cc
60 c#endif
61 c
62 c ------------------------- End pff section --------------
63 c
64 c
65 c create comma separated variable(csv) file
66 c
67  if (numcsv .gt. 0) then
68  call csvvals
69  end if
70 c
71 c create standard de fichiers communs(sfc) file
72 c
73  if (numsfc .gt. 0) then
74  call sfcvals
75  end if
76 c
77 c now delete the screamer output parameter file
78 c
79  fflag = oldfile
80  iunit = outunit
81  call open_outfile(iunit, fflag, ierr)
82  close (iunit,status='delete')
83 c
84  end if
85  return
86  end
87 
subroutine csvvals
Definition: mkcsvfl.f:1
subroutine ufovals
Definition: mkufofl.f:1
subroutine tabvals
Definition: mktblfl.f:1
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numpff
Definition: zdemout.h:47
subroutine open_outfile(iunit, status, ierr)
Definition: opnoutfl.f:1
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numtab
Definition: zdemout.h:47
c *****************************************************************************c Common blocks for SCREAMER output and tabling c & numufo
Definition: zdemout.h:47
subroutine write_outs
Definition: write_outs.f:1
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numcsv
Definition: zdemout.h:47
subroutine pffvals
Definition: mkpfffl.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 *****************************************************************************c Common blocks for SCREAMER output and tabling c numfil
Definition: zdemout.h:47
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character numsfc
Definition: zdemout.h:59
subroutine filvals
Definition: mkfilfl.f:1
subroutine sfcvals
Definition: mksfcfl.f:1
c This is a Fortran header file
Definition: sfc.h:3