Variable Grids

) 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 } { (
pr { boundingboxc togif color.ps }
pr { (onelinepage) htmlprint }
pr { PS2 6 1 roll vectoramplitude pop DoTasks }
pr { PS2 5 1 roll autovector pop DoTasks }
pr { chunksize datatsv }
pr { (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 }
pr { dup length 0 eq { pop null } if }
pr null
pr { GIF showcolors pop }
pr { PICT 5 1 roll plainvector pop DoTasks }
pr { JPG 6 1 roll vectoramplitudecolor pop DoTasks }
pr { PNM 5 1 roll autovector pop DoTasks }
pr { 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 } pr { 1066077372 set_code_last_modified optionalREORDER toreal streamrescaleonlyifnecessary swapbytes chunksize npts 4 mul nchunk 8 mul add mimeheaderwithlength swapdatas4 DoTasks } pr { boundingbox tojpg line.ps } pr { ( ) 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 } pr { (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 } pr { ( ) search { nip exch (%20) exch urls== } if } pr { (plaincontourpage) htmlprint } pr { (vectorcontourtogapage) htmlprint } pr { 1 index .nrdim 0 eq { ntable 0 MATCH exch 1 } { 1 REORDER chunk pop exch chunksize } ifelse datatsv2 } pr { 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 } pr { WWWinfo .FORMinfo dup null eq { pop pop false } { exch getknown } ifelse } pr 0 pr { WWWinfo /url-q known { () print print () print } { pop } ifelse } pr HTMLwords pr { 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 } pr { PS 4 1 roll CONTOUR pop DoTasks } pr { PS2 4 1 roll plaincolor pop DoTasks } pr { /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 } name /==alias pr { boundingbox topict linex.ps } pr { GIF 4 1 roll plaincolorwithscale pop DoTasks } pr { JPG exch newaxis pop } pr { currentobject /myproc getknown { dup length 1 eq { 0 get name eq } { pop false } ifelse } { true } ifelse } pr { (
) print } pr { { { 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 } pr { 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 } pr { RESTRICTIONS /LDEOONLY dup put /LDGOtested? true store ifLDGO not { /RestrictedData? true def } if } pr [ 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 ] pr { 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 } pr 0 5 object /asc (dods_data) def /dds (dods_dds) def /das (dods_das) def /dods (dods_data) def pr { boundingbox togif vector.ps } pr { 2 copy exch cvx (
) print dup cvntos () print RestrictMetaData? { ( (restricted)) print } if (
) print nice== htmlpathpop } pr { () print } pr { optionalREORDER mimeheader toreal streamrescale chunksize datatsv DoTasks } pr { PNM 6 1 roll vectoramplitude pop DoTasks } pr CaseListpops1 /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 /streamtype { follow } def /datasettype { follow } def pr { PS 4 1 roll LINEX pop DoTasks } pr { (%%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 } pr { 1 index /selectname Ingrid: ! false /selectoptionfound Ingrid: ! ( Help ) print } pr { legalclientcheck getneedauthorizationdata { true /authorization? WWWinfo ! httpauthenticate } if } pr { decompress nptgridsREORDER toNaN nptgrids aload length 1 add dup 4 le { gtable.tsv } { table.tsv } ifelse } pr { 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 } pr { 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 } pr { JPG 5 1 roll plainvector pop DoTasks } pr { PNM 6 1 roll vectoramplitudecolor pop DoTasks } pr { dup /long_name known { long_name } { cleanname } ifelse htmlformulaprint () print dup /dataset_documentation.html known { () print (*) print } if datasetlocmap? { ( [map]) print } if } pr { dataset followcase caseexec } pr { 2 copy exch cvx (
) print dup cvntos (
) print nice== htmlpathpop } pr { (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 ! } pr { 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 } pr { 1066077372 set_code_last_modified optionalREORDER toreal streamrescaleonlyifnecessary chunksize npts 4 mul nchunk 8 mul add mimeheaderwithlength datas4 DoTasks } pr { PICT 6 1 roll vectoramplitude pop DoTasks } pr { (
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 } pr { 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 } pr { 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 } pr { mark WWWinfo .currenturldir urls== (/) /args FORMget interp { FORMget lpar exch urls== rpar (/) } forall /function FORMget (/) ] concat redirectto } pr { GIF 5 1 roll plainvector pop DoTasks } pr { 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 (
) print } pr { allparentlinkcount 0 get ( cnt=) print dup == allparentbgcolors length lt { ( bgcolor=") print allparentbgcolors allparentlinkcount 0 get get print (") print } if } pr { === } pr { JPG 6 1 roll vectorcontour pop DoTasks } pr { 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 } pr { fig: line :fig } pr { WWWinfo .leftmenuinfo? not { null 5 object dup /leftmenuinfo WWWinfo ! } if } pr { PS2 4 1 roll autocontour pop DoTasks } pr { 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 } pr { 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 } pr { GIF 6 1 roll vectorcolor pop DoTasks } pr { PS2 exch newaxis pop } pr { 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 } pr { PS2 4 1 roll plaincolorwithscale pop DoTasks } pr { dup 0 get length 1 index { length imin } forall 1 sub dup 0 ge { 0 countcommonbeginning0 nip } if } pr [ (#FEFEFF) (#EEEEEE) (#E7E7E7) (#DEDEDE) (#D7D7D7) (#CECECE) (#C7C7C7) (#BEBEBE) (#B7B7B7) (#AAAAAA) (#999999) (#888888) (#777777) ] pr { PICT 4 1 roll plaincontour pop DoTasks } pr CaseList /arraytype { dup xcheck { 3 -1 roll exch exec exch 3 1 roll viewerdatasetcase caseexec } if } def /streamtype { npts 1 eq { exch 1 index } if } def pr { PS2 4 1 roll colorscale pop DoTasks } pr { JPG 4 1 roll autocontour pop DoTasks } pr { directoryredirect mimeheader } pr { (
    ) print currentobject /menu_name getknown not { name } if cvntos printno_ (
    ) print } pr { 1066077372 set_code_last_modified optionalREORDER toreal streamrescaleonlyifnecessary chunksize npts 4 mul mimeheaderwithlength datar4 DoTasks } pr -operator- pr { boundingbox topict contour.ps } pr { Ingrid: /GoogleAnalyticsDone known not { Ingrid: /GoogleAnalyticsID getknown { 1160491916 set_code_last_modified ( ) print ( ) print } if } if } pr { 1 index FORMgetknown { 1 index getknown not { null } if } { null } ifelse ( ) print formcnt++ pop pop } pr { (contourpage) htmlprint } pr { JPG 4 1 roll plaincolor pop DoTasks } pr { /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 } pr { RESTRICTIONSprint? pop } pr { 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 5 object /dataset 4 index def /myprocds 2 index def /myproc { } cvlit def nip } ifelse } pr { mark exch DATASETbot ==noprintdataset { pop } forsome counttomark namearray astore nip namesort } pr { WWWinfo .FORMinfo dup null eq { pop pop false } { exch known } ifelse } pr { [ nptgrids { units /degree_east eq units /degree_north eq or { pop } if } forall ] } pr { 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 } pr { 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 } pr { boundingbox togif scatter.ps } pr { 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 } pr { 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 } pr { 1 index FORMgetknown { 1 index getknown not { null } if } { null } ifelse ( ) print formcnt++ pop pop } pr { (plaincolorpage) htmlprint } pr { JPG 4 1 roll plaincontour pop DoTasks } pr { 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 expires dup null eq { pop } { (Expires: ) print cvi timetostring print ( ) print } ifelse WWWinfo /Vary_List known { (Vary:) print mark Vary_List { pop } forall counttomark namearray astore nip namesort { space print cvntos print } forall ( ) print } if WWWinfo /Content-Language known { (Content-Language: ) print WWWinfo .Content-Language print ( ) print } if } pr { PNM 5 1 roll plainvector pop DoTasks } pr { WWWinfo exch /content-length exch def sendmimeheader { content-length null ne { (Content-Length: ) print content-length ==ns ( ) print } if } if pop } pr { (+) search { interp pop urlinterp } { interp } ifelse } pr { (
    ) 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 } pr { 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 } pr { 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 } pr { (vectoramplitudepage) htmlprint } pr 0 11 object /nc (00000001) def /opaque (5ccc069c403ebaf9f0171e9517f40e41) def /response (6629fae49393a05397450978507c4ef1) def /nonce (dcd98b7102dd2f0e8b11d0f600bfb0c093) def /cnonce (0a4f113b) def /username (Mufasa) def /realm (testrealm@host.com) def /qop (auth) def /uri (/dir/index.html) def pr { GIF 6 1 roll vectoramplitudecolor pop DoTasks } pr { PICT 6 1 roll vectorcontour pop DoTasks } pr { JPG showcolors pop } pr { 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 } pr { 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 } pr { 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 } pr { 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 } pr { 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 } pr { oneline .ps } pr { dup makesortednamelist { 2 copy get variableattsmenucase caseexec dropitem } forall pop } pr { PS 4 1 roll COLOR pop DoTasks } pr { /content-length WWWinfo ! 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 content-length null ne { (Content-Length: ) print content-length ==ns ( ) print } if ( ) print flush false /sendmimeheader WWWinfo ! method /HEAD eq { stop } if } if pop } pr { 3 copy pop eq { ( ) print } pr FORMwords pr { dup /lat known 1 index /lon known and { lat totype /streamtype eq lon totype /streamtype eq and { lat .npts dup 1 gt exch 100000 lt and lon /degree_east unitconvert message? { pop pop false } { pop true } ifelse lat /degree_north unitconvert message? { pop pop false } { pop true } ifelse and and { lat .nptgrids 0 get .gridid lon .nptgrids 0 get .gridid eq } { false } ifelse } { false } ifelse } { false } ifelse } pr 0 23 object (same scale)cvn 1.0 def (Zoom x1)cvn 1.0 def (x1/4)cvn 0.25 def /x4 4.0 def (Click for Info)cvn null def /x2 2.0 def /Zoom 1.0 def (Zoom x4)cvn 4.0 def /x1 1.0 def (Zoom x1/2)cvn 0.5 def /x8 8.0 def /x16 16 def (Zoom x2)cvn 2.0 def (x1/2)cvn 0.5 def /center 1.0 def (Zoom x1/4)cvn 0.25 def pr { 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 } pr { 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 } pr CaseList /datasettype { dup pushdataset dup makesortednamelist { 2 copy get variable1Dmenucase 1 index totype get exec dropitem } forall popdataset } def /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 pr [ null ] pr { GIF 4 1 roll colorscale pop DoTasks } pr { oneline .pnm } pr { (&) 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 } pr { boundingboxc topict color.ps } pr (5ccc069c403ebaf9f0171e9517f40e41) pr { boundingbox tojpg contour.ps } pr { /i2 /mimesuffix WWWinfo ! optionalREORDER toi2 chunksize npts 2 mul mimeheaderwithlength datai2 DoTasks } pr { MD5_Init systemtime 3600 idiv 3600 mul s== MD5_Update (:) MD5_Update (dcd98b7102dd2f0e8b11d0f600bfb0c093) MD5_Update MD5_Final string2hex } pr { PICT 4 1 roll plaincolorwithscale pop DoTasks } pr { JPG 4 1 roll plaincolorwithscale pop DoTasks } pr { WWWinfo /User-Agent known { WWWinfo .User-Agent dup length 7 gt { 0 7 getinterval (Mozilla) ne } { pop true } ifelse } if } pr { exch ( ) (xxxx) search pop print pop htmlroot (http://) search { pop pop } if print printport print } pr CaseList /arraytype { dup xcheck { nip exec name exch variableattsmenucase 1 index totype get exec } if } def /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 pr { 0 0 288 50 togif axis.ps } pr { needauthorization { countstack 2 sub array astore aload false exch { dup type /objecttype eq { /RestrictedMetaData? getknown { or } if } { pop } ifelse } forall } { false } ifelse } pr { 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 } pr { (colorpage) htmlprint } pr { PNM 6 1 roll vectorcolor pop DoTasks } pr { PNM 4 1 roll plaincolor pop DoTasks } pr 0 67 object /json (application/json; charset=utf-8) def /csv (text/comma-separated-values) def /tex (text/x-latex) def /owl (application/rdf+xml) def /mov (video/quicktime) def /svg (image/svg+xml) def /jpg (image/jpeg) def /pdf (application/pdf) def /dods (application/octet-stream) def /i2 (application/octet-stream) def /gif (image/gif) def /s4 (application/x-s4) def /gz (application/x-gzip) def /css (text/css) def /nc (application/x-netcdf) def /xhtml (application/xhtml+xml) def /ico (image/x-icon) def /kml (application/vnd.google-earth.kml+xml) def /xsl (text/xml) def /xbm (image/x-xbitmap) def /latex (text/x-latex) def /dds (text/plain) def /asc (text/plain) def /das (text/plain) def /ui1 (application/x-ui1) def /ppt (application/vnd.ms-powerpoint) def /arcinfo (application/arcinfo) def /act (text/html) def /tiff (image/tiff) def /png (image/png) def /ch (text/plain) def /idaimg (image/ida) def /multipart (multipart/mixed; boundary=Ingrid-file-boundary---) def /m3d (application/x-m3d) def /r8 (application/octet-stream) def /hdf (application/x-hdf) def /cdf (application/x-netcdf) def /kmz (application.vmd.google-earth.kmz) def /tsv (text/tab-separated-values) def /js (text/javascript) def /dtd (text/xml) def /ps (application/postscript) def /txt (text/plain) def /xml (text/xml) def /cuf (application/octet-stream) def /pict (image/pict) def /r4 (application/x-r4) def /pnm (image/x-portable-anymap) def /html (text/html; charset=utf-8) def /zip (application/zip) def /lanimg (image/lan) def pr { true exch 3 index dup 0 get exch 1 1 index length 1 sub getinterval { 2 index get 1 index 3 index get eq not { 3 -1 roll pop false 3 1 roll } if } forall pop exch { 2 copy gt { 1 add countcommonbeginning0 } { 1 add } ifelse } if } pr { 1 index /selectname Ingrid: ! false /selectoptionfound Ingrid: ! ( ) print } pr { 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 } pr { boundingbox tojpg vector.ps } pr { leftmenulevel 0 2 copy get 1 add put addleftmenuinfodir leftmenulevel 0 2 copy get 1 sub put } pr { PSmode true store ifpream pop } pr { 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 } pr { expert? { (experthome) htmlprint } { doc .index.html } ifelse } pr { GIF 4 1 roll plaincolor pop DoTasks } pr { JPG 5 1 roll autovector pop DoTasks } pr { ( ) print () print leftmenuasbottom } pr { (portaldlscript) htmlprint } pr { WWWinfo .FORMinfo dup null eq { pop WWWinfo /FORMinfo null 5 object put WWWinfo .FORMinfo } if ! } pr { () print htmlformulaprint () print } pr { (Content-Description: ) print contentdescriptions WWWinfo .mimesuffix get print ( ) print } pr { (WWW-Authenticate: Basic realm=") print authorization-realm print (" ) print } pr { mimeheader loadavg 0 get nproc 0 get div dup 8.0 lt { pop (OK) print } { (load ) print == ( is too high) print } ifelse ( ) print stop } pr { () print } pr { mimetypes WWWinfo .mimesuffix get } pr { boundingbox topict vector.ps } pr { boundingboxc tojpg color.ps } pr { (vectoramplitudecolorpage) htmlprint } pr { 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 (
    ) print } pr { false /donttrust Ingrid: ! false /ObeyRestrictions? Ingrid: ! true /LDEOurl? Ingrid: ! } pr { 2 copy exch cvx (
    ) print dup cvntos print htmlpathpush (
    ) print 2 index /units eq { htmlunitsprint } { dup type /arraytype eq { leftlineshtml } { nice== } ifelse } ifelse htmlpathpop } pr { dup length 2 eq { dup aload pop ifshortlink0 nip nip } { false } ifelse } pr { 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 } pr { dup /GCMD_id known { true } { dup /dataset known { .dataset dup type /objecttype ne { pop false } { gcmdidavailable? } ifelse } { pop false } ifelse } ifelse } pr { npts 1 gt { nptgrids } { [ 1 index .streamgrids ] } ifelse dup length 1 sub get } pr { () print } pr { nobots ( ) print () print leftmenu } pr { false currentobject /myproc known { currentobject /myprocds getknown { nip type /arraytype eq { true } { currentobject dataset exch .myprocds .dataset ne } ifelse } if } if } pr { leftmenulevel 0 2 copy get 1 add put currentobject /leftmenuinfotop? getknown not { false } if { leftmenutoplevel 0 leftmenulevel 0 get put } if leftmenusub? { dataset null ne { dataset leftmenu0 } if } if true /printheader? HTMLwords ! mark 1 index DATASETbot ==noprintdataset { pop } forsome counttomark namearray astore nip namesort { 2 copy get leftmenucase caseexec pop pop } forall printheader? not { leftmenusubtrail } if pop leftmenulevel 0 2 copy get 1 sub put } pr { portaldlscript (
    ) print (
    Data Library
    ) print } pr { legalclientcheck getneedauthorization { true /authorization? WWWinfo ! httpauthenticate } if } pr { /leftmenuinfotop? true def } pr { PNM 6 1 roll vectorcontour pop DoTasks } pr false pr 0 5 object /formaction { ( ) print == } def pr { nobots ( ) print alternateLanguageLinks maybeGoogleAnalyticsHead } pr CaseList /arraytype { dup xcheck { nip exec name exch variablemenucase 1 index totype get exec } if } def /streamtype { chunksize nchunk mul 1 gt datatype /stringtype eq bufferwordsize 1 gt and not and { datasetcount 0 gt { [ datasetstack 0 datasetcount getinterval { .name cvntos ( .) } forall name cvntos ] concat } { name cvntos } ifelse dup variable eq { ( ) print } if } def /datasettype { dup pushdataset dup makesortednamelist { 2 copy get variablemenucase 1 index totype get exec dropitem } forall popdataset } def /pendingdatasettype { dup xcheck { nip exec name exch variablemenucase 1 index totype get exec } if } def pr { /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 } pr { dup null eq { false } { .dataset dup type /arraytype eq { ifshortlink { 1 get } { 0 get } ifelse } if 2 copy eq { true } { ifshortlink0 } ifelse } ifelse } pr { GIF 6 1 roll vectorcontour pop DoTasks } pr { boundingbox togif contour.ps } pr { PS 4 1 roll LINE pop DoTasks } pr { PICT 4 1 roll plaincolor pop DoTasks } pr { (linepage) htmlprint } pr { WWWinfo sendmimeheader { mimesuffix /act ne { ( ) print } if flush method /HEAD eq { stop } if false /sendmimeheader WWWinfo ! } if pop } pr { PS2 6 1 roll vectoramplitudecolor pop DoTasks } pr { 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 } pr { /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 } pr { PS2 5 1 roll plainvector pop DoTasks } pr { /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 } pr { datasetlocmap? { true } { .dataset dup type /objecttype ne { pop false } { mapavailable? } ifelse } ifelse } pr { 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 } pr 0 47 object /cdf /cdf def /csv /csv def /dtd /dtd def /nc /nc def /hdf /hdf def /tsv /tsv def /ps /ps def /idaimg /idaimg def /arcinfo /arcinfo def /gif /gif def /xsl /xsl def /asc /asc def /html /html def /json /json def /s4 /s4 def /cuf /cuf def /png /png def /pict /pict def /dods /dods def /jpg /jpg def /tiff /tiff def /i2 /i2 def /xml /xml def /gz /gz def /pnm /pnm def /zip /zip def /ui1 /ui1 def /ch /ch def /txt /txt def /kml /kml def /das /das def /owl /owl def /multipart /multipart def /dds /dds def /lanimg /lanimg def /r8 /r8 def /kmz /kmz def /svg /svg def /pdf /pdf def /r4 /r4 def pr { wwwcopylastmod WWWinfo doauthorize 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 } pr { 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 } pr { /r8 /mimesuffix WWWinfo ! optionalREORDER streamrescale todouble swapbytes8 chunksize npts 8 mul mimeheaderwithlength datar8 DoTasks } pr false pr { FORMgetknown not { null } if } pr { } pr { (&) search { (=) search { cvn nip exch nullify pdefappend } { cvn true def } ifelse pop parseurlvars } { dup length 0 gt { (=) search { cvn nip exch nullify pdefappend } { cvn true def } ifelse } { pop } ifelse } ifelse } pr { 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 } pr { FORMget null ne } pr { nptgrids { () print name ==ns ([) print 2 index 1 index 1 REORDER .nchunk ==ns (] ) print pop } forall pop } pr { (vectorcontourpage) htmlprint } pr { pop pop } pr { PNM 4 1 roll colorscale pop DoTasks } pr { ( alt=") print dup print (" title=") print print (") print } pr null pr { boundingbox topict line.ps } pr { dup serveravailable? { .served_from } { served_from } ifelse } pr { (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 ! } pr CaseListpops1 pr { mark 2 index sortednames { 1 index exch get viewerdatasetcase caseexec pop } forall pop counttomark 0 gt { table: boldData mark :table .html } { pop } ifelse } pr { showmenu? { leftmenuhead null 1 index leftmenu0asbottom pop leftmenutrailer } if } pr 0 5 object /arraytype { procasurl } def /stringtype { urlprint } def /integertype { ==ns (+index) print } def /nametype { ==nsurl } def pr { /Set-Language FORMgetknown { /Set-Language exch def } if pop } pr { (

    ) print } pr { 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 } pr { (_) search { print pop ( ) print printno_ } { print } ifelse } pr { PNM showcolors pop } pr { PNM 4 1 roll plaincolorwithscale pop DoTasks } pr { 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 } pr { 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 } pr { GIF 4 1 roll plaincontour pop DoTasks } pr { 0 sortednames { currentobject exch get totype /gridtype eq { 1 add } if } forall 2 ge { ( ) print ( ) print } if false sortednames { currentobject exch get dup totype /gridtype eq { .gridtype 2 ne or } { pop } ifelse } forall { () print } if } pr ( ) pr { checkpassword { ValidUsers exch cvn known } { false } ifelse } pr { WWWinfo .FORMinfo dup null eq { pop pop false } { exch getknownnotnull } ifelse } pr { false IRIurl? { (/IRIONLY) print } { LDEOurl? { (/LDEOONLY) print } if } ifelse } Error 404Bad Request

    Error 404: Bad Request

    Error line: 81 anhtmlserverefize 64000000 def store Error on line 0 of stdin: in forall, first arg must be array
    Show Current Objects

    1000