Subversion Repositories lagranto.arpege

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
3 michaesp 1 
#!/bin/csh
2 
 
3 
if ( $#argv < 1 ) then
4 
  echo
5 
  /home/binderh/prog/programs/lagranto.mf/bin/lagrantohelp changet short
6 
  echo
7 
  exit 0
8 
endif
9 
 
10 
set stdate=$1
11 
set fort=fort.9
12 
 
13 
if ( $#argv == 2 ) then
14 
  set string=$2
15 
else
16 
  set string='P[_0-9]*[0-9] S[_0-9]*[0-9]'
17 
endif
18 
 
19 
foreach i ( $string )
20 
 
21 
  \rm -f $fort
22 
  touch $fort
23 
 
24 
# set date = `echo $i | sed -e 's/[A-Za-z_]*//' | cut -c 1-9`
25 
  set date = `echo $i | sed -e 's/[A-Za-z_]*//'`
26 
  echo $i >> $fort
27 
 
28 
  set date=`echo ${date}00 | cut -c 1-13`
29 
  set stdate=`echo ${stdate}00 | cut -c 1-13`
30 
 
31 
  set tim = `/home/binderh/prog/programs/lagranto.mf/goodies/gettidiff $date $stdate`
32 
  echo ${tim} >> $fort
33 
 
34 
  /home/binderh/prog/programs/lagranto.mf/goodies/changet
35 
 
36 
end
37 
 
38 
#\rm -f $fort