cshell example

This is the cshell exmple i used before.
It needs some correction but contain very informative structure in cshell.

This cshell includes the following procedure.
1. make string variable (01, 02, ...) from integer (1, 2, ...)
2. connect to ftp server and download file
3. organize directory
4. run IDL program

!/bin/csh
#
set nyr = 00
set echo
while ($nyr <= 00)
set nweol = 7
while ( $nweol <= 7)
if( $nweol <= 9)then
set nnweol=0$nweol
else
set nnweol = $nweol
endif
set mon = 3
while ( $mon <= 31)
if( $mon <= 9)then
set monn=0$mon
else
set monn = $mon
endif

set rserver = xxx.XX.59.Xx
set lroot = /data1/jina/imsihdf
set lroothist = $lroot
set rroot = /data2/agcm/pr/raw2
set rroothist = $rroot
cat > ftp1.cmd << EOF

bi
cd $rroothist
lcd $lroothist
mget *${nyr}${nnweol}${monn}*
quit
EOF
ftp -i $rserver < ftp1.cmd >& ftp1.log
rm -f ftp1.cmd
gzip -d /data1/jina/imsihdf/*
set fnname=( `/usr/bin/ls /data1/jina/imsihdf` )
set num = 1
foreach fnn ($fnname)
if ( $num <= 9)then
set number=0$num
else
set number = $num
endif
idl << IDL_EOF
openw, unit11, /get_lun, 'imsi/lon.gdat', /f77_unformatted
openw, unit21, /get_lun, 'imsi/lat.gdat', /f77_unformatted
openw, unit31, /get_lun, 'imsi/v.gdat', /f77_unformatted
openw, unit41, /get_lun, 'imsi/h.gdat', /f77_unformatted
openw, unit61, /get_lun, 'imsi/scan.data'
fn = findfile('/data1/jina/imsihdf/*', count=fl)
.run reading.pro
exit
IDL_EOF
set flist=(`/usr/bin/ls /data1/jina/imsihdf`)
\rm /data1/jina/imsihdf/$flist[1]
unset flist
mv imsi/lon.gdat imsi/lon${number}.gdat
mv imsi/lat.gdat imsi/lat${number}.gdat
mv imsi/v.gdat imsi/v${number}.gdat
mv imsi/h.gdat imsi/h${number}.gdat
mv imsi/scan.data imsi/scan${number}.data
@ num ++
end
cp imsi/scan01.data imsi/file.data
mkdir data/${nyr}${nnweol}${monn}/
mv imsi/* data/${nyr}${nnweol}${monn}/
set lr = /data1/jina/pct/e/data/${nyr}${nnweol}${monn}/
set lrhist = $lr
set rr = /data2/agcm/tmi/85/${monn}
set rrhist = $rr
cat > ftp1.cmd << EOF
bi
cd $rrhist
lcd $lrhist
mput *
quit
EOF
ftp -i $rserver < ftp1.cmd >& ftp1.log
rm -f ftp1.cmd
@ mon ++
end
@ nweol ++
end
@ nyr ++
end