56 parameter(sfc_unit = 24)
61 integer imon, iday, iyr, i, ip, j, i1, i2
63 character*10 dt_return (3)
83 nskip =
ifsteps(maxfpts, ht, tstart, tstop)
84 nptssfc = (((tstop - tstart) / ht) / nskip) + 1
88 sfcfile = base_filename
89 call
strip(sfcfile, i_1st, i_last)
90 iend = i_last - i_1st + 5
91 sfcfile(1:iend) = sfcfile(i_1st:i_last)//
'.sfc'
92 open (unit=sfc_unit,
file=sfcfile(1:iend), status=
'unknown')
96 time_flag = whole_step
109 + ibufsize, tmptime, tmpval, ierr)
115 + ibufsize, tmptime, tmpval, ierr)
123 + ibufsize, tmptime, tmpval, ierr)
125 do while (ierr .eq. 0)
127 if (ncycle .ge. nskip)
then
128 ipntcnt = ipntcnt + 1
134 + ibufsize, tmptime, tmpval, ierr)
141 + ibufsize, tmptime, tmpval, ierr)
151 if (istart .eq. no_text)
then
152 lblout(i)(1:sfc_len) = sfc_titcol(ip)(1:sfc_len)
158 call
strip(title, i1, i2)
159 write (sfc_unit, 1010) title(i1:i2)
160 call date_and_time(dt_return(1), dt_return(2),
161 & dt_return(3), date_time)
162 write (sfc_unit, 1000) date_time(2), date_time(3), date_time(1)
163 write (sfc_unit, 1012)
164 write (sfc_unit, 1006)
numsfc+1
165 write (sfc_unit, 1007) nptssfc
166 write (sfc_unit, 1001)
168 write (sfc_unit, 1002)
170 write (sfc_unit, 1003)
172 write (sfc_unit, 1011) screamer_version
173 write (sfc_unit, 1013)
191 close (unit=sfc_unit)
195 1010
format(
'TITREG=',a)
196 1000
format(
'DATHEU=',i2.2,
'/',i2.2,
'/',i4.4)
197 1012
format(
'TYPEDO=REEL')
198 1006
format(
'NBCOLO=',
i3)
199 1007
format(
'NBLIGN=',i5)
200 1001
format(
'TITCOL=',100(a15,
';'))
201 1002
format(
'LABCOL=',100(a15,
';'))
202 1003
format(
'UNICOL=',100(a15,
';'))
203 1011
format(
'COMENT=',a)
204 1013
format(
'DONNEE=')
205 1009
format(1pe13.6, 100(
' ',1pe13.6))
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character tendout
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character timeout
c *****************************************************************************c Common blocks for SCREAMER output and tabling c & numout
subroutine read_outfile(iunit, newrec, timeflag, ipoint, ibufsize, ttime, value, ierr)
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 i3
subroutine open_outfile(iunit, status, ierr)
subroutine close_outfile(iunit, ierr)
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character & lblout
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character iouttype
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character & outdata
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character indices
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character & tbegout
subroutine strip(text, start, end)
c *****************************************************************************c Common blocks for SCREAMER output and tabling c maxout
integer function ifsteps(maxpts, dt, tstart, tstop)
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character itypout
c *****************************************************************************c Common blocks for SCREAMER output and tabling c numsfc character numsfc
subroutine gather(inarray, intarget, maxin, outarray, numout)
c This is a Fortran header file