#!/bin/csh -f
#
# Shell script to regenerate file series files. The latest files are
# used to regenerate these new time series
#
# Script is assumed to start in anal/control and analyses are in
# anal/COM anal/NMT and anal/CWU
#
# Only option here is to pass a time tag
#
if( $#argv == 0 ) then
   set ts = `date +"%Y%m%d%H%M%S"`
else
   set ts = $1
endif
set logf = "RGNTS.log.${ts}"
echo "Creating $logf"
echo "CREATING REGEN TIME SERIES $ts" >! $logf
##########################################################################
# Start at COM
cd ../COM
#
# Get list of all [b-f] files saving the highest letter of each one.
#
#set comall = `ls com[01]????.[b-f].org | sort -r | sort -u -k 1.4,1.8` 
set comall = `ls -t com[01]????.[b-f].org | sort -u -k 1.4,1.8` 

set lweek = `echo $comall[$#comall] | awk '{print substr($1,4,4)}'`

\rm TSSUM.[fsw]*
# Check for a lock file
while ( -e ts_com/tssum.lock )
    sleep 1m
end
echo "Lock $lweek" >! ts_com/tssum.lock
\rm ts_com/*pbo.final_nam08.pos
# Now run each solution.
set ts = `date +"%Y%m%d%H%M%S"`
ls -t com[01]????.[b-f].org | sort -u -k 1.4,1.8 >! list.$ts
set comall = `grep '.e.org' list.$ts`
tssum ts_com pbo.final_nam08+repro -A $comall >> ../control/$logf
set comall = `grep '.f.org' list.$ts`
tssum ts_com pbo.final_nam08+supp6 -A $comall >> ../control/$logf
set comall = `grep '.c.org' list.$ts`
tssum ts_com pbo.final_nam08+suppl -A $comall >> ../control/$logf
set comall = `grep '.b.org' list.$ts`
tssum ts_com pbo.final_nam08       -A $comall >> ../control/$logf

# Generate the IGS08 versions
\rm ts_igs08/*final*pos 
tscon ts_igs08 pbo.final_igs08 ../tables/tscon_IGS08.cmd ts_com/*final*pos >&! /dev/null

\rm  ts_com/tssum.lock list.$ts
#
#
##########################################################################
# Now do NMT
cd ../NMT
#
# Get list of all [b-f] files saving the highest letter of each one.
#
#set nmtall = `ls nmt[01]????.[b-f].org | sort -r | sort -u -k 1.4,1.8` 
#set nmtall = `ls -t nmt[01]????.[b-f].org |  sort -u -k 1.4,1.8` 
\rm TSSUM.[fsw]*]
# Check for a lock file
while ( -e ts_nmt/tssum.lock )
    sleep 1m
end
echo "Lock $lweek" >! ts_nmt/tssum.lock
\rm ts_nmt/*nmt.final_nam08.pos
ls -t nmt[01]????.[b-f].org | sort -u -k 1.4,1.8 >! list.$ts
set nmtall = `grep '.e.org' list.$ts`
tssum ts_nmt nmt.final_nam08+repro -A $nmtall >> ../control/$logf
set nmtall = `grep '.f.org' list.$ts`
tssum ts_nmt nmt.final_nam08+supp6 -A $nmtall >> ../control/$logf
set nmtall = `grep '.c.org' list.$ts`
tssum ts_nmt nmt.final_nam08+suppl -A $nmtall >> ../control/$logf
set nmtall = `grep '.b.org' list.$ts`
tssum ts_nmt nmt.final_nam08       -A $nmtall >> ../control/$logf

\rm ts_nmt/tssum.lock list.$ts
#
#
##########################################################################
# Now do CWU
cd ../CWU
#
# Get list of all [b-f] files saving the highest letter of each one.
#
#set cwuall = `ls cwu[01]????.[b-f].org | sort -r | sort -u -k 1.4,1.8` 
#set cwuall = `ls -t cwu[01]????.[b-f].org | sort -u -k 1.4,1.8` 
\rm TSSUM.[fsw]*
# Check for a lock file
while ( -e ts_cwu/tssum.lock )
    sleep 1m
end
echo "Lock $lweek" >! ts_cwu/tssum.lock
\rm ts_cwu/*cwu.final_nam08.pos
ls -t cwu[01]????.[b-f].org | sort -u -k 1.4,1.8 >! list.$ts
set cwuall = `grep '.e.org' list.$ts`
tssum ts_cwu cwu.final_nam08+repro -A $cwuall >> ../control/$logf
set cwuall = `grep '.f.org' list.$ts`
tssum ts_cwu cwu.final_nam08+supp6 -A $cwuall >> ../control/$logf
set cwuall = `grep '.c.org' list.$ts`
tssum ts_cwu cwu.final_nam08+suppl -A $cwuall >> ../control/$logf
set cwuall = `grep '.b.org' list.$ts`
tssum ts_cwu cwu.final_nam08       -A $cwuall >> ../control/$logf

\rm  ts_cwu/tssum.lock list.$ts
#
#
