#
# QSUB -s /bin/csh
# QSUB -lT 60
# QSUB -q prem
# QSUB -nr
#
# To get a nice listing of a tgcm model from mss:
#
# 1) run this script on a Cray, get $remote back (file)
#    (set MOVEDK directives as necessary to get alphabetical listing)
# 2) nrnet msprint file r jde=P11R (note upper case arg to jde)
# *or*
# 2) use "enscript -fCourier9 -d haon-dup file" to make listing at hao
#
cd $TMPDIR
#
set plib_mss = /FOSTER/tgcm17/tgcm17a.pl
set plib_dsk = tgcm17a.pl
#set remote = vishnu.hao:/d/foster/tgcm17/tgcm17a.src
set remote = vishnu.hao:/d/foster/tgcm17/source.list
#
# Get nupdate program lib and make empty mod deck:
#
echo ' '
echo Doing msread of $plib_mss to disk file $plib_dsk
msread $plib_dsk $plib_mss
cat >! pdir << 'EOFa'
*MOVEDK BNDZ:BLNK
*MOVEDK GETGPI:FSAVE
*MOVEDK RDGPI:RATES
*MOVEDK IYDDIF:ITERA
*MOVEDK ICHIYD:HOXPION
*MOVEDK INCIYD:ICHK
*MOVEDK LENSTR:LAMDAS
*MOVEDK ISEC2HMS:INPUT
*MOVEDK TIMETERP:TERP
'EOFa'
#
# Use nupdate to get source listing of the plib without
# sequence numbers:
#
echo Running nupdate to get source list from plib...
nupdate -p $plib_dsk -i pdir -s source -f
#
# Chop excess length off each line, if necessary 
# (utility chop will write new file source.chop)
#
#cat >! src_in << 'EOFb'
#source
#'EOFb'
#if (-e source.chop) rm source.chop
#./chop < src_in
#
#expand source.chop >! source.exp
#
# Convert any tabs to spaces (otherwise sequence numbers will be
# offset in final output listing)
#
echo Running expand to expand tabs...
expand source >! source.exp
#
# Get listing with sequence numbers:
#
echo Running nupdate to get listing with sequence numbers...
nupdate -n newpl -i source.exp -o "nd"
nupdate -p newpl -s source.list -f -o "id sq um"
#
# Send final listing to remote:
#
echo Sending source.list to $remote
rcp source.list $remote
exit