Subversion Repositories lagranto.20cr

Rev

Details | Last modification | View Log | RSS feed

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