Changeset 189 for trunk/SRC/Documentation/idldoc_html_output/search.js
- Timestamp:
- 09/21/06 15:55:54 (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/Documentation/idldoc_html_output/search.js
r187 r189 128 128 a[126] = new Array("./ReadWrite/write_oasis.html", "write_oasis.pro", "", " file_comments write an Oasis file version 2 5 param FILENAME in required the filename param VARNAME in required the name of the variable to be written param Z2D in required the variable 2D array to be written keyword I2 keyword I4 keyword I8 keyword R4 to change the default format R8 of the data to be written keyword APPEND to open the file with the file pointer at the end of the file ready for data to be appended restrictions varname is automatically written as a character 8 by default z2d is written as an R8 array history Sebastien Masson smasson lodyc jussieu fr July 01 2002 version Id: write_oasis pro 163 2006 08 29 12:59:46Z navarro PRO write_oasis filename varname z2d I2 i2 I4 i4 I8 i8 R4 r4 APPEND append compile_opt idl2 strictarrsubs openw unit filename F77_UNFORMATTED GET_LUN SWAP_IF_LITTLE_ENDIAN error err APPEND append if err ne 0 then begin print err_string return endif writeu unit string varname format a8 case 1 of keyword_set i2 :writeu unit fix z2d keyword_set i4 :writeu unit long z2d keyword_set i8 :writeu unit long64 z2d keyword_set r4 :writeu unit float z2d ELSE:writeu unit double z2d endcase free_lun unit return end"); 129 129 a[127] = new Array("./ReadWrite/writebat.html", "writebat.pro", "", " file_comments write the bathymetry ASCII file of OPA categories For OPA param ZBAT in required the bathymetry a 2d array param FILENAME in required type string It contains the filename history Sebastien Masson smasson lodyc jussieu fr Sept 30 2003 based on batsav2 pro written by Maurice Imbard March 17 1998 version Id: writebat pro 163 2006 08 29 12:59:46Z navarro PRO writebat zbat filename compile_opt idl2 strictarrsubs basic checks IF n_params NE 2 THEN BEGIN print bad number of arguments in the call of writebat return ENDIF IF size filename type NE 7 THEN BEGIN print the filename should be a string return ENDIF sbat size zbat IF sbat 0 NE 2 THEN BEGIN print bathymetry array should be 2d array return ENDIF jpi2 sbat 1 jpj2 sbat 2 parameters def ifreq 40 ifin jpi2 ifreq 1 irest jpi2 ifin 1 ifreq zbati intarr ifreq zbati2 intarr irest i0 intarr ifreq 5 i1 intarr max 1 irest 5 openw iunit filename get_lun fill the file printf iunit FORMAT 1x bathy IDL 2i8 jpi2 jpj2 printf iunit FORMAT il1 0 FOR jn 1 ifin 1 DO BEGIN printf iunit FORMAT il2 min jpi2 1 il1 ifreq 1 i0 0 il1 1 FOR jj 1 ifreq 5 1 DO BEGIN i0 jj i0 jj 1 5 END printf iunit FORMAT 3x 13 i3 12x i0 printf iunit FORMAT il3 il2 jn 1 ifreq iformat string il3 2 i3 FOR jj jpj2 1 0 1 DO BEGIN zbati 0:il3 zbat il1:il2 jj printf iunit FORMAT iformat jj 1 zbati END il1 il1 ifreq END printf iunit FORMAT il2 min jpi2 1 il1 ifreq 1 i1 0 il1 1 FOR jj 1 irest 5 1 DO BEGIN i1 jj i1 jj 1 5 END printf iunit FORMAT 3x 13 i3 12x i1 printf iunit FORMAT il3 il2 ifin 1 ifreq iformat string il3 2 i3 FOR jj jpj2 1 0 1 DO BEGIN zbati2 0:irest 1 0 zbati2 0:il3 zbat il1:il2 jj printf iunit FORMAT iformat jj 1 zbati2 END end close iunit free_lun iunit return end"); 130 a[128] = new Array("./Tests/TestsOld/tst_basic_old.html", "tst_basic_old.pro", "", " PRO tst_basic_old figure 1: basics plots 1 plot compile_opt idl2 strictarrsubs n 10 y findgen n basic plot splot y petit 2 2 1 portrait improved plot by using plot and graphic keywords splot y petit 2 2 2 noerase yrange 0 n 1 2 title x and x 2 oplot y 2 color 100 linestyle 2 thick 3 2 contour z dist n basic plot scontour z fill nlevels 15 petit 2 2 3 noerase improved plot by using contour and graphic keywords ind findgen 2 n 2 n scontour z levels n ind c_orientation 180 ind c_spacing 2 ind petit 2 2 4 noerase contour z overplot c_label rebin 1 0 2 n levels n ind c_charthick 2 c_charsize 1 5 c_colors 250 indreturn end");130 a[128] = new Array("./Tests/TestsOld/tst_basic_old.html", "tst_basic_old.pro", "", " file_comments figure 1: basics plots plot and contours history Sebastien Masson may 2005 version Id: tst_basic_old pro 131 2006 07 06 14:52:56Z pinsard PRO tst_basic_old 1 plot compile_opt idl2 strictarrsubs n 10 y findgen n basic plot splot y petit 2 2 1 portrait improved plot by using plot and graphic keywords splot y petit 2 2 2 noerase yrange 0 n 1 2 title x and x 2 oplot y 2 color 100 linestyle 2 thick 3 2 contour z dist n basic plot scontour z fill nlevels 15 petit 2 2 3 noerase improved plot by using contour and graphic keywords ind findgen 2 n 2 n scontour z levels n ind c_orientation 180 ind c_spacing 2 ind petit 2 2 4 noerase contour z overplot c_label rebin 1 0 2 n levels n ind c_charthick 2 c_charsize 1 5 c_colors 250 ind return end"); 131 131 a[129] = new Array("./Tests/TestsOld/tst_initlev_index_old.html", "tst_initlev_index_old.pro", "", ""); 132 132 a[130] = new Array("./Tests/TestsOld/tst_initlev_index_stride_old.html", "tst_initlev_index_stride_old.pro", "", ""); … … 145 145 a[143] = new Array("./Tests/TestsOld/tst_initorca2_short_stride_old.html", "tst_initorca2_short_stride_old.pro", "", ""); 146 146 a[144] = new Array("./Tests/TestsOld/tst_initorca2_stride_old.html", "tst_initorca2_stride_old.pro", "", ""); 147 a[145] = new Array("./Tests/TestsOld/tst_plt_old.html", "tst_plt_old.pro", "", " file_comments categories keyword IMAGE returns restrictions examples history version Id: tst_plt_old pro 157 2006 08 21 09:01:50Z navarro PRO tst_plt_old IMAGE image commons compile_opt idl2 strictarrsubs common figure 2: regular grid CASE jpi key_stride 0 jpj key_stride 1 OF 180 148:file Levitus98_1m_01_12_Temperature_Pot_ORCA2 nc 360 180:file Levitus98_1m_01_12_Temperature_Pot_1x1 nc 720 510:file Levitus98_1m_01_12_Temperature_Pot_ORCA05 nc ENDCASE file isafile file title Where is file lookalldir IF size file type NE 7 THEN return dummy cnt 1 domdef domdef gdept 0 gdept 0 grille T temp read_ncdf votemper 00101 00131 file file plt temp landscape if keyword_set image then saveimage tst_plt_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 plt temp 2 31 int 5 nocontour format i3 if keyword_set image then saveimage tst_plt_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 plt temp 2 31 int 1 color_c if keyword_set image then saveimage tst_plt_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 plt temp 2 31 int 1 nocouleur c_thick 1 cont_thick 2 if keyword_set image then saveimage tst_plt_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 plt temp cell_fill 1 jpi EQ 180 we must use cell_fill 2 for ORCA2 if keyword_set image then saveimage tst_plt_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 zoom IF key_onearth THEN box 40 375 20 20 ELSE box jpi 4 3 jpi 4 jpj 4 3 jpj 4 plt temp boite box landscape if keyword_set image then saveimage tst_plt_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 projections IF key_onearth THEN BEGINplt temp boite 20 380 60 90 stereo map 90 0 0 portrait if keyword_set image then saveimage tst_plt_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 plt temp boite 20 380 90 50 ortho map 90 180 0 portrait if keyword_set image then saveimage tst_plt_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 plt temp ortho map 0 0 21 portrait carte if keyword_set image then saveimage tst_plt_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 ENDIF deep plot domdef 150 150 warning message domdef gdept jpk 2 gdept jpk 2 grille T temp read_ncdf votemper 00101 00131 file file plt temp carte 2 key_onearth land if keyword_set image then saveimage tst_plt_ image _ string cnt format i2 2 png png cnt cnt 1 return end");148 a[146] = new Array("./Tests/TestsOld/tst_pltt_old.html", "tst_pltt_old.pro", "", " file_comments categories keyword IMAGE returns restrictions examples history version Id: tst_pltt_old pro 157 2006 08 21 09:01:50Z navarro PRO tst_pltt_old IMAGE image commons compile_opt idl2 strictarrsubs common common figure 2: regular grid CASE jpi key_stride 0 jpj key_stride 1 OF 180 148:file Levitus98_1m_01_12_Temperature_Pot_ORCA2 nc 360 180:file Levitus98_1m_01_12_Temperature_Pot_1x1 nc 720 510:file Levitus98_1m_01_12_Temperature_Pot_ORCA05 nc ENDCASE file isafile file title Where is file lookalldir IF size file type NE 7 THEN return dummy cnt 1 1 1 xt plot IF key_onearth THEN domdef 20 380 1 1 0 gdept 0 ELSE domdef min glamt max glamf jpj 2 1 jpj 2 1 0 gdept 0 temp read_ncdf votemper 00101 01231 file file IF key_forgetold THEN help temp arr ELSE help temp tab help jpt time pltt temp if keyword_set image then saveimage tst_pltt_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 pltt temp nocontour if keyword_set image then saveimage tst_pltt_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 pltt temp color_c if keyword_set image then saveimage tst_pltt_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 pltt temp nocouleur if keyword_set image then saveimage tst_pltt_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 equatorial plot IF key_onearth THEN BEGIN a abs gphit 0 yind where a EQ min a domdef 20 380 yind 0 yind n_elements yind 1 gdept 10 jpk 1 gdept 10 jpk 1 grille T yindex ENDIF ELSE BEGIN domdef min glamt max glamf jpj 2 jpj 2 gdept 10 jpk 1 gdept 10 jpk 1 grille T yindex ENDELSE temp read_ncdf votemper 00101 01231 file file IF key_forgetold THEN help temp arr ELSE help temp tab pltt temp if keyword_set image then saveimage tst_pltt_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 yt plot along the column that contain the largest latitude IF key_onearth THEN BEGIN ind where gphit EQ max gphit ind ind 0 MOD jpi domdef ind ind 90 90 gdept 0 gdept 0 grille T xindex ENDIF ELSE BEGIN domdef jpi 2 jpi 2 min gphit max gphif gdept 0 gdept 0 grille T xindex ENDELSEtemp read_ncdf votemper 00101 01231 file file IF key_forgetold THEN help temp arr ELSE help temp tab pltt temp if keyword_set image then saveimage tst_pltt_ image _ string cnt format i2 2 png png cnt cnt 1 return end");149 a[147] = new Array("./Tests/TestsOld/tst_pltz_old.html", "tst_pltz_old.pro", "", " file_comments categories keyword IMAGE returns restrictions examples history version Id: tst_pltz_old pro 157 2006 08 21 09:01:50Z navarro PRO tst_pltz_old IMAGE image commons compile_opt idl2 strictarrsubs common IF jpk EQ 1 THEN return dummy cnt 1 CASE jpi key_stride 0 jpj key_stride 1 OF 180 148:file Levitus98_1m_01_12_Temperature_Pot_ORCA2 nc 360 180:file Levitus98_1m_01_12_Temperature_Pot_1x1 nc 720 510:file Levitus98_1m_01_12_Temperature_Pot_ORCA05 nc ENDCASE file isafile file title Where is file lookalldir IF size file type NE 7 THEN return IF key_onearth THEN domdef 20 380 1 1 0 max gdept ELSE domdef min glamt max glamf jpj 2 1 jpj 2 1 0 max gdept temp read_ncdf votemper 00101 00131 file file IF key_forgetold THEN help temp arr ELSE help temp tab pltz temp portrait if keyword_set image then saveimage tst_pltz_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 pltz temp portrait nocontour if keyword_set image then saveimage tst_pltz_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 pltz temp portrait color_c if keyword_set image then saveimage tst_pltz_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 pltz temp portrait nocouleur if keyword_set image then saveimage tst_pltz_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 pltz temp boite 6000 if keyword_set image then saveimage tst_pltz_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 pltz temp boite 6000 zoom 1000 if keyword_set image then saveimage tst_pltz_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 pltz temp boite 6000 zoom 1000 ysurx 2 if keyword_set image then saveimage tst_pltz_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 pltz temp boite 6000 zoom 1000 ysurx 2 hzsurht 5 if keyword_set image then saveimage tst_pltz_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 yt plot along the column that contain the largest latitude IF key_onearth THEN BEGIN ind where gphit EQ max gphit ind ind 0 MOD jpi domdef ind ind 90 90 0 max gdept grille T xindex ENDIF ELSE BEGIN domdef jpi 2 jpi 2 min gphit max gphif 0 max gdept grille T xindex ENDELSE temp read_ncdf votemper 00101 01231 file file pltz temp boite 6000 zoom 1000 ysurx 2 hzsurht 5 if keyword_set image then saveimage tst_pltz_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 oblique sections IF key_onearth THEN endpoints 110 45 290 45 ELSE endpoints jpi 6 jpj 3 5 jpi 6 2 jpj 3 domdef endpoints endpoints type pltz temp read_ncdf votemper 00101 00131 file file pltz temp endpoints endpoints if keyword_set image then saveimage tst_pltz_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 false oblique sections IF key_onearth THEN endpoints 180 70 180 90 ELSE endpoints jpi 2 0 25 0 25 jpi 2 0 25 jpj domdef 6000 endpoints endpoints type pltz temp read_ncdf votemper 00101 00131 file file pltz temp endpoints endpoints boite 6000 zoom 1000 ysurx 2 hzsurht 5 showbuild if keyword_set image then saveimage tst_pltz_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 comparison between real section and false oblique sections IF where gphit EQ 0 0 NE 1 THEN BEGIN IF key_onearth THEN box 20 380 0 0 0 6000 ELSE box 0 jpi 1 jpj 2 jpj 2 0 6000 domdef box grille T temp read_ncdf votemper 00101 00131 file file pltz temp boite 6000 portrait petit 1 2 1 zoom 500 hzsurht 5 IF key_onearth THEN endpoints 20 0 380 0 ELSE endpoints 0 jpj 2 jpi 1 jpj 2 domdef 6000 endpoints endpoints type pltz grille T temp read_ncdf votemper 00101 00131 file file pltz temp endpoints endpoints boite 6000 zoom 500 hzsurht 5 petit 1 2 2 noerase if keyword_set image then saveimage tst_pltz_ image _ string cnt format i2 2 png png cnt cnt 1 ENDIFreturn end");147 a[145] = new Array("./Tests/TestsOld/tst_plt_old.html", "tst_plt_old.pro", "", " file_comments categories keyword IMAGE history Sebastien Masson version Id: tst_plt pro 157 2006 08 21 09:01:50Z navarro PRO tst_plt_old IMAGE image commons compile_opt idl2 strictarrsubs common figure 2: regular grid CASE jpi key_stride 0 jpj key_stride 1 OF 180 148:file Levitus98_1m_01_12_Temperature_Pot_ORCA2 nc 360 180:file Levitus98_1m_01_12_Temperature_Pot_1x1 nc 720 510:file Levitus98_1m_01_12_Temperature_Pot_ORCA05 nc ENDCASE file isafile file title Where is file lookalldir IF size file type NE 7 THEN return dummy cnt 1 domdef domdef gdept 0 gdept 0 grille T temp read_ncdf votemper 00101 00131 file file plt temp landscape if keyword_set image then saveimage tst_plt_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 plt temp 2 31 int 5 nocontour format i3 if keyword_set image then saveimage tst_plt_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 plt temp 2 31 int 1 color_c if keyword_set image then saveimage tst_plt_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 plt temp 2 31 int 1 nocouleur c_thick 1 cont_thick 2 if keyword_set image then saveimage tst_plt_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 plt temp cell_fill 1 jpi EQ 180 we must use cell_fill 2 for ORCA2 if keyword_set image then saveimage tst_plt_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 zoom IF key_onearth THEN box 40 375 20 20 ELSE box jpi 4 3 jpi 4 jpj 4 3 jpj 4 plt temp boite box landscape if keyword_set image then saveimage tst_plt_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 projections IF key_onearth THEN BEGIN plt temp boite 20 380 60 90 stereo map 90 0 0 portrait if keyword_set image then saveimage tst_plt_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 plt temp boite 20 380 90 50 ortho map 90 180 0 portrait if keyword_set image then saveimage tst_plt_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 plt temp ortho map 0 0 21 portrait carte if keyword_set image then saveimage tst_plt_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 ENDIF deep plot domdef 150 150 warning message domdef gdept jpk 2 gdept jpk 2 grille T temp read_ncdf votemper 00101 00131 file file plt temp carte 2 key_onearth land if keyword_set image then saveimage tst_plt_ image _ string cnt format i2 2 png png cnt cnt 1 return end"); 148 a[146] = new Array("./Tests/TestsOld/tst_pltt_old.html", "tst_pltt_old.pro", "", " file_comments categories keyword IMAGE history Sebastien Masson version Id: tst_pltt pro 157 2006 08 21 09:01:50Z navarro PRO tst_pltt_old IMAGE image commons compile_opt idl2 strictarrsubs common common figure 2: regular grid CASE jpi key_stride 0 jpj key_stride 1 OF 180 148:file Levitus98_1m_01_12_Temperature_Pot_ORCA2 nc 360 180:file Levitus98_1m_01_12_Temperature_Pot_1x1 nc 720 510:file Levitus98_1m_01_12_Temperature_Pot_ORCA05 nc ENDCASE file isafile file title Where is file lookalldir IF size file type NE 7 THEN return dummy cnt 1 1 1 xt plot IF key_onearth THEN domdef 20 380 1 1 0 gdept 0 ELSE domdef min glamt max glamf jpj 2 1 jpj 2 1 0 gdept 0 temp read_ncdf votemper 00101 01231 file file IF key_forgetold THEN help temp arr ELSE help temp tab help jpt time pltt temp if keyword_set image then saveimage tst_pltt_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 pltt temp nocontour if keyword_set image then saveimage tst_pltt_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 pltt temp color_c if keyword_set image then saveimage tst_pltt_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 pltt temp nocouleur if keyword_set image then saveimage tst_pltt_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 equatorial plot IF key_onearth THEN BEGIN a abs gphit 0 yind where a EQ min a domdef 20 380 yind 0 yind n_elements yind 1 gdept 10 jpk 1 gdept 10 jpk 1 grille T yindex ENDIF ELSE BEGIN domdef min glamt max glamf jpj 2 jpj 2 gdept 10 jpk 1 gdept 10 jpk 1 grille T yindex ENDELSE temp read_ncdf votemper 00101 01231 file file IF key_forgetold THEN help temp arr ELSE help temp tab pltt temp if keyword_set image then saveimage tst_pltt_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 yt plot along the column that contain the largest latitude IF key_onearth THEN BEGIN ind where gphit EQ max gphit ind ind 0 MOD jpi domdef ind ind 90 90 gdept 0 gdept 0 grille T xindex ENDIF ELSE BEGIN domdef jpi 2 jpi 2 min gphit max gphif gdept 0 gdept 0 grille T xindex ENDELSE temp read_ncdf votemper 00101 01231 file file IF key_forgetold THEN help temp arr ELSE help temp tab pltt temp if keyword_set image then saveimage tst_pltt_ image _ string cnt format i2 2 png png cnt cnt 1 return end"); 149 a[147] = new Array("./Tests/TestsOld/tst_pltz_old.html", "tst_pltz_old.pro", "", " file_comments categories keyword IMAGE history Sebastien Masson version Id: tst_pltz pro 157 2006 08 21 09:01:50Z navarro PRO tst_pltz_old IMAGE image commons compile_opt idl2 strictarrsubs common IF jpk EQ 1 THEN return dummy cnt 1 CASE jpi key_stride 0 jpj key_stride 1 OF 180 148:file Levitus98_1m_01_12_Temperature_Pot_ORCA2 nc 360 180:file Levitus98_1m_01_12_Temperature_Pot_1x1 nc 720 510:file Levitus98_1m_01_12_Temperature_Pot_ORCA05 nc ENDCASE file isafile file title Where is file lookalldir IF size file type NE 7 THEN return IF key_onearth THEN domdef 20 380 1 1 0 max gdept ELSE domdef min glamt max glamf jpj 2 1 jpj 2 1 0 max gdept temp read_ncdf votemper 00101 00131 file file IF key_forgetold THEN help temp arr ELSE help temp tab pltz temp portrait if keyword_set image then saveimage tst_pltz_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 pltz temp portrait nocontour if keyword_set image then saveimage tst_pltz_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 pltz temp portrait color_c if keyword_set image then saveimage tst_pltz_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 pltz temp portrait nocouleur if keyword_set image then saveimage tst_pltz_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 pltz temp boite 6000 if keyword_set image then saveimage tst_pltz_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 pltz temp boite 6000 zoom 1000 if keyword_set image then saveimage tst_pltz_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 pltz temp boite 6000 zoom 1000 ysurx 2 if keyword_set image then saveimage tst_pltz_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 pltz temp boite 6000 zoom 1000 ysurx 2 hzsurht 5 if keyword_set image then saveimage tst_pltz_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 yt plot along the column that contain the largest latitude IF key_onearth THEN BEGIN ind where gphit EQ max gphit ind ind 0 MOD jpi domdef ind ind 90 90 0 max gdept grille T xindex ENDIF ELSE BEGIN domdef jpi 2 jpi 2 min gphit max gphif 0 max gdept grille T xindex ENDELSE temp read_ncdf votemper 00101 01231 file file pltz temp boite 6000 zoom 1000 ysurx 2 hzsurht 5 if keyword_set image then saveimage tst_pltz_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 oblique sections IF key_onearth THEN endpoints 110 45 290 45 ELSE endpoints jpi 6 jpj 3 5 jpi 6 2 jpj 3 domdef endpoints endpoints type pltz temp read_ncdf votemper 00101 00131 file file pltz temp endpoints endpoints if keyword_set image then saveimage tst_pltz_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 false oblique sections IF key_onearth THEN endpoints 180 70 180 90 ELSE endpoints jpi 2 0 25 0 25 jpi 2 0 25 jpj domdef 6000 endpoints endpoints type pltz temp read_ncdf votemper 00101 00131 file file pltz temp endpoints endpoints boite 6000 zoom 1000 ysurx 2 hzsurht 5 showbuild if keyword_set image then saveimage tst_pltz_ image _ string cnt format i2 2 png png ELSE read dummy prompt press return for the next plot cnt cnt 1 comparison between real section and false oblique sections IF where gphit EQ 0 0 NE 1 THEN BEGIN IF key_onearth THEN box 20 380 0 0 0 6000 ELSE box 0 jpi 1 jpj 2 jpj 2 0 6000 domdef box grille T temp read_ncdf votemper 00101 00131 file file pltz temp boite 6000 portrait petit 1 2 1 zoom 500 hzsurht 5 IF key_onearth THEN endpoints 20 0 380 0 ELSE endpoints 0 jpj 2 jpi 1 jpj 2 domdef 6000 endpoints endpoints type pltz grille T temp read_ncdf votemper 00101 00131 file file pltz temp endpoints endpoints boite 6000 zoom 500 hzsurht 5 petit 1 2 2 noerase if keyword_set image then saveimage tst_pltz_ image _ string cnt format i2 2 png png cnt cnt 1 ENDIF return end"); 150 150 a[148] = new Array("./Tests/tst_basic.html", "tst_basic.pro", "", " file_comments figure 1: basics plots plot and contours history Sebastien Masson may 2005 version Id: tst_basic pro 131 2006 07 06 14:52:56Z pinsard PRO tst_basic 1 plot compile_opt idl2 strictarrsubs n 10 y findgen n basic plot splot y small 2 2 1 portrait improved plot by using plot and graphic keywords splot y small 2 2 2 noerase yrange 0 n 1 2 title x and x 2 oplot y 2 color 100 linestyle 2 thick 3 2 contour z dist n basic plot scontour z fill nlevels 15 small 2 2 3 noerase improved plot by using contour and graphic keywords ind findgen 2 n 2 n scontour z levels n ind c_orientation 180 ind c_spacing 2 ind small 2 2 4 noerase contour z overplot c_label rebin 1 0 2 n levels n ind c_charthick 2 c_charsize 1 5 c_colors 250 ind return end"); 151 151 a[149] = new Array("./Tests/tst_initlev.html", "tst_initlev.pro", "", "");
Note: See TracChangeset
for help on using the changeset viewer.