all/00.initial.ncl
author Forrest Hoffman <forrest@climatemodeling.org>
Mon, 26 Jan 2009 22:08:20 -0500
changeset 0 0c6405ab2ff4
permissions -rw-r--r--
Initial commit of C-LAMP Diagnostics from Jeff Lee
forrest@0
     1
;*****************************************************
forrest@0
     2
load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_code.ncl"
forrest@0
     3
load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/gsn_csm.ncl"
forrest@0
     4
load "$NCARG_ROOT/lib/ncarg/nclscripts/csm/contributed.ncl"
forrest@0
     5
;****************************************************************************
forrest@0
     6
; Main code.
forrest@0
     7
;****************************************************************************
forrest@0
     8
begin
forrest@0
     9
forrest@0
    10
;--------------------------------------------------
forrest@0
    11
; edit table.html of current model for movel1_vs_model2
forrest@0
    12
forrest@0
    13
 if (isvar("compare")) then
forrest@0
    14
    html_name2 = compare+"/table.html"  
forrest@0
    15
    html_new2  = html_name2 +".new" 
forrest@0
    16
forrest@0
    17
    system("sed -e '/"+modeln+"/s/"+modeln+"/"+model_name+"/' "+html_name2+" > "+html_new2+";"+ \
forrest@0
    18
           "mv -f "+html_new2+" "+html_name2)
forrest@0
    19
 end if
forrest@0
    20
;-------------------------------------
forrest@0
    21
; edit table.html for current model
forrest@0
    22
forrest@0
    23
 html_name = model_name+"/table.html"  
forrest@0
    24
 html_new  = html_name +".new"
forrest@0
    25
 system("sed s#model_name#"+model_name+"# "+html_name+" > "+html_new+";"+ \
forrest@0
    26
        "mv -f "+html_new+" "+html_name)
forrest@0
    27
forrest@0
    28
;---------------------------------------------------------------------------
forrest@0
    29
forrest@0
    30
end
forrest@0
    31