forrest@0: ;*****************************************************
forrest@0: load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_code.ncl"
forrest@0: load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_csm.ncl"
forrest@0: load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/contributed.ncl"
forrest@0: ;****************************************************************************
forrest@0: ; Main code.
forrest@0: ;****************************************************************************
forrest@0: begin
forrest@0: 
forrest@0: ;--------------------------------------------------
forrest@0: ; edit table.html of current model for movel1_vs_model2
forrest@0: 
forrest@0:  if (isvar("compare")) then
forrest@0:     html_name2 = compare+"/table.html"  
forrest@0:     html_new2  = html_name2 +".new" 
forrest@0: 
forrest@0:     system("sed -e '/"+modeln+"/s/"+modeln+"/"+model_name+"/' "+html_name2+" > "+html_new2+";"+ \
forrest@0:            "mv -f "+html_new2+" "+html_name2)
forrest@0:  end if
forrest@0: ;-------------------------------------
forrest@0: ; edit table.html for current model
forrest@0: 
forrest@0:  html_name = model_name+"/table.html"  
forrest@0:  html_new  = html_name +".new"
forrest@0:  system("sed s#model_name#"+model_name+"# "+html_name+" > "+html_new+";"+ \
forrest@0:         "mv -f "+html_new+" "+html_name)
forrest@0: 
forrest@0: ;---------------------------------------------------------------------------
forrest@0: 
forrest@0: end
forrest@0: