Variable Grids

) print } ) print } ) print }) print }) print } { 2 copy exch cvx dup cvntos () print dup dup length dup 5 gt { 5 sub 5 getinterval (.html) eq } { pop pop false } ifelse { 0 1 index length 5 sub getinterval cvn } if printno_ htmlpathpush () print nice== htmlpathpop } ifelse } ) print } ) print }) print } ifelse } { dataset type /arraytype eq { dataset 0 get dup totype /datasettype eq { dataset null eq { /myproc getknown { length 1 eq } { false } ifelse } { pop false } ifelse } { pop false } ifelse { dataset 0 get () print .myproc 0 get cvntos print () print dataset 1 1 index length 1 sub getinterval } { dataset } ifelse ifshortlink { 1 1 getinterval } if dup length 1 eq { 0 get allparentlinks1 } { (
AWC { (plainvectorpage) htmlprint }
AWC { 2 copy exch cvx (
) print () print RestrictMetaData? { ( (restricted)) print } if () print npts 1 eq ndim 1 eq { datatype /stringtype eq bufferwordsize 1 eq and currentobject /CLIST known not and unitless? and or } if { () print pop } { nice== } ifelse htmlpathpop (
AWC { mark WWWinfo .currenturldir urls== (/) /args FORMget interp { FORMget lpar exch urls== rpar (/) } forall /function FORMget (/) ] concat redirectto }
AWC { GIF 6 1 roll vectoramplitudecolor pop DoTasks }
AWC [ (#FEFEFF) (#EEEEEE) (#E7E7E7) (#DEDEDE) (#D7D7D7) (#CECECE) (#C7C7C7) (#BEBEBE) (#B7B7B7) (#AAAAAA) (#999999) (#888888) (#777777) ]
AWC { false currentobject /myproc known { currentobject /myprocds getknown { nip type /arraytype eq { true } { currentobject dataset exch .myprocds .dataset ne } ifelse } if } if }
AWC { currentobject /dataset_documentation.html getknown not { currentobject /dataset_documentation get } if dup totype /linktype eq { .href print } { pop dup (/) print dataseturl (/.dataset_documentation.html) print } ifelse pop }
AWC { FORMget null ne }
AWC { (HTTP/1.0 301 Moved content-type: text/html ) print (Cache-Control: no-cache ) print (Location: ) print dup type /stringtype eq { dup print ( Please look here. ) print false /sendmimeheader WWWinfo ! }
AWC { boundingboxc tojpg color.ps }
AWC { /i2 /mimesuffix WWWinfo ! optionalREORDER toi2 chunksize npts 2 mul mimeheaderwithlength datai2 DoTasks }
AWC { JPG 5 1 roll plainvector pop DoTasks }
AWC { JPG showcolors pop }
AWC { legalclientcheck getneedauthorizationdata { true /authorization? WWWinfo ! httpauthenticate } if }
AWC { exch 3 -1 roll MD5_Init exch MD5_Update (:) MD5_Update exch MD5_Update (:) MD5_Update exch MD5_Update MD5_Final string2hex }
AWC CaseListpops1 /streamtype { follow } def /datasettype { follow } def /arraytype { [ exch { [ exch follow counttomark array rastore nip } forall ] countcommonbeginning dup 0 gt { 2 copy exch 0 get exch 0 exch getinterval 3 1 roll mark 3 1 roll exch { 1 index 1 index length 1 index sub getinterval exch } forall pop ] mark 3 1 roll exch aload length 1 add -1 roll ] aload rastore aload pop } { pop } ifelse cvx } def
AWC 0 5 object
AWC { () print allparentlinks0a (
AWC { (
Help
AWC { PS2 4 1 roll colorscale pop DoTasks }
AWC { dup /long_name known { long_name } { cleanname } ifelse htmlformulaprint () print dup /myprocds getknownnotnull { ( ) print (*) print pop } if datasetlocmap? { ( [map]) print } if }
AWC { directoryredirect mimeheader }
AWC { exch ( ) (xxxx) search pop print pop htmlroot (http://) search { pop pop } if print printport print }
AWC { boundingboxc togif color.ps }
AWC { WWWinfo exch /last_modified exch def /expires null def sendmimeheader { mimesuffix /act eq { (HTTP/1.0 301 Moved ) print } { (HTTP/1.0 200 OK ) print } ifelse mimeheaderinfo (Content-Type: ) print mimetype print ( ) print dolastmodified mimesuffix /act ne { ( ) print } if flush method /HEAD eq { stop } if false /sendmimeheader WWWinfo ! } if pop }
AWC { PS2 4 1 roll plaincolorwithscale pop DoTasks }
AWC { printheader? { theheader print false /printheader? HTMLwords ! } if }
AWC [ 6 ]
AWC { dup type /arraytype eq { () print dup length 8 gt { () print dup length 8 sub 8 getinterval } if dup length 0 eq { ( ) print } if { render2 } forall (
...
) print } { allparentlinks0a } ifelse }
AWC 0 11 object /cnonce (0a4f113b) def /response (6629fae49393a05397450978507c4ef1) def /realm (testrealm@host.com) def /opaque (5ccc069c403ebaf9f0171e9517f40e41) def /nonce (dcd98b7102dd2f0e8b11d0f600bfb0c093) def /uri (/dir/index.html) def /nc (00000001) def /qop (auth) def /username (Mufasa) def
AWC { 2 copy exch cvx (
) print dup cvntos print htmlpathpush (
) print 2 index /units eq { htmlunitsprint } { dup type /arraytype eq { leftlineshtml } { nice== } ifelse } ifelse htmlpathpop }
AWC { JPG 6 1 roll vectorcontour pop DoTasks }
AWC { WWWinfo exch /map FORMgetknown { dup /X getknown { plotfirst readunits exch plotlast readunits nip 3 -1 roll dup /Y getknown { plotfirst readunits exch plotlast readunits nip 3 -1 roll pop 4 1 roll exch 4 -1 roll georect .iridl:geoId /bbox FORM! } { pop pop pop } ifelse } { pop } ifelse } if /bbox FORMgetknown { (?bbox=) exch 3array astore concat } if nip redirectto }
AWC CaseList /streamtype { npts 1 eq { exch 1 index } if } def /arraytype { dup xcheck { 3 -1 roll exch exec exch 3 1 roll viewerdatasetcase caseexec } if } def
AWC { nptgrids dup { 2 copy ne { () print 1 index .name ==ns ( ) print name ==ns ([) print 3 index 2 index 2 index 2 REORDER .nchunk ==ns (] ) print } if pop pop } forall2 pop }
AWC { (
) print 2 index 0 get 0 5 getinterval (http:) eq { () print 1 index cvntos dup dup length dup 5 gt { 5 sub 5 getinterval (.html) eq } { pop pop false } ifelse { 0 1 index length 5 sub getinterval cvn } if printno_ (
) print } { 2 copy exch cvx dup cvntos () print dup dup length dup 5 gt { 5 sub 5 getinterval (.html) eq } { pop pop false } ifelse { 0 1 index length 5 sub getinterval cvn } if printno_ htmlpathpush (
) print nice== htmlpathpop } ifelse }
AWC { /showmenu? false store }
AWC { 1066077372 set_code_last_modified optionalREORDER toreal streamrescaleonlyifnecessary swapbytes chunksize npts 4 mul mimeheaderwithlength datar4 DoTasks }
AWC { mimeheader loadavg 0 get nproc 0 get div dup 8.0 lt { pop (OK) print } { (load ) print == ( is too high) print } ifelse ( ) print stop }
AWC { dup null eq { false } { .dataset dup type /arraytype eq { ifshortlink { 1 get } { 0 get } ifelse } if 2 copy eq { true } { ifshortlink0 } ifelse } ifelse }
AWC { dup /served_from known { true } { dup /dataset known { .dataset dup type /objecttype ne { pop false } { serveravailable? } ifelse } { pop false } ifelse } ifelse }
AWC { wwwcopylastmod WWWinfo doauthorize sendmimeheader { doifmodified? { (HTTP/1.0 200 OK ) print } if mimeheaderinfo (Content-Type: ) print mimetype print ( ) print dolastmodified /filename FORMgetknownnotnull { (Content-Disposition: attachment; filename=") print print (" ) print } if ( ) print flush false /sendmimeheader WWWinfo ! method /HEAD eq { stop } if } if pop }
AWC { npts 1 gt { nptgrids } { [ 1 index .streamgrids ] } ifelse dup length 1 sub get }
AWC { GIF 6 1 roll vectoramplitude pop DoTasks }
AWC { [ nptgrids { units /degree_east eq units /degree_north eq or { pop } if } forall ] }
AWC { PICT 4 1 roll plaincontour pop DoTasks }
AWC { expert? { (experthome) htmlprint } { doc .index.html } ifelse }
AWC { JPG 4 1 roll plaincolor pop DoTasks }
AWC { PNM 4 1 roll colorscale pop DoTasks }
AWC { PNM 5 1 roll plainvector pop DoTasks }
AWC { WWWinfo /url-q known { () print print () print } { pop } ifelse }
AWC { needauthorization { countstack 2 sub array astore aload false exch { dup type /objecttype eq { /RestrictedMetaData? getknown { or } if } { pop } ifelse } forall } { false } ifelse }
AWC { (&) search { (=) search { cvn nip exch urlunescape nullify pdefappend } { cvn true def } ifelse pop parseurlvarsunescape } { dup length 0 gt { (=) search { cvn nip exch urlunescape nullify pdefappend } { cvn true def } ifelse } { pop } ifelse } ifelse }
AWC { dup serveravailable? { .served_from } { served_from } ifelse }
AWC { oneline .ps }
AWC { (vectorcolorpage) htmlprint }
AWC { (
AWC { mimetypes WWWinfo .mimesuffix get }
AWC { (contourpage) htmlprint }
AWC { dup 5 object decompress datatype /geometrytype eq { (
  • display shapes display shapes
    • ) print } { nptgrids length 0 gt { (
  • Views
    • ) print } if nptgrids length 2 ge { datatype /stringtype eq currentobject /band known and { (
  • RGB color
    • ) print } if (
  • data as colors
    • ) print (
  • data as contours
    • ) print } if getX? { dup totype /gridtype eq { npts exch /isSophisticatedBy getknown { .npts mul } if 1 gt } { pop false } ifelse { getY? { dup totype /gridtype eq { npts exch /isSophisticatedBy getknown { .npts mul } if 1 gt } { pop false } ifelse { [ getX? pop .name cvntos (+) 3 index .getY? pop .name cvntos ] concat (
  • colors with land
    • ) print (
  • contours with land
    • ) print (
  • colors with coasts
    • ) print pop } if } if } if } { currentobject /SpatialReferenceSystemDims getknown { [ exch { .name cvntos (+) } forall pop ] concat (
  • colors with coasts
    • ) print pop } if } ifelse nptgrids length 1 ge { nptgrids length 1 eq 1.0 nptgrids { .npts mul } forall 10000 lt or { (
  • line plots
    • ) print nptgrids length 1 ge { (
  • color bars
    • ) print } if } if nptgrids dup length 1 eq { (
  • scatter
    • ) print } if pop } if 2 index totype /streamtype eq { ifSTREAM { nptgrids length 1 gt { (
  • ) print 2 index 2 index 2 (,) combinefullname dolongname print ( views ) print ( vectors
    • ) print } { (
  • ) print 2 index 2 index 2 (,) combinefullname dolongname print ( views ) print ( two lines
    • ) print 2 index 2 index nptgrids 0 get .name comparethegrid { dup (M) eq exch (S) eq or } { false } ifelse { (
  • ) print ( color bars
    • ) print } if pop pop pop } ifelse } if 3 index totype /streamtype eq { 3 index .units /degree_east eq 3 index .units /degree_north eq and { chunksize 40000 gt { (
  • scatter color
    • ) print (
  • scatter color with coasts
    • ) print } { (
  • scatter color
    • ) print (
  • scatter color with coasts
    • ) print } ifelse } if } if } if } ifelse pop }
    AWC { JPG 4 1 roll autocontour pop DoTasks }
    AWC { PNM 6 1 roll vectorcolor pop DoTasks }
    AWC { false /donttrust Ingrid: ! false /ObeyRestrictions? Ingrid: ! true /LDEOurl? Ingrid: ! }
    AWC { dup type /arraytype eq { () print dup length 8 gt { () print dup length 8 sub 8 getinterval } if dup length 0 eq { ( ) print } if dup length allparentlinkcount astore pop { allparentlinkcount 0 get 1 sub allparentlinkcount astore pop render2 } forall (
    ...
    ) print } { allparentlinks0a } ifelse }
    AWC { mark 1 index interpurl counttomark 2 add -1 roll imagelink pop }
    AWC true
    AWC { showmenu? { leftmenuhead null 1 index leftmenu0asbottom pop leftmenutrailer } if }
    AWC { ( ) search { nip exch (%20) exch urls== } if }
    AWC { (
    AWC { pop ( ) print }
    AWC { needauthorization { countstack 2 sub array astore aload false exch { dup type /objecttype eq { /RestrictedData? getknown { or } if } { pop } ifelse } forall } { false } ifelse }
    AWC { PNM exch newaxis pop }
    AWC { legalclientcheck getneedauthorization { true /authorization? WWWinfo ! httpauthenticate } if }
    AWC { () print dup type /arraytype eq { { render } forall } { allparentlinks0a } ifelse (
    AWC false
    AWC { WWWinfo .leftmenuinfo? not { null 5 object dup /leftmenuinfo WWWinfo ! } if }
    AWC { datasetlocmap? { lat lon 2 null MATCH tablegridselect /tablegrid WWWinfo ! pop pop (
    ) print (
    ) print () print () print () print () print auxfigQ { () print } if () print () print (
    ) print /ptlbls FORMknown { WWWinfo .FORMinfo /ptlbls get dup (Label points by ...) eq 1 index (no labels) eq or { pop datasetselectplot /map (datasetselectplot) inputimagelinkwithlimitcontrols } { interp WWWinfo .FORMinfo .labeltype cvn /Label eq { datasetlabelplot ( datasetlabelplot) } if WWWinfo .FORMinfo .labeltype cvn /Color eq { datasetcolorplot ( datasetcolorplot) } if WWWinfo .FORMinfo .labeltype cvn /Size eq { datasetsizedplot ( datasetsizedplot) } if /map WWWinfo .FORMinfo .ptlbls 3 -1 roll append inputimagelinkwithlimitcontrols } ifelse } { datasetselectplot /map (datasetselectplot) inputimagelinkwithlimitcontrols } ifelse () print datasetcontrols (
    ) print figdup .auxfig (datasetselectplot+.auxfig) imagelink /ptlbls FORMknown { WWWinfo .FORMinfo .labeltype cvn /Color eq { (
    ) print thecurrentdataset lon lat WWWinfo .FORMinfo /ptlbls get (no labels) 1 index eq { pop pop pop pop } { interp fig: scattercolor :fig .auxfig [ (lon/lat/) WWWinfo .FORMinfo /ptlbls get (/fig-+scattercolor+-fig+.auxfig) ] concat imagelink pop } ifelse } if } if (    		) print (this figure) thisfigure (
    ) print (List of stations in current view) print figpop (
    ) print datasethandlemaplist (
    ) print } if }
    AWC { 1 index FORMgetknown { 1 index getknown not { null } if } { null } ifelse ( ) print formcnt++ pop pop }
    AWC { (vectoramplitudepage) htmlprint }
    AWC { boundingbox topict line.ps }
    AWC { PS 5 1 roll VECTOR pop DoTasks }
    AWC { (onelinepage) htmlprint }
    AWC { JPG 4 1 roll plaincolorwithscale pop DoTasks }
    AWC { authorization-realms { nip leave } forall false dlauthCredGetRedirectX nip }
    AWC { GIF 4 1 roll colorscale pop DoTasks }
    AWC { PNM 6 1 roll vectoramplitudecolor pop DoTasks }
    AWC { () print htmlformulaprint () print }
    AWC { datasetlocmap? { true } { .dataset dup type /objecttype ne { pop false } { mapavailable? } ifelse } ifelse }
    AWC { /ntable HTMLwords ! ntable NtoNaN mimeheader ntable array astore dup dup length 1 gt { dup 1 1 index length 1 sub getinterval { .longname print tab print } forall } if 0 get .longname print ( ) print dup dup length 1 gt { dup 1 1 index length 1 sub getinterval { dup /units known { units cvntos print pop } { pop } ifelse tab print } forall } if 0 get dup /units known { units cvntos print pop } { pop } ifelse ( ) print aload pop { gtable1 gtable2 gtable3 gtable4 } ntable 1 sub get exec DoTasks }
    AWC 0 23 object /x16 16 def /Zoom 1.0 def (Zoom x1)cvn 1.0 def (Zoom x1/4)cvn 0.25 def (same scale)cvn 1.0 def (x1/2)cvn 0.5 def (Zoom x2)cvn 2.0 def (Zoom x1/2)cvn 0.5 def /center 1.0 def /x8 8.0 def /x1 1.0 def (x1/4)cvn 0.25 def /x2 2.0 def (Zoom x4)cvn 4.0 def /x4 4.0 def (Click for Info)cvn null def
    AWC { nobots ( ) print () print leftmenu }
    AWC CaseList /pendingdatasettype { dup xcheck { 3 -1 roll exch exec exch 3 1 roll leftmenucase caseexec } if } def /htmlfiletype { printheader? { 2 index leftmenusubhead pop false /printheader? HTMLwords ! } if (
    ) print 1 index cvntos 0 1 index length 5 sub getinterval printno_ (
    ) print } def /linktype { printheader? { 2 index leftmenusubhead pop false /printheader? HTMLwords ! } if (
    ) print 1 index cvntos printno_ (
    ) print } def /datasettype { printheader? { 2 index leftmenusubhead pop false /printheader? HTMLwords ! } if (
    ) print currentobject /menu_name getknown not { name } if cvntos printno_ (
    ) print } def /arraytype { dup xcheck { 3 -1 roll exch exec exch 3 1 roll leftmenucase caseexec } if } def
    AWC [ 0 ]
    AWC { WWWinfo /If-Modified-Since known { last_modified null ne { WWWinfo .If-Modified-Since stringtotime last_modified code_last_modified imax current_last_modified null ne { current_last_modified imax } if ge { (HTTP/1.0 304 Not Modified ) print /HEAD /method WWWinfo ! false } { true } ifelse } { true } ifelse } { true } ifelse }
    AWC { GIF 5 1 roll autovector pop DoTasks }
    AWC { portaldlscript (
    ) print (
    ) print (
    Data Library
    ) print }
    AWC { MD5_Init systemtime 3600 idiv 3600 mul s== MD5_Update (:) MD5_Update (dcd98b7102dd2f0e8b11d0f600bfb0c093) MD5_Update MD5_Final string2hex }
    AWC { /r8 /mimesuffix WWWinfo ! optionalREORDER streamrescale todouble swapbytes8 chunksize npts 8 mul mimeheaderwithlength datar8 DoTasks }
    AWC { (WWW-Authenticate: Basic realm=") print authorization-realm print (" ) print }
    AWC (5ccc069c403ebaf9f0171e9517f40e41)
    AWC { }
    AWC { boundingbox togif vector.ps }
    AWC { exch 1 index cvn passwords exch 2 copy known { get exch 1 index 0 2 getinterval crypt eq { true } { pop false } ifelse } { pop pop pop pop false } ifelse }
    AWC { (
    help
    help
    ) print (
    Printable Page
    ) print WWWinfo currentobject /Content-Languages getknown { (
    ) print LanguageList { currentobject 1 index known { () print Languages 1 index get print (
    ) print } if pop } forall (
    ) print pop } if pop ( ) print maybeGoogleAnalytics }
    AWC { JPG 6 1 roll vectoramplitudecolor pop DoTasks }
    AWC { leftmenutoplevel 0 get leftmenulevel 0 get ge { WWWinfo .leftmenuinfo? { pop (index.html) print addleftmenuinfo } { WWWinfo FORMinfo null ne { (index.html) print addleftmenuinfo } if pop } ifelse } if }
    AWC null
    AWC { (colorpage) htmlprint }
    AWC { GIF exch newaxis pop }
    AWC 0 47 object /r4 /r4 def /kml /kml def /kmz /kmz def /json /json def /idaimg /idaimg def /jpg /jpg def /arcinfo /arcinfo def /gif /gif def /gz /gz def /asc /asc def /cdf /cdf def /hdf /hdf def /txt /txt def /png /png def /nc /nc def /svg /svg def /dods /dods def /xml /xml def /dtd /dtd def /i2 /i2 def /tiff /tiff def /ps /ps def /pict /pict def /csv /csv def /s4 /s4 def /cuf /cuf def /ch /ch def /zip /zip def /das /das def /tsv /tsv def /multipart /multipart def /dds /dds def /r8 /r8 def /html /html def /lanimg /lanimg def /ui1 /ui1 def /pnm /pnm def /pdf /pdf def /owl /owl def /xsl /xsl def
    name /==alias
    AWC { oneline .jpg }
    AWC { PNM showcolors pop }
    AWC { WWWinfo .url-q dup length 1 sub 1 getinterval (/) eq not { WWWinfo .url-q length 10 ge { WWWinfo .url-q dup length 10 sub 10 getinterval (index.html) eq } { false } ifelse not { WWWinfo [ htmlroot redirectport 80 ne { (:) redirectport s== } if url-q (/) ] concat nip redirectto stop } if } if }
    AWC 0 5 object /stringtype { urlprint } def /integertype { ==ns (+index) print } def /nametype { ==nsurl } def /arraytype { procasurl } def
    AWC { dup length 0 eq { pop null } if }
    AWC { currentobject /addcmd known { currentobject .addcmd urlprint currentobject /first? true def null null 5 object /command dup def /addcmd dup def /first? dup def /formaction dup def /==alias dup def { dup type /objecttype ne { first? { (?) /first? false store } { (&) } ifelse print exch cvntos print (=) print dup type /stringtype eq { urlprint } { dup null eq { pop } { ==ns } ifelse } ifelse } { { first? { (?) /first? false store } { (&) } ifelse print 2 index cvntos print (.) print exch cvntos print (=) print dup type /stringtype eq { urlprint } { dup null eq { pop } { ==ns } ifelse } ifelse } forall pop } ifelse } forsome } if }
    AWC { WWWinfo /User-Agent known { WWWinfo .User-Agent dup length 7 gt { 0 7 getinterval (Mozilla) ne } { pop true } ifelse } if }
    AWC { (

    ) print }
    AWC { dup length 2 eq { dup aload pop ifshortlink0 nip nip } { false } ifelse }
    AWC { (Content-Description: ) print contentdescriptions WWWinfo .mimesuffix get print ( ) print }
    AWC { GIF 4 1 roll plaincolor pop DoTasks }
    AWC { (HTTP/1.0 301 Moved content-type: text/html ) print currentobject /last_modified known { last_modified null ne { (Last-Modified: ) print last_modified code_last_modified imax current_last_modified null ne { current_last_modified imax } if cvi timetostring print ( ) print } if } if WWWinfo /Vary_List known { (Vary:) print mark WWWinfo .Vary_List { pop } forall counttomark namearray astore nip namesort { space print cvntos print } forall ( ) print } if (Location: ) print dup type /stringtype eq { dup print ( Please look here. ) print false /sendmimeheader WWWinfo ! }
    AWC { mark 2 index sortednames { 1 index exch get viewerdatasetcase caseexec pop } forall pop counttomark 0 gt { table: boldData mark :table .html } { pop } ifelse }
    AWC { WWWinfo currentobject /Content-Languages getknown { LanguageList { WWWinfo /Content-Language getknown { cvn 1 index eq } { false } ifelse not { currentobject 1 index known { ( ) print } if } if pop } forall pop } if pop }
    AWC { optionalREORDER toi1 chunksize npts mimeheaderwithlength 1 exch dataui1 dataui1 TaskStreams 0 get 1 NewIntegerBuffer 0 SetStreamIndex* TaskStreams .achunk pop * achunk array astore { last VALUE } forall getrealization pop }
    AWC { oneline .pict }
    AWC 0 67 object /idaimg (image/ida) def /css (text/css) def /ico (image/x-icon) def /zip (application/zip) def /pict (image/pict) def /ui1 (application/x-ui1) def /svg (image/svg+xml) def /mov (video/quicktime) def /m3d (application/x-m3d) def /tiff (image/tiff) def /tsv (text/tab-separated-values) def /kml (application/vnd.google-earth.kml+xml) def /lanimg (image/lan) def /gif (image/gif) def /cdf (application/x-netcdf) def /ch (text/plain) def /ppt (application/vnd.ms-powerpoint) def /js (text/javascript) def /owl (application/rdf+xml) def /kmz (application.vmd.google-earth.kmz) def /hdf (application/x-hdf) def /xhtml (application/xhtml+xml) def /dods (application/octet-stream) def /pdf (application/pdf) def /i2 (application/octet-stream) def /txt (text/plain) def /multipart (multipart/mixed; boundary=Ingrid-file-boundary---) def /json (application/json; charset=utf-8) def /html (text/html; charset=utf-8) def /cuf (application/octet-stream) def /nc (application/x-netcdf) def /xsl (text/xml) def /pnm (image/x-portable-anymap) def /csv (text/comma-separated-values) def /tex (text/x-latex) def /dds (text/plain) def /act (text/html) def /xml (text/xml) def /das (text/plain) def /asc (text/plain) def /arcinfo (application/arcinfo) def /png (image/png) def /ps (application/postscript) def /xbm (image/x-xbitmap) def /gz (application/x-gzip) def /dtd (text/xml) def /r4 (application/x-r4) def /s4 (application/x-s4) def /jpg (image/jpeg) def /r8 (application/octet-stream) def /latex (text/x-latex) def
    AWC { currentobject 2 index pgetknown { dup type /arraytype eq { aload length 1 add array dup length 1 add -1 roll exch astore } { exch 2 array astore } ifelse } if pdef }
    AWC ( )
    AWC { null 1 object exch /functionname exch def nptgrids 1 1 2 index length { 1 index exch { () print { .name == } forall ( ) print } combinations (| ) print } for pop pop }
    AWC { WWWinfo .FORMinfo dup null eq { pop pop false } { exch getknownnotnull } ifelse }
    AWC { false IRIurl? { (/IRIONLY) print } { LDEOurl? { (/LDEOONLY) print } if } ifelse }
    AWC { boundingbox topict linex.ps }
    AWC { SOURCES .WORLDBATH .bath Y low high RANGEEDGES exch lon (degree_east) unitconvert ndim RECHUNK exch lat (degree_north) unitconvert ndim RECHUNK exch 1 index .nptgrids length 1 gt { 3 index X exch .Y fig: /color_smoothing null def /plotaxislength 432 def colors coasts PGSQL? { lakes } if colorareas :fig } { 3 index X exch .Y fig: /color_smoothing null def /plotaxislength 432 def colors coasts PGSQL? { lakes } if scattercolor :fig } ifelse datasetselectplotrange }
    AWC { PNM 4 1 roll plaincontour pop DoTasks }
    AWC { (HTTP/1.0 301 Moved content-type: text/html ) print currentobject /last_modified known { last_modified null ne { (Last-Modified: ) print last_modified code_last_modified imax current_last_modified null ne { current_last_modified imax } if cvi timetostring print ( ) print } if } if WWWinfo /Vary_List known { (Vary:) print mark WWWinfo .Vary_List { pop } forall counttomark namearray astore nip namesort { space print cvntos print } forall ( ) print } if (Location: ) print dup type /stringtype eq { dup urlprint ( Please look here. ) print false /sendmimeheader WWWinfo ! }
    AWC { chunksize datatsv }
    AWC { (Date: ) print systemtime timetostring print ( Server: Ingrid 0.9 ) print (MIME-version: 1.0 ) print (Access-Control-Allow-Origin: * ) print WWWinfo /returncode getknown not { 0 } if 202 eq { (Cache-Control: must-revalidate ) print } { WWWinfo /max-age getknown { (Cache-Control: public, max-age=) print ==ns ( ) print } { (Cache-Control: public ) print } ifelse } ifelse WWWinfo .authorization? { (Vary: Authorization ) print } if }
    AWC { /V FORMknown { [ WWWinfo .currenturldir (+) WWWinfo .FORMinfo .V { pop cvntos (+) } forall (VALUES/) ] concat redirectto } { defaultmimeheader } ifelse }
    AWC null
    AWC { ( ) print () print leftmenuasbottom }
    AWC { PS 4 1 roll CONTOUR pop DoTasks }
    AWC { dup 1 object dup dup makesortednamelist { dup totype /streamtype eq { .npts 1 gt } { pop false } ifelse { undef } { pop } ifelse } forsome }
    AWC { /expires WWWinfo ! /last_modified WWWinfo ! WWWinfo sendmimeheader { mimesuffix /act eq { (HTTP/1.0 301 Moved ) print } { (HTTP/1.0 200 OK ) print } ifelse mimeheaderinfo (Content-Type: ) print mimetype print ( ) print dolastmodified mimesuffix /act ne { ( ) print } if flush method /HEAD eq { stop } if false /sendmimeheader WWWinfo ! } if pop }
    AWC { 1066077372 set_code_last_modified optionalREORDER toreal streamrescaleonlyifnecessary swapbytes chunksize npts 4 mul nchunk 8 mul add mimeheaderwithlength swapdatas4 DoTasks }
    AWC { wwwcopylastmod WWWinfo sendmimeheader { nodefaultmimeheader mimesuffix known not { doifmodified? { mimesuffix /act eq { (HTTP/1.0 301 Moved ) print } { (HTTP/1.0 200 OK ) print } ifelse } if mimeheaderinfo dolastmodified (Content-Type: ) print mimetype print mimesuffix /act eq { ( ) print } { ( ) print } ifelse flush method /HEAD eq { stop } if false /sendmimeheader WWWinfo ! } if } if pop }
    AWC { PS2 4 1 roll plaincolor pop DoTasks }
    AWC { boundingbox togif line.ps }
    AWC { PS2 6 1 roll vectorcolor pop DoTasks }
    AWC { legalclient? not { (HTTP/1.0 403 Forbidden ) print (Content-Type: text/html ) print (

    403 Forbidden

    ) print (Access to this server is denied ) print ( ) print flush stop } if }
    AWC { PNM 6 1 roll vectorcontour pop DoTasks }
    AWC { 1 index .nrdim 0 eq { ntable 0 MATCH exch 1 } { 1 REORDER chunk pop exch chunksize } ifelse datatsv2 }
    AWC { WWWinfo .FORMinfo dup null eq { pop pop false } { exch getknown } ifelse }
    AWC { wwwcopylastmod WWWinfo doauthorizedata sendmimeheader { doifmodified? { (HTTP/1.0 200 OK ) print } if mimeheaderinfo (Content-Type: ) print mimetype print ( ) print dolastmodified /filename FORMgetknownnotnull { (Content-Disposition: attachment; filename=") print print (" ) print } if ( ) print flush false /sendmimeheader WWWinfo ! method /HEAD eq { stop } if } if pop }
    AWC 0
    AWC { nptgrids { () print name ==ns ( ) print pop } forall pop }
    AWC HTMLwords
    AWC { PS 4 1 roll COLOR pop DoTasks }
    AWC { PS 5 1 roll SCATTER pop DoTasks }
    AWC { ( alt=") print dup print (" title=") print print (") print }
    AWC { /arcinfo /mimesuffix WWWinfo ! optionalREORDER pushstdout 2 RECHUNK chunk pop nip high low RANGE chunk pop pop low high RANGE chunk pop exch .npts (ncols) print == ( ) print .npts (nrows) print == ( ) print chunk pop exch .first (xllcenter) print == ( ) print .last (yllcenter) print == ( ) print chunk pop pop .step (cellsize) print == ( ) print getmissing_value array? nip { toNaN } if getmissing_value NaN eq { -9999 setmissing_value } if getmissing_value null ne { getmissing_value getscale_factor dup 1.0 eq { pop } { mul } ifelse getadd_offset dup 0.0 eq { pop } { add } ifelse (NODATA_value) print == ( ) print } if flush popstdout pop mimeheader printstdout data.ff.ch }
    AWC { boundingbox tojpg line.ps }
    AWC { (vectoramplitudecolorpage) htmlprint }
    AWC { (linepage) htmlprint }
    AWC { GIF 5 1 roll plainvector pop DoTasks }
    AWC { PICT 4 1 roll plaincolor pop DoTasks }
    AWC { JPG 5 1 roll autovector pop DoTasks }
    AWC { { { ntable 0 MATCH 1 1 } { 3 1 roll copyachunk 3 -1 roll 0 RECHUNK copyachunk 1 index .npts 1 } { 2 REORDER chunk pop 2 copy .npts exch .npts exch } } 3 index .nrdim get exec 2 integerarray astore datatsv3N }
    AWC CaseList /streamtype { npts 1 gt nptgrids length 1 eq and datatype /geometrytype eq not and { datasetcount 0 gt { [ datasetstack 0 datasetcount getinterval { .name cvntos ( .) } forall name cvntos ] concat } { name cvntos } ifelse dup WWWinfo .theoption cvntos eq { ( ) print } if } def /pendingdatasettype { exec variable1Dmenucase 1 index totype get exec } def /datasettype { dup pushdataset dup makesortednamelist { 2 copy get variable1Dmenucase 1 index totype get exec dropitem } forall popdataset } def
    AWC { RESTRICTIONS /LDEOONLY dup put /LDGOtested? true store ifLDGO not { /RestrictedData? true def } if }
    AWC [ null null null null null null null null null null null null null null null null null null null null null null null null null null null null null null null null null null null null null null null null ]
    AWC { wwwcopylastmod /content-length WWWinfo ! WWWinfo doauthorizedata sendmimeheader { mimesuffix /act eq { (HTTP/1.0 301 Moved ) print } { (HTTP/1.0 200 OK ) print } ifelse mimeheaderinfo (Content-Type: ) print mimetype print ( ) print dolastmodified content-length null ne { (Content-Length: ) print content-length ==ns ( ) print } if /filename FORMgetknownnotnull { (Content-Disposition: attachment; filename=") print print (" ) print } if mimesuffix /act ne { ( ) print } if flush method /HEAD eq { stop } if false /sendmimeheader WWWinfo ! } if pop }
    AWC { WWWinfo .sendmimeheader { /last_modified where { 2 copy eq { pop getexpires? not { null } if /expires WWWinfo ! getlast_modified? not { null } if /last_modified WWWinfo ! } { dup /expires known { getexpires? not { null } if } { null } ifelse /expires WWWinfo ! getlast_modified? not { null } if /last_modified WWWinfo ! pop } ifelse } { null /expires WWWinfo ! null /last_modified WWWinfo ! } ifelse currentobject /max-age known { max-age dup null eq { pop } { /max-age WWWinfo ! } ifelse } if } if }
    AWC { () print htmlformulaprint () print }
    AWC { WWWinfo MD5Users /Mufasa dup cvntos (testrealm@host.com) (Circle Of Life) HA1 def pop ValidUsers sampleresponse .username cvn dup def pop /url sampleresponse .uri def /method (GET) def sampleresponse dup == ( ) print (method: ") print method print (" ) print (url: ") print url print (" ) print username null localaskldap (ldap return code:) print dup == DigestErrorCodes exch get == ( ) print (HA1: ") print dup print (" ) print checkMD5response (checkMD5response:) print dup == ( ) print (reference response:) print response == ( ) print response eq { (Match ) } { (FAILED ) } ifelse print pop }
    AWC { (
    AWC { optionalREORDER mimeheader toreal streamrescale chunksize datatsv DoTasks }
    AWC { /mymimeinfo WWWinfo ! wwwcopylastmod WWWinfo sendmimeheader { doifmodified? { mimesuffix /act eq { (HTTP/1.0 301 Moved ) print } { (HTTP/1.0 200 OK ) print } ifelse } if mimeheaderinfo (Content-Type: ) print mimetype print ( ) print dolastmodified mymimeinfo null ne { mymimeinfo exec } if mimesuffix /act ne { ( ) print } if flush method /HEAD eq { stop } if false /sendmimeheader WWWinfo ! } if pop }
    AWC { WWWinfo /port known { WWWinfo donttrust nip { false } { WWWinfo .domainname dup null eq { pop true } { dup (ldgo.columbia.edu) eq 1 index (ldeo.columbia.edu) eq or WWWinfo .clientname (localhost) eq or nip } ifelse } ifelse } { true } ifelse }
    AWC { FORMgetknown not { null } if }
    AWC { dup makesortednamelist { 2 copy get variableattsmenucase caseexec dropitem } forall pop }
    AWC /fullcommand
    AWC { PS 4 1 roll LINE pop DoTasks }
    AWC { { { ntable 0 MATCH 1 1 1 } { ntable -2 roll copyachunk ntable -1 roll 0 RECHUNK copyachunk ntable -1 roll 0 RECHUNK copyachunk 2 index .npts 1 1 } { ntable -2 roll copyachunk ntable -1 roll copyachunk ntable -1 roll 0 RECHUNK copyachunk 2 index .npts 2 index .npts 1 } { ntable 1 sub REORDER chunk array astore aload { .npts } forall } } 4 index .nrdim get exec 3 integerarray astore datatsv4N }
    AWC { JPG 6 1 roll vectoramplitude pop DoTasks }
    AWC { 2 copy exch cvx (
    ) print dup cvntos 2 index /long_name known { pop long_name } { dup dup length dup 4 gt { 4 sub 4 getinterval (.cdf) eq } { pop pop false } ifelse { 0 1 index length 4 sub getinterval cvn } if } ifelse print htmlpathpush () print dup /standard_name getknown { cvntos == } if (
    ) print nice== htmlpathpop }
    AWC { HTMLwords /html:level html:level 1 sub put }
    AWC { WWWinfo sendmimeheader { mimesuffix /act ne { ( ) print } if flush method /HEAD eq { stop } if false /sendmimeheader WWWinfo ! } if pop }
    AWC { dup 1 eq { pop { counttomark array astore aload combinationproc exec pop } forall } { 1 sub 1 1 3 index length 3 index sub { 2 index 1 index 1 sub get 4 1 roll 2 index length 1 index sub 3 index 3 1 roll getinterval 1 index 4 2 roll counttomark 1 add 2 roll combinations0 pop counttomark 3 add -2 roll } for pop pop } ifelse }
    AWC CaseList /stringtype { 2 index print (.) print 1 index cvntos print (=) print dup print ( ) print } def /integertype { 2 index print (.) print 1 index cvntos print (=) print dup ==ns ( ) print } def /nametype { cvntos attcase /stringtype get exec } def /realtype { 2 index print (.) print 1 index cvntos print (=) print dup ==ns ( ) print } def
    AWC { PS 4 1 roll LINEX pop DoTasks }
    AWC { (vectorcontourpage) htmlprint }
    AWC { fig: line :fig }
    AWC { wwwcopylastmod WWWinfo doauthorizedata RestrictData? { 2 (data restricted) DODSerror } if sendmimeheader { doifmodified? { (HTTP/1.0 200 OK ) print } if (XDODS-Server: Ingrid/2.15 ) print mimeheaderinfo DODScontentdescription (Content-Type: ) print mimetype print ( ) print dolastmodified ( ) print flush false /sendmimeheader WWWinfo ! method /HEAD eq { stop } if } if pop }
    AWC { PICT 6 1 roll vectorcontour pop DoTasks }
    AWC { currentobject /myproc getknown { dup length 1 eq { 0 get name eq } { pop false } ifelse } { true } ifelse }
    AWC 0 5 object /formaction { machinename null eq { /machinename ifLDGO { hostname } { clientname } ifelse def } if filename null eq filename (/) eq or { (No filename entered. ) printerror } { filename stat { pop false } { true } ifelse { /filename [ (/hosts/) machinename filename 0 get 47 ne { (/) } if filename ] concat def } if filename stat { filename readfile redirectto } { [ () filename ( not found .) ] printerror } ifelse } ifelse } def /printerror { 404 errormimeheader () print dup type /stringtype eq { print } { { print } forall } ifelse ( ) print } def
    AWC { dup /long_name known { long_name } { cleanname } ifelse htmlformulaprint () print dup /dataset_documentation.html known { () print (*) print } if datasetlocmap? { ( [map]) print } if }
    AWC { dataset followcase caseexec }
    AWC { () print htmlformulaprint () print }
    AWC { PS2 5 1 roll autovector pop DoTasks }
    AWC { dup /GCMD_id known { true } { dup /dataset known { .dataset dup type /objecttype ne { pop false } { gcmdidavailable? } ifelse } { pop false } ifelse } ifelse }
    AWC { html:paths exch html:level exch put HTMLwords /html:level html:level 1 add put }
    AWC { /i2 /mimesuffix WWWinfo ! optionalREORDER toi2 swapbytes2 chunksize npts 2 mul mimeheaderwithlength datai2 DoTasks }
    AWC { boundingbox topict contour.ps }
    AWC { JPG 4 1 roll plaincontour pop DoTasks }
    AWC 0 5 object /dds (dods_dds) def /das (dods_das) def /dods (dods_data) def /asc (dods_data) def
    AWC { streamgridarray { 2 index (map.) 2 index .name cvntos (.plotvalue) 3array astore concat getknown { VALUE } { pop } ifelse } forall npts 1 gt { pop } { dup getrealization 0 get cvsunits exch .name (map.) exch cvntos (.plotvalue) 3array astore concat exch def } ifelse }
    AWC { optionalREORDER toreal getscale_factor getadd_offset RESCALE chunksize dup writei4 nchunk writei4 datar4 DoTasks }
    AWC { 1 index 1 index gridnobyname dup 0 ne { gridbyno nip 3 index 2 index getknown { 2 copy .gridid exch .gridid eq { pop pop (M) true } { 2 copy .gridtype 2 ne exch .gridtype 2 ne and 2 index .units 2 index .units eq and { 2 copy .step exch .step eq { 2 copy .first exch .first sub 1 index .step div dup round exch sub dup 0.0 ne { 1 index .step mul s== (O=) exch append nip nip true } { pop pop pop (S) true } ifelse } { pop pop (D) true } ifelse } { pop pop (D) true } ifelse } ifelse } { pop (M) true } ifelse } { pop pop false } ifelse }
    AWC { nptgrids { () print name ==ns ([) print 2 index 1 index 1 REORDER .nchunk ==ns (] ) print pop } forall pop }
    AWC CaseList /streamtype { datasetcount 0 gt { [ datasetstack 0 datasetcount getinterval { .name cvntos (.) } forall name cvntos ] concat } { name cvntos } ifelse 2 copy print ( ) print DATASETbot hiddendatasetatts { attcase caseexec pop pop } forsome pop } def /datasettype { dup pushdataset dup makesortednamelist { 2 copy get variableattsmenucase 1 index totype get exec dropitem } forall popdataset } def /pendingdatasettype { dup xcheck { nip exec name exch variableattsmenucase 1 index totype get exec } if } def /arraytype { dup xcheck { nip exec name exch variableattsmenucase 1 index totype get exec } if } def
    AWC { (HTTP/1.0 301 Moved content-type: text/html ) print (Location: ) print dup type /stringtype eq { dup urlprint addleftmenuinfo ( Please look here. ) print false /sendmimeheader WWWinfo ! }
    AWC { /map getimageinput { click? { (You have chosen [) print clickpoint 0 get dup null ne { value printunits pop } { == } ifelse (, ) print clickpoint 1 get dup null ne { value printunits pop } { == } ifelse (]. ) print clickpoint 0 get null ne clickpoint 1 get null ne and { ( ) print (The nearest station is) print 1 index 5 object lon clickpoint 0 get .units unitconvert clickpoint 0 get a: .plotfirst :a: .plotlast :a masknotrange clickpoint 0 get .value sub dup mul lat clickpoint 1 get .units unitconvert clickpoint 1 get .value sub dup mul add dup nptgrids minover maskgt /name /maskgt def [ 2 index DATASETbot ==noprintdataset { nip datasethandlemaplistCases caseexec } forsome counttomark namearray astore namesort 3 -1 roll exch /long_name () def /units () def lon lat 2 null MATCH pop .streamgridarray 0 get exch { cvx counttomark 1 add index 1 index get exch /relativename exch def } forall table: terse [ /maskgt ] skipon hidecolumn boxlinkedunits units etc :table .html pop } if } if pop } { (Click on map to select data; change the Zoom menu to zoom in as well.) print } ifelse }
    AWC { /combinationproc combinationdict ! combinationdict mark 4 2 roll combinations0 pop pop }
    AWC { (plaincolorwithscalepage) htmlprint }
    AWC { oneline .pnm }
    AWC { boundingbox tojpg linex.ps }
    AWC { true /expert? HTMLwords ! currentobject HTMLwords eq not { (/) redirectto flush stop } if }
    AWC { true /printheader? HTMLwords ! /theheader HTMLwords ! }
    AWC { leftmenulevel 0 2 copy get 1 add put addleftmenuinfodir leftmenulevel 0 2 copy get 1 sub put }
    AWC { PS2 exch newaxis pop }
    AWC { (
    ) print currentobject /menu_name getknown not { name } if cvntos printno_ (
    ) print }
    AWC { }
    AWC { Ingrid: /GoogleAnalyticsDone known not { Ingrid: /GoogleAnalyticsID getknown { 1160491916 set_code_last_modified ( ) print ( ) print } if } if }
    AWC { WWWinfo .FORMinfo dup null eq { pop pop false } { exch known } ifelse }
    AWC { PNM 4 1 roll plaincolorwithscale pop DoTasks }
    AWC { boundingbox togif contour.ps }
    AWC { Ingrid: /GoogleAnalyticsID getknown { ( ) print Ingrid: /GoogleAnalyticsDone true put } if }
    AWC { /X lon .get_scale_min null eq { -180 180 } { lon .get_scale_min lon .get_scale_max } ifelse plotrange lat .get_scale_min null eq { /Y -90 90 } { /Y lat .get_scale_min lat .get_scale_max } ifelse plotrange }
    AWC { nobots ( ) print alternateLanguageLinks maybeGoogleAnalyticsHead }
    AWC { PICT 6 1 roll vectorcolor pop DoTasks }
    AWC 0 11 object 0 (OK) def 1 (No Such User) def 2 (user not authorized to access this dataset) def 3 (Digest password for user not yet set -- access not allowed) def 4 (dataset has no allowed access) def 5 (Bad Password) def 6 (Stale nonce) def 10 (Basic Authentication is not accepted -- must use a Browser than handles Digest Authentication) def
    AWC { PICT 5 1 roll plainvector pop DoTasks }
    AWC { null 1 object exch /functionname exch def nptgrids 1 1 2 index length { 1 index exch { () print { .name == } forall ( ) print } combinations (| ) print } for pop pop }
    AWC { leftmenulevel 0 get 1 le }
    AWC { (
    ) print 2 index 0 get 0 5 getinterval (http:) eq { (
    AWC { SOURCES .WORLDBATH .bath Y low high RANGEEDGES exch lon (degree_east) unitconvert ndim RECHUNK exch lat (degree_north) unitconvert ndim RECHUNK exch 3 index X exch .Y fig: /color_smoothing null def /plotaxislength 432 def colors coasts PGSQL? { lakes } if scattersized :fig datasetselectplotrange }
    AWC { /leftmenuinfotop? true def }
    AWC { GIF 4 1 roll plaincolorwithscale pop DoTasks }
    AWC [ null ]
    AWC { WWWinfo url-q length url length eq showmenu? not or { false } { url url-q length 1 add url length 1 index sub getinterval (&) search { pop pop pop true } { pop false } ifelse } ifelse nip { ( ) print } if }
    AWC { PS2 6 1 roll vectoramplitudecolor pop DoTasks }
    AWC { dup /dataset_documentation.html known { () print } if () print dup /myproc known { dup /myprocds getknown { type /arraytype eq { false } { dup dataset exch .myprocds .dataset eq } ifelse } { dup /dataset knownnotnull not } ifelse { myproc { == } forall () print } { allparentlinks01 } ifelse } { allparentlinks00 } ifelse pop }
    AWC { boundingbox tojpg scatter.ps }
    AWC { WWWinfo /digesterrorcode null put (Basic ) search { pop pop decodebase64 (:) search { nip checkauthorization } { pop false } ifelse } { pop false } ifelse }
    AWC { wwwcopylastmod WWWinfo doauthorizedata sendmimeheader { doifmodified? { mimesuffix /act eq { (HTTP/1.0 301 Moved ) print } { (HTTP/1.0 200 OK ) print } ifelse } if mimeheaderinfo (Content-Type: ) print mimetype print ( ) print dolastmodified /filename FORMgetknownnotnull { (Content-Disposition: attachment; filename=") print print (" ) print } if flush } if pop }
    AWC { 2 copy exch cvx (
    ) print dup cvntos () print RestrictMetaData? { ( (restricted)) print } if (
    ) print nice== htmlpathpop }
    AWC { mark exch DATASETbot ==noprintdataset { pop } forsome counttomark namearray astore nip namesort }
    AWC { nptgrids dup { 2 copy ne { () print 1 index .name ==ns ( ) print name ==ns ([) print 3 index 2 index 2 index 2 REORDER .nchunk ==ns (] ) print } if pop pop } forall2 pop }
    AWC { optionalREORDER mimeheader printstreamunits }
    AWC (iri.columbia.edu)
    AWC { GIF 6 1 roll vectorcolor pop DoTasks }
    AWC { ParseDigestAuthentication { null false authorization-realms { nip username exch askldap dup /digesterrorcode WWWinfo ! 0 eq 4 2 roll pop pop dup not { leave } if } forall { checkMD5response dup /checkMD5R WWWinfo ! response eq { nonce Digest-nonce eq { WWWinfo .authorization-realms /DataLibraryAccess known { ValidUsers username cvn known dup not { 2 /digesterrorcode WWWinfo ! } if } { true } ifelse nip } { 6 /digesterrorcode WWWinfo ! pop false } ifelse } { 5 /digesterrorcode WWWinfo ! pop false } ifelse } { pop false } ifelse } { false } ifelse }
    AWC { (%%BoundingBox: 0 0 288 50 startPSplot 0 35 moveto startplot 4 inch 15 area2d ) print (/axisinset 0 def) print low step abs 0.5 mul sub == high step abs 0.5 mul add == ( 0 1 setlimits axis: bottom /units ) print units cvntos == ( def nicetics ticlabels :axis endplot endPSplot ) print }
    AWC { SOURCES .WORLDBATH .bath () /labeltype parameter (Color) eq () /ptlbls parameter () ne and { halfgreyscale } if lon (degree_east) unitconvert ndim RECHUNK lat (degree_north) unitconvert ndim RECHUNK lon .npts 40000 gt { dup dataflag 2 index X exch .Y fig: /color_smoothing null def /plotaxislength 432 def colors coasts PGSQL? { lakes } if regridmask :fig } { nptgrids length 1 gt { nptgrids 1 get 3 index X exch .Y fig: /color_smoothing null def /plotaxislength 432 def colors coasts PGSQL? { lakes } if /labeltype get_parameter () eq /ptlbls get_parameter () eq or { scatterlines } { /labeltype get_parameter (Color) eq { ||colorareas } { scatterlines } ifelse } ifelse :fig } { 2 index X exch .Y /labeltype get_parameter () ne /ptlbls get_parameter () ne and { /ptlbls get_parameter cvn cvx exec 3 1 roll } if fig: /color_smoothing null def /plotaxislength 432 def colors coasts PGSQL? { lakes } if /labeltype get_parameter () eq /ptlbls get_parameter () eq or { scatter } { /labeltype get_parameter (Label) eq { scatterlabel } if /labeltype get_parameter (Color) eq { || scattercolor } if /labeltype get_parameter (Size) eq { scattersized } if } ifelse :fig } ifelse } ifelse datasetselectplotrange }
    AWC { GIF showcolors pop }
    AWC { (vectorcontourtogapage) htmlprint }
    AWC { GIF 4 1 roll autocontour pop DoTasks }
    AWC { (_) search { print pop ( ) print printno_ } { print } ifelse }
    AWC { 2 copy exch cvx (
    ) print dup cvntos 2 index /long_name known { pop long_name } { dup dup length dup 4 gt { 4 sub 4 getinterval (.cdf) eq } { pop pop false } ifelse { 0 1 index length 4 sub getinterval cvn } if } ifelse print htmlpathpush () print dup /standard_name getknown { cvntos == } if () print nice== htmlpathpop (
    AWC { 0 allparentlinkcount astore pop mark 1 index follow counttomark array rastore nip rendercnt }
    AWC false
    AWC { WWWinfo .leftmenuinfo? { leftmenutoplevel 0 get leftmenulevel 0 get ge { (?) exch { 3 -1 roll print (&) 3 1 roll exch cvntos print (=) print dup type /stringtype ne { s== } if urlprint } forall pop } { pop } ifelse } { leftmenutoplevel 0 get leftmenulevel 0 get ge { WWWinfo url-q length url length ne { (?) print url url-q length 1 add url length 1 index sub getinterval urlprint } if pop } if } ifelse }
    AWC { (portaldlscript) htmlprint }
    AWC CaseListpops1
    AWC FORMwords /test.act 0 23 object /formaction { ( ) print dup /map known { /x map .x cvi def /y map .y cvi def } { /x x cvi def /y y cvi def } ifelse /pointX x 38.0 sub xh xl sub mul 432 div xl add def /pointY 225.0 y sub yh yl sub mul 215 div yl add def (test) htmlprint } def /xl -180 def /yh 90 def /yl -90 def /xh 180 def def
    AWC { boundingbox togif linex.ps }
    AWC { 0 0 288 50 togif axis.ps }
    AWC { oneline .gif }
    AWC { 1 index /selectname Ingrid: ! false /selectoptionfound Ingrid: ! (
    AWC { mycoach }
    AWC { /r8 /mimesuffix WWWinfo ! optionalREORDER streamrescale todouble chunksize npts 8 mul mimeheaderwithlength datar8 DoTasks }
    AWC { PS2 6 1 roll vectorcontour pop DoTasks }
    AWC { (parent) htmlpathpush }
    AWC { boundingbox togif scatter.ps }
    AWC { SOURCES .WORLDBATH .bath lat .get_scale_min null eq { Y low high RANGEEDGES } { Y lat .get_scale_min lat .get_scale_max RANGEEDGES } ifelse Y low high RANGEEDGES exch lon (degree_east) unitconvert ndim RECHUNK exch lat exch 3 index X exch .Y fig: /color_smoothing null def /plotaxislength 432 def colors scatterlabel :fig datasetselectplotrange }
    AWC { (search) htmlprint }
    AWC { dup 0 get length 1 index { length imin } forall 1 sub dup 0 ge { 0 countcommonbeginning0 nip } if }
    AWC { decompress nptgridsREORDER toNaN nptgrids aload length 1 add dup 4 le { gtable.tsv } { table.tsv } ifelse }
    AWC { (
    AWC { PSmode true store ifpream pop }
    AWC { (Digest) search { pop pop null 5 object exch null { deleteleadingspaces (=) search { nip exch dup 0 1 getinterval (") eq { deletefirstchar (") search { nip } if exch deletefirstchar exch } { (,) search { nip } { () exch } ifelse } ifelse 3 2 roll exch def } { pop leave } ifelse } repeat true } { pop false WWWinfo /digesterrorcode 10 put } ifelse }
    AWC { 1 index FORMgetknown { 1 index getknown not { null } if } { null } ifelse ( ) print formcnt++ pop pop }
    AWC { PNM 4 1 roll autocontour pop DoTasks }
    AWC { nptgrids dup { 2 copy ne { () print 1 index .name ==ns ( ) print name ==ns ([) print 3 index 2 index 2 index 2 REORDER .nchunk ==ns (] ) print } if pop pop } forall2 pop }
    AWC { PICT 4 1 roll colorscale pop DoTasks }
    AWC { dataset type /objecttype eq { allparentlinkcount 0 get 7 lt { allparentlinkcount 0 get 1 add allparentlinkcount astore pop dataset allparentlinks1 allparentlinkcount 0 get 1 sub allparentlinkcount astore pop } { (...
    ) print { () print allparentlinks1 () print } forall (
    ) print } ifelse } if } ifelse allparentlinks0 } AWC { 1066077372 set_code_last_modified optionalREORDER toreal streamrescaleonlyifnecessary chunksize npts 4 mul nchunk 8 mul add mimeheaderwithlength datas4 DoTasks } AWC { dup /dataset_documentation.html known { true } { dup /dataset_documentation known } ifelse { true } { dup /dataset known { .dataset dup type /objecttype ne { pop false } { docavailable? } ifelse } { pop false } ifelse } ifelse } AWC { skipcache? { exec } { flush pushstdout URLrootprint (/) print 2 index dataseturl (/skipcache/) print 1 index cvpops ==ns (/dods) print flush popgetstdout DATASET 5 object exch { continuedataset: :datasetnostore } readdods0 2 index cvpops exec 5 object /dataset 4 index def /myprocds 2 index def /myproc { } cvlit def nip } ifelse } AWC { leftmenulevel 0 2 copy get 1 add put leftmenuinfotop? { leftmenutoplevel 0 leftmenulevel 0 get put } if leftmenusub? { dataset null ne { dataset leftmenu0 } if } if true /printheader? HTMLwords ! printheader? not { leftmenusubtrail } if pop leftmenulevel 0 2 copy get 1 sub put } AWC -operator- AWC { PICT 6 1 roll vectoramplitude pop DoTasks } AWC { === } AWC { 1 index /responseobject WWWinfo ! currentobject /algorithm getknown { (md5-sess) eq } { false } ifelse { hex2string MD5_Init exch MD5_Update (:) MD5_Update nonce MD5_Update (:) MD5_Update cnonce MD5_Update MD5_Final string2hex } if MD5_Init exch MD5_Update (:) MD5_Update nonce MD5_Update (:) MD5_Update currentobject /qop getknown { length 0 gt } { false } ifelse { nc MD5_Update (:) MD5_Update cnonce MD5_Update (:) MD5_Update qop MD5_Update (:) MD5_Update } if MD5_Init WWWinfo .method MD5_Update (:) MD5_Update uri MD5_Update MD5_Final string2hex MD5_Update MD5_Final string2hex } AWC { (WWW-Authenticate: Digest realm=") print DigestAuthorization-realm print (", qop="auth", nonce=") print Digest-nonce print (", opaque=") print Digest-opaque print (" ) print WWWinfo /digesterrorcode getknownnotnull { 6 eq { (stale="true" ) print } if } if } AWC { boundingboxc topict color.ps } AWC { countstack 2 sub array astore dup { dup totype /streamtype eq { decompress } if } forall countstack 3 sub array astore null 11 object 1 index { dup totype /streamtype eq { .streamgridarray { name exch def } forall } { pop } ifelse } forall () print mark exch { pop } forall counttomark namearray astore nip namesort 1 index dup length 1 sub get 1 index { () print } forall () print 0 1 4 index length 1 sub { () print 2 index { () print } forall } { dup == () print } ifelse ( ) print pop htmlpathpop } for pop pop pop aload pop (
    ) print cvntos print (
    ) print 3 index length 1 sub 1 index sub dup 0 eq { () print } { () print } ifelse htmlpathpush 3 index exch get dup totype dup /streamtype eq exch /gridtype eq or { dup == () print comparethegrid { print } if pop (
    ) print } AWC { mimeheader /ntable HTMLwords ! ntable 0 MATCH ntable NtoNaN ntable array astore dup dup 0 get .longname print dup length 1 gt { dup 1 1 index length 1 sub getinterval { tab print .longname print } forall } if ( ) print aload pop 1 { datatsv datatsv2 datatsv3 datatsv4 datatsv5 datatsv6 datatsv7 datatsv8 datatsv9 datatsv10 } ntable 1 sub get exec DoTasks } AWC FORMwords AWC { PICT 4 1 roll plaincolorwithscale pop DoTasks } AWC { PS2 5 1 roll plainvector pop DoTasks } AWC { 2 copy exch cvx (
    ) print dup cvntos (
    ) print nice== htmlpathpop } AWC { PNM 5 1 roll autovector pop DoTasks } AWC { 1 index /selectname Ingrid: ! false /selectoptionfound Ingrid: ! ( Show Current Objects
    1. Ingrid:
    2. HTMLwords
    3. Rwanda RAB soil[BLD_d AWC_ts AWC_d AWC BLD bld TAW60 ]
    4. AWC[ |]
    5. /plainvectorpage.html
    6. /addlinkeditemstreamtable
    7. /filter.act
    8. /vectoramplitudecolor.gif
    9. /allparentbgcolors
    10. /namedcalculation?
    11. /datasetdocurl
    12. /FORMnotnull
    13. /authredirecttourl
    14. /color.jpg
    15. /decdata.i2
    16. /plainvector.jpg
    17. /showcolors.jpg
    18. /doauthorizedata
    19. /HA1
    20. /followcase
    21. /combinationdict
    22. /allparentlinks0
    23. /commandformtablerecord1
    24. /colorscale.ps
    25. /allparentlinks01
    26. /directoryheader
    27. /openinpopupwithleftmenuinfo
    28. /color.gif
    29. /mimeheadersetlastmod
    30. /plaincolorwithscale.ps
    31. /printheader
    32. /leftmenutoplevel
    33. /render
    34. /sampleresponse
    35. /additem
    36. /vectorcontour.jpg
    37. /maproomredirectto
    38. /viewerdatasetcase
    39. /plotbuttons2
    40. /addlinkeditemfile
    41. /forprint
    42. /data.r4
    43. /statusmsg
    44. /ifshortlink0
    45. /serveravailable?
    46. /mimeheader
    47. /tablegridselect
    48. /vectoramplitude.gif
    49. /getnotXY
    50. /plaincontour.pict
    51. /mycoach
    52. /plaincolor.jpg
    53. /colorscale.pnm
    54. /plainvector.pnm
    55. /fulllinktodir
    56. /getneedauthorization
    57. /parseurlvarsunescape
    58. /getserved_from
    59. /oneline.ps
    60. /vectorcolorpage.html
    61. /htmlpath!
    62. /mimetype
    63. /contourpage.html
    64. /streamviewerlinks
    65. /autocontour.jpg
    66. /vectorcolor.pnm
    67. /LDEOONLY
    68. /rendercnt
    69. /includeimage
    70. /showmenu?
    71. /leftmenuasbottom
    72. /urls==
    73. /htmlpath
    74. /endselect
    75. /getneedauthorizationdata
    76. /newaxis.pnm
    77. /doauthorize
    78. /render2
    79. /expert?
    80. /leftmenuinfo:
    81. /datasetlocmap
    82. /FORMhide
    83. /vectoramplitudepage.html
    84. /line.pict
    85. /vector.ps
    86. /onelinepage.html
    87. /plaincolorwithscale.jpg
    88. /DLAuthAuthenticationOK?
    89. /colorscale.gif
    90. /vectoramplitudecolor.pnm
    91. /linktodir
    92. /mapavailable?
    93. /gtable.tsv
    94. /zoomvalues
    95. /leftmenuHeader
    96. /leftmenucase
    97. /leftmenulevel
    98. /doifmodified?
    99. /autovector.gif
    100. /leftmenuhead
    101. /Digest-nonce
    102. /data.r8
    103. /BasicAuthenticationChallenge
    104. /Digest-opaque
    105. /formaction
    106. /vector.gif
    107. /checkpassword
    108. /leftmenutrailer
    109. /vectoramplitudecolor.jpg
    110. /addleftmenuinfodir
    111. /XOVY
    112. /colorpage.html
    113. /newaxis.gif
    114. /nodefaultmimeheader
    115. /hiddendatasetatts
    116. /oneline.jpg
    117. /showcolors.pnm
    118. /directoryredirect
    119. /htmlpathtypes
    120. /nullify
    121. /doaddcmd
    122. /notable?
    123. /commandform
    124. /ifshortlink
    125. /DODScontentdescription
    126. /plaincolor.gif
    127. /redirecttourl
    128. /1ptstreamtablehtml
    129. /alternateLanguageLinks
    130. /data.ui1
    131. /oneline.pict
    132. /mimetypes
    133. /pdefappend
    134. /tab
    135. /buttonsall
    136. /FORMgetknownnotnull
    137. /RESTRICTIONSprint?
    138. /linex.pict
    139. /datasetcolorplot
    140. /plaincontour.pnm
    141. /redirectto
    142. /gtable1
    143. /mimeheaderinfo
    144. /selectvalues.html
    145. /html:loc
    146. /leftmenuHeaderasbottom
    147. /contour.ps
    148. /oneptvars
    149. /mimeheadersetlastmodexpires
    150. /data.s4
    151. /defaultmimeheader
    152. /plaincolor.ps
    153. /line.gif
    154. /vectorcolor.ps
    155. /legalclientcheck
    156. /vectorcontour.pnm
    157. /gtable2
    158. /FORMgetknown
    159. /mimeheaderdata
    160. /html:level
    161. /buttons1
    162. /==alias
    163. /color.ps
    164. /scatter.ps
    165. /printimagetitle
    166. /arcinfo.asc
    167. /line.jpg
    168. /vectoramplitudecolorpage.html
    169. /linepage.html
    170. /plainvector.gif
    171. /plaincolor.pict
    172. /autovector.jpg
    173. /gtable3
    174. /variable1Dmenucase
    175. /dataareLDGOonly
    176. /html:paths
    177. /mimeheaderwithlength
    178. /wwwcopylastmod
    179. /linktodirinmenu
    180. /testDigestAuth
    181. /htmlpath.
    182. /data.tsv
    183. /mimeheaderwithinfo
    184. /ifLDGO
    185. /FORMget
    186. /variableattslist.txt
    187. /fullcommand.act
    188. /line.ps
    189. /gtable4
    190. /vectoramplitude.jpg
    191. /additemgrid
    192. /htmlpathpop
    193. /:mimeheader
    194. /combinations0
    195. /attcase
    196. /linex.ps
    197. /vectorcontourpage.html
    198. /oneline
    199. /DODSmimeheader
    200. /vectorcontour.pict
    201. /indexable?
    202. /readCDF.act
    203. /allparentlinks00
    204. /follow
    205. /linktodirintable
    206. /autovector.ps
    207. /gcmdidavailable?
    208. /htmlpathpush
    209. /data.i2
    210. /contour.pict
    211. /plaincontour.jpg
    212. /contentdescriptions
    213. /setleftmenuvar
    214. /data.2r4
    215. /comparethegrid
    216. /plotbuttons1
    217. /variableattsmenucase
    218. /redirecttowithleftmenuinfo
    219. /datasethandlemaplist
    220. /combinations
    221. /plaincolorwithscalepage.html
    222. /oneline.pnm
    223. /linex.jpg
    224. /expert
    225. /setheader
    226. /addleftmenuinfodirheader
    227. /newaxis.ps
    228. /leftmenusubhead
    229. /leftmenusubtrail
    230. /maybeGoogleAnalytics
    231. /FORMknown
    232. /plaincolorwithscale.pnm
    233. /contour.gif
    234. /maybeGoogleAnalyticsHead
    235. /datasetselectplotrange
    236. /mappageLinks
    237. /vectorcolor.pict
    238. /DigestErrorCodes
    239. /plainvector.pict
    240. /buttonsallfiles
    241. /leftmenusub?
    242. /addlinkeditemfiletable
    243. /datasetsizedplot
    244. /leftmenuinfotop
    245. /plaincolorwithscale.gif
    246. /allparentlinkcount
    247. /nobots
    248. /vectoramplitudecolor.ps
    249. /allparentlinks0a
    250. /scatter.jpg
    251. /BasicAuthenticationOK?
    252. /mimeheader:
    253. /addlinkeditemdataset
    254. /makesortednamelist
    255. /plotbuttons2agif
    256. /dataunits.ch
    257. /DigestAuthorization-realm
    258. /vectorcolor.gif
    259. /DigestAuthenticationOK?
    260. /axis.ps
    261. /datasetselectplot
    262. /showcolors.gif
    263. /vectorcontourtogapage.html
    264. /autocontour.gif
    265. /printno_
    266. /additemgridtable
    267. /allparentlinks
    268. /leftmenuinfotop?
    269. /addleftmenuinfo
    270. /portaldlscript
    271. /datasethandlemaplistCases
    272. /FORMS
    273. /linex.gif
    274. /axis.gif
    275. /oneline.gif
    276. /pfstartselect
    277. /index.html
    278. /decdata.r8
    279. /vectorcontour.ps
    280. /htmlpathpushparent
    281. /scatter.gif
    282. /datasetlabelplot
    283. /search.html
    284. /countcommonbeginning
    285. /gridtable.tsv
    286. /commandformtablerecord
    287. /includePSpream
    288. /ParseDigestAuthentication
    289. /FORMtextitem
    290. /autocontour.pnm
    291. /plotbuttons2a
    292. /colorscale.pict
    293. /allparentlinks1
    294. /decdata.s4
    295. /docavailable?
    296. /cachevarviaDODSexec
    297. /leftmenu0asbottom
    298. /askldap
    299. /vectoramplitude.pict
    300. /htmlauto==
    301. /checkMD5response
    302. /DigestAuthenticationChallenge
    303. /color.pict
    304. /gridcomparisonlist
    305. /table.tsv
    306. /FORMwords
    307. /plaincolorwithscale.pict
    308. /plainvector.ps
    309. /addlinkeditem
    310. /autovector.pnm
    311. /startselect
    312. /plaincolorpage.html
    313. /showcolors.ps
    314. /option
    315. /urlinterp
    316. /leftmenu
    317. /FORM!
    318. /parseurlvars
    319. /addlinkeditemdatasettable
    320. /colorscale.jpg
    321. /leftmenu0
    322. /printlink?
    323. /decdata.r4
    324. /variablemenucase
    325. /zoomvalue
    326. /plaincontourpage.html
    327. /setleftmenugrids
    328. /vectoramplitude.ps
    329. /RESTRICTIONSprint
    330. /cachedsviaDODSexec
    331. /contour.jpg
    332. /plaincolor.pnm
    333. /datasetviewerlinks
    334. /vectoramplitude.pnm
    335. /ifdefvar?
    336. /countcommonbeginning0
    337. /dropitem
    338. /plaincontour.gif
    339. /dolastmodified
    340. /vectoramplitudecolor.pict
    341. /plotbuttons1gif
    342. /mimeheader-metadataOnly:
    343. /mimelength
    344. /valueoption
    345. /vectorcolortogapage.html
    346. /command.act
    347. /localaskldap
    348. /vector.pict
    349. /vectorcontour.gif
    350. /newaxis.jpg
    351. /httpauthenticate
    352. /scatter.pict
    353. /setallparentbgcolor
    354. /onClickforInfo?
    355. /DODSmimeheaderwithlength
    356. /plaincontour.ps
    357. /vectorcolor.jpg
    358. /autocontour.ps
    359. /datasetlocmap?
    360. /:leftmenuinfo
    361. /checkauthorization
    362. /plotopt.act
    363. /plotbuttons2gif
    364. /vector.jpg
    365. /showcolors.pict
    366. /vector.jpg
    367. 0

    1000