40 parameter(ufo_unit = 24)
44 character ufofile*80,tempfile*80,filename*80
60 nskip =
ifsteps(maxfpts, ht, tstart, tstop)
61 nptsufo = (((tstop - tstart) / ht) / nskip) + 1
65 ufofile = base_filename
66 call
strip(ufofile, i_1st, i_last)
70 call
strip_name(ufofile(i_1st:i_last),tempfile,lentemp)
71 filename = tempfile(1:lentemp)//
'.ufo'
72 open (unit=ufo_unit,
file=filename, status=
'unknown')
77 write (ufo_unit,
'(101(A13))')
95 + ibufsize, tmptime, tmpval, ierr)
101 + ibufsize, tmptime, tmpval, ierr)
109 + ibufsize, tmptime, tmpval, ierr)
111 do while (ierr .eq. 0)
113 if (ncycle .ge. nskip)
then
114 ipntcnt = ipntcnt + 1
120 + ibufsize, tmptime, tmpval, ierr)
127 + ibufsize, tmptime, tmpval, ierr)
140 write (ufo_unit,
'(101(1pe13.5))')
148 close (unit=ufo_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)
c *****************************************************************************c Common blocks for SCREAMER output and tabling c & numufo
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 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