Subversion Repositories lagranto.um

Rev

Rev 3 | Only display areas with differences | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

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