#! /bin/csh
# extractm4 - C Shell script to extract data from OASIS mooring M4
#	      It expects a command-line arg naming the new data file
#
set oasis = /oasis
set can = m4
cd $oasis/raw

if ($#argv > 0) then
    set datafile = $1
else
    set datafilebase = `date +%Y%j`
    set i = 0
    set datafile = $can.$datafilebase.00
    while ( -e $datafile )
	@ i++
	set datafile = $can.$datafilebase.`printf "%02d" $i`
    end
endif

set errorfile = $oasis/$can/error/$datafile

if ( (-e $datafile) && !(-z $datafile) ) then
	$oasis/bin/extract -r -y1 $datafile >& $errorfile
endif

if ( -z $errorfile ) \
	rm -f $errorfile