/[MITgcm]/MITgcm_contrib/jmc_script/derive_other_types
ViewVC logotype

Diff of /MITgcm_contrib/jmc_script/derive_other_types

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by jmc, Mon May 11 12:32:37 2009 UTC revision 1.2 by jmc, Mon May 11 13:15:12 2009 UTC
# Line 17  s/Real\*4/Real*8/g Line 17  s/Real\*4/Real*8/g
17  s/real\*4/real*8/g  s/real\*4/real*8/g
18  EOF  EOF
19    
20    kWord='Header'
21    
22  xx='mdsio_pass_r8torl.F'  xx='mdsio_pass_r8torl.F'
23  yy=`echo $xx | sed 's/_r8/_r4/'`  yy=`echo $xx | sed 's/_r8/_r4/'`
24  echo "generate $xx from $yy"  echo "generate $xx from $yy"
25  sed -n '/^C \$Header$xx > $tmpOutF  sed -n "/^C \$$kWord:/p" $xx > $tmpOutF
26  sed -f $chg4to8 $yy | sed '/^C \$Header$tmpOutF  sed -f $chg4to8 $yy | sed "/^C \$$kWord:/d" >> $tmpOutF
27  cmp -s $xx $tmpOutF  cmp -s $xx $tmpOutF
28  outp=$?  outp=$?
29  #echo $outp  #echo $outp
# Line 42  for xx in `ls mdsio_pass_r?tors.F` Line 44  for xx in `ls mdsio_pass_r?tors.F`
44  do  do
45   yy=`echo $xx | sed 's/rs\.F$/rl.F/'`   yy=`echo $xx | sed 's/rs\.F$/rl.F/'`
46  echo "generate $xx from $yy"  echo "generate $xx from $yy"
47  sed -n '/^C \$Header$xx > $tmpOutF  sed -n "/^C \$$kWord:/p" $xx > $tmpOutF
48  sed 's/RL/RS/g' $yy | sed '/^C \$Header$tmpOutF    sed 's/RL/RS/g' $yy | sed "/^C \$$kWord:/d" >> $tmpOutF  
49  cmp -s $xx $tmpOutF  cmp -s $xx $tmpOutF
50  outp=$?  outp=$?
51  #echo $outp  #echo $outp
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22