Add nullify statements for pointers in geogrid to fix a problem
[WPS.git] / link_grib.csh
blob3cf498a48eb1ae5031c0f57c837164330c829200
1 #!/bin/csh
3 set alpha = ( A B C D E F G H I J K L M N O P Q R S T U V W X Y Z )
4 set i1 = 1
5 set i2 = 1
6 set i3 = 1
8 if ( ( ${#argv} == 1 ) || ( ( ${#argv} == 2 ) && ( ${2} == "." ) ) ) then
10 rm -f GRIBFILE.??? >& /dev/null
12 foreach f ( ${1}* )
14 ln -sf ${f} GRIBFILE.$alpha[$i3]$alpha[$i2]$alpha[$i1]
15 @ i1 ++
17 if ( $i1 > 26 ) then
18 set i1 = 1
19 @ i2 ++
20 if ( $i2 > 26 ) then
21 set i2 = 1
22 @ i3 ++
23 if ( $i3 > 26 ) then
24 echo "RAN OUT OF GRIB FILE SUFFIXES!"
25 endif
26 endif
27 endif
29 end
30 else if ( ${#argv} > 1 ) then
32 rm -f GRIBFILE.??? >& /dev/null
34 foreach f ( $* )
36 if ( $f != "." ) then
37 ln -sf ${f} GRIBFILE.$alpha[$i3]$alpha[$i2]$alpha[$i1]
38 @ i1 ++
40 if ( $i1 > 26 ) then
41 set i1 = 1
42 @ i2 ++
43 if ( $i2 > 26 ) then
44 set i2 = 1
45 @ i3 ++
46 if ( $i3 > 26 ) then
47 echo "RAN OUT OF GRIB FILE SUFFIXES!"
48 endif
49 endif
50 endif
51 endif
53 end
54 else if ( ${#argv} == 0 ) then
55 echo " "
56 echo " "
57 echo " Please provide some GRIB data to link"
58 echo " usage: $0 path_to_grib_data/grib_data_root"
59 echo " "
60 echo " "
61 endif