35 parameter(csv_unit = 24)
39 character csvfile*80,tempfile*80,filename*80
55 nskip =
ifsteps(maxfpts, ht, tstart, tstop)
56 nptscsv = (((tstop - tstart) / ht) / nskip) + 1
60 csvfile = base_filename
61 call
strip(csvfile, i_1st, i_last)
65 call
strip_name(csvfile(i_1st:i_last),tempfile,lentmp)
66 filename = tempfile(1:lentmp)//
'.csv'
67 open (unit=csv_unit,
file=filename, status=
'unknown')
71 write (csv_unit,
'(A,$)')
'Time'
75 write (csv_unit,
'( )')
94 + ibufsize, tmptime, tmpval, ierr)
100 + ibufsize, tmptime, tmpval, ierr)
108 + ibufsize, tmptime, tmpval, ierr)
110 do while (ierr .eq. 0)
112 if (ncycle .ge. nskip)
then
113 ipntcnt = ipntcnt + 1
119 + ibufsize, tmptime, tmpval, ierr)
126 + ibufsize, tmptime, tmpval, ierr)
139 write (csv_unit,
'(1pe12.5,$)')
timeout(i,1)
141 write (csv_unit,
'(A,1pe12.5,$)')
',',
outdata(i,j)
143 write (csv_unit,
'( )')
153 close (unit=csv_unit)
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)
subroutine open_outfile(iunit, status, ierr)
subroutine close_outfile(iunit, ierr)
subroutine strip_name(text, name, start)
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 numcsv
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)
subroutine gather(inarray, intarget, maxin, outarray, numout)
c This is a Fortran header file