Dear LAS users, I've troubles using LAS 8.6.2 with my data.The problem is that LAS image has a faulty region that Ferret plot (made outside LAS) has not. I've THREDDS serving my data at http://giotto.casaccia.enea.it:8080/thredds/dodsC/path_MITO.html
If I use Ferret to SHADE such data I have no problem, ferret -gif NOAA/PMEL TMAP FERRET v7.2 (optimized) Linux 2.6.32-696.3.2.el6.x86_64 64-bit - 07/11/17 15-Jan-18 13:55 yes? use http://giotto.casaccia.enea.it:8080/thredds/dodsC/path_MITO*** NOTE: Axis coordinates are decreasing-ordered. Reversing ordering for axis lev
yes? show data currently SET data sets:1> http://giotto.casaccia.enea.it:8080/thredds/dodsC/path_MITO (default) name title I J K L LAT Latitude on Grid Center 1:2500 1:752 ... ... LON Longitude on Grid Center 1:2500 1:752 ... ... S Salinity 1:2500 1:752 1:100 1:109 T Temperature 1:2500 1:752 1:100 1:109 U U-Velocity 1:2500 1:752 1:100 1:109 V V-Velocity 1:2500 1:752 1:100 1:109
yes? shade/K=100/L=1 'T',LON,LAT yes? frame/file=Ferret_image.gifAs you can see from the attached file Ferret_image.gif, the image is nice, without any problem
But when I pass the same THREDDS to LAS at http://giotto.casaccia.enea.it:8080/las/ I get a gif image which has a problem in the region 31<LAT<37 0<=LON<=9 (the yellow box) and also some other problem nearby it Please have a look at the attached file "Screenshot-2018-1-15 LAS UI.png"
I verified it is not a MEMORY/SIZE problem (which I set to 99999) Debugging LAS is a quite complex task thus I only ask for a hint.For who wants to go deeper into the problem I attach the file E2253A97F5022824FE3DF9B3E4E188E0_debug.txt which is produced by LAS.
Dear LAS users, thanks a lot for any help, Regards, Emanuele Lombardi Rome, Italy Here it follows some info about data: cdo sinfo http://giotto.casaccia.enea.it:8080/thredds/dodsC/path_MITO File format : NetCDF-1 : Institut Source Steptype Levels Num Points Num Dtype : Parameter ID 1 : unknown unknown instant 100 1 1880000 1 F32 : -1 2 : unknown unknown instant 100 1 1880000 1 F32 : -2 3 : unknown unknown instant 100 1 1880000 1 F32 : -3 4 : unknown unknown instant 100 1 1880000 1 F32 : -4
Grid coordinates : 1 : curvilinear : points=1880000 (2500x752)lon : -8.800445 to 41.92491 degrees_east lat : 30.18093 to 47.27765 degrees_north
Vertical coordinates : 1 : generic : levels=100 lev : -1 to -5071.839 meters Time coordinate : 109 stepsRefTime = 2018-01-01 00:00:00 Units = seconds Calendar = standard YYYY-MM-DD hh:mm:ss YYYY-MM-DD hh:mm:ss YYYY-MM-DD hh:mm:ss YYYY-MM-DD hh:mm:ss 2018-01-14 00:00:00 2018-01-14 01:00:00 2018-01-14 02:00:00 2018-01-14 03:00:00 2018-01-14 04:00:00 2018-01-14 05:00:00 2018-01-14 06:00:00 2018-01-14 07:00:00 2018-01-14 08:00:00 2018-01-14 09:00:00 2018-01-14 10:00:00 2018-01-14 11:00:00 2018-01-14 12:00:00 2018-01-14 13:00:00 2018-01-14 14:00:00 2018-01-14 15:00:00 2018-01-14 16:00:00 2018-01-14 17:00:00 2018-01-14 18:00:00 2018-01-14 19:00:00 2018-01-14 20:00:00 2018-01-14 21:00:00 2018-01-14 22:00:00 2018-01-14 23:00:00 2018-01-15 00:00:00 2018-01-15 01:00:00 2018-01-15 02:00:00 2018-01-15 03:00:00 2018-01-15 04:00:00 2018-01-15 05:00:00 2018-01-15 06:00:00 2018-01-15 07:00:00 2018-01-15 08:00:00 2018-01-15 09:00:00 2018-01-15 10:00:00 2018-01-15 11:00:00 2018-01-15 12:00:00 2018-01-15 13:00:00 2018-01-15 14:00:00 2018-01-15 15:00:00 2018-01-15 16:00:00 2018-01-15 17:00:00 2018-01-15 18:00:00 2018-01-15 19:00:00 2018-01-15 20:00:00 2018-01-15 21:00:00 2018-01-15 22:00:00 2018-01-15 23:00:00 2018-01-16 00:00:00 2018-01-16 01:00:00 2018-01-16 02:00:00 2018-01-16 03:00:00 2018-01-16 04:00:00 2018-01-16 05:00:00 2018-01-16 06:00:00 2018-01-16 07:00:00 2018-01-16 08:00:00 2018-01-16 09:00:00 2018-01-16 10:00:00 2018-01-16 11:00:00 2018-01-16 12:00:00 2018-01-16 13:00:00 2018-01-16 14:00:00 2018-01-16 15:00:00 2018-01-16 16:00:00 2018-01-16 17:00:00 2018-01-16 18:00:00 2018-01-16 19:00:00 2018-01-16 20:00:00 2018-01-16 21:00:00 2018-01-16 22:00:00 2018-01-16 23:00:00 2018-01-17 00:00:00 2018-01-17 01:00:00 2018-01-17 02:00:00 2018-01-17 03:00:00 2018-01-17 04:00:00 2018-01-17 05:00:00 2018-01-17 06:00:00 2018-01-17 07:00:00 2018-01-17 08:00:00 2018-01-17 09:00:00 2018-01-17 10:00:00 2018-01-17 11:00:00 2018-01-17 12:00:00 2018-01-17 13:00:00 2018-01-17 14:00:00 2018-01-17 15:00:00 2018-01-17 16:00:00 2018-01-17 17:00:00 2018-01-17 18:00:00 2018-01-17 19:00:00 2018-01-17 20:00:00 2018-01-17 21:00:00 2018-01-17 22:00:00 2018-01-17 23:00:00 2018-01-18 00:00:00 2018-01-18 01:00:00 2018-01-18 02:00:00 2018-01-18 03:00:00 2018-01-18 04:00:00 2018-01-18 05:00:00 2018-01-18 06:00:00 2018-01-18 07:00:00 2018-01-18 08:00:00 2018-01-18 09:00:00 2018-01-18 10:00:00 2018-01-18 11:00:00
2018-01-18 12:00:00 cdo sinfo: Processed 4 variables over 109 timesteps ( 1.04s )
Attachment:
Ferret_image.gif
Description: GIF image
Attachment:
Screenshot-2018-1-15 LAS UI.png
Description: PNG image
*** NOTE: Axis coordinates are decreasing-ordered. Reversing ordering for axis lev LISTing to file /usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_map_scale.xml LISTing to file /usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_map_scale.xml LISTing to file /usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_map_scale.xml set memory/size=999999 show memory SET MEMORY/SIZE: 999999 megawords Peak demand: 0 words Current cache: 0 words go "$1" !-> go "/srv/tomcat/webapps/las/WEB-INF/classes/resources/ferret/temp/ferret_operation_587885_1516020522852.jnl" ! Symbols from the server DEFINE SYMBOL data_0_ID = T-id-12a9ed7ad5 DEFINE SYMBOL data_0_dataset_ID = id-12a9ed7ad5 DEFINE SYMBOL data_0_dataset_name = http://giotto.casaccia.enea.it:8080/thredds/dodsC/path_MITO DEFINE SYMBOL data_0_dataset_url = http://giotto.casaccia.enea.it:8080/thredds/dodsC/path_MITO DEFINE SYMBOL data_0_dsid = id-12a9ed7ad5 DEFINE SYMBOL data_0_ftds_url = http://giotto.casaccia.enea.it:8080/thredds/dodsC/las/id-12a9ed7ad5/data_giotto.casaccia.enea.it_8080_thredds_dodsC_path_MITO.jnl DEFINE SYMBOL data_0_grid_type = regular DEFINE SYMBOL data_0_intervals = xyzt DEFINE SYMBOL data_0_name = Temperature DEFINE SYMBOL data_0_points = xyzt DEFINE SYMBOL data_0_region = region_0 DEFINE SYMBOL data_0_title = Temperature DEFINE SYMBOL data_0_units = degC DEFINE SYMBOL data_0_url = http://giotto.casaccia.enea.it:8080/thredds/dodsC/path_MITO DEFINE SYMBOL data_0_var = 'T' DEFINE SYMBOL data_0_xpath = /lasdata/datasets/id-12a9ed7ad5/variables/T-id-12a9ed7ad5 DEFINE SYMBOL data_count = 1 DEFINE SYMBOL ferret_annotations = file DEFINE SYMBOL ferret_curv_lon_max = 41.92491149902344 DEFINE SYMBOL ferret_curv_lon_min = -8.800444602966309 DEFINE SYMBOL ferret_curvi_coord_lat = lat DEFINE SYMBOL ferret_curvi_coord_lon = lon DEFINE SYMBOL ferret_fill_type = fill DEFINE SYMBOL ferret_image_format = gif DEFINE SYMBOL ferret_land_type = contour DEFINE SYMBOL ferret_service_action = Plot_2D_XY DEFINE SYMBOL ferret_size = .8333 DEFINE SYMBOL ferret_view = xy DEFINE SYMBOL las_debug = false DEFINE SYMBOL las_output_type = xml DEFINE SYMBOL operation_ID = Plot_2D_XY_zoom DEFINE SYMBOL operation_key = E2253A97F5022824FE3DF9B3E4E188E0 DEFINE SYMBOL operation_name = Color plot DEFINE SYMBOL operation_service = ferret DEFINE SYMBOL operation_service_action = Plot_2D_XY DEFINE SYMBOL product_server_clean_age = 168 DEFINE SYMBOL product_server_clean_interval = 24 DEFINE SYMBOL product_server_clean_time = 00:01 DEFINE SYMBOL product_server_clean_units = hour DEFINE SYMBOL product_server_default_catid = ocean_atlas_subset DEFINE SYMBOL product_server_default_dsid = ocean_atlas_subset DEFINE SYMBOL product_server_default_operation = Plot_2D_XY_zoom DEFINE SYMBOL product_server_default_option = Options_2D_image_contour_xy_7 DEFINE SYMBOL product_server_default_varid = TEMP-ocean_atlas_subset DEFINE SYMBOL product_server_default_view = xy DEFINE SYMBOL product_server_ps_timeout = 3600 DEFINE SYMBOL product_server_ui_timeout = 10 DEFINE SYMBOL product_server_use_cache = true DEFINE SYMBOL product_server_version = 8.4 DEFINE SYMBOL region_0_t_hi = 14-Jan-2018 00:00 DEFINE SYMBOL region_0_t_lo = 14-Jan-2018 00:00 DEFINE SYMBOL region_0_x_hi = 40.91 DEFINE SYMBOL region_0_x_lo = -8.8004 DEFINE SYMBOL region_0_y_hi = 46.94 DEFINE SYMBOL region_0_y_lo = 30.1809 DEFINE SYMBOL region_0_z_hi = -1 DEFINE SYMBOL region_0_z_lo = -1 DEFINE SYMBOL result_annotations_ID = annotations DEFINE SYMBOL result_annotations_filename = /usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_annotations.xml DEFINE SYMBOL result_annotations_type = annotations DEFINE SYMBOL result_cancel_ID = cancel DEFINE SYMBOL result_cancel_filename = /usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_cancel.txt DEFINE SYMBOL result_cancel_type = cancel DEFINE SYMBOL result_count = 11 DEFINE SYMBOL result_debug_ID = debug DEFINE SYMBOL result_debug_filename = /usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_debug.txt DEFINE SYMBOL result_debug_type = debug DEFINE SYMBOL result_map_scale_ID = map_scale DEFINE SYMBOL result_map_scale_filename = /usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_map_scale.xml DEFINE SYMBOL result_map_scale_type = map_scale DEFINE SYMBOL result_plot_image_ID = plot_image DEFINE SYMBOL result_plot_image_filename = /usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_plot_image.png DEFINE SYMBOL result_plot_image_type = image DEFINE SYMBOL result_plot_pdf_ID = plot_pdf DEFINE SYMBOL result_plot_pdf_filename = /usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_plot_pdf.pdf DEFINE SYMBOL result_plot_pdf_type = pdf DEFINE SYMBOL result_plot_ps_ID = plot_ps DEFINE SYMBOL result_plot_ps_filename = /usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_plot_ps.ps DEFINE SYMBOL result_plot_ps_type = ps DEFINE SYMBOL result_plot_svg_ID = plot_svg DEFINE SYMBOL result_plot_svg_filename = /usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_plot_svg.svg DEFINE SYMBOL result_plot_svg_type = svg DEFINE SYMBOL result_ref_map_ID = ref_map DEFINE SYMBOL result_ref_map_filename = /usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_ref_map.png DEFINE SYMBOL result_ref_map_type = image DEFINE SYMBOL result_rss_ID = rss DEFINE SYMBOL result_rss_filename = /usr/share/tomcat/webapps/las/output/3E2F1131F3E13B5ECD0C9F33D7AE5555_rss.rss DEFINE SYMBOL result_rss_type = rss GO ($operation_service_action) !-> GO Plot_2D_XY !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! ! $Author: rhs $ ! ! Plot_2d_XY.jnl decides which script to call to make a 2D plot. ! In the "old" LAS UI a 2D plot has for XY has different options and other ! UI characteristics than other 2D plots so it needs its own script. ! ! Set the gif filename, changing it from .gif to the name from this request ! Set up to write info to the debug log so that FshowGO can be used GO LAS_initial_setup ! LAS_initial_setup.jnl ! ! Handle initial setup. Write output to the debug file so that FshowGO can be used ! to see the tree of script calls. Reset the name .gif that plot information ! is written to initially until the FRAME command is issued. ! ! IF the job is not going to produce an image, send in argument of 0, ! then this will exit after doing the FshowGO setup. ! ! 10/4/2016 fixes so init scripts still work SET MODE VERIFY:ALWAYS DEFINE SYMBOL initialize_script_arg = ($1"2") !-> DEFINE SYMBOL initialize_script_arg = 2 ! Make sure to do the SET REDIRECT just once. IF `($initial_setup_done"0|*>1") NE 0` THEN EXIT/SCRIPT !-> IF 0 THEN EXIT/SCRIPT DEFINE SYMBOL initial_setup_done = 1 ! Put the output into the log file so that FshowGO will list ! the tree of GO script calls. SET REDIRECT/APPEND/TEE/file="($result_debug_filename)" STDOUT,STDERR !-> SET REDIRECT/APPEND/TEE/file="/usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_debug.txt" STDOUT,STDERR IF `($initialize_script_arg) EQ 0` THEN EXIT/SCRIPT !-> IF 0 THEN EXIT/SCRIPT IF ($program_name"0|PyFerret>1|*>0") THEN EXIT/SCRIPT !-> IF 0 THEN EXIT/SCRIPT ! Reset the default gif filename used internally by Ferret. ! This must be done before PPLUS is opened. Some of the scripts use PPL ! symbol editing, so even before any plot commands are issued, pplus is ! started. ! ! Define the gif filename (preventing collisions of file named ".gif" in multiple sessions) ! When a colorbar is also made, the colorbar image overwrites the main plot in ! V6.8. Add characters to the GIFFILE setting here, the correct images will ! be set when the image is saved with FRAME. ! Some google earth plots scripts come in without a result image filename. ! Just make up a name here. (A gif file with this name will be written in the ! temp directory.) IF `($result_plot_image_filename%0|*>1%) EQ 0` THEN !-> IF 0 THEN ENDIF DEFINE SYMBOL gifplot_name = ($result_plot_image_filename) !-> DEFINE SYMBOL gifplot_name = /usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_plot_image.png IF ($result_colorbar_filename%0|*>1%) THEN \ DEFINE SYMBOL gifplot_name = ($result_plot_image_filename)_($session_pid) !-> IF 0 THEN DEFINE SYMBOL gifplot_name = /usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_plot_image.png_175263 IF `(($reset_gifname"0|*>1") EQ 0) AND ($FERRET_VERSION"0") GE 6.721` THEN !-> IF 1 THEN IF `STRINDEX("($gifplot_name)", "gif") GT 0` THEN !-> IF 0 THEN ENDIF ENDIF ! Do this again looking for .png IF `(($reset_gifname"0|*>1") EQ 0) AND ($FERRET_VERSION"0") GE 6.721` THEN !-> IF 1 THEN IF `STRINDEX("($gifplot_name)", "png") GT 0` THEN !-> IF 1 THEN SET GIFFILE "($gifplot_name).gif" !-> SET GIFFILE "/usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_plot_image.png.gif" DEFINE SYMBOL reset_gifname = 1 ENDIF ENDIF ! End of file ------------ LAS_initial_setup.jnl-------------------------- ! Exit_GO IF ($ferret_view"|xy>1|*>0") THEN !-> IF 1 THEN go xy_plot_2D ! Enter_GO xy_plot_2D IF ($ferret_interpolate_data%0|false>0|true>1|1|0|*>1%) THEN SET MODE INTERPOLATE !-> IF 0 THEN SET MODE INTERPOLATE DEFINE SYMBOL fview = `UPCASE("($ferret_view)")` !-> DEFINE SYMBOL fview = XY GO LAS_initialize_region 0 ! Enter_GO LAS_initialize_region 0 DEFINE SYMBOL num ($1"0") !-> DEFINE SYMBOL num 0 DEFINE SYMBOL region_name data_($num)_region !-> DEFINE SYMBOL region_name data_0_region DEFINE SYMBOL region ($($region_name)"region_0") !-> DEFINE SYMBOL region region_0 DEFINE SYMBOL region region_($num) !-> DEFINE SYMBOL region region_0 IF ($($region)_x_lo"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL region_x_lo = `INT(100000 * ($($region)_x_lo)) / 100000` !-> DEFINE SYMBOL region_x_lo = -8.8004 DEFINE SYMBOL region_x_hi = `INT(100000 * ($($region)_x_hi)) / 100000` !-> DEFINE SYMBOL region_x_hi = 40.90999 DEFINE SYMBOL limits_x = ($region_x_lo):($region_x_hi) !-> DEFINE SYMBOL limits_x = -8.8004:40.90999 DEFINE SYMBOL limits_x_m360 = `($region_x_lo)-360`:`($region_x_hi)-360` !-> DEFINE SYMBOL limits_x_m360 = -368.8004:-319.09001 DEFINE SYMBOL limits_x_p360 = `($region_x_lo)+360`:`($region_x_hi)+360` !-> DEFINE SYMBOL limits_x_p360 = 351.1996:400.90999 DEFINE SYMBOL region_x = X=($region_x_lo):($region_x_hi) !-> DEFINE SYMBOL region_x = X=-8.8004:40.90999 DEFINE SYMBOL region_x_m360 X=`($region_x_lo)-360`:`($region_x_hi)-360` !-> DEFINE SYMBOL region_x_m360 X=-368.8004:-319.09001 DEFINE SYMBOL region_x_p360 X=`($region_x_lo)+360`:`($region_x_hi)+360` !-> DEFINE SYMBOL region_x_p360 X=351.1996:400.90999 IF `($region_x_hi) GE ($region_x_lo)` THEN !-> IF 1 THEN DEFINE SYMBOL region_x_range = `($region_x_hi) - ($region_x_lo)` !-> DEFINE SYMBOL region_x_range = 49.71039 ELSE ENDIF ENDIF IF ($($region)_y_lo"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL region_y_lo = `INT(1000 * ($($region)_y_lo)) / 1000` !-> DEFINE SYMBOL region_y_lo = 30.18 DEFINE SYMBOL region_y_hi = `INT(1000 * ($($region)_y_hi)) / 1000` !-> DEFINE SYMBOL region_y_hi = 46.94 DEFINE SYMBOL limits_y = ($region_y_lo):($region_y_hi) !-> DEFINE SYMBOL limits_y = 30.18:46.94 DEFINE SYMBOL region_y = Y=($region_y_lo):($region_y_hi) !-> DEFINE SYMBOL region_y = Y=30.18:46.94 IF `($region_y_hi) GE ($region_y_lo)` THEN !-> IF 1 THEN DEFINE SYMBOL region_y_range = `($region_y_hi) - ($region_y_lo)` !-> DEFINE SYMBOL region_y_range = 16.76 ELSE ENDIF ENDIF IF ($($region)_z_lo"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL region_z_lo = ($($region)_z_lo) !-> DEFINE SYMBOL region_z_lo = -1 DEFINE SYMBOL region_z_hi = ($($region)_z_hi) !-> DEFINE SYMBOL region_z_hi = -1 DEFINE SYMBOL limits_z = ($region_z_lo):($region_z_hi) !-> DEFINE SYMBOL limits_z = -1:-1 DEFINE SYMBOL region_z = Z=($region_z_lo):($region_z_hi) !-> DEFINE SYMBOL region_z = Z=-1:-1 IF `($region_z_hi) GE ($region_z_lo)` THEN !-> IF 1 THEN DEFINE SYMBOL region_z_range = `($region_z_hi) - ($region_z_lo)` !-> DEFINE SYMBOL region_z_range = 0 ELSE ENDIF ENDIF IF ($add_region_z"0|*>1") THEN !-> IF 0 THEN ENDIF IF ($($region)_t_lo"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL region_t_lo = ($($region)_t_lo) !-> DEFINE SYMBOL region_t_lo = 14-Jan-2018 00:00 DEFINE SYMBOL region_t_hi = ($($region)_t_hi) !-> DEFINE SYMBOL region_t_hi = 14-Jan-2018 00:00 DEFINE SYMBOL limits_t \"($region_t_lo)\":\"($region_t_hi)\" !-> DEFINE SYMBOL limits_t \"14-Jan-2018 00:00\":\"14-Jan-2018 00:00\" DEFINE SYMBOL region_t T=\"($region_t_lo)\":\"($region_t_hi)\" !-> DEFINE SYMBOL region_t T=\"14-Jan-2018 00:00\":\"14-Jan-2018 00:00\" ENDIF IF ($add_region_t"0|*>1") THEN !-> IF 0 THEN ENDIF IF ($($region)_e_lo"0|*>1") THEN !-> IF 0 THEN ENDIF IF ($add_region_e"0|*>1") THEN !-> IF 0 THEN ENDIF IF ($region_x"0|*>1") THEN !-> IF 1 THEN IF ($region_y"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL region_xy = ($region_x),($region_y) !-> DEFINE SYMBOL region_xy = X=-8.8004:40.90999,Y=30.18:46.94 ELSE ENDIF ELSE ENDIF IF ($region_x"0|*>1") THEN !-> IF 1 THEN IF ($region_z"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL region_xz = ($region_x),($region_z) !-> DEFINE SYMBOL region_xz = X=-8.8004:40.90999,Z=-1:-1 ELSE ENDIF ELSE ENDIF IF ($region_x"0|*>1") THEN !-> IF 1 THEN IF ($region_t"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL region_xt = ($region_x),($region_t) !-> DEFINE SYMBOL region_xt = X=-8.8004:40.90999,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" ELSE ENDIF ELSE ENDIF IF ($region_y"0|*>1") THEN !-> IF 1 THEN IF ($region_z"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL region_yz = ($region_y),($region_z) !-> DEFINE SYMBOL region_yz = Y=30.18:46.94,Z=-1:-1 ELSE ENDIF ELSE ENDIF IF ($region_y"0|*>1") THEN !-> IF 1 THEN IF ($region_t"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL region_yt = ($region_y),($region_t) !-> DEFINE SYMBOL region_yt = Y=30.18:46.94,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" ELSE ENDIF ELSE ENDIF IF ($region_z"0|*>1") THEN !-> IF 1 THEN IF ($region_t"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL region_zt = ($region_z),($region_t) !-> DEFINE SYMBOL region_zt = Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" ELSE ENDIF ELSE ENDIF IF ($region_xy"0|*>1") THEN !-> IF 1 THEN IF ($region_z"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL region_xyz = ($region_xy),($region_z) !-> DEFINE SYMBOL region_xyz = X=-8.8004:40.90999,Y=30.18:46.94,Z=-1:-1 ELSE ENDIF ELSE ENDIF IF ($region_xy"0|*>1") THEN !-> IF 1 THEN IF ($region_t"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL region_xyt = ($region_xy),($region_t) !-> DEFINE SYMBOL region_xyt = X=-8.8004:40.90999,Y=30.18:46.94,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" ELSE ENDIF ELSE ENDIF IF ($region_xz"0|*>1") THEN !-> IF 1 THEN IF ($region_t"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL region_xzt = ($region_xz),($region_t) !-> DEFINE SYMBOL region_xzt = X=-8.8004:40.90999,Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" ELSE ENDIF ELSE ENDIF IF ($region_yz"0|*>1") THEN !-> IF 1 THEN IF ($region_t"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL region_yzt = ($region_yz),($region_t) !-> DEFINE SYMBOL region_yzt = Y=30.18:46.94,Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" ELSE ENDIF ELSE ENDIF IF ($region_xyz"0|*>1") THEN !-> IF 1 THEN IF ($region_t"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL region_xyzt = ($region_xyz),($region_t) !-> DEFINE SYMBOL region_xyzt = X=-8.8004:40.90999,Y=30.18:46.94,Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" ELSE ENDIF ELSE ENDIF IF ($region_xyzt"0|*>1") THEN !-> IF 1 THEN IF ($region_e"0|*>1") THEN !-> IF 0 THEN ELSE DEFINE SYMBOL region_xyzte = ($region_xyzt) !-> DEFINE SYMBOL region_xyzte = X=-8.8004:40.90999,Y=30.18:46.94,Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" ENDIF ELSE ENDIF DEFINE SYMBOL region_full = ($region_xyzte) !-> DEFINE SYMBOL region_full = X=-8.8004:40.90999,Y=30.18:46.94,Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" IF ($region_x"0|*>1") THEN DEFINE SYMBOL region_($num)_x = ($region_x) !-> IF 1 THEN DEFINE SYMBOL region_0_x = X=-8.8004:40.90999 !-> DEFINE SYMBOL region_0_x = X=-8.8004:40.90999 IF ($region_y"0|*>1") THEN DEFINE SYMBOL region_($num)_y = ($region_y) !-> IF 1 THEN DEFINE SYMBOL region_0_y = Y=30.18:46.94 !-> DEFINE SYMBOL region_0_y = Y=30.18:46.94 IF ($region_z"0|*>1") THEN DEFINE SYMBOL region_($num)_z = ($region_z) !-> IF 1 THEN DEFINE SYMBOL region_0_z = Z=-1:-1 !-> DEFINE SYMBOL region_0_z = Z=-1:-1 IF ($region_t"0|*>1") THEN DEFINE SYMBOL region_($num)_t = ($region_t) !-> IF 1 THEN DEFINE SYMBOL region_0_t = T="14-Jan-2018 00:00":"14-Jan-2018 00:00" !-> DEFINE SYMBOL region_0_t = T="14-Jan-2018 00:00":"14-Jan-2018 00:00" IF ($region_xt"0|*>1") THEN DEFINE SYMBOL region_($num)_xt = ($region_xt) !-> IF 1 THEN DEFINE SYMBOL region_0_xt = X=-8.8004:40.90999,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" !-> DEFINE SYMBOL region_0_xt = X=-8.8004:40.90999,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" IF ($region_xy"0|*>1") THEN DEFINE SYMBOL region_($num)_xy = ($region_xy) !-> IF 1 THEN DEFINE SYMBOL region_0_xy = X=-8.8004:40.90999,Y=30.18:46.94 !-> DEFINE SYMBOL region_0_xy = X=-8.8004:40.90999,Y=30.18:46.94 IF ($region_xz"0|*>1") THEN DEFINE SYMBOL region_($num)_xz = ($region_xz) !-> IF 1 THEN DEFINE SYMBOL region_0_xz = X=-8.8004:40.90999,Z=-1:-1 !-> DEFINE SYMBOL region_0_xz = X=-8.8004:40.90999,Z=-1:-1 IF ($region_yt"0|*>1") THEN DEFINE SYMBOL region_($num)_yt = ($region_yt) !-> IF 1 THEN DEFINE SYMBOL region_0_yt = Y=30.18:46.94,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" !-> DEFINE SYMBOL region_0_yt = Y=30.18:46.94,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" IF ($region_yz"0|*>1") THEN DEFINE SYMBOL region_($num)_yz = ($region_yz) !-> IF 1 THEN DEFINE SYMBOL region_0_yz = Y=30.18:46.94,Z=-1:-1 !-> DEFINE SYMBOL region_0_yz = Y=30.18:46.94,Z=-1:-1 IF ($region_zt"0|*>1") THEN DEFINE SYMBOL region_($num)_zt = ($region_zt) !-> IF 1 THEN DEFINE SYMBOL region_0_zt = Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" !-> DEFINE SYMBOL region_0_zt = Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" IF ($region_0_t_lo"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL t_lab_lo = ($region_0_t_lo) !-> DEFINE SYMBOL t_lab_lo = 14-Jan-2018 00:00 LET iz = STRINDEX("($region_0_t_lo)", " 00:00:00") !-> DEFINE VARIABLE iz = STRINDEX("14-Jan-2018 00:00", " 00:00:00") IF `iz GT 0` THEN !-> IF 0 THEN ELSE LET iz = STRINDEX("($region_0_t_lo)", ":00:00") !-> DEFINE VARIABLE iz = STRINDEX("14-Jan-2018 00:00", ":00:00") IF `iz GT 0` THEN DEFINE SYMBOL t_lab_lo = `SUBSTRING("($region_0_t_lo)", 1, iz-1)` !-> IF 0 THEN DEFINE SYMBOL t_lab_lo = `SUBSTRING("14-Jan-2018 00:00", 1, iz-1)` ENDIF ENDIF IF ($region_0_t_hi"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL t_lab_hi = ($region_0_t_hi) !-> DEFINE SYMBOL t_lab_hi = 14-Jan-2018 00:00 LET iz = STRINDEX("($region_0_t_hi)", " 00:00:00") !-> DEFINE VARIABLE iz = STRINDEX("14-Jan-2018 00:00", " 00:00:00") IF `iz GT 0` THEN !-> IF 0 THEN ELSE LET iz = STRINDEX("($region_0_t_hi)", ":00:00") !-> DEFINE VARIABLE iz = STRINDEX("14-Jan-2018 00:00", ":00:00") IF `iz GT 0` THEN DEFINE SYMBOL t_lab_hi = `SUBSTRING("($region_0_t_hi)", 1, iz-1)` !-> IF 0 THEN DEFINE SYMBOL t_lab_hi = `SUBSTRING("14-Jan-2018 00:00", 1, iz-1)` ENDIF ENDIF IF ($region_full"1|*>0") THEN !-> IF 0 THEN ENDIF ! Exit_GO GO LAS_initialize_data 0 ! Enter_GO LAS_initialize_data 0 IF `($ferret_start_memory"0") GT 0` THEN SET MEM/SIZ=($ferret_start_memory) !-> IF 0 THEN SET MEM/SIZ= DEFINE SYMBOL data_initialization_script LAS_initialize_data_std !-> IF 1 THEN DEFINE SYMBOL data_initialization_script LAS_initialize_data_std !-> DEFINE SYMBOL data_initialization_script LAS_initialize_data_std GO ($data_initialization_script) ($1) !-> GO LAS_initialize_data_std 0 ! Enter_GO LAS_initialize_data_std 0 GO LAS_initialize_dataset ($1"0") !-> GO LAS_initialize_dataset 0 ! Enter_GO LAS_initialize_dataset 0 DEFINE SYMBOL num ($1"0") !-> DEFINE SYMBOL num 0 IF ($data_($num)_chained"0|1|*>1) THEN !-> IF 0 THEN ELSE DEFINE SYMBOL data_url \"($data_($num)_url)\" !-> DEFINE SYMBOL data_url \"http://giotto.casaccia.enea.it:8080/thredds/dodsC/path_MITO\" ENDIF SET DATA ($data_url) !-> SET DATA "http://giotto.casaccia.enea.it:8080/thredds/dodsC/path_MITO" IF ($fer_last_error"0|0|1|*>1") THEN !-> IF 0 THEN ENDIF IF `STRINDEX(($data_url), "jnl_expr_") GT 0` THEN !-> IF 0 THEN ENDIF IF `($num) EQ 0 AND ($data_count) GT 1 and ($check_multi_regions_done"0|*>1) EQ 0` THEN !-> IF 0 THEN ENDIF IF ($data_($num)_var"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL data_var ($data_($num)_var) !-> DEFINE SYMBOL data_var 'T' DEFINE SYMBOL data_orig_var ($data_($num)_var) !-> DEFINE SYMBOL data_orig_var 'T' DEFINE SYMBOL data_var_nq ($data_($num)_var) !-> DEFINE SYMBOL data_var_nq 'T' ENDIF DEFINE SYMBOL data_name ($data_($num)_name) !-> DEFINE SYMBOL data_name Temperature IF `($data_($num)_name"0|*>1") EQ 0` THEN DEFINE SYMBOL data_name ($data_var) !-> IF 0 THEN DEFINE SYMBOL data_name 'T' DEFINE SYM var_num ($num) !-> DEFINE SYM var_num 0 IF ($data_($num)_var"0|*>1") THEN DEFINE SYMBOL data_var = `UPCASE("($data_var)")` !-> IF 1 THEN DEFINE SYMBOL data_var = `UPCASE("'T'")` !-> DEFINE SYMBOL data_var = `UPCASE("'T'")` !-> DEFINE SYMBOL data_var = 'T' IF ($data_($num)_var"0|*>1") THEN DEFINE SYMBOL data_var_nq = `UPCASE("($data_var_nq)")` !-> IF 1 THEN DEFINE SYMBOL data_var_nq = `UPCASE("'T'")` !-> DEFINE SYMBOL data_var_nq = `UPCASE("'T'")` !-> DEFINE SYMBOL data_var_nq = 'T' IF ($data_($num)_var_nq"0|*>1") THEN DEFINE SYMBOL data_var_nq = `UPCASE("($data_var_nq)")` !-> IF 0 THEN DEFINE SYMBOL data_var_nq = `UPCASE("'T'")` LET varlen = `STRLEN("($data_var)")` !-> DEFINE VARIABLE varlen = 3 IF `STRINDEX("($data_var)", "'") EQ 1 AND STRRINDEX("($data_var)", "'") EQ varlen` THEN !-> IF 1 THEN DEFINE SYMBOL surrounding_quotes_already = 1 LET slen = `STRLEN("($data_var)")` !-> DEFINE VARIABLE slen = 3 DEFINE SYMBOL data_var_nq = `SUBSTRING("($data_var)", 2, slen-2)` !-> DEFINE SYMBOL data_var_nq = T DEFINE SYMBOL data_var = `UPCASE("($data_($num)_var)")` !-> DEFINE SYMBOL data_var = 'T' ELSE ENDIF IF ($ferret_curvi_coord_lon"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL f_curv_lon = `UPCASE("($ferret_curvi_coord_lon)")` !-> DEFINE SYMBOL f_curv_lon = LON LET varlen = `STRLEN("($ferret_curvi_coord_lon)")` !-> DEFINE VARIABLE varlen = 3 IF `STRINDEX("($ferret_curvi_coord_lon)", "'") EQ 1 AND STRRINDEX("($ferret_curvi_coord_lon)", "'") EQ varlen` THEN !-> IF 0 THEN ELSE IF ($data_($num)_var"0|*>1") THEN DEFINE SYMBOL ferret_curvi_coord_lon = '($f_curv_lon)' !-> IF 1 THEN DEFINE SYMBOL ferret_curvi_coord_lon = 'LON' !-> DEFINE SYMBOL ferret_curvi_coord_lon = 'LON' ENDIF ENDIF IF ($ferret_curvi_coord_lat"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL f_curv_lat = `UPCASE("($ferret_curvi_coord_lat)")` !-> DEFINE SYMBOL f_curv_lat = LAT LET varlen = `STRLEN("($ferret_curvi_coord_lat)")` !-> DEFINE VARIABLE varlen = 3 IF `STRINDEX("($ferret_curvi_coord_lat)", "'") EQ 1 AND STRRINDEX("($ferret_curvi_coord_lat)", "'") EQ varlen` THEN !-> IF 0 THEN ELSE IF ($data_($num)_var"0|*>1") THEN DEFINE SYMBOL ferret_curvi_coord_lat = '($f_curv_lat)' !-> IF 1 THEN DEFINE SYMBOL ferret_curvi_coord_lat = 'LAT' !-> DEFINE SYMBOL ferret_curvi_coord_lat = 'LAT' ENDIF ENDIF IF ($add_to_var($num)"0|*>1") THEN !-> IF 0 THEN ENDIF IF `($data_($num)_units%1|"">1|*>0%) OR ($data_($num)_units%1|" ">1|*>0%)` THEN !-> IF 0 THEN ELIF ($data_($num)_units%1|" ">1|*>0%) THEN !-> ELIF 0 THEN ELSE DEFINE SYMBOL data_units ($data_($num)_units) !-> DEFINE SYMBOL data_units degC ENDIF LET inquote = `STRINDEX("($data_($num)_units)", "'")` !-> DEFINE VARIABLE inquote = 0 IF `inquote GT 0` THEN !-> IF 0 THEN ENDIF IF ($data_units"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL data_units (($data_($num)_units)) !-> DEFINE SYMBOL data_units (degC) DEFINE SYMBOL data_units ($data_($num)_units) !-> IF 0 THEN DEFINE SYMBOL data_units degC ENDIF IF ($data_($num)_name"0|1|*>1) THEN !-> IF 1 THEN IF ($data_($num)_title"0|*>1") THEN DEFINE SYMBOL data_title ($data_($num)_title) !-> IF 1 THEN DEFINE SYMBOL data_title Temperature !-> DEFINE SYMBOL data_title Temperature ELSE ENDIF IF `($num) GT 0` THEN DEFINE SYMBOL variable_($num)_lab = ($data_title) !-> IF 0 THEN DEFINE SYMBOL variable_0_lab = Temperature IF ($data_units"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL units_lab = ($data_units) !-> DEFINE SYMBOL units_lab = (degC) IF `($num) GT 0` THEN DEFINE SYMBOL units_($num)_lab = ($data_units) !-> IF 0 THEN DEFINE SYMBOL units_0_lab = (degC) ENDIF DEFINE SYMBOL ferret_plot_title ($data_title) ($data_units) !-> DEFINE SYMBOL ferret_plot_title Temperature (degC) SET DATA ($data_url) !-> SET DATA "http://giotto.casaccia.enea.it:8080/thredds/dodsC/path_MITO" DEFINE SYMBOL ulen `STRLEN("(data_($num)_units)")` !-> DEFINE SYMBOL ulen 14 IF `($ulen) LE 2` THEN !-> IF 0 THEN ENDIF IF `($units_double_quotes"0|*>1") EQ 0` THEN !-> IF 1 THEN LET ulen = STRLEN ("($data_($num)_units)") !-> DEFINE VARIABLE ulen = STRLEN ("degC") DEFINE SYMBOL data_units `SUBSTRING("($data_($num)_units)", 2, ulen-2)` !-> IF 0 THEN DEFINE SYMBOL data_units `SUBSTRING("degC", 2, ulen-2)` ENDIF IF ($fer_last_error"0|0|1|*>1") THEN !-> IF 0 THEN ENDIF SET DATA "($data_($num)_url)" !-> SET DATA "http://giotto.casaccia.enea.it:8080/thredds/dodsC/path_MITO" DEFINE SYMBOL dset($num) = `($data_var),RETURN=dsetnum` !-> DEFINE SYMBOL dset0 = 1 GO LAS_check_fer_properties ! Enter_GO LAS_check_fer_properties IF ($ferret_dep_axis_scale"0|*>1") THEN !-> IF 0 THEN ENDIF ! Checks on ferret_dep_axis_scale ! Exit_GO ! Exit_GO IF ($fer_last_error"0|0|1|*>1") THEN !-> IF 0 THEN ENDIF IF ($error_status"0|ERROR>1|*>1") THEN !-> IF 0 THEN ENDIF IF ($ferret_init_script"0|*>1") THEN GO ($ferret_init_script) ($dset($1"0")) !-> IF 0 THEN GO 1 IF ($ferret_init_commands"0|*>1") THEN !-> IF 0 THEN ENDIF IF `($data_var"0|*>1") EQ 0` THEN DEFINE SYMBOL data_var = ($data_($num)_var) !-> IF 0 THEN DEFINE SYMBOL data_var = 'T' IF `($data_orig_var"0|*>1") EQ 0` THEN DEFINE SYMBOL data_orig_var = ($data_($num)_var) !-> IF 0 THEN DEFINE SYMBOL data_orig_var = 'T' GO LAS_initialize_variable ! Enter_GO LAS_initialize_variable DEFINE SYMBOL data_num = `($data_var),RETURN=dsetnum` !-> DEFINE SYMBOL data_num = 1 DEFINE SYMBOL data_($num)_num = `($data_var),RETURN=dsetnum` !-> DEFINE SYMBOL data_0_num = 1 IF ($ferret_factor"0|*>1") THEN !-> IF 0 THEN ENDIF LET attlist = ($data_($num)_var).attnames !-> DEFINE VARIABLE attlist = 'T'.attnames IF ($data_var_nq"0|*>1") THEN LET attlist = ($data_var_nq).attnames !-> IF 1 THEN LET attlist = T.attnames !-> LET attlist = T.attnames DEFINE SYMBOL data_var_only = `UPCASE("($data_var)")` !-> DEFINE SYMBOL data_var_only = 'T' IF ($ferret_bad_flag"0|*>1") THEN SET VAR/BAD=($ferret_bad_flag) ($data_var) !-> IF 0 THEN SET VAR/BAD= 'T' IF ($ferret_timelab_res"0|*>1") THEN SET MODE CALENDAR:($ferret_timelab_res) !-> IF 0 THEN SET MODE CALENDAR: ($ferret_curvi_coord_lon"0|*>1")` THEN !-> IF 0 THEN ENDIF IF ($data_units"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL has_units = 1 ELSE ENDIF IF ($check_for_pseudonames"0|*>1") THEN !-> IF 0 THEN ENDIF IF ($ferret_factor_label"0|*>1") THEN !-> IF 0 THEN ELIF ($ferret_factor"0|*>1") THEN !-> ELIF 0 THEN ENDIF IF `($data_title"0|*>1") EQ 0` THEN !-> IF 0 THEN ENDIF DEFINE SYMBOL ferret_plot_var = ($data_var)[d=($data_num),($region_full)] !-> DEFINE SYMBOL ferret_plot_var = 'T'[d=1,X=-8.8004:40.90999,Y=30.18:46.94,Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00"] IF ($analysis_def"0|*>1") THEN ! analysis_def from curvi data or transform !-> IF 0 THEN ENDIF DEFINE SYMBOL ferret_plot_var_noregion = ($data_var)[d=($data_num)] !-> DEFINE SYMBOL ferret_plot_var_noregion = 'T'[d=1] IF ($data_var_nq"0|*>1") THEN DEFINE SYMBOL ferret_plot_var_nq_noregion = ($data_var_nq)[d=($data_num)] !-> IF 1 THEN DEFINE SYMBOL ferret_plot_var_nq_noregion = T[d=1] !-> DEFINE SYMBOL ferret_plot_var_nq_noregion = T[d=1] DEFINE SYMBOL ferret_plot_var_($num)_noregion = ($data_var)[d=($data_num)] !-> DEFINE SYMBOL ferret_plot_var_0_noregion = 'T'[d=1] DEFINE SYMBOL ferret_plot_base_var = ($ferret_plot_var) !-> DEFINE SYMBOL ferret_plot_base_var = 'T'[d=1,X=-8.8004:40.90999,Y=30.18:46.94,Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00"] DEFINE SYMBOL ferret_plot_base_var_($num) = ($ferret_plot_var) !-> DEFINE SYMBOL ferret_plot_base_var_0 = 'T'[d=1,X=-8.8004:40.90999,Y=30.18:46.94,Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00"] DEFINE SYMBOL ferret_plot_base_var_noregion = ($data_var)[d=($data_num)] !-> DEFINE SYMBOL ferret_plot_base_var_noregion = 'T'[d=1] DEFINE SYMBOL ferret_xyz_var = ($data_var)[d=($data_num),($region_xyz)] !-> DEFINE SYMBOL ferret_xyz_var = 'T'[d=1,X=-8.8004:40.90999,Y=30.18:46.94,Z=-1:-1] DEFINE SYMBOL ferret_t_var = ($data_var)[d=($data_num),($region_t)] !-> DEFINE SYMBOL ferret_t_var = 'T'[d=1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00"] DEFINE SYMBOL ferret_x_var = ($data_var)[d=($data_num),($region_x)] !-> DEFINE SYMBOL ferret_x_var = 'T'[d=1,X=-8.8004:40.90999] IF `($region_x"0|*>1) EQ 0` THEN DEFINE SYMBOL ferret_x_var = ($data_var)[d=($data_num)] !-> IF 0 THEN DEFINE SYMBOL ferret_x_var = 'T'[d=1] GO LAS_transforms ($num) !-> GO LAS_transforms 0 ! Enter_GO LAS_transforms 0 DEFINE SYMBOL num ($1"0") !-> DEFINE SYMBOL num 0 IF `($constraint_0_lhs"0|Seasonal_Regridding>1|*>0")` THEN !-> IF 0 THEN ENDIF IF `STRINDEX("($constraint_0_lhs"0")", "Season_length") GT 0` THEN !-> IF 0 THEN ENDIF DEFINE SYMBOL do_curvi_xy = 0 DEFINE SYMBOL do_hybrid_z = 0 DEFINE SYMBOL do_curvi_xy_and_hybrid_z = 0 GO LAS_get_coords_att ! Enter_GO LAS_get_coords_att IF ($ferret_curvi_coord_lon"0|*>1") THEN EXIT/SCRIPT !-> IF 1 THEN EXIT/SCRIPT !-> EXIT/SCRIPT ! Exit_GO IF ($ferret_curvi_coord_lat"0|*>1") THEN DEFINE SYMBOL do_curvi_xy = 1 !-> IF 1 THEN DEFINE SYMBOL do_curvi_xy = 1 !-> DEFINE SYMBOL do_curvi_xy = 1 IF ($ferret_curvi_coord_lat"0|*>1") THEN DEFINE SYMBOL native_curvilinear_xy = 1 !-> IF 1 THEN DEFINE SYMBOL native_curvilinear_xy = 1 !-> DEFINE SYMBOL native_curvilinear_xy = 1 IF ($ferret_thk_var"0|*>1") THEN DEFINE SYMBOL do_hybrid_z = 1 !-> IF 0 THEN DEFINE SYMBOL do_hybrid_z = 1 IF `($do_curvi_xy) + ($do_hybrid_z) EQ 2` THEN DEFINE SYMBOL do_curvi_xy_and_hybrid_z = 1 !-> IF 0 THEN DEFINE SYMBOL do_curvi_xy_and_hybrid_z = 1 IF ($do_curvi_xy_and_hybrid_z) THEN GO transform_hybrid_z_curvi_xy !-> IF 0 THEN GO transform_hybrid_z_curvi_xy GO transform_hybrid_z.jnl !-> IF 0 THEN GO transform_hybrid_z.jnl IF ($do_curvi_xy) THEN GO transform_curvi_xy.jnl !-> IF 1 THEN GO transform_curvi_xy.jnl !-> GO transform_curvi_xy.jnl ! Enter_GO transform_curvi_xy.jnl DEFINE SYMBOL which_var ($num) !-> DEFINE SYMBOL which_var 0 IF `($constraint_0_lhs"0|Curv_to_Rect_Regridding>1|*>0")` THEN !-> IF 0 THEN ELIF `STRINDEX("($ferret_view)", "xy") EQ 0` THEN !-> ELIF 0 THEN ELSE DEFINE SYMBOL data_var_transform = , Interpolated from Curvilinear coordinates !-> IF 0 THEN DEFINE SYMBOL data_var_transform = , Interpolated from Curvilinear coordinates ENDIF DEFINE SYMBOL ferret_curv_lon_min = `($ferret_curvi_coord_lon)[d=($data_num),x=@min,y=@min]` !-> IF 0 THEN DEFINE SYMBOL ferret_curv_lon_min = `'LON'[d=1,x=@min,y=@min]` DEFINE SYMBOL ferret_curv_lon_max = `($ferret_curvi_coord_lon)[d=($data_num),x=@max,y=@max]` !-> IF 0 THEN DEFINE SYMBOL ferret_curv_lon_max = `'LON'[d=1,x=@max,y=@max]` IF `($ferret_curv_lon_max)- ($ferret_curv_lon_min) GT 360` THEN DEFINE SYMBOL ferret_curv_lon_max `($ferret_curv_lon_min) + 360` !-> IF 0 THEN DEFINE SYMBOL ferret_curv_lon_max `-8.800444602966309 + 360` IF `($region_x_lo_orig"0|*>1") EQ 0 AND ($region_0_x_lo"0|*>1|)` THEN !-> IF 1 THEN DEFINE SYMBOL region_0_x_lo_orig = ($region_0_x_lo) !-> DEFINE SYMBOL region_0_x_lo_orig = -8.8004 DEFINE SYMBOL region_0_x_hi_orig = ($region_0_x_hi) !-> DEFINE SYMBOL region_0_x_hi_orig = 40.91 ENDIF GO LAS_initialize_region ($num) !-> GO LAS_initialize_region 0 ! Enter_GO LAS_initialize_region 0 DEFINE SYMBOL num ($1"0") !-> DEFINE SYMBOL num 0 DEFINE SYMBOL region_name data_($num)_region !-> DEFINE SYMBOL region_name data_0_region DEFINE SYMBOL region ($($region_name)"region_0") !-> DEFINE SYMBOL region region_0 DEFINE SYMBOL region region_($num) !-> DEFINE SYMBOL region region_0 IF ($($region)_x_lo"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL region_x_lo = `INT(100000 * ($($region)_x_lo)) / 100000` !-> DEFINE SYMBOL region_x_lo = -8.8004 DEFINE SYMBOL region_x_hi = `INT(100000 * ($($region)_x_hi)) / 100000` !-> DEFINE SYMBOL region_x_hi = 40.90999 DEFINE SYMBOL limits_x = ($region_x_lo):($region_x_hi) !-> DEFINE SYMBOL limits_x = -8.8004:40.90999 DEFINE SYMBOL limits_x_m360 = `($region_x_lo)-360`:`($region_x_hi)-360` !-> DEFINE SYMBOL limits_x_m360 = -368.8004:-319.09001 DEFINE SYMBOL limits_x_p360 = `($region_x_lo)+360`:`($region_x_hi)+360` !-> DEFINE SYMBOL limits_x_p360 = 351.1996:400.90999 DEFINE SYMBOL region_x = X=($region_x_lo):($region_x_hi) !-> DEFINE SYMBOL region_x = X=-8.8004:40.90999 DEFINE SYMBOL region_x_m360 X=`($region_x_lo)-360`:`($region_x_hi)-360` !-> DEFINE SYMBOL region_x_m360 X=-368.8004:-319.09001 DEFINE SYMBOL region_x_p360 X=`($region_x_lo)+360`:`($region_x_hi)+360` !-> DEFINE SYMBOL region_x_p360 X=351.1996:400.90999 IF `($region_x_hi) GE ($region_x_lo)` THEN !-> IF 1 THEN DEFINE SYMBOL region_x_range = `($region_x_hi) - ($region_x_lo)` !-> DEFINE SYMBOL region_x_range = 49.71039 ELSE ENDIF ENDIF IF ($($region)_y_lo"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL region_y_lo = `INT(1000 * ($($region)_y_lo)) / 1000` !-> DEFINE SYMBOL region_y_lo = 30.18 DEFINE SYMBOL region_y_hi = `INT(1000 * ($($region)_y_hi)) / 1000` !-> DEFINE SYMBOL region_y_hi = 46.94 DEFINE SYMBOL limits_y = ($region_y_lo):($region_y_hi) !-> DEFINE SYMBOL limits_y = 30.18:46.94 DEFINE SYMBOL region_y = Y=($region_y_lo):($region_y_hi) !-> DEFINE SYMBOL region_y = Y=30.18:46.94 IF `($region_y_hi) GE ($region_y_lo)` THEN !-> IF 1 THEN DEFINE SYMBOL region_y_range = `($region_y_hi) - ($region_y_lo)` !-> DEFINE SYMBOL region_y_range = 16.76 ELSE ENDIF ENDIF IF ($($region)_z_lo"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL region_z_lo = ($($region)_z_lo) !-> DEFINE SYMBOL region_z_lo = -1 DEFINE SYMBOL region_z_hi = ($($region)_z_hi) !-> DEFINE SYMBOL region_z_hi = -1 DEFINE SYMBOL limits_z = ($region_z_lo):($region_z_hi) !-> DEFINE SYMBOL limits_z = -1:-1 DEFINE SYMBOL region_z = Z=($region_z_lo):($region_z_hi) !-> DEFINE SYMBOL region_z = Z=-1:-1 IF `($region_z_hi) GE ($region_z_lo)` THEN !-> IF 1 THEN DEFINE SYMBOL region_z_range = `($region_z_hi) - ($region_z_lo)` !-> DEFINE SYMBOL region_z_range = 0 ELSE ENDIF ENDIF IF ($add_region_z"0|*>1") THEN !-> IF 0 THEN ENDIF IF ($($region)_t_lo"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL region_t_lo = ($($region)_t_lo) !-> DEFINE SYMBOL region_t_lo = 14-Jan-2018 00:00 DEFINE SYMBOL region_t_hi = ($($region)_t_hi) !-> DEFINE SYMBOL region_t_hi = 14-Jan-2018 00:00 DEFINE SYMBOL limits_t \"($region_t_lo)\":\"($region_t_hi)\" !-> DEFINE SYMBOL limits_t \"14-Jan-2018 00:00\":\"14-Jan-2018 00:00\" DEFINE SYMBOL region_t T=\"($region_t_lo)\":\"($region_t_hi)\" !-> DEFINE SYMBOL region_t T=\"14-Jan-2018 00:00\":\"14-Jan-2018 00:00\" ENDIF IF ($add_region_t"0|*>1") THEN !-> IF 0 THEN ENDIF IF ($($region)_e_lo"0|*>1") THEN !-> IF 0 THEN ENDIF IF ($add_region_e"0|*>1") THEN !-> IF 0 THEN ENDIF IF ($region_x"0|*>1") THEN !-> IF 1 THEN IF ($region_y"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL region_xy = ($region_x),($region_y) !-> DEFINE SYMBOL region_xy = X=-8.8004:40.90999,Y=30.18:46.94 ELSE ENDIF ELSE ENDIF IF ($region_x"0|*>1") THEN !-> IF 1 THEN IF ($region_z"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL region_xz = ($region_x),($region_z) !-> DEFINE SYMBOL region_xz = X=-8.8004:40.90999,Z=-1:-1 ELSE ENDIF ELSE ENDIF IF ($region_x"0|*>1") THEN !-> IF 1 THEN IF ($region_t"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL region_xt = ($region_x),($region_t) !-> DEFINE SYMBOL region_xt = X=-8.8004:40.90999,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" ELSE ENDIF ELSE ENDIF IF ($region_y"0|*>1") THEN !-> IF 1 THEN IF ($region_z"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL region_yz = ($region_y),($region_z) !-> DEFINE SYMBOL region_yz = Y=30.18:46.94,Z=-1:-1 ELSE ENDIF ELSE ENDIF IF ($region_y"0|*>1") THEN !-> IF 1 THEN IF ($region_t"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL region_yt = ($region_y),($region_t) !-> DEFINE SYMBOL region_yt = Y=30.18:46.94,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" ELSE ENDIF ELSE ENDIF IF ($region_z"0|*>1") THEN !-> IF 1 THEN IF ($region_t"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL region_zt = ($region_z),($region_t) !-> DEFINE SYMBOL region_zt = Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" ELSE ENDIF ELSE ENDIF IF ($region_xy"0|*>1") THEN !-> IF 1 THEN IF ($region_z"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL region_xyz = ($region_xy),($region_z) !-> DEFINE SYMBOL region_xyz = X=-8.8004:40.90999,Y=30.18:46.94,Z=-1:-1 ELSE ENDIF ELSE ENDIF IF ($region_xy"0|*>1") THEN !-> IF 1 THEN IF ($region_t"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL region_xyt = ($region_xy),($region_t) !-> DEFINE SYMBOL region_xyt = X=-8.8004:40.90999,Y=30.18:46.94,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" ELSE ENDIF ELSE ENDIF IF ($region_xz"0|*>1") THEN !-> IF 1 THEN IF ($region_t"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL region_xzt = ($region_xz),($region_t) !-> DEFINE SYMBOL region_xzt = X=-8.8004:40.90999,Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" ELSE ENDIF ELSE ENDIF IF ($region_yz"0|*>1") THEN !-> IF 1 THEN IF ($region_t"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL region_yzt = ($region_yz),($region_t) !-> DEFINE SYMBOL region_yzt = Y=30.18:46.94,Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" ELSE ENDIF ELSE ENDIF IF ($region_xyz"0|*>1") THEN !-> IF 1 THEN IF ($region_t"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL region_xyzt = ($region_xyz),($region_t) !-> DEFINE SYMBOL region_xyzt = X=-8.8004:40.90999,Y=30.18:46.94,Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" ELSE ENDIF ELSE ENDIF IF ($region_xyzt"0|*>1") THEN !-> IF 1 THEN IF ($region_e"0|*>1") THEN !-> IF 0 THEN ELSE DEFINE SYMBOL region_xyzte = ($region_xyzt) !-> DEFINE SYMBOL region_xyzte = X=-8.8004:40.90999,Y=30.18:46.94,Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" ENDIF ELSE ENDIF DEFINE SYMBOL region_full = ($region_xyzte) !-> DEFINE SYMBOL region_full = X=-8.8004:40.90999,Y=30.18:46.94,Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" IF ($region_x"0|*>1") THEN DEFINE SYMBOL region_($num)_x = ($region_x) !-> IF 1 THEN DEFINE SYMBOL region_0_x = X=-8.8004:40.90999 !-> DEFINE SYMBOL region_0_x = X=-8.8004:40.90999 IF ($region_y"0|*>1") THEN DEFINE SYMBOL region_($num)_y = ($region_y) !-> IF 1 THEN DEFINE SYMBOL region_0_y = Y=30.18:46.94 !-> DEFINE SYMBOL region_0_y = Y=30.18:46.94 IF ($region_z"0|*>1") THEN DEFINE SYMBOL region_($num)_z = ($region_z) !-> IF 1 THEN DEFINE SYMBOL region_0_z = Z=-1:-1 !-> DEFINE SYMBOL region_0_z = Z=-1:-1 IF ($region_t"0|*>1") THEN DEFINE SYMBOL region_($num)_t = ($region_t) !-> IF 1 THEN DEFINE SYMBOL region_0_t = T="14-Jan-2018 00:00":"14-Jan-2018 00:00" !-> DEFINE SYMBOL region_0_t = T="14-Jan-2018 00:00":"14-Jan-2018 00:00" IF ($region_xt"0|*>1") THEN DEFINE SYMBOL region_($num)_xt = ($region_xt) !-> IF 1 THEN DEFINE SYMBOL region_0_xt = X=-8.8004:40.90999,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" !-> DEFINE SYMBOL region_0_xt = X=-8.8004:40.90999,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" IF ($region_xy"0|*>1") THEN DEFINE SYMBOL region_($num)_xy = ($region_xy) !-> IF 1 THEN DEFINE SYMBOL region_0_xy = X=-8.8004:40.90999,Y=30.18:46.94 !-> DEFINE SYMBOL region_0_xy = X=-8.8004:40.90999,Y=30.18:46.94 IF ($region_xz"0|*>1") THEN DEFINE SYMBOL region_($num)_xz = ($region_xz) !-> IF 1 THEN DEFINE SYMBOL region_0_xz = X=-8.8004:40.90999,Z=-1:-1 !-> DEFINE SYMBOL region_0_xz = X=-8.8004:40.90999,Z=-1:-1 IF ($region_yt"0|*>1") THEN DEFINE SYMBOL region_($num)_yt = ($region_yt) !-> IF 1 THEN DEFINE SYMBOL region_0_yt = Y=30.18:46.94,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" !-> DEFINE SYMBOL region_0_yt = Y=30.18:46.94,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" IF ($region_yz"0|*>1") THEN DEFINE SYMBOL region_($num)_yz = ($region_yz) !-> IF 1 THEN DEFINE SYMBOL region_0_yz = Y=30.18:46.94,Z=-1:-1 !-> DEFINE SYMBOL region_0_yz = Y=30.18:46.94,Z=-1:-1 IF ($region_zt"0|*>1") THEN DEFINE SYMBOL region_($num)_zt = ($region_zt) !-> IF 1 THEN DEFINE SYMBOL region_0_zt = Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" !-> DEFINE SYMBOL region_0_zt = Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" IF ($region_0_t_lo"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL t_lab_lo = ($region_0_t_lo) !-> DEFINE SYMBOL t_lab_lo = 14-Jan-2018 00:00 LET iz = STRINDEX("($region_0_t_lo)", " 00:00:00") !-> DEFINE VARIABLE iz = STRINDEX("14-Jan-2018 00:00", " 00:00:00") IF `iz GT 0` THEN !-> IF 0 THEN ELSE LET iz = STRINDEX("($region_0_t_lo)", ":00:00") !-> DEFINE VARIABLE iz = STRINDEX("14-Jan-2018 00:00", ":00:00") IF `iz GT 0` THEN DEFINE SYMBOL t_lab_lo = `SUBSTRING("($region_0_t_lo)", 1, iz-1)` !-> IF 0 THEN DEFINE SYMBOL t_lab_lo = `SUBSTRING("14-Jan-2018 00:00", 1, iz-1)` ENDIF ENDIF IF ($region_0_t_hi"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL t_lab_hi = ($region_0_t_hi) !-> DEFINE SYMBOL t_lab_hi = 14-Jan-2018 00:00 LET iz = STRINDEX("($region_0_t_hi)", " 00:00:00") !-> DEFINE VARIABLE iz = STRINDEX("14-Jan-2018 00:00", " 00:00:00") IF `iz GT 0` THEN !-> IF 0 THEN ELSE LET iz = STRINDEX("($region_0_t_hi)", ":00:00") !-> DEFINE VARIABLE iz = STRINDEX("14-Jan-2018 00:00", ":00:00") IF `iz GT 0` THEN DEFINE SYMBOL t_lab_hi = `SUBSTRING("($region_0_t_hi)", 1, iz-1)` !-> IF 0 THEN DEFINE SYMBOL t_lab_hi = `SUBSTRING("14-Jan-2018 00:00", 1, iz-1)` ENDIF ENDIF IF ($region_full"1|*>0") THEN !-> IF 0 THEN ENDIF ! Exit_GO IF `($region_x_lo) LT ($ferret_curv_lon_min)` THEN !-> IF 0 THEN ENDIF IF `($region_x_hi) GT ($ferret_curv_lon_max)` THEN !-> IF 0 THEN ENDIF IF `($hvlimits_curvi"0|*>1") EQ 0` THEN !-> IF 1 THEN DEFINE SYMBOL hvlimits_curvi = /HLIM=($region_0_x_lo):($region_0_x_hi)/VLIM=($region_0_y_lo):($region_0_y_hi) !-> DEFINE SYMBOL hvlimits_curvi = /HLIM=-8.8004:40.91/VLIM=30.1809:46.94 DEFINE SYMBOL ferret_curvi_quals = ($hvlimits_curvi) !-> DEFINE SYMBOL ferret_curvi_quals = /HLIM=-8.8004:40.91/VLIM=30.1809:46.94 ENDIF IF `($constraint_0_lhs"0|Curv_to_Rect_Regridding>1|*>0")` THEN !-> IF 0 THEN ENDIF GO LAS_initialize_region ($num) !-> GO LAS_initialize_region 0 ! Enter_GO LAS_initialize_region 0 DEFINE SYMBOL num ($1"0") !-> DEFINE SYMBOL num 0 DEFINE SYMBOL region_name data_($num)_region !-> DEFINE SYMBOL region_name data_0_region DEFINE SYMBOL region ($($region_name)"region_0") !-> DEFINE SYMBOL region region_0 DEFINE SYMBOL region region_($num) !-> DEFINE SYMBOL region region_0 IF ($($region)_x_lo"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL region_x_lo = `INT(100000 * ($($region)_x_lo)) / 100000` !-> DEFINE SYMBOL region_x_lo = -8.8004 DEFINE SYMBOL region_x_hi = `INT(100000 * ($($region)_x_hi)) / 100000` !-> DEFINE SYMBOL region_x_hi = 40.90999 DEFINE SYMBOL limits_x = ($region_x_lo):($region_x_hi) !-> DEFINE SYMBOL limits_x = -8.8004:40.90999 DEFINE SYMBOL limits_x_m360 = `($region_x_lo)-360`:`($region_x_hi)-360` !-> DEFINE SYMBOL limits_x_m360 = -368.8004:-319.09001 DEFINE SYMBOL limits_x_p360 = `($region_x_lo)+360`:`($region_x_hi)+360` !-> DEFINE SYMBOL limits_x_p360 = 351.1996:400.90999 DEFINE SYMBOL region_x = X=($region_x_lo):($region_x_hi) !-> DEFINE SYMBOL region_x = X=-8.8004:40.90999 DEFINE SYMBOL region_x_m360 X=`($region_x_lo)-360`:`($region_x_hi)-360` !-> DEFINE SYMBOL region_x_m360 X=-368.8004:-319.09001 DEFINE SYMBOL region_x_p360 X=`($region_x_lo)+360`:`($region_x_hi)+360` !-> DEFINE SYMBOL region_x_p360 X=351.1996:400.90999 IF `($region_x_hi) GE ($region_x_lo)` THEN !-> IF 1 THEN DEFINE SYMBOL region_x_range = `($region_x_hi) - ($region_x_lo)` !-> DEFINE SYMBOL region_x_range = 49.71039 ELSE ENDIF ENDIF IF ($($region)_y_lo"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL region_y_lo = `INT(1000 * ($($region)_y_lo)) / 1000` !-> DEFINE SYMBOL region_y_lo = 30.18 DEFINE SYMBOL region_y_hi = `INT(1000 * ($($region)_y_hi)) / 1000` !-> DEFINE SYMBOL region_y_hi = 46.94 DEFINE SYMBOL limits_y = ($region_y_lo):($region_y_hi) !-> DEFINE SYMBOL limits_y = 30.18:46.94 DEFINE SYMBOL region_y = Y=($region_y_lo):($region_y_hi) !-> DEFINE SYMBOL region_y = Y=30.18:46.94 IF `($region_y_hi) GE ($region_y_lo)` THEN !-> IF 1 THEN DEFINE SYMBOL region_y_range = `($region_y_hi) - ($region_y_lo)` !-> DEFINE SYMBOL region_y_range = 16.76 ELSE ENDIF ENDIF IF ($($region)_z_lo"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL region_z_lo = ($($region)_z_lo) !-> DEFINE SYMBOL region_z_lo = -1 DEFINE SYMBOL region_z_hi = ($($region)_z_hi) !-> DEFINE SYMBOL region_z_hi = -1 DEFINE SYMBOL limits_z = ($region_z_lo):($region_z_hi) !-> DEFINE SYMBOL limits_z = -1:-1 DEFINE SYMBOL region_z = Z=($region_z_lo):($region_z_hi) !-> DEFINE SYMBOL region_z = Z=-1:-1 IF `($region_z_hi) GE ($region_z_lo)` THEN !-> IF 1 THEN DEFINE SYMBOL region_z_range = `($region_z_hi) - ($region_z_lo)` !-> DEFINE SYMBOL region_z_range = 0 ELSE ENDIF ENDIF IF ($add_region_z"0|*>1") THEN !-> IF 0 THEN ENDIF IF ($($region)_t_lo"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL region_t_lo = ($($region)_t_lo) !-> DEFINE SYMBOL region_t_lo = 14-Jan-2018 00:00 DEFINE SYMBOL region_t_hi = ($($region)_t_hi) !-> DEFINE SYMBOL region_t_hi = 14-Jan-2018 00:00 DEFINE SYMBOL limits_t \"($region_t_lo)\":\"($region_t_hi)\" !-> DEFINE SYMBOL limits_t \"14-Jan-2018 00:00\":\"14-Jan-2018 00:00\" DEFINE SYMBOL region_t T=\"($region_t_lo)\":\"($region_t_hi)\" !-> DEFINE SYMBOL region_t T=\"14-Jan-2018 00:00\":\"14-Jan-2018 00:00\" ENDIF IF ($add_region_t"0|*>1") THEN !-> IF 0 THEN ENDIF IF ($($region)_e_lo"0|*>1") THEN !-> IF 0 THEN ENDIF IF ($add_region_e"0|*>1") THEN !-> IF 0 THEN ENDIF IF ($region_x"0|*>1") THEN !-> IF 1 THEN IF ($region_y"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL region_xy = ($region_x),($region_y) !-> DEFINE SYMBOL region_xy = X=-8.8004:40.90999,Y=30.18:46.94 ELSE ENDIF ELSE ENDIF IF ($region_x"0|*>1") THEN !-> IF 1 THEN IF ($region_z"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL region_xz = ($region_x),($region_z) !-> DEFINE SYMBOL region_xz = X=-8.8004:40.90999,Z=-1:-1 ELSE ENDIF ELSE ENDIF IF ($region_x"0|*>1") THEN !-> IF 1 THEN IF ($region_t"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL region_xt = ($region_x),($region_t) !-> DEFINE SYMBOL region_xt = X=-8.8004:40.90999,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" ELSE ENDIF ELSE ENDIF IF ($region_y"0|*>1") THEN !-> IF 1 THEN IF ($region_z"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL region_yz = ($region_y),($region_z) !-> DEFINE SYMBOL region_yz = Y=30.18:46.94,Z=-1:-1 ELSE ENDIF ELSE ENDIF IF ($region_y"0|*>1") THEN !-> IF 1 THEN IF ($region_t"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL region_yt = ($region_y),($region_t) !-> DEFINE SYMBOL region_yt = Y=30.18:46.94,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" ELSE ENDIF ELSE ENDIF IF ($region_z"0|*>1") THEN !-> IF 1 THEN IF ($region_t"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL region_zt = ($region_z),($region_t) !-> DEFINE SYMBOL region_zt = Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" ELSE ENDIF ELSE ENDIF IF ($region_xy"0|*>1") THEN !-> IF 1 THEN IF ($region_z"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL region_xyz = ($region_xy),($region_z) !-> DEFINE SYMBOL region_xyz = X=-8.8004:40.90999,Y=30.18:46.94,Z=-1:-1 ELSE ENDIF ELSE ENDIF IF ($region_xy"0|*>1") THEN !-> IF 1 THEN IF ($region_t"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL region_xyt = ($region_xy),($region_t) !-> DEFINE SYMBOL region_xyt = X=-8.8004:40.90999,Y=30.18:46.94,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" ELSE ENDIF ELSE ENDIF IF ($region_xz"0|*>1") THEN !-> IF 1 THEN IF ($region_t"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL region_xzt = ($region_xz),($region_t) !-> DEFINE SYMBOL region_xzt = X=-8.8004:40.90999,Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" ELSE ENDIF ELSE ENDIF IF ($region_yz"0|*>1") THEN !-> IF 1 THEN IF ($region_t"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL region_yzt = ($region_yz),($region_t) !-> DEFINE SYMBOL region_yzt = Y=30.18:46.94,Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" ELSE ENDIF ELSE ENDIF IF ($region_xyz"0|*>1") THEN !-> IF 1 THEN IF ($region_t"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL region_xyzt = ($region_xyz),($region_t) !-> DEFINE SYMBOL region_xyzt = X=-8.8004:40.90999,Y=30.18:46.94,Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" ELSE ENDIF ELSE ENDIF IF ($region_xyzt"0|*>1") THEN !-> IF 1 THEN IF ($region_e"0|*>1") THEN !-> IF 0 THEN ELSE DEFINE SYMBOL region_xyzte = ($region_xyzt) !-> DEFINE SYMBOL region_xyzte = X=-8.8004:40.90999,Y=30.18:46.94,Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" ENDIF ELSE ENDIF DEFINE SYMBOL region_full = ($region_xyzte) !-> DEFINE SYMBOL region_full = X=-8.8004:40.90999,Y=30.18:46.94,Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" IF ($region_x"0|*>1") THEN DEFINE SYMBOL region_($num)_x = ($region_x) !-> IF 1 THEN DEFINE SYMBOL region_0_x = X=-8.8004:40.90999 !-> DEFINE SYMBOL region_0_x = X=-8.8004:40.90999 IF ($region_y"0|*>1") THEN DEFINE SYMBOL region_($num)_y = ($region_y) !-> IF 1 THEN DEFINE SYMBOL region_0_y = Y=30.18:46.94 !-> DEFINE SYMBOL region_0_y = Y=30.18:46.94 IF ($region_z"0|*>1") THEN DEFINE SYMBOL region_($num)_z = ($region_z) !-> IF 1 THEN DEFINE SYMBOL region_0_z = Z=-1:-1 !-> DEFINE SYMBOL region_0_z = Z=-1:-1 IF ($region_t"0|*>1") THEN DEFINE SYMBOL region_($num)_t = ($region_t) !-> IF 1 THEN DEFINE SYMBOL region_0_t = T="14-Jan-2018 00:00":"14-Jan-2018 00:00" !-> DEFINE SYMBOL region_0_t = T="14-Jan-2018 00:00":"14-Jan-2018 00:00" IF ($region_xt"0|*>1") THEN DEFINE SYMBOL region_($num)_xt = ($region_xt) !-> IF 1 THEN DEFINE SYMBOL region_0_xt = X=-8.8004:40.90999,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" !-> DEFINE SYMBOL region_0_xt = X=-8.8004:40.90999,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" IF ($region_xy"0|*>1") THEN DEFINE SYMBOL region_($num)_xy = ($region_xy) !-> IF 1 THEN DEFINE SYMBOL region_0_xy = X=-8.8004:40.90999,Y=30.18:46.94 !-> DEFINE SYMBOL region_0_xy = X=-8.8004:40.90999,Y=30.18:46.94 IF ($region_xz"0|*>1") THEN DEFINE SYMBOL region_($num)_xz = ($region_xz) !-> IF 1 THEN DEFINE SYMBOL region_0_xz = X=-8.8004:40.90999,Z=-1:-1 !-> DEFINE SYMBOL region_0_xz = X=-8.8004:40.90999,Z=-1:-1 IF ($region_yt"0|*>1") THEN DEFINE SYMBOL region_($num)_yt = ($region_yt) !-> IF 1 THEN DEFINE SYMBOL region_0_yt = Y=30.18:46.94,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" !-> DEFINE SYMBOL region_0_yt = Y=30.18:46.94,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" IF ($region_yz"0|*>1") THEN DEFINE SYMBOL region_($num)_yz = ($region_yz) !-> IF 1 THEN DEFINE SYMBOL region_0_yz = Y=30.18:46.94,Z=-1:-1 !-> DEFINE SYMBOL region_0_yz = Y=30.18:46.94,Z=-1:-1 IF ($region_zt"0|*>1") THEN DEFINE SYMBOL region_($num)_zt = ($region_zt) !-> IF 1 THEN DEFINE SYMBOL region_0_zt = Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" !-> DEFINE SYMBOL region_0_zt = Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" IF ($region_0_t_lo"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL t_lab_lo = ($region_0_t_lo) !-> DEFINE SYMBOL t_lab_lo = 14-Jan-2018 00:00 LET iz = STRINDEX("($region_0_t_lo)", " 00:00:00") !-> DEFINE VARIABLE iz = STRINDEX("14-Jan-2018 00:00", " 00:00:00") IF `iz GT 0` THEN !-> IF 0 THEN ELSE LET iz = STRINDEX("($region_0_t_lo)", ":00:00") !-> DEFINE VARIABLE iz = STRINDEX("14-Jan-2018 00:00", ":00:00") IF `iz GT 0` THEN DEFINE SYMBOL t_lab_lo = `SUBSTRING("($region_0_t_lo)", 1, iz-1)` !-> IF 0 THEN DEFINE SYMBOL t_lab_lo = `SUBSTRING("14-Jan-2018 00:00", 1, iz-1)` ENDIF ENDIF IF ($region_0_t_hi"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL t_lab_hi = ($region_0_t_hi) !-> DEFINE SYMBOL t_lab_hi = 14-Jan-2018 00:00 LET iz = STRINDEX("($region_0_t_hi)", " 00:00:00") !-> DEFINE VARIABLE iz = STRINDEX("14-Jan-2018 00:00", " 00:00:00") IF `iz GT 0` THEN !-> IF 0 THEN ELSE LET iz = STRINDEX("($region_0_t_hi)", ":00:00") !-> DEFINE VARIABLE iz = STRINDEX("14-Jan-2018 00:00", ":00:00") IF `iz GT 0` THEN DEFINE SYMBOL t_lab_hi = `SUBSTRING("($region_0_t_hi)", 1, iz-1)` !-> IF 0 THEN DEFINE SYMBOL t_lab_hi = `SUBSTRING("14-Jan-2018 00:00", 1, iz-1)` ENDIF ENDIF IF ($region_full"1|*>0") THEN !-> IF 0 THEN ENDIF ! Exit_GO DEFINE SYMBOL check_linear = 1 IF ` ($operation_ID"0|Plot_vector>1|*>0") AND ($num) GT 0` THEN DEFINE SYMBOL check_linear = 0 !-> IF 0 THEN DEFINE SYMBOL check_linear = 0 IF `($ferret_linear_coords_file"0|same_as_infile>1|*>0")` THEN CANCEL SYMBOL ferret_linear_coords_file !-> IF 0 THEN CANCEL SYMBOL ferret_linear_coords_file IF `($ferret_linear_coords_file"0|*>1") AND ($check_linear)` THEN !-> IF 0 THEN ELSE GO get_curv_coord_bbox.jnl ! Enter_GO get_curv_coord_bbox.jnl IF ($curv_coord_bbox_done($num)"0") THEN EXIT/SCRIPT !-> IF 0 THEN EXIT/SCRIPT DEFINE SYMBOL curv_coord_bbox_done($num) = 1 !-> DEFINE SYMBOL curv_coord_bbox_done0 = 1 IF `($region_x_lo"-999") EQ -999` THEN !-> IF 0 THEN ENDIF IF `($region_y_lo"-999") EQ -999` THEN !-> IF 0 THEN ENDIF DEFINE SYMBOL ferret_curv_lon_min = `($ferret_curvi_coord_lon)[x=@min,y=@min]` !-> IF 0 THEN DEFINE SYMBOL ferret_curv_lon_min = `'LON'[x=@min,y=@min]` DEFINE SYMBOL ferret_curv_lon_max = `($ferret_curvi_coord_lon)[x=@max,y=@max]` !-> IF 0 THEN DEFINE SYMBOL ferret_curv_lon_max = `'LON'[x=@max,y=@max]` DEFINE SYMBOL ferret_curv_lat_min = `($ferret_curvi_coord_lat)[x=@min,y=@min]` !-> IF 1 THEN DEFINE SYMBOL ferret_curv_lat_min = `'LAT'[x=@min,y=@min]` !-> DEFINE SYMBOL ferret_curv_lat_min = `'LAT'[x=@min,y=@min]` !-> DEFINE SYMBOL ferret_curv_lat_min = 30.18092727661133 DEFINE SYMBOL ferret_curv_lat_max = `($ferret_curvi_coord_lat)[x=@max,y=@max]` !-> IF 1 THEN DEFINE SYMBOL ferret_curv_lat_max = `'LAT'[x=@max,y=@max]` !-> DEFINE SYMBOL ferret_curv_lat_max = `'LAT'[x=@max,y=@max]` !-> DEFINE SYMBOL ferret_curv_lat_max = 47.27764511108398 LET ncurv_x = `($ferret_curvi_coord_lon),RETURN=isize` !-> DEFINE VARIABLE ncurv_x = 2500 LET ncurv_y = `($ferret_curvi_coord_lon),RETURN=jsize` !-> DEFINE VARIABLE ncurv_y = 752 LET del_x = (($ferret_curv_lon_max) - (($ferret_curv_lon_min)) )/(ncurv_x/2) !-> DEFINE VARIABLE del_x = (41.92491149902344 - (-8.800444602966309) )/(ncurv_x/2) LET del_y = (($ferret_curv_lat_max) - (($ferret_curv_lat_min)) )/(ncurv_y/2) !-> DEFINE VARIABLE del_y = (47.27764511108398 - (30.18092727661133) )/(ncurv_y/2) IF ($ferret_curv_lon_min"0|*>1") THEN !-> IF 1 THEN LET ndel_x = `0.5*ABS(($ferret_curv_lon_min) - ($ferret_curv_lon_max))` !-> DEFINE VARIABLE ndel_x = 25.36267805099487 LET ndel_y = `0.5*ABS(($ferret_curv_lat_min) - ($ferret_curv_lat_max))` !-> DEFINE VARIABLE ndel_y = 8.548358917236323 LET xcurvdiff = ABS(($ferret_curv_lon_max) - (($ferret_curv_lon_min)) ) !-> DEFINE VARIABLE xcurvdiff = ABS(41.92491149902344 - (-8.800444602966309) ) LET xregdiff = ABS(($region_x_hi) - (($region_x_lo))) !-> DEFINE VARIABLE xregdiff = ABS(40.90999 - (-8.8004)) LET ycurvdiff = ABS(($ferret_curv_lat_max) - (($ferret_curv_lat_min)) ) !-> DEFINE VARIABLE ycurvdiff = ABS(47.27764511108398 - (30.18092727661133) ) LET yregdiff = ABS(($region_y_hi) - (($region_y_lo)) ) !-> DEFINE VARIABLE yregdiff = ABS(46.94 - (30.18) ) (ABS(ycurvdiff - yregdiff) LT ndel_y)` THEN !-> IF 1 THEN LET clon_imin = 1 LET clon_imax = ncurv_x LET clat_jmin = 1 LET clat_jmax = ncurv_y DEFINE SYMBOL clon_imin `clon_imin` !-> DEFINE SYMBOL clon_imin 1 DEFINE SYMBOL clon_imax `clon_imax` !-> DEFINE SYMBOL clon_imax 2500 DEFINE SYMBOL clat_jmin `clat_jmin` !-> DEFINE SYMBOL clat_jmin 1 DEFINE SYMBOL clat_jmax `clat_jmax` !-> DEFINE SYMBOL clat_jmax 752 GO cancel_temp_regions ! Enter_GO cancel_temp_regions IF ($remove_x_region"0|*>1") THEN !-> IF 0 THEN ENDIF IF ($remove_y_region"0|*>1") THEN !-> IF 0 THEN ENDIF IF ($region_sample"0|*>1") THEN !-> IF 0 THEN ENDIF EXIT ! Exit_GO EXIT/SCRIPT ! Exit_GO IF `($data_count) GT 1 AND ($num) GT 0 AND ($its_prop_prop_plot"0|*>1")` THEN !-> IF 0 THEN ENDIF GO LAS_set_strides_curvilinear.jnl ! Enter_GO LAS_set_strides_curvilinear.jnl IF `($ferret_subsample_t"1|0|1|true>1|false>0|*>1") EQ 0 AND ($ferret_view"|t>1|T>1|*>0")` THEN EXIT/SCRIPT !-> IF 0 THEN EXIT/SCRIPT IF ($its_autolev_animate"0|*>1") THEN EXIT/SCRIPT !-> IF 0 THEN EXIT/SCRIPT IF ($data_var_only"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL check_for_des = `($data_var_only)[d=($data_num)],RETURN=dsetpath` !-> DEFINE SYMBOL check_for_des = http://giotto.casaccia.enea.it:8080/thredds/dodsC/path_MITO ELSE ENDIF IF `STRINDEX("($check_for_des)", ".des") GT 0` THEN EXIT/SCRIPT !-> IF 0 THEN EXIT/SCRIPT STRINDEX( "($operation_ID)", "Grid_for_GE" ) EQ 0` THEN EXIT/SCRIPT !-> IF 0 THEN EXIT/SCRIPT IF `($xstride"0|1>0|*>1") + ($ystride"0|1>0|*>1") + ($zstride"0|1>0|*>1") + ($tstride"0|1>0|*>1") GT 0` THEN EXIT/SCRIPT !-> IF 0 THEN EXIT/SCRIPT LET maxpix = 600 ! default IF ($ferret_size"0|0.06667>1|*>0") THEN LET maxpix = 300 ! small !-> IF 0 THEN LET maxpix = 300 IF ($ferret_size"0|0.25>1|*>0") THEN LET maxpix = 500 ! medium !-> IF 0 THEN LET maxpix = 500 IF ($ferret_size"0|0.5>1|*>0") THEN LET maxpix = 600 ! default !-> IF 0 THEN LET maxpix = 600 IF ($ferret_size"0|0.8333>1|*>0") THEN LET maxpix = 700 ! large !-> IF 0 THEN LET maxpix = 700 IF `($ferret_google_plot"0|*>1")` THEN !-> IF 0 THEN ENDIF DEFINE SYMBOL memsize = ($FERRET_MEMORY"6.4")* 1.e6 !-> DEFINE SYMBOL memsize = 999999* 1.e6 LET pvar = ($expr1)($data_var)[d=($data_num)]($expr2) !-> DEFINE VARIABLE pvar = 'T'[d=1] IF ($region_zt"0|*>1") THEN LET pvar = ($expr1)($data_var)[d=($data_num),($region_zt)]($expr2) !-> IF 1 THEN LET pvar = 'T'[d=1,Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00"] !-> LET pvar = 'T'[d=1,Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00"] IF ($clon_imin"0|*>1") THEN !-> IF 1 THEN LET pvar = ($expr1)($data_var)[d=($data_num),i=($clon_imin):($clon_imax),j=($clat_jmin):($clat_jmax)]($expr2) !-> DEFINE VARIABLE pvar = 'T'[d=1,i=1:2500,j=1:752] LET pvar = ($expr1)($data_var)[d=($data_num),i=($clon_imin):($clon_imax),j=($clat_jmin):($clat_jmax),($region_zt)]($expr2) !-> IF 1 THEN LET pvar = 'T'[d=1,i=1:2500,j=1:752,Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00"] !-> LET pvar = 'T'[d=1,i=1:2500,j=1:752,Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00"] IF ($ferret_season_length"0|*>1") THEN !-> IF 0 THEN ENDIF ENDIF IF `($num"0")+1 EQ ($data_count)` THEN !-> IF 1 THEN LET ndims = 0 LET xsiz = `pvar,RETURN=isize` !-> DEFINE VARIABLE xsiz = 2500 IF `xsiz GT 1` THEN LET ndims = `ndims + 1` !-> IF 1 THEN LET ndims = `ndims + 1` !-> LET ndims = `ndims + 1` !-> DEFINE VARIABLE ndims = 1 LET ysiz = `pvar,RETURN=jsize` !-> DEFINE VARIABLE ysiz = 752 IF `ysiz GT 1` THEN LET ndims = `ndims + 1` !-> IF 1 THEN LET ndims = `ndims + 1` !-> LET ndims = `ndims + 1` !-> DEFINE VARIABLE ndims = 2 LET zsiz = `pvar,RETURN=ksize` !-> DEFINE VARIABLE zsiz = 1 IF `zsiz GT 1` THEN LET ndims = `ndims + 1` !-> IF 0 THEN LET ndims = `ndims + 1` LET tsiz = `pvar,RETURN=lsize` !-> DEFINE VARIABLE tsiz = 1 IF `tsiz GT 1` THEN LET ndims = `ndims + 1` !-> IF 0 THEN LET ndims = `ndims + 1` LET varsiz = xsiz* ysiz* zsiz* tsiz DEFINE SYMBOL stride_for_mem = `INT( 1+ varsiz/(.1*($memsize)) )` !-> DEFINE SYMBOL stride_for_mem = 1 IF `ndims EQ 2` THEN DEFINE SYMBOL stride_for_mem = `INT(($stride_for_mem)^0.5)` !-> IF 1 THEN DEFINE SYMBOL stride_for_mem = `INT(1^0.5)` !-> DEFINE SYMBOL stride_for_mem = `INT(1^0.5)` !-> DEFINE SYMBOL stride_for_mem = 1 IF `ndims EQ 3` THEN DEFINE SYMBOL stride_for_mem = `INT(($stride_for_mem)^0.33)` !-> IF 0 THEN DEFINE SYMBOL stride_for_mem = `INT(1^0.33)` IF `ndims EQ 4` THEN DEFINE SYMBOL stride_for_mem = `INT(($stride_for_mem)^0.25)` !-> IF 0 THEN DEFINE SYMBOL stride_for_mem = `INT(1^0.25)` ENDIF STRINDEX( "($operation_ID)", "_GE" ) EQ 0` THEN !-> IF 0 THEN ENDIF LET nx = 1 IF ($clon_imin"0|*>1") THEN !-> IF 1 THEN LET nx = ($clon_imax) - ($clon_imin) + 1 !-> DEFINE VARIABLE nx = 2500 - 1 + 1 ELSE ENDIF LET nx_orig = `nx` !-> DEFINE VARIABLE nx_orig = 2500 DEFINE SYMBOL grid_x_range = `($ferret_curv_lon_max) - ($ferret_curv_lon_min)` !-> DEFINE SYMBOL grid_x_range = 50.72535610198975 DEFINE SYMBOL grid_y_range = `($ferret_curv_lat_max) - ($ferret_curv_lat_min)` !-> DEFINE SYMBOL grid_y_range = 17.09671783447265 IF `STRLEN("($ferret_view)") EQ 2` THEN !-> IF 1 THEN LET ii = i[gx=($data_var)[d=($data_num)]] !-> DEFINE VARIABLE ii = i[gx='T'[d=1]] LET nx = ($clon_imax) - ($clon_imin) + 1 !-> DEFINE VARIABLE nx = 2500 - 1 + 1 let ixmax = ii[i=@max] LET jj = j[gy=($data_var)[d=($data_num)]] !-> DEFINE VARIABLE jj = j[gy='T'[d=1]] LET ny = ($clat_jmax) - ($clat_jmin) + 1 !-> DEFINE VARIABLE ny = 752 - 1 + 1 let jymax = jj[j=@max] IF `($ferret_curvi_coord_lat"0|*>1") + ($ferret_view"|xy>1|*>0") EQ 2 ` THEN !-> IF 1 THEN LET x_pct = ($region_x_range)/($grid_x_range) !-> DEFINE VARIABLE x_pct = 49.71039/50.72535610198975 LET pixsize = `nx*x_pct` !-> DEFINE VARIABLE pixsize = 2449.977379165706 IF `pixsize GT maxpix` THEN DEFINE SYMBOL xstride = `2*INT((pixsize/maxpix)+1)` !-> IF 1 THEN DEFINE SYMBOL xstride = `2*INT((pixsize/maxpix)+1)` !-> DEFINE SYMBOL xstride = `2*INT((pixsize/maxpix)+1)` !-> DEFINE SYMBOL xstride = 10 DEFINE SYMBOL xstride = `MAX(($xstride"1"), ($stride_for_mem"1"))` !-> DEFINE SYMBOL xstride = 10 IF `($xstride"0") GT 1` THEN !-> IF 1 THEN LET rem = ( (($clon_imin)/($xstride)) - int(($clon_imin)/($xstride)) )* ($xstride) !-> DEFINE VARIABLE rem = ( (1/10) - int(1/10) )* 10 DEFINE SYMBOL xoff = /OFFSET=`INT(($xstride) - rem)` !-> DEFINE SYMBOL xoff = /OFFSET=9 IF `rem EQ 0` THEN CANCEL SYMBOL xoff !-> IF 0 THEN CANCEL SYMBOL xoff IF `($clon_imin) EQ 1` THEN CANCEL SYMBOL xoff !-> IF 1 THEN CANCEL SYMBOL xoff !-> CANCEL SYMBOL xoff SET AXIS/STRIDE=($xstride)($xoff) `($data_var)[d=($data_num)],RETURN=xaxis` !-> SET AXIS/STRIDE=10 JX LET x_strided_var = ($data_var)[d=($data_num)] !-> DEFINE VARIABLE x_strided_var = 'T'[d=1] DEFINE SYMBOL clon_imin = `MAX(1, INT(($clon_imin)/($xstride)) )` !-> DEFINE SYMBOL clon_imin = 1 DEFINE SYMBOL clon_imax = `MIN (ixmax, INT(($clon_imax)/($xstride)) )` !-> DEFINE SYMBOL clon_imax = 250 DEFINE SYMBOL clon_imax = `($clon_imax)-($xstride)` !-> IF 1 THEN DEFINE SYMBOL clon_imax = `250-10` !-> DEFINE SYMBOL clon_imax = `250-10` !-> DEFINE SYMBOL clon_imax = 240 ENDIF DEFINE SYMBOL qualifiers = ($qualifiers)/HLIM=`($region_x_lo)`:`($region_x_hi)` !-> IF 0 THEN DEFINE SYMBOL qualifiers = /HLIM=`-8.8004`:`40.90999` LET y_pct = ($region_y_range)/($grid_y_range) !-> DEFINE VARIABLE y_pct = 16.76/17.09671783447265 LET pixsize = `ny*y_pct` !-> DEFINE VARIABLE pixsize = 737.1894489939541 IF `2*pixsize GT maxpix` THEN DEFINE SYMBOL ystride = `2*INT((pixsize/maxpix)+1)` !-> IF 1 THEN DEFINE SYMBOL ystride = `2*INT((pixsize/maxpix)+1)` !-> DEFINE SYMBOL ystride = `2*INT((pixsize/maxpix)+1)` !-> DEFINE SYMBOL ystride = 4 DEFINE SYMBOL ystride = `MAX(($ystride"1"), ($stride_for_mem"1"))` !-> DEFINE SYMBOL ystride = 4 IF `($ystride"0") GT 1` THEN !-> IF 1 THEN LET rem = ( (($clat_jmin)/($ystride)) - int(($clat_jmin)/($ystride)) )* ($ystride) !-> DEFINE VARIABLE rem = ( (1/4) - int(1/4) )* 4 DEFINE SYMBOL yoff = /OFFSET=`INT(($ystride) - rem)` !-> DEFINE SYMBOL yoff = /OFFSET=3 IF `rem EQ 0` THEN CANCEL SYMBOL yoff !-> IF 0 THEN CANCEL SYMBOL yoff SET AXIS/STRIDE=($ystride)($yoff) `($data_var)[d=($data_num)],RETURN=yaxis` !-> SET AXIS/STRIDE=4/OFFSET=3 IY LET y_strided_var = ($data_var)[d=($data_num)] !-> DEFINE VARIABLE y_strided_var = 'T'[d=1] DEFINE SYMBOL clat_jmin = `MAX(1, INT(($clat_jmin)/($ystride)) )` !-> DEFINE SYMBOL clat_jmin = 1 DEFINE SYMBOL clat_jmax = `MIN(jymax, INT(($clat_jmax)/($ystride)) )` !-> DEFINE SYMBOL clat_jmax = 188 DEFINE SYMBOL clat_jmax = `($clat_jmax)-($ystride)` !-> IF 1 THEN DEFINE SYMBOL clat_jmax = `188-4` !-> DEFINE SYMBOL clat_jmax = `188-4` !-> DEFINE SYMBOL clat_jmax = 184 ENDIF ELIF `($ferret_curvi_coord_lat"0|*>1") AND (STRINDEX("($ferret_view)", "x") + STRINDEX("($ferret_view)", "y") GT 0) ` THEN !-> ELIF 1 THEN ENDIF ! xy or not ENDIF ! 2D plots IF `STRLEN("($ferret_view)") EQ 3 AND STRINDEX("($ferret_view)", "xy") GT 0` THEN !-> IF 0 THEN ENDIF ! GE placemarks IF `($num) GT 0 and (($xstride"0|1>0|*")+($ystride"0|1>0|*") GT 0)` THEN !-> IF 0 THEN ENDIF LET need_comma = 0 IF `($xstride"0|1>0|*>1") + ($ystride"0|1>0|*>1") + ($zstride"0|1>0|*>1") + ($tstride"0|1>0|*>1") GT 0` THEN !-> IF 1 THEN DEFINE SYMBOL n_left_labels = `($n_left_labels"0|*>1")+1` !-> DEFINE SYMBOL n_left_labels = 1 DEFINE SYMBOL upper_left_($n_left_labels) = Subsampled !-> DEFINE SYMBOL upper_left_1 = Subsampled IF `($xstride"0|1>0|*>1")` THEN !-> IF 1 THEN ($upper_left_($n_left_labels)) ($xstride) in X !-> DEFINE SYMBOL upper_left_1 = Subsampled 10 in X LET need_comma = 1 ENDIF IF `($ystride"0|1>0|*>1")` THEN !-> IF 1 THEN ($upper_left_($n_left_labels)), !-> IF 1 THEN DEFINE SYMBOL upper_left_1 = Subsampled 10 in X, !-> DEFINE SYMBOL upper_left_1 = Subsampled 10 in X, ($upper_left_($n_left_labels)) ($ystride) in Y !-> DEFINE SYMBOL upper_left_1 = Subsampled 10 in X, 4 in Y LET need_comma = 1 ENDIF IF `($zstride"0|1>0|*>1")` THEN !-> IF 0 THEN ENDIF IF `($tstride"0|1>0|*>1")` THEN !-> IF 0 THEN ENDIF DEFINE SYMBOL note_num = `($note_num"0") + 1` !-> DEFINE SYMBOL note_num = 1 DEFINE SYMBOL note_($note_num)_lab = ($upper_left_($n_left_labels)) !-> DEFINE SYMBOL note_1_lab = Subsampled 10 in X, 4 in Y ENDIF IF ($clon_imin"0|*>1") THEN !-> IF 1 THEN LET pvar = ($expr1)($data_var)[d=($data_num),i=($clon_imin):($clon_imax),j=($clat_jmin):($clat_jmax)]($expr2) !-> DEFINE VARIABLE pvar = 'T'[d=1,i=1:240,j=1:184] LET pvar = ($expr1)($data_var)[d=($data_num),i=($clon_imin):($clon_imax),j=($clat_jmin):($clat_jmax),($region_zt)]($expr2) !-> IF 1 THEN LET pvar = 'T'[d=1,i=1:240,j=1:184,Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00"] !-> LET pvar = 'T'[d=1,i=1:240,j=1:184,Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00"] IF ($ferret_season_length"0|*>1") THEN !-> IF 0 THEN ENDIF ENDIF ! Exit_GO ENDIF GO LAS_define_region_curvi_indices ! Enter_GO LAS_define_region_curvi_indices DEFINE SYMBOL region_x = i=($clon_imin):($clon_imax) !-> DEFINE SYMBOL region_x = i=1:240 DEFINE SYMBOL region_y = j=($clat_jmin):($clat_jmax) !-> DEFINE SYMBOL region_y = j=1:184 DEFINE SYMBOL region_xy = i=($clon_imin):($clon_imax),j=($clat_jmin):($clat_jmax) !-> DEFINE SYMBOL region_xy = i=1:240,j=1:184 IF ($region_t"0|*>1") THEN DEFINE SYMBOL region_xyt = ($region_xy),($region_t) !-> IF 1 THEN DEFINE SYMBOL region_xyt = i=1:240,j=1:184,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" !-> DEFINE SYMBOL region_xyt = i=1:240,j=1:184,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" IF ($region_z"0|*>1") THEN DEFINE SYMBOL region_xyz = ($region_xy),($region_z) !-> IF 1 THEN DEFINE SYMBOL region_xyz = i=1:240,j=1:184,Z=-1:-1 !-> DEFINE SYMBOL region_xyz = i=1:240,j=1:184,Z=-1:-1 IF ($region_zt"0|*>1") THEN DEFINE SYMBOL region_xyzt = ($region_xy),($region_zt) !-> IF 1 THEN DEFINE SYMBOL region_xyzt = i=1:240,j=1:184,Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" !-> DEFINE SYMBOL region_xyzt = i=1:240,j=1:184,Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" IF ($region_xt"0|*>1") THEN DEFINE SYMBOL region_xt = ($region_x),($region_t) !-> IF 1 THEN DEFINE SYMBOL region_xt = i=1:240,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" !-> DEFINE SYMBOL region_xt = i=1:240,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" IF ($region_xz"0|*>1") THEN DEFINE SYMBOL region_xz = ($region_x),($region_z) !-> IF 1 THEN DEFINE SYMBOL region_xz = i=1:240,Z=-1:-1 !-> DEFINE SYMBOL region_xz = i=1:240,Z=-1:-1 IF ($region_xzt"0|*>1") THEN DEFINE SYMBOL region_xzt = ($region_x),($region_zt) !-> IF 1 THEN DEFINE SYMBOL region_xzt = i=1:240,Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" !-> DEFINE SYMBOL region_xzt = i=1:240,Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" IF ($region_yt"0|*>1") THEN DEFINE SYMBOL region_yt = ($region_y),($region_t) !-> IF 1 THEN DEFINE SYMBOL region_yt = j=1:184,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" !-> DEFINE SYMBOL region_yt = j=1:184,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" IF ($region_yz"0|*>1") THEN DEFINE SYMBOL region_yz = ($region_y),($region_z) !-> IF 1 THEN DEFINE SYMBOL region_yz = j=1:184,Z=-1:-1 !-> DEFINE SYMBOL region_yz = j=1:184,Z=-1:-1 IF ($region_yzt"0|*>1") THEN DEFINE SYMBOL region_yzt = ($region_y),($region_zt) !-> IF 1 THEN DEFINE SYMBOL region_yzt = j=1:184,Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" !-> DEFINE SYMBOL region_yzt = j=1:184,Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" IF ($region_full"0|*>1") THEN DEFINE SYMBOL region_full = ($region_xyzt) !-> IF 1 THEN DEFINE SYMBOL region_full = i=1:240,j=1:184,Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" !-> DEFINE SYMBOL region_full = i=1:240,j=1:184,Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" IF ($region_x"0|*>1") THEN DEFINE SYMBOL region_($num)_x = ($region_x) !-> IF 1 THEN DEFINE SYMBOL region_0_x = i=1:240 !-> DEFINE SYMBOL region_0_x = i=1:240 IF ($region_y"0|*>1") THEN DEFINE SYMBOL region_($num)_y = ($region_y) !-> IF 1 THEN DEFINE SYMBOL region_0_y = j=1:184 !-> DEFINE SYMBOL region_0_y = j=1:184 IF ($region_z"0|*>1") THEN DEFINE SYMBOL region_($num)_z = ($region_z) !-> IF 1 THEN DEFINE SYMBOL region_0_z = Z=-1:-1 !-> DEFINE SYMBOL region_0_z = Z=-1:-1 IF ($region_t"0|*>1") THEN DEFINE SYMBOL region_($num)_t = ($region_t) !-> IF 1 THEN DEFINE SYMBOL region_0_t = T="14-Jan-2018 00:00":"14-Jan-2018 00:00" !-> DEFINE SYMBOL region_0_t = T="14-Jan-2018 00:00":"14-Jan-2018 00:00" IF ($region_xt"0|*>1") THEN DEFINE SYMBOL region_($num)_xt = ($region_xt) !-> IF 1 THEN DEFINE SYMBOL region_0_xt = i=1:240,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" !-> DEFINE SYMBOL region_0_xt = i=1:240,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" IF ($region_xy"0|*>1") THEN DEFINE SYMBOL region_($num)_xy = ($region_xy) !-> IF 1 THEN DEFINE SYMBOL region_0_xy = i=1:240,j=1:184 !-> DEFINE SYMBOL region_0_xy = i=1:240,j=1:184 IF ($region_xz"0|*>1") THEN DEFINE SYMBOL region_($num)_xz = ($region_xz) !-> IF 1 THEN DEFINE SYMBOL region_0_xz = i=1:240,Z=-1:-1 !-> DEFINE SYMBOL region_0_xz = i=1:240,Z=-1:-1 IF ($region_yt"0|*>1") THEN DEFINE SYMBOL region_($num)_yt = ($region_yt) !-> IF 1 THEN DEFINE SYMBOL region_0_yt = j=1:184,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" !-> DEFINE SYMBOL region_0_yt = j=1:184,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" IF ($region_yz"0|*>1") THEN DEFINE SYMBOL region_($num)_yz = ($region_yz) !-> IF 1 THEN DEFINE SYMBOL region_0_yz = j=1:184,Z=-1:-1 !-> DEFINE SYMBOL region_0_yz = j=1:184,Z=-1:-1 IF ($region_zt"0|*>1") THEN DEFINE SYMBOL region_($num)_zt = ($region_zt) !-> IF 1 THEN DEFINE SYMBOL region_0_zt = Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" !-> DEFINE SYMBOL region_0_zt = Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00" ! Exit_GO LET/TITLE="Longitude"/units=degrees xcoord = ($ferret_curvi_coord_lon)[d=($data_num)] !-> DEFINE VARIABLE/TITLE="Longitude"/units=degrees xcoord = 'LON'[d=1] LET/TITLE="Latitude"/units=degrees ycoord = ($ferret_curvi_coord_lat)[d=($data_num)] !-> DEFINE VARIABLE/TITLE="Latitude"/units=degrees ycoord = 'LAT'[d=1] IF ($ferret_view"|xy>1|*>0") THEN !-> IF 1 THEN GO LAS_set_curvi_plot_var ! Enter_GO LAS_set_curvi_plot_var DEFINE SYMBOL native_lab = Native Curvilinear Plot IF ($its_prop_prop_plot"0|*>1") THEN !-> IF 0 THEN ELSE IF `($curvi_note"0|*>1") EQ 0` THEN !-> IF 1 THEN DEFINE SYMBOL note_num = `($note_num"0") + 1` !-> DEFINE SYMBOL note_num = 2 DEFINE SYMBOL note_($note_num)_lab = ($native_lab) !-> DEFINE SYMBOL note_2_lab = Native Curvilinear Plot DEFINE SYMBOL curvi_note = 1 ENDIF IF ($ferret_annotations"0|*>1") THEN CANCEL SYMBOL native_lab !-> IF 1 THEN CANCEL SYMBOL native_lab !-> CANCEL SYMBOL native_lab ENDIF DEFINE SYMBOL native_curvilinear_xy = 1 IF `($ferret_lon_modulo"1|1|0|yes>1|no>0|*>0") AND ( ($num) GT 0 )` THEN !-> IF 0 THEN ENDIF ($ferret_curvi_coord_lon)[d=($data_num),i=($clon_imin):($clon_imax),j=($clat_jmin):($clat_jmax)] !-> DEFINE VARIABLE/TITLE="Longitude"/units=degrees xcoord = 'LON'[d=1,i=1:240,j=1:184] ($ferret_curvi_coord_lat)[d=($data_num),i=($clon_imin):($clon_imax),j=($clat_jmin):($clat_jmax)] !-> DEFINE VARIABLE/TITLE="Latitude"/units=degrees ycoord = 'LAT'[d=1,i=1:240,j=1:184] LET/d=($data_num) plot_var = ($data_var)[d=($data_num),i=($clon_imin):($clon_imax),j=($clat_jmin):($clat_jmax)] !-> DEFINE VARIABLE/d=1 plot_var = 'T'[d=1,i=1:240,j=1:184] ($data_var)[d=($data_num),($region_zt),i=($clon_imin):($clon_imax),j=($clat_jmin):($clat_jmax)] !-> IF 1 THEN LET/d=1 plot_var = 'T'[d=1,Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00",i=1:240,j=1:184] !-> LET/d=1 plot_var = 'T'[d=1,Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00",i=1:240,j=1:184] ($data_var)[d=($data_num),($region_($which_var)_zt),i=($clon_imin):($clon_imax),j=($clat_jmin):($clat_jmax)] !-> IF 1 THEN LET/d=1 plot_var = 'T'[d=1,Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00",i=1:240,j=1:184] !-> LET/d=1 plot_var = 'T'[d=1,Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00",i=1:240,j=1:184] DEFINE SYMBOL ferret_plot_base_var = ($data_var)[d=($data_num),i=($clon_imin):($clon_imax),j=($clat_jmin):($clat_jmax)] !-> DEFINE SYMBOL ferret_plot_base_var = 'T'[d=1,i=1:240,j=1:184] ($data_var)[d=($data_num),($region_zt),i=($clon_imin):($clon_imax),j=($clat_jmin):($clat_jmax)] !-> IF 1 THEN DEFINE SYMBOL ferret_plot_base_var = 'T'[d=1,Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00",i=1:240,j=1:184] !-> DEFINE SYMBOL ferret_plot_base_var = 'T'[d=1,Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00",i=1:240,j=1:184] ($data_var)[d=($data_num),($region_($which_var)_zt),i=($clon_imin):($clon_imax),j=($clat_jmin):($clat_jmax)] !-> IF 1 THEN DEFINE SYMBOL ferret_plot_base_var = 'T'[d=1,Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00",i=1:240,j=1:184] !-> DEFINE SYMBOL ferret_plot_base_var = 'T'[d=1,Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00",i=1:240,j=1:184] DEFINE SYMBOL ferret_plot_base_var_($which_var) ($ferret_plot_base_var) !-> DEFINE SYMBOL ferret_plot_base_var_0 'T'[d=1,Z=-1:-1,T="14-Jan-2018 00:00":"14-Jan-2018 00:00",i=1:240,j=1:184] DEFINE SYMBOL ferret_plot_var ($expr1)plot_var[d=($data_num)]($expr2), xcoord, ycoord !-> DEFINE SYMBOL ferret_plot_var plot_var[d=1] , xcoord, ycoord DEFINE SYMBOL ferret_plot_var_m360 ($expr1)plot_var[d=($data_num)]($expr2), xcoord-360, ycoord !-> DEFINE SYMBOL ferret_plot_var_m360 plot_var[d=1] , xcoord-360, ycoord DEFINE SYMBOL ferret_plot_var_p360 ($expr1)plot_var[d=($data_num)]($expr2), xcoord+360, ycoord !-> DEFINE SYMBOL ferret_plot_var_p360 plot_var[d=1] , xcoord+360, ycoord IF ($region_zt"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL ferret_plot_var ($expr1)plot_var[d=($data_num)]($expr2), xcoord, ycoord !-> DEFINE SYMBOL ferret_plot_var plot_var[d=1] , xcoord, ycoord DEFINE SYMBOL ferret_plot_var_m360 ($expr1)plot_var[d=($data_num)]($expr2), xcoord-360, ycoord !-> DEFINE SYMBOL ferret_plot_var_m360 plot_var[d=1] , xcoord-360, ycoord DEFINE SYMBOL ferret_plot_var_p360 ($expr1)plot_var[d=($data_num)]($expr2), xcoord+360, ycoord !-> DEFINE SYMBOL ferret_plot_var_p360 plot_var[d=1] , xcoord+360, ycoord ENDIF DEFINE SYMBOL ferret_plot_title "($expr1)($data_title)($expr2) ($data_units) ($native_lab)" !-> DEFINE SYMBOL ferret_plot_title " Temperature (degC) " IF ($expr3"0|*>1") THEN !-> IF 0 THEN ENDIF ! Exit_GO EXIT/SCRIPT ! Exit_GO ! Exit_GO IF ($data_0_analysis_label"0|*>1") THEN !-> IF 0 THEN ENDIF IF `($num)+1 EQ ($data_count)` THEN GO LAS_set_strides.jnl !-> IF 1 THEN GO LAS_set_strides.jnl !-> GO LAS_set_strides.jnl ! Enter_GO LAS_set_strides.jnl IF `($ferret_subsample_t"1|0|1|true>1|false>0|*>1") EQ 0 AND ($ferret_view"|t>1|T>1|*>0")` THEN EXIT/SCRIPT !-> IF 0 THEN EXIT/SCRIPT (STRINDEX( "($result_ferret_listing_type)", "netcdf" ) NE 0)` THEN EXIT/SCRIPT !-> IF 0 THEN EXIT/SCRIPT IF ($its_autolev_animate"0|*>1") THEN EXIT/SCRIPT !-> IF 0 THEN EXIT/SCRIPT IF ($ferret_curvi_coord_lat"0|0|*>1") THEN EXIT/SCRIPT !-> IF 1 THEN EXIT/SCRIPT !-> EXIT/SCRIPT ! Exit_GO IF `($no_native_strides_xy"0|*>1") AND ($set_ndx_strides"0|*>1") EQ 0` THEN !-> IF 0 THEN ENDIF GO LAS_initialize_var_levels ! Enter_GO LAS_initialize_var_levels IF ($ferret_fill_levels"0|*>1") THEN !-> IF 0 THEN ELSE IF ($ferret_contour_levels"0|*>1") THEN DEFINE SYMBOL ferret_fill_levels ($ferret_contour_levels) !-> IF 0 THEN DEFINE SYMBOL ferret_fill_levels ENDIF IF `($data_num) EQ 1` THEN !-> IF 1 THEN IF ($ferret_fill_levels"0|*>1") THEN DEFINE SYMBOL input_fill_levels = 1 !-> IF 0 THEN DEFINE SYMBOL input_fill_levels = 1 IF `STRLEN("($ferret_view)") GE 2` THEN !-> IF 1 THEN LET do_levels = `(STRINDEX("($operation_ID)", "Plot") GT 0) OR (STRINDEX("($operation_ID)", "zoom") GT 0) OR (STRINDEX("($operation_ID)", "poly") GT 0)` !-> DEFINE VARIABLE do_levels = 1 IF `do_levels` THEN GO LAS_auto_levels !-> IF 1 THEN GO LAS_auto_levels !-> GO LAS_auto_levels ! Enter_GO LAS_auto_levels LET memsize = 0.5* 1.e6 DEFINE SYMBOL op = `UPCASE("($operation_ID)")` !-> DEFINE SYMBOL op = PLOT_2D_XY_ZOOM IF `STRLEN("($ferret_view)") LT 2` THEN EXIT/SCRIPT !-> IF 0 THEN EXIT/SCRIPT IF `STRINDEX("($op)", "VECTOR") GT 0` THEN EXIT/SCRIPT !-> IF 0 THEN EXIT/SCRIPT STRINDEX ("($op)", "CRUISE_SUMMARY") EQ 0` THEN EXIT/SCRIPT !-> IF 0 THEN EXIT/SCRIPT IF `STRINDEX("($op)", "ANIMATION") GT 0` THEN EXIT/SCRIPT !-> IF 0 THEN EXIT/SCRIPT IF `($ferret_diff_var"1|*>0") AND STRINDEX("($op)", "COMPARE_PLOT") NE 0` THEN !-> IF 0 THEN ENDIF IF `($ferret_diff_var"1|*>0") AND ($its_gridded_scattered"0|*>1")` THEN !-> IF 0 THEN ENDIF IF ($ferret_fill_levels"0|posinteger>1|*>0" ) THEN !-> IF 0 THEN ENDIF DEFINE SYMBOL ferret_center_levels ($ferret_center_levels"0|1|TRUE>1|*>0") !-> DEFINE SYMBOL ferret_center_levels 0 IF ($ferret_fill_levels"0|*>1") THEN !-> IF 0 THEN ENDIF DEFINE SYMBOL ferret_fill_levels = ($num_fine_levels)v !-> DEFINE SYMBOL ferret_fill_levels = v DEFINE SYMBOL ferret_fill_levels = ($num_fine_levels)vc !-> IF 0 THEN DEFINE SYMBOL ferret_fill_levels = vc ! Exit_GO ENDIF ENDIF ! Exit_GO ! Exit_GO DEFINE SYMBOL variable_($1"0")_lab = ($data_title) ($data_units) !-> DEFINE SYMBOL variable_0_lab = Temperature (degC) IF `STRINDEX("($variable_($1"0")_lab)", "e=") GT 0` THEN !-> IF 0 THEN ENDIF IF `($its_prop_prop_plot"0|*>1") EQ 0` THEN !-> IF 1 THEN IF ($variable_lab"0|*>1") THEN !-> IF 0 THEN ELSE DEFINE SYMBOL variable_lab = ($data_title) ($data_units) !-> DEFINE SYMBOL variable_lab = Temperature (degC) ENDIF ENDIF IF `($its_prop_prop_plot"0|*>1")` THEN DEFINE SYMBOL variable_lab = ($data_title) ($data_units) !-> IF 0 THEN DEFINE SYMBOL variable_lab = Temperature (degC) ($itsa_vector_plot"0|*>1") EQ 0` THEN DEFINE SYMBOL qualifiers = ($qualifiers)/KEY=CONT !-> IF 1 THEN DEFINE SYMBOL qualifiers = /KEY=CONT !-> DEFINE SYMBOL qualifiers = /KEY=CONT IF ($ferret_expression"0|*>1") THEN GO LAS_expression !-> IF 0 THEN GO LAS_expression ! Exit_GO IF `($ferret_memory"25.6") LT 100` THEN SET MEM/SIZ=100 !-> IF 0 THEN SET MEM/SIZ=100 GO LAS_note_from_property ! Enter_GO LAS_note_from_property IF ($ferret_add_a_note"0|*>1") THEN !-> IF 0 THEN ENDIF ! Exit_GO ! Exit_GO IF ($error_status"0|*>1") THEN !-> IF 0 THEN ENDIF GO LAS_check_2d_region ! Enter_GO LAS_check_2d_region CANCEL SYMBOL region_small* LET/D=($data_num) the_plot_var_noregion = ($ferret_plot_var_noregion) !-> DEFINE VARIABLE/D=1 the_plot_var_noregion = 'T'[d=1] IF ($data_analysis_expr"0|*>1") THEN !-> IF 0 THEN ENDIF IF `($do_curvi_xy"0") OR ($native_curvilinear_xy"0")` THEN !-> IF 1 THEN IF `STRINDEX("($ferret_view)", "t") GT 0` THEN !-> IF 0 THEN ENDIF IF `STRINDEX("($ferret_view)", "z") GT 0` THEN !-> IF 0 THEN ENDIF IF `STRINDEX("($ferret_view)", "x") GT 0 AND ($region_x_range"-1") EQ 0` THEN !-> IF 0 THEN ENDIF IF `STRINDEX("($ferret_view)", "y") GT 0 AND ($region_y_range"-1") EQ 0` THEN !-> IF 0 THEN ENDIF ENDIF IF `($do_curvi_xy"0") AND ($native_curvilinear_xy"0")` THEN EXIT/SCRIPT !-> IF 1 THEN EXIT/SCRIPT !-> EXIT/SCRIPT ! Exit_GO IF ($error_status"0|ERROR>1") THEN !-> IF 0 THEN ENDIF DEFINE SYMBOL ferret_var_0 = ($ferret_plot_var) !-> DEFINE SYMBOL ferret_var_0 = plot_var[d=1] , xcoord, ycoord DEFINE SYMBOL ferret_title_0 = ($ferret_plot_title"($data_var)") !-> DEFINE SYMBOL ferret_title_0 = Temperature (degC) IF ($ferret_plot_var_m360"0|*>1") THEN DEFINE SYMBOL ferret_var_m360_0 = ($ferret_plot_var_m360) !-> IF 1 THEN DEFINE SYMBOL ferret_var_m360_0 = plot_var[d=1] , xcoord-360, ycoord !-> DEFINE SYMBOL ferret_var_m360_0 = plot_var[d=1] , xcoord-360, ycoord GO LAS_set_plot_qualifiers ! Enter_GO LAS_set_plot_qualifiers IF `STRLEN("($ferret_view)") EQ 1` THEN DEFINE SYMBOL oneDplot = 1 !-> IF 0 THEN DEFINE SYMBOL oneDplot = 1 IF `STRLEN("($ferret_view)") EQ 1 AND ($data_count"1") EQ 1` THEN DEFINE SYMBOL oneD_1var = 1 !-> IF 0 THEN DEFINE SYMBOL oneD_1var = 1 DEFINE SYMBOL twoDplot = 1 !-> IF 1 THEN DEFINE SYMBOL twoDplot = 1 !-> DEFINE SYMBOL twoDplot = 1 IF ($ferret_plot_key"0|0>1|nokey>1|*>0") THEN !-> IF 0 THEN ENDIF DEFINE SYMBOL nlinecolors = 8 SET MODE LINECOLORS:($nlinecolors) !-> SET MODE LINECOLORS:8 PPL COLOR,7,70,70,70 ! gray PPL COLOR,8,100,100,100 ! white LET has_t = ($fview"0|T>1|*>0") !-> DEFINE VARIABLE has_t = 0 IF `STRLEN("($fview)") EQ 2 AND STRINDEX("($fview)", "T") GT 0` THEN LET has_t = 1 !-> IF 0 THEN LET has_t = 1 IF `has_t AND ($ferret_use_graticules"1|none>0|notic>0|white>0|*>1)` THEN !-> IF 0 THEN ENDIF IF ($ferret_use_graticules"1|none>0|notic>0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL graticuleColor = black IF ($ferret_use_graticules"1|default>1|gray>1|*>0") THEN !-> IF 1 THEN DEFINE SYMBOL graticuleColor = 7 ELIF ($ferret_use_graticules"0|white>1|*>0") THEN !-> ELIF 0 THEN ENDIF SET MODE GRATICULE:(DASH,COLOR=($graticuleColor)) !-> SET MODE GRATICULE:(DASH,COLOR=7) ENDIF IF ($ferret_deg_min_sec"0|false>0|*>1") THEN GO LAS_set_deg_min_sec.jnl !-> IF 0 THEN GO LAS_set_deg_min_sec.jnl IF ($twoDplot"0|*>1") THEN !-> IF 1 THEN IF `($FERRET_VERSION"0") GE 6.2` THEN KEYMARK 1 ! annotate plot keys with the min and max !-> IF 1 THEN KEYMARK 1 !-> KEYMARK 1 IF `($ferret_key_annotate"1") EQ 0` THEN KEYMARK 0 ! override annotation with Ferret property !-> IF 0 THEN KEYMARK 0 IF ($ferret_contour_style"0|contour_lines>1|*>0") THEN !-> IF 0 THEN ELSE DEFINE SYMBOL qualifiers = ($qualifiers)/LEVELS=($ferret_fill_levels) !-> IF 1 THEN DEFINE SYMBOL qualifiers = /KEY=CONT/LEVELS=v !-> DEFINE SYMBOL qualifiers = /KEY=CONT/LEVELS=v ENDIF IF `($ferret_contour_style"0|*>1") EQ 0` THEN !-> IF 1 THEN DEFINE SYMBOL ferret_contour_style = ($ferret_fill_type"default|raster>raster|shade>raster|fill>default|contour>contour_lines|color_filled_plus_lines|*>default") !-> IF 1 THEN DEFINE SYMBOL ferret_contour_style = default !-> DEFINE SYMBOL ferret_contour_style = default ENDIF color_filled_contours>FILL|color_filled_plus_lines>FILL|contour_lines>CONTOUR|raster_plus_lines>SHADE") !-> DEFINE SYMBOL plot_type =FILL DEFINE SYMBOL shade_underlay = 0 IF ($plot_type"0|FILL>1|*>0) THEN DEFINE SYMBOL shade_underlay = 1 !-> IF 1 THEN DEFINE SYMBOL shade_underlay = 1 !-> DEFINE SYMBOL shade_underlay = 1 IF `($ferret_google_plot"0") EQ 0` THEN !-> IF 1 THEN ($shade_underlay"0")` THEN DEFINE SYMBOL shade_qualifiers = ($shade_qualifiers)/TRIM !-> IF 1 THEN DEFINE SYMBOL shade_qualifiers = /TRIM !-> DEFINE SYMBOL shade_qualifiers = /TRIM ENDIF IF ($shade_underlay"0") THEN DEFINE SYMBOL shade_qualifiers = ($shade_qualifiers)/LEVELS=($ferret_fill_levels) !-> IF 1 THEN DEFINE SYMBOL shade_qualifiers = /TRIM/LEVELS=v !-> DEFINE SYMBOL shade_qualifiers = /TRIM/LEVELS=v ($qualifiers)/PALETTE=($ferret_palette"rainbow|default>rainbow|*>*) !-> IF 0 THEN DEFINE SYMBOL qualifiers = /KEY=CONT/LEVELS=v/PALETTE=rainbow IF `($ferret_contour_style"0|*>1") EQ 0` THEN !-> IF 0 THEN ENDIF IF `($ferret_contour_style"0|default>1|raster>1|shade>1|color_filled_contours>1|fill>1|color_filled_plus_lines>1|contour_lines>1|raster_plus_lines>1|*>0") EQ 0` THEN !-> IF 0 THEN ENDIF IF `($ferret_contour_style"0|default>0|raster>0|shade>0|color_filled_contours>0|fill>0|color_filled_plus_lines>1|raster_plus_lines>1|*>0")` THEN !-> IF 0 THEN ENDIF IF ($ferret_key_centerlab"0|0|*>1") THEN DEFINE SYMBOL qualifiers = ($qualifiers)/KEY=CONT,CENT !-> IF 0 THEN DEFINE SYMBOL qualifiers = /KEY=CONT/LEVELS=v/KEY=CONT,CENT ENDIF ! end of options for twoDplot DEFINE SYMBOL line_drawn = `($oneDplot"0|*>1") OR ($itsa_vector_plot"0|*>1") OR ($plot_type"0|CONTOUR>1|*>0")` !-> IF 1 THEN DEFINE SYMBOL line_drawn = `0 OR 0 OR 0` !-> DEFINE SYMBOL line_drawn = `0 OR 0 OR 0` !-> DEFINE SYMBOL line_drawn = 0 sh sym ferret_line_color IF `($line_drawn"0") AND ($itsa_multi_lineplot"0|*>1") EQ 0` THEN !-> IF 0 THEN ENDIF ! skipped color setting if its a multi-line plot IF ($line_drawn) THEN !-> IF 0 THEN ENDIF ! end of options for plots drawn with lines IF ($oneDplot"0|*>1") THEN !-> IF 0 THEN ENDIF ! end of options for oneDplot, dependent axis scale setup CANCEL SYMBOL ferret_trend_line !-> IF 1 THEN CANCEL SYMBOL ferret_trend_line !-> CANCEL SYMBOL ferret_trend_line IF `($itsa_vector_plot"0|*>1") AND ($ferret_view"0|xy>1|*>0")` THEN !-> IF 0 THEN ENDIF ! end of XY vector plot settings. ! Exit_GO IF ($ferret_koppen_var_2"0|*>1") THEN !-> IF 0 THEN ENDIF IF ($native_curvilinear_xy"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL qualifiers = ($qualifiers)($ferret_curvi_quals) !-> DEFINE SYMBOL qualifiers = /KEY=CONT/LEVELS=v/HLIM=-8.8004:40.91/VLIM=30.1809:46.94 IF ($ferret_lon_modulo"1|1|0|yes>1|no>0|*>0") THEN DEFINE SYMBOL shade_qualifiers = ($shade_qualifiers)/MODULO !-> IF 1 THEN IF 1 THEN DEFINE SYMBOL shade_qualifiers = /TRIM/LEVELS=v/MODULO !-> IF 1 THEN DEFINE SYMBOL shade_qualifiers = /TRIM/LEVELS=v/MODULO !-> DEFINE SYMBOL shade_qualifiers = /TRIM/LEVELS=v/MODULO ENDIF IF `($its_GE"0|*>1") AND ($two_parter"0|*>1")` THEN GO setup_GE_2part.jnl !-> IF 0 THEN GO setup_GE_2part.jnl GO LAS_open_window ! Enter_GO LAS_open_window DEFINE SYMBOL set_window_quals = ($set_window_quals)/SIZE=($ferret_size"0.5") !-> IF 1 THEN DEFINE SYMBOL set_window_quals = /SIZE=.8333 !-> DEFINE SYMBOL set_window_quals = /SIZE=.8333 CANCEL MODE LOGO IF ($program_name"0|PyFerret>1|*>0") THEN SET TEXT/FONT=verdana !-> IF 0 THEN SET TEXT/FONT=verdana IF `($win_aspect"0|*>1") EQ 0` THEN DEFINE SYMBOL win_aspect = 1 !-> IF 1 THEN DEFINE SYMBOL win_aspect = 1 !-> DEFINE SYMBOL win_aspect = 1 IF `($ferret_view"|xy>1|xyt>1|*>0") AND ($its_prop_prop_plot"0|*>1") EQ 0` THEN !-> IF 1 THEN IF `($fview"1|t>0|*>1") AND ($region_x_range"0") NE 0` THEN DEFINE SYMBOL win_aspect = `($region_Y_range)/($region_X_range)` !-> IF 1 THEN DEFINE SYMBOL win_aspect = `16.76/49.71039` !-> DEFINE SYMBOL win_aspect = `16.76/49.71039` !-> DEFINE SYMBOL win_aspect = 0.3371528567770239 ENDIF IF `($win_aspect) LT 0.1` THEN DEFINE SYMBOL win_aspect = 0.1 !-> IF 0 THEN DEFINE SYMBOL win_aspect = 0.1 IF `($win_aspect) GT 10` THEN DEFINE SYMBOL win_aspect = 10 !-> IF 0 THEN DEFINE SYMBOL win_aspect = 10 IF ($ferret_set_aspect"1|default>1|no>0|yes>1|0|1") THEN !-> IF 1 THEN DEFINE SYMBOL set_window_quals = ($set_window_quals)/ASPECT = `($win_aspect)`:axis !-> IF 1 THEN DEFINE SYMBOL set_window_quals = /SIZE=.8333/ASPECT = `0.3371528567770239`:axis !-> DEFINE SYMBOL set_window_quals = /SIZE=.8333/ASPECT = `0.3371528567770239`:axis !-> DEFINE SYMBOL set_window_quals = /SIZE=.8333/ASPECT = 0.3371528567770239:axis ENDIF DEFINE SYMBOL set_window_quals = ($set_window_quals)/ASPECT = 1:axis !-> IF 0 THEN DEFINE SYMBOL set_window_quals = /SIZE=.8333/ASPECT = 0.3371528567770239:axis/ASPECT = 1:axis DEFINE SYMBOL set_window_quals = ($set_window_quals)/ASPECT = 1:axis !-> IF 0 THEN DEFINE SYMBOL set_window_quals = /SIZE=.8333/ASPECT = 0.3371528567770239:axis/ASPECT = 1:axis IF ($program_name"0|PyFerret>1|*>0") THEN DEFINE SYMBOL set_window_quals = ($set_window_quals)/OUTLINE=0.7 1 !-> IF 0 THEN DEFINE SYMBOL set_window_quals = /SIZE=.8333/ASPECT = 0.3371528567770239:axis/OUTLINE=0.7 1 SET WINDOW($set_window_quals) !-> SET WINDOW/SIZE=.8333/ASPECT = 0.3371528567770239:axis IF `($ferret_margins"1|0|1|false>0|true>1") EQ 0` THEN !-> IF 0 THEN ELSE IF `STRLEN("($ferret_view)") GE 2` THEN !-> IF 1 THEN DEFINE VIEW/X=0:0.95/Y=0:1 xspace SET VIEW xspace ELSE ENDIF ENDIF IF ($ferret_annotations"0|*>1") THEN GO set_full_margins !-> IF 1 THEN GO set_full_margins !-> GO set_full_margins ! Enter_GO set_full_margins IF ($its_GE"0|*>1") THEN !-> IF 0 THEN ENDIF DEFINE SYMBOL text_size = ($ferret_text_size"0.09") !-> DEFINE SYMBOL text_size = 0.09 CAN view LET y_up = 0.92 IF `STRLEN("($ferret_view)") GE 2 AND ($win_aspect"1") LT 0.2` THEN LET y_up = 0.9 !-> IF 0 THEN LET y_up = 0.9 DEFINE VIEW/AXES/X=0.08:0.99/y=0.07:`y_up` full_view !-> DEFINE VIEW/AXES/X=0.08:0.99/y=0.07:0.92 full_view DEFINE VIEW/AXES/X=0.08:0.99/y=0.07:`y_up` full_view2 !-> DEFINE VIEW/AXES/X=0.08:0.99/y=0.07:0.92 full_view2 IF ($its_prop_prop_plot"0|*>1") THEN !-> IF 0 THEN ENDIF IF ($ferret_thumb"0|*>1") THEN !-> IF 0 THEN ENDIF IF ($ferret_view%0|yt>1|zt>1|t>1|*>0%) THEN !-> IF 0 THEN ENDIF IF ($ferret_view%0|xt>1|*>0%) THEN !-> IF 0 THEN ENDIF IF ($ferret_view%0|t>1|*>0%) THEN !-> IF 0 THEN ENDIF IF ($ferret_view%0|x>1|y>1|z>1|*>0%) THEN !-> IF 0 THEN ENDIF SET VIEW full_view keymark 1 IF `($ferret_key_annotate"1") EQ 0` THEN KEYMARK 0 ! override annotation with Ferret property !-> IF 0 THEN KEYMARK 0 PPL TICS,,,,,1,1 IF ($ferret_use_graticules"0|notic>1|*>0) THEN !-> IF 0 THEN ENDIF PPL AXLSZE ($text_size),($text_size) !-> PPL AXLSZE 0.09,0.09 ! Exit_GO ! Exit_GO GO LAS_url_label 0 ! Enter_GO LAS_url_label 0 IF `($n_right_labels"0") EQ 0` THEN DEFINE SYMBOL n_right_labels = 0 !-> IF 1 THEN DEFINE SYMBOL n_right_labels = 0 !-> DEFINE SYMBOL n_right_labels = 0 DEFINE SYMBOL num ($1"0") !-> DEFINE SYMBOL num 0 LET got_dataset_label = 0 IF `got_dataset_label EQ 0` THEN !-> IF 1 THEN DEFINE SYMBOL n_right_labels = `($n_right_labels)+1` !-> IF 1 THEN DEFINE SYMBOL n_right_labels = `0+1` !-> DEFINE SYMBOL n_right_labels = `0+1` !-> DEFINE SYMBOL n_right_labels = 1 IF ($data_$1_dataset_id"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL upper_right_($n_right_labels) = DATA SET: ($data_$1_dataset_id) !-> DEFINE SYMBOL upper_right_1 = DATA SET: id-12a9ed7ad5 DEFINE SYMBOL upper_right_text_($n_right_labels) = DATA SET: ($data_$1_dataset_id) !-> DEFINE SYMBOL upper_right_text_1 = DATA SET: id-12a9ed7ad5 LET got_dataset_label = 1 DEFINE SYMBOL dataset_title_($num)_lab = ($upper_right_text_($n_right_labels)) !-> DEFINE SYMBOL dataset_title_0_lab = DATA SET: id-12a9ed7ad5 DEFINE SYMBOL dataset_title_lab = ($upper_right_text_($n_right_labels)) !-> DEFINE SYMBOL dataset_title_lab = DATA SET: id-12a9ed7ad5 ENDIF IF ($data_$1_dataset_name"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL upper_right_($n_right_labels) = DATA SET: ($data_$1_dataset_name) !-> DEFINE SYMBOL upper_right_1 = DATA SET: http://giotto.casaccia.enea.it:8080/thredds/dodsC/path_MITO DEFINE SYMBOL upper_right_text_($n_right_labels) = DATA SET: ($data_$1_dataset_name) !-> DEFINE SYMBOL upper_right_text_1 = DATA SET: http://giotto.casaccia.enea.it:8080/thredds/dodsC/path_MITO LET got_dataset_label = 1 DEFINE SYMBOL dataset_title_($num)_lab = ($upper_right_text_($n_right_labels)) !-> DEFINE SYMBOL dataset_title_0_lab = DATA SET: http://giotto.casaccia.enea.it:8080/thredds/dodsC/path_MITO DEFINE SYMBOL dataset_title_lab = ($upper_right_text_($n_right_labels)) !-> DEFINE SYMBOL dataset_title_lab = DATA SET: http://giotto.casaccia.enea.it:8080/thredds/dodsC/path_MITO ENDIF ENDIF IF `got_dataset_label EQ 0` THEN !-> IF 0 THEN ENDIF IF `STRINDEX("($data_$1_dataset_url)","http") NE 0` THEN !-> IF 1 THEN IF ($data_$1_dataset_url"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL data_$1_urlpath = ($data_$1_dataset_url) !-> DEFINE SYMBOL data_0_urlpath = http://giotto.casaccia.enea.it:8080/thredds/dodsC/path_MITO ELSE ENDIF DEFINE SYMBOL dataset_url_($num)_lab = OPeNDAP URL: ($data_$1_urlpath) !-> DEFINE SYMBOL dataset_url_0_lab = OPeNDAP URL: http://giotto.casaccia.enea.it:8080/thredds/dodsC/path_MITO ELSE ENDIF IF `($num) EQ 0` THEN !-> IF 1 THEN DEFINE SYMBOL dataset_url_lab = ($dataset_url_($num)_lab) !-> DEFINE SYMBOL dataset_url_lab = OPeNDAP URL: http://giotto.casaccia.enea.it:8080/thredds/dodsC/path_MITO IF `STRINDEX("($dataset_url_lab)", "http") EQ 0` THEN !-> IF 0 THEN ENDIF ENDIF IF `($num) GT 0` THEN !-> IF 0 THEN ELSE IF `($dataset_url_0_lab"0|*>1")` THEN DEFINE SYMBOL dataset_url_lab ($dataset_url_0_lab) !-> IF 1 THEN DEFINE SYMBOL dataset_url_lab OPeNDAP URL: http://giotto.casaccia.enea.it:8080/thredds/dodsC/path_MITO !-> DEFINE SYMBOL dataset_url_lab OPeNDAP URL: http://giotto.casaccia.enea.it:8080/thredds/dodsC/path_MITO ENDIF IF ($data_0_dataset_institution"0|*>1") THEN !-> IF 0 THEN ENDIF ! Exit_GO IF `($plot_type"0|CONTOUR>0|*>1") AND ($degenerate_2d"0|*>1") EQ 0` THEN !-> IF 1 THEN IF ($ferret_annotations"0|*>1") THEN !-> IF 1 THEN CANCEL VIEW SET VIEW full_view ENDIF ENDIF IF `($data_count"0") EQ 1` THEN !-> IF 1 THEN DEFINE SYMBOL split_title = ($ferret_plot_title) !-> DEFINE SYMBOL split_title = Temperature (degC) GO LAS_split_title ! Enter_GO LAS_split_title IF ($ferret_annotations"0|*>1") THEN EXIT/SCRIPT !-> IF 1 THEN EXIT/SCRIPT !-> EXIT/SCRIPT ! Exit_GO DEFINE SYMBOL ferret_plot_title = ($split_title) !-> DEFINE SYMBOL ferret_plot_title = Temperature (degC) IF ($shade_underlay"0") THEN !-> IF 1 THEN SHADE($qualifiers)($shade_qualifiers)/TITLE="($ferret_plot_title)"/SET ($ferret_var_0) !-> SHADE/KEY=CONT/LEVELS=v/HLIM=-8.8004:40.91/VLIM=30.1809:46.94/TRIM/LEVELS=v/MODULO/TITLE="Temperature (degC)"/SET plot_var[d=1] , xcoord, ycoord GO reset_labels ! Enter_GO reset_labels IF ($xform_dms"0|*>1") THEN PPL XFOR (($xform_dms)) !-> IF 0 THEN PPL XFOR ( ) IF ($yform_dms"0|*>1") THEN PPL YFOR (($yform_dms)) !-> IF 0 THEN PPL YFOR ( ) IF ($axlab_command"0|*>1") THEN PPL ($axlab_command) !-> IF 0 THEN PPL IF ($tnmlab_command"0|*>1") THEN PPL ($tnmlab_command) !-> IF 0 THEN PPL IF ($axtic_command"0|*>1") THEN PPL ($axtic_command) !-> IF 0 THEN PPL IF ($axlen_command"0|*>1") THEN PPL ($axlen_command) !-> IF 0 THEN PPL IF ($axtype_command"0|*>1") THEN PPL ($axtype_command) !-> IF 0 THEN PPL if ($labnum_dset"0|*>1") THEN go unlabel ($labnum_dset) !-> if 1 THEN go unlabel 3 !-> go unlabel 3 ! Enter_GO unlabel 3 QUERY/IGNORE $1"<Usage: GO unlabel n, where n is a PLOT+ movable label number" !-> QUERY/IGNORE 3 PPL LABS/NOUSER $1,0,0 @AS !-> PPL LABS/NOUSER 3,0,0 @AS set mode/last verify ! Exit_GO if ($labnum_datitl"0|*>1") THEN go unlabel ($labnum_datitl) !-> if 1 THEN go unlabel 4 !-> go unlabel 4 ! Enter_GO unlabel 4 QUERY/IGNORE $1"<Usage: GO unlabel n, where n is a PLOT+ movable label number" !-> QUERY/IGNORE 4 PPL LABS/NOUSER $1,0,0 @AS !-> PPL LABS/NOUSER 4,0,0 @AS set mode/last verify ! Exit_GO if ($labnum_dods"0|*>1") THEN go unlabel ($labnum_dods) !-> if 1 THEN go unlabel 5 !-> go unlabel 5 ! Enter_GO unlabel 5 QUERY/IGNORE $1"<Usage: GO unlabel n, where n is a PLOT+ movable label number" !-> QUERY/IGNORE 5 PPL LABS/NOUSER $1,0,0 @AS !-> PPL LABS/NOUSER 5,0,0 @AS set mode/last verify ! Exit_GO IF `STRLEN("($ferret_view)") EQ 2` THEN !-> IF 1 THEN IF `($ppl$zmin"0") GE 1.e35 AND ($ppl$zmax"0") LE -1.e35` THEN DEFINE SYMBOL nokey = 1 !-> IF 0 THEN DEFINE SYMBOL nokey = 1 IF `($nokey"0") EQ 0` THEN !-> IF 1 THEN PPL SHAKEY 1,,,,,,,,,,1 IF `($ferret_key_annotate"1") EQ 0` THEN keymark 0 !-> IF 0 THEN keymark 0 ENDIF ENDIF IF `($data_count"1") EQ 1` THEN !-> IF 1 THEN IF ($labnum_x"0|*>1") THEN !-> IF 0 THEN ENDIF IF ($labnum_y"0|*>1") THEN !-> IF 0 THEN ENDIF IF ($labnum_z"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL depth_lab ($lab($labnum_z)) !-> DEFINE SYMBOL depth_lab DEPTH (m) : -1 ENDIF IF ($labnum_t"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL time_lab ($lab($labnum_t)) !-> DEFINE SYMBOL time_lab TIME : 14-JAN-2018 00:00 ENDIF IF ($labnum_calend"0|*>1") THEN !-> IF 0 THEN ENDIF IF ($labnum_year"0|*>1") THEN !-> IF 0 THEN ENDIF IF `STRINDEX("($lab($lnum))", "E :") EQ 1` THEN DEFINE SYMBOL labnum_e = ($lnum) ) !-> REPEAT/RANGE=1:3/NAME=lnum ( DEFINE SYMBOL lnum = `lnum`; SHOW SYMBOL lab($lnum); IF `STRINDEX("($lab($lnum))", "E :") EQ 1` THEN DEFINE SYMBOL labnum_e = ($lnum) ) !-> REPEAT: LNUM:1 !-> ( DEFINE SYMBOL lnum = `lnum`; SHOW SYMBOL lab($lnum); IF `STRINDEX("($lab($lnum))", "E :") EQ 1` THEN DEFINE SYMBOL labnum_e = ($lnum) ) !-> DEFINE SYMBOL lnum = `lnum` !-> DEFINE SYMBOL lnum = 1 !-> SHOW SYMBOL lab($lnum) !-> SHOW SYMBOL lab1 LAB1 = "DEPTH (m) : -1" !-> IF `STRINDEX("($lab($lnum))", "E :") EQ 1` THEN DEFINE SYMBOL labnum_e = ($lnum) !-> IF 0 THEN DEFINE SYMBOL labnum_e = 1 !-> REPEAT: LNUM:2 !-> ( DEFINE SYMBOL lnum = `lnum`; SHOW SYMBOL lab($lnum); IF `STRINDEX("($lab($lnum))", "E :") EQ 1` THEN DEFINE SYMBOL labnum_e = ($lnum) ) !-> DEFINE SYMBOL lnum = `lnum` !-> DEFINE SYMBOL lnum = 2 !-> SHOW SYMBOL lab($lnum) !-> SHOW SYMBOL lab2 LAB2 = "TIME : 14-JAN-2018 00:00" !-> IF `STRINDEX("($lab($lnum))", "E :") EQ 1` THEN DEFINE SYMBOL labnum_e = ($lnum) !-> IF 0 THEN DEFINE SYMBOL labnum_e = 2 !-> REPEAT: LNUM:3 !-> ( DEFINE SYMBOL lnum = `lnum`; SHOW SYMBOL lab($lnum); IF `STRINDEX("($lab($lnum))", "E :") EQ 1` THEN DEFINE SYMBOL labnum_e = ($lnum) ) !-> DEFINE SYMBOL lnum = `lnum` !-> DEFINE SYMBOL lnum = 3 !-> SHOW SYMBOL lab($lnum) !-> SHOW SYMBOL lab3 LAB3 = "DATA SET: path_MITO" !-> IF `STRINDEX("($lab($lnum))", "E :") EQ 1` THEN DEFINE SYMBOL labnum_e = ($lnum) !-> IF 0 THEN DEFINE SYMBOL labnum_e = 3 IF ($labnum_e%0|*>1%) THEN !-> IF 0 THEN ENDIF IF ($ferret_view"0|e>1|*>0") THEN !-> IF 0 THEN ENDIF ENDIF IF ($ferret_annotations"0|*>1") THEN !-> IF 1 THEN PPL TITLE PPL XLAB PPL YLAB IF ($labnum_x"0|*>1") THEN GO unlabel ($labnum_x) !-> IF 0 THEN GO unlabel IF ($labnum_y"0|*>1") THEN GO unlabel ($labnum_y) !-> IF 0 THEN GO unlabel IF ($labnum_z"0|*>1") THEN GO unlabel ($labnum_z) !-> IF 1 THEN GO unlabel 1 !-> GO unlabel 1 ! Enter_GO unlabel 1 QUERY/IGNORE $1"<Usage: GO unlabel n, where n is a PLOT+ movable label number" !-> QUERY/IGNORE 1 PPL LABS/NOUSER $1,0,0 @AS !-> PPL LABS/NOUSER 1,0,0 @AS set mode/last verify ! Exit_GO IF ($labnum_t"0|*>1") THEN GO unlabel ($labnum_t) !-> IF 1 THEN GO unlabel 2 !-> GO unlabel 2 ! Enter_GO unlabel 2 QUERY/IGNORE $1"<Usage: GO unlabel n, where n is a PLOT+ movable label number" !-> QUERY/IGNORE 2 PPL LABS/NOUSER $1,0,0 @AS !-> PPL LABS/NOUSER 2,0,0 @AS set mode/last verify ! Exit_GO IF ($labnum_calend"0|*>1") THEN GO unlabel ($labnum_calend) !-> IF 0 THEN GO unlabel GO unlabel 1 ! Just for good measure ! Enter_GO unlabel 1 QUERY/IGNORE $1"<Usage: GO unlabel n, where n is a PLOT+ movable label number" !-> QUERY/IGNORE 1 PPL LABS/NOUSER $1,0,0 @AS !-> PPL LABS/NOUSER 1,0,0 @AS set mode/last verify ! Exit_GO GO unlabel 2 ! Enter_GO unlabel 2 QUERY/IGNORE $1"<Usage: GO unlabel n, where n is a PLOT+ movable label number" !-> QUERY/IGNORE 2 PPL LABS/NOUSER $1,0,0 @AS !-> PPL LABS/NOUSER 2,0,0 @AS set mode/last verify ! Exit_GO GO unlabel 3 ! Enter_GO unlabel 3 QUERY/IGNORE $1"<Usage: GO unlabel n, where n is a PLOT+ movable label number" !-> QUERY/IGNORE 3 PPL LABS/NOUSER $1,0,0 @AS !-> PPL LABS/NOUSER 3,0,0 @AS set mode/last verify ! Exit_GO GO unlabel 4 ! Enter_GO unlabel 4 QUERY/IGNORE $1"<Usage: GO unlabel n, where n is a PLOT+ movable label number" !-> QUERY/IGNORE 4 PPL LABS/NOUSER $1,0,0 @AS !-> PPL LABS/NOUSER 4,0,0 @AS set mode/last verify ! Exit_GO GO unlabel 5 ! Enter_GO unlabel 5 QUERY/IGNORE $1"<Usage: GO unlabel n, where n is a PLOT+ movable label number" !-> QUERY/IGNORE 5 PPL LABS/NOUSER $1,0,0 @AS !-> PPL LABS/NOUSER 5,0,0 @AS set mode/last verify ! Exit_GO GO unlabel 6 ! Enter_GO unlabel 6 QUERY/IGNORE $1"<Usage: GO unlabel n, where n is a PLOT+ movable label number" !-> QUERY/IGNORE 6 PPL LABS/NOUSER $1,0,0 @AS !-> PPL LABS/NOUSER 6,0,0 @AS set mode/last verify ! Exit_GO GO unlabel 7 ! Enter_GO unlabel 7 QUERY/IGNORE $1"<Usage: GO unlabel n, where n is a PLOT+ movable label number" !-> QUERY/IGNORE 7 PPL LABS/NOUSER $1,0,0 @AS !-> PPL LABS/NOUSER 7,0,0 @AS set mode/last verify ! Exit_GO ENDIF IF ($ferret_annotations"0|*>1") THEN GO key_at_top !-> IF 1 THEN GO key_at_top !-> GO key_at_top ! Enter_GO key_at_top IF ($its_GE"0|*>1") THEN EXIT/SCRIPT !-> IF 0 THEN EXIT/SCRIPT IF `($ferret_plot_key"1|0|*>1") EQ 0` THEN EXIT/SCRIPT !-> IF 0 THEN EXIT/SCRIPT DEFINE SYMBOL horizontal_key = 1 LET key_label_size = 0.08 ppl ylab ppl xlab let x1 = `($ppl$xorg)+0.8` !-> DEFINE VARIABLE x1 = 1.931 let x2 = `($ppl$xorg)+($ppl$xlen)-0.8` !-> DEFINE VARIABLE x2 = 13.191 let y1 = `($ppl$yorg)+($ppl$ylen)+0.025` !-> DEFINE VARIABLE y1 = 6.303 let y1 = `($ppl$yorg)+($ppl$ylen)+0.04` !-> DEFINE VARIABLE y1 = 6.318 let y2 = `y1+0.2` !-> DEFINE VARIABLE y2 = 6.518 IF ($custom_dataset"0|*>1") THEN !-> IF 0 THEN ENDIF IF ($ferret_plot_key"0|date_key>1|*>0") THEN !-> IF 0 THEN ELSE ppl shakey ,0,`-1*key_label_size`,,,,`x1`,`x2`,`y1`,`y2` !-> ppl shakey ,0,-0.08,,,,1.931,13.191,6.318,6.518 ENDIF ! Exit_GO LET add_urls = 1 IF `STRCMP("($data_0_dataset_name)", "($data_0_dataset_url)") EQ 0` THEN LET add_urls = 0 !-> IF 1 THEN LET add_urls = 0 !-> LET add_urls = 0 DEFINE SYMBOL dataset_title_lab = DATASET: ($data_0_dataset_name) !-> DEFINE SYMBOL dataset_title_lab = DATASET: http://giotto.casaccia.enea.it:8080/thredds/dodsC/path_MITO ! Exit_GO PPL SHADE IF ($two_parter"0|*>1") THEN SHADE($qualifiers)($shade_qualifiers)/OVER/NOLAB ($ferret_plot_var_part2) !-> IF 0 THEN SHADE/KEY=CONT/LEVELS=v/HLIM=-8.8004:40.91/VLIM=30.1809:46.94/TRIM/LEVELS=v/MODULO/OVER/NOLAB IF `($LEV_NUM"0") GT 245/2` THEN PPL SHASET RESET !-> IF 0 THEN PPL SHASET RESET ($plot_type)/NOKEY($qualifiers)/OVER/NOLAB ($ferret_var_0) !-> CONTOUR/FILL/NOKEY/KEY=CONT/LEVELS=v/HLIM=-8.8004:40.91/VLIM=30.1809:46.94/OVER/NOLAB plot_var[d=1] , xcoord, ycoord IF ($two_parter"0|*>1") THEN ($plot_type)($qualifiers)/OVER/NOLAB ($ferret_plot_var_part2) !-> IF 0 THEN FILL/KEY=CONT/LEVELS=v/HLIM=-8.8004:40.91/VLIM=30.1809:46.94/OVER/NOLAB IF ($native_curvilinear_xy"0|*>1") THEN !-> IF 1 THEN PPL SHASET RESET ($plot_type)($qualifiers)/OVER/NOKEY/NOLAB ($ferret_var_m360_0) !-> CONTOUR/FILL/KEY=CONT/LEVELS=v/HLIM=-8.8004:40.91/VLIM=30.1809:46.94/OVER/NOKEY/NOLAB plot_var[d=1] , xcoord-360, ycoord ENDIF ELSE ENDIF DEFINE SYMBOL data_plotted_min = ($ppl$zmin) !-> DEFINE SYMBOL data_plotted_min = 2.789898 DEFINE SYMBOL data_plotted_max = ($ppl$zmax) !-> DEFINE SYMBOL data_plotted_max = 20.26014 IF ($contour_over"0|*>1") THEN !-> IF 0 THEN ENDIF DEFINE SYMBOL data_plotted_min = ($ppl$zmin) !-> DEFINE SYMBOL data_plotted_min = 2.789898 DEFINE SYMBOL data_plotted_max = ($ppl$zmax) !-> DEFINE SYMBOL data_plotted_max = 20.26014 ENDIF GO labels_above_plot ! Enter_GO labels_above_plot IF ($ferret_xy_location_mark"0|*>1") THEN !-> IF 0 THEN ENDIF LET labdel = 0.2 LET labsiz = 0.1 IF ($ferret_annotations%0|*>1%) THEN EXIT/SCRIPT !-> IF 1 THEN EXIT/SCRIPT !-> EXIT/SCRIPT ! Exit_GO IF `($degenerate_2d"0|*>1") EQ 0` THEN GO land_overlay !-> IF 1 THEN GO land_overlay !-> GO land_overlay ! Enter_GO land_overlay IF ($ferret_land_script"0|*>1") THEN !-> IF 0 THEN ENDIF IF ($LEV_NUM"0|*>1") THEN !-> IF 1 THEN IF ($LEV_OPNLEVS"0|*>1") THEN DEFINE SYMBOL SAVE_OPNLEVS = ($LEV_OPNLEVS) !-> IF 1 THEN DEFINE SYMBOL SAVE_OPNLEVS = (-inf)(11,13,0.501)(13.2,18,0.2)(18,18,0.501)(inf) !-> DEFINE SYMBOL SAVE_OPNLEVS = (-inf)(11,13,0.501)(13.2,18,0.2)(18,18,0.501)(inf) IF ($LEV_MIN"0|*>1") THEN DEFINE SYMBOL SAVE_MINLEV = ($LEV_MIN) !-> IF 1 THEN DEFINE SYMBOL SAVE_MINLEV = open-ended !-> DEFINE SYMBOL SAVE_MINLEV = open-ended IF ($LEV_MAX"0|*>1") THEN DEFINE SYMBOL SAVE_MAXLEV = ($LEV_MAX) !-> IF 1 THEN DEFINE SYMBOL SAVE_MAXLEV = open-ended !-> DEFINE SYMBOL SAVE_MAXLEV = open-ended IF ($LEV_DEL"0|*>1") THEN DEFINE SYMBOL SAVE_DELLEV = ($LEV_DEL) !-> IF 1 THEN DEFINE SYMBOL SAVE_DELLEV = irregular !-> DEFINE SYMBOL SAVE_DELLEV = irregular ENDIF IF `($its_GE"0|*>1") AND ($ferret_vector_1"0|*>1")` THEN !-> IF 0 THEN ENDIF IF ($ferret_land_type"1|none>0|contour>0|filled>1|shade>1|default>1|*>0") THEN !-> IF 0 THEN ELIF ($ferret_land_type"0|none>0|contour>1|filled>0|*>0") THEN !-> ELIF 1 THEN IF `( ($region_x_range"360") LT 60) OR ( ($region_y_range) LT 30)` THEN !-> IF 1 THEN GO land_detail ($ferret_land_arg) !-> GO land_detail ! Enter_GO land_detail query/ignore $1%1|black|red|green|blue|lightblue|purple|white|thick|0|1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19|N|<go land_detail [pen or "N"] ["basemap"] [pen] [pen] with pen = 0(back), 1(fore), thick, 2-18 or a color% !-> query/ignore 1 query/ignore $2%default|basemap|overlay|<argument 2 can be "basemap", "overlay"% !-> query/ignore default query/ignore $3%1|black|red|green|blue|lightblue|purple|white|thick|0|1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19|N|<go land_detail [pen or "N"] ["basemap"] [pen] [pen] with pen = 0(back), 1(fore), thick, 2-18 or a color% !-> query/ignore 1 query/ignore $4%1|black|red|green|blue|lightblue|purple|white|thick|0|1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19|N|<go land_detail [pen or "N"] ["basemap"] [pen] [pen] with pen = 0(back), 1(fore), thick, 2-18 or a color% !-> query/ignore 1 query/ignore $5%1|black|red|green|blue|lightblue|purple|white|thick|0|1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19|N|<go land_detail [pen or "N"] ["basemap"] [pen] [pen] with pen = 0(back), 1(fore), thick, 2-18 or a color% !-> query/ignore 1 query/ignore $6%1|black|red|green|blue|lightblue|purple|white|thick|0|1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19|N|<go land_detail [pen or "N"] ["basemap"] [pen] [pen] with pen = 0(back), 1(fore), thick, 2-18 or a color% !-> query/ignore 1 query/ignore $7%1|black|red|green|blue|lightblue|purple|white|thick|0|1|2|3|4|5|6|7|8|9|10|11|12|13|14|15|16|17|18|19|N|<go land_detail [pen or "N"] ["basemap"] [pen] [pen] with pen = 0(back), 1(fore), thick, 2-18 or a color% !-> query/ignore 1 set data/save define region/default save cancel region use geo_borders_intermed let landi_subx = 0 let landi_addx = 0 let landi_mapxmin = 0 let landi_mapxmax = 0 let landi_datxmin = 0 let landi_datxmax = 0 let landi_basemap = $2"0|basemap>1|*>0" !-> DEFINE VARIABLE landi_basemap = 0 IF `landi_basemap EQ 1` THEN !-> IF 0 THEN ENDIF let landi_mapxmin = ($xaxis_min) !-> DEFINE VARIABLE landi_mapxmin = -8.80040000 let landi_mapxmax = ($xaxis_max) !-> DEFINE VARIABLE landi_mapxmax = 40.9100000 let landi_datxmin = continent_LON[x=@min] let landi_datxmax = continent_LON[x=@max] IF `landi_mapxmin LT landi_datxmin` then let landi_subx = `landi_subx - 360` !-> IF 1 then let landi_subx = `landi_subx - 360` !-> let landi_subx = `landi_subx - 360` !-> DEFINE VARIABLE landi_subx = -360 IF `landi_mapxmax GT landi_datxmax` then let landi_addx = `landi_addx + 360` !-> IF 0 then let landi_addx = `landi_addx + 360` $1"plot|N>QUERY/IGNORE stuff |*>plot"/set/vs/nolab/line=1/$2"i=1:193518/overlay|basemap>i=1:193518/overlay|*>i=1:193518/overlay" CONTINENT_LON, CONTINENT_LAT !-> plot/set/vs/nolab/line=1/i=1:193518/overlay CONTINENT_LON, CONTINENT_LAT ppl pen 1 $1"1|black>1|red>2|green>3|blue>4|lightblue>5|purple>6|white>19|thick>7|0>0|1>1|2>2|3>3|4>4|5>5|6>6|7>7|8>8|9>9|10>10|11>11|12>12|13>13|14>14|15>15|16>16|17>17|18>18|19>19|N>1|" !-> ppl pen 1 1 ppl xfor (I7,''LONE'') ppl yfor (I7,''LAT'') $1"ppl plot|N>QUERY/IGNORE stuff |*>ppl plot"$2"/overlay|basemap> |*>/overlay" !-> ppl plot/overlay IF `landi_addx NE 0` THEN !-> IF 0 THEN ENDIF IF `landi_subx NE 0` THEN !-> IF 1 THEN plot/set/overlay/vs/nolab/line=1 CONTINENT_LON+landi_subx, CONTINENT_LAT ppl pen 1 $1"1|black>1|red>2|green>3|blue>4|lightblue>5|purple>6|white>19|thick>7|0>0|1>1|2>2|3>3|4>4|5>5|6>6|7>7|8>8|9>9|10>10|11>11|12>12|13>13|14>14|15>15|16>16|17>17|18>18|19|N>1|" !-> ppl pen 1 1 ppl plot/overlay ENDIF $3"query/ignore|*>plot/set/vs/nolab/line=1/overlay" COUNTRY_LON, COUNTRY_LAT !-> query/ignore COUNTRY_LON, COUNTRY_LAT ppl pen 1 $3"1|black>1|red>2|green>3|blue>4|lightblue>5|purple>6|white>19|thick>7|0>0|1>1|2>2|3>3|4>4|5>5|6>6|7>7|8>8|9>9|10>10|11>11|12>12|13>13|14>14|15>15|16>16|17>17|18>18|" !-> ppl pen 1 1 $3"query/ignore|*>ppl plot/overlay" !-> query/ignore IF `landi_addx NE 0` THEN !-> IF 0 THEN ENDIF IF `landi_subx NE 0` THEN !-> IF 1 THEN $3"query/ignore|*>plot/set/vs/nolab/line=1/overlay" COUNTRY_LON+landi_subx, COUNTRY_LAT !-> query/ignore COUNTRY_LON+landi_subx, COUNTRY_LAT ppl pen 1 $3"1|black>1|red>2|green>3|blue>4|lightblue>5|purple>6|white>19|thick>7|0>0|1>1|2>2|3>3|4>4|5>5|6>6|7>7|8>8|9>9|10>10|11>11|12>12|13>13|14>14|15>15|16>16|17>17|18>18|" !-> ppl pen 1 1 $3"query/ignore|*>ppl plot/overlay" !-> query/ignore ENDIF $4"query/ignore|*>plot/set/vs/nolab/line=1/overlay" STATE_LON, STATE_LAT !-> query/ignore STATE_LON, STATE_LAT ppl pen 1 $4"1|black>1|red>2|green>3|blue>4|lightblue>5|purple>6|white>19|thick>7|0>0|1>1|2>2|3>3|4>4|5>5|6>6|7>7|8>8|9>9|10>10|11>11|12>12|13>13|14>14|15>15|16>16|17>17|18>18|" !-> ppl pen 1 1 $4"query/ignore|*>ppl plot/overlay" !-> query/ignore IF `landi_addx NE 0` THEN !-> IF 0 THEN ENDIF IF `landi_subx NE 0` THEN !-> IF 1 THEN $4"query/ignore|*>plot/set/vs/nolab/line=1/overlay" STATE_LON+landi_subx, STATE_LAT !-> query/ignore STATE_LON+landi_subx, STATE_LAT ppl pen 1 $4"1|black>1|red>2|green>3|blue>4|lightblue>5|purple>6|white>19|thick>7|0>0|1>1|2>2|3>3|4>4|5>5|6>6|7>7|8>8|9>9|10>10|11>11|12>12|13>13|14>14|15>15|16>16|17>17|18>18|" !-> ppl pen 1 1 $4"query/ignore|*>ppl plot/overlay" !-> query/ignore ENDIF $6"query/ignore|*>plot/set/vs/nolab/line=1/overlay" RIVER1_2_LON, RIVER1_2_LAT !-> query/ignore RIVER1_2_LON, RIVER1_2_LAT ppl pen 1 $6"1|black>1|red>2|green>3|blue>4|lightblue>5|purple>6|white>19|thick>7|0>0|1>1|2>2|3>3|4>4|5>5|6>6|7>7|8>8|9>9|10>10|11>11|12>12|13>13|14>14|15>15|16>16|17>17|18>18|" !-> ppl pen 1 1 $6"query/ignore|*>ppl plot/overlay" !-> query/ignore IF `landi_addx NE 0` THEN !-> IF 0 THEN ENDIF IF `landi_subx NE 0` THEN !-> IF 1 THEN $6"query/ignore|*>plot/set/vs/nolab/line=1/overlay" RIVER1_2_LON+landi_subx,RIVER1_2_LAT !-> query/ignore RIVER1_2_LON+landi_subx,RIVER1_2_LAT ppl pen 1 $6"1|black>1|red>2|green>3|blue>4|lightblue>5|purple>6|white>19|thick>7|0>0|1>1|2>2|3>3|4>4|5>5|6>6|7>7|8>8|9>9|10>10|11>11|12>12|13>13|14>14|15>15|16>16|17>17|18>18|" !-> ppl pen 1 1 $6"query/ignore|*>ppl plot/overlay" !-> query/ignore ENDIF $5"query/ignore|*>plot/set/vs/nolab/line=1/overlay" RIVER1_LON, RIVER1_LAT !-> query/ignore RIVER1_LON, RIVER1_LAT ppl pen 1 $5"1|black>1|red>2|green>3|blue>4|lightblue>5|purple>6|white>19|thick>7|0>0|1>1|2>2|3>3|4>4|5>5|6>6|7>7|8>8|9>9|10>10|11>11|12>12|13>13|14>14|15>15|16>16|17>17|18>18|" !-> ppl pen 1 1 $5"query/ignore|*>ppl plot/overlay" !-> query/ignore IF `landi_addx NE 0` THEN !-> IF 0 THEN ENDIF IF `landi_subx NE 0` THEN !-> IF 1 THEN $5"query/ignore|*>plot/set/vs/nolab/line=1/overlay" RIVER1_LON+landi_subx,RIVER1_LAT !-> query/ignore RIVER1_LON+landi_subx,RIVER1_LAT ppl pen 1 $5"1|black>1|red>2|green>3|blue>4|lightblue>5|purple>6|white>19|thick>7|0>0|1>1|2>2|3>3|4>4|5>5|6>6|7>7|8>8|9>9|10>10|11>11|12>12|13>13|14>14|15>15|16>16|17>17|18>18|" !-> ppl pen 1 1 $5"query/ignore|*>ppl plot/overlay" !-> query/ignore ENDIF $7"query/ignore|*>plot/set/vs/nolab/line=1/overlay" MARINE_LON, MARINE_LAT !-> query/ignore MARINE_LON, MARINE_LAT ppl pen 1 $7"1|black>1|red>2|green>3|blue>4|lightblue>5|purple>6|white>19|thick>7|0>0|1>1|2>2|3>3|4>4|5>5|6>6|7>7|8>8|9>9|10>10|11>11|12>12|13>13|14>14|15>15|16>16|17>17|18>18|" !-> ppl pen 1 1 $7"query/ignore|*>ppl plot/overlay" !-> query/ignore IF `landi_addx NE 0` THEN !-> IF 0 THEN ENDIF IF `landi_subx NE 0` THEN !-> IF 1 THEN $7"query/ignore|*>plot/set/vs/nolab/line=1/overlay" MARINE_LON+landi_subx,MARINE_LAT !-> query/ignore MARINE_LON+landi_subx,MARINE_LAT ppl pen 1 $7"1|black>1|red>2|green>3|blue>4|lightblue>5|purple>6|white>19|thick>7|0>0|1>1|2>2|3>3|4>4|5>5|6>6|7>7|8>8|9>9|10>10|11>11|12>12|13>13|14>14|15>15|16>16|17>17|18>18|" !-> ppl pen 1 1 $7"query/ignore|*>ppl plot/overlay" !-> query/ignore ENDIF cancel data geo_borders_intermed cancel var landi_* set region save set data/restore set mode/last verify ! Exit_GO ELSE ENDIF ENDIF IF ($LEV_NUM"0|*>1") THEN !-> IF 1 THEN IF ($SAVE_OPNLEVS"0|*>1") THEN DEFINE SYMBOL LEV_OPNLEVS = ($SAVE_OPNLEVS) !-> IF 1 THEN DEFINE SYMBOL LEV_OPNLEVS = (-inf)(11,13,0.501)(13.2,18,0.2)(18,18,0.501)(inf) !-> DEFINE SYMBOL LEV_OPNLEVS = (-inf)(11,13,0.501)(13.2,18,0.2)(18,18,0.501)(inf) IF ($SAVE_MINLEV"0|*>1") THEN DEFINE SYMBOL LEV_MIN = ($SAVE_MINLEV) !-> IF 1 THEN DEFINE SYMBOL LEV_MIN = open-ended !-> DEFINE SYMBOL LEV_MIN = open-ended IF ($SAVE_MAXLEV"0|*>1") THEN DEFINE SYMBOL LEV_MAX = ($SAVE_MAXLEV) !-> IF 1 THEN DEFINE SYMBOL LEV_MAX = open-ended !-> DEFINE SYMBOL LEV_MAX = open-ended IF ($SAVE_DELLEV"0|*>1") THEN DEFINE SYMBOL LEV_DEL = ($SAVE_DELLEV) !-> IF 1 THEN DEFINE SYMBOL LEV_DEL = irregular !-> DEFINE SYMBOL LEV_DEL = irregular ENDIF ! Exit_GO IF ($ferret_mark_grid"0|no>0|all>1|subsample>1|*>0") THEN GO mark_grid !-> IF 0 THEN GO mark_grid GO LAS_results box ! Enter_GO LAS_results box IF `($its_GE"0|*>1")` THEN DEFINE SYMBOL trans = /TRANS !-> IF 0 THEN DEFINE SYMBOL trans = /TRANS IF ($program_name"0|PyFerret>1|*>0") THEN !-> IF 0 THEN ELSE IF ($result_plot_image_filename%0|*>1%) THEN FRAME($trans)/FORMAT=gif/FILE="($result_plot_image_filename)" !-> IF 1 THEN FRAME /FORMAT=gif/FILE="/usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_plot_image.png" !-> FRAME /FORMAT=gif/FILE="/usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_plot_image.png" ENDIF cancel region IF ($have_las_plotvar"0") THEN !-> IF 0 THEN ELSE IF ($native_curvilinear_xy"0|0|*>1") THEN !-> IF 1 THEN LET the_plot_var = ($ferret_plot_base_var_noregion) !-> DEFINE VARIABLE the_plot_var = 'T'[d=1] ELIF ($do_hybrid_z"0|0|*>1") THEN !-> ELIF 0 THEN ENDIF ENDIF IF ($insitu_blankvar"0|*>1) THEN SHADE/PAL=white/NOLAB/NOKEY/LEV=(0,1,1) ($insitu_blankvar) !-> IF 0 THEN SHADE/PAL=white/NOLAB/NOKEY/LEV=(0,1,1) IF `($xstride"0|*>1) EQ 0` THEN DEFINE SYMBOL xstride = 1 !-> IF 0 THEN DEFINE SYMBOL xstride = 1 IF `($ystride"0|*>1) EQ 0` THEN DEFINE SYMBOL ystride = 1 !-> IF 0 THEN DEFINE SYMBOL ystride = 1 "XSTRIDE","YSTRIDE"} DEFINE SYMBOL has_xaxis_sym = ($XAXIS_MIN"0|*>1") !-> DEFINE SYMBOL has_xaxis_sym = 1 IF `($has_xaxis_sym) EQ 0` THEN !-> IF 0 THEN ENDIF DEFINE SYMBOL xaxlo = ($XAXIS_MIN) !-> DEFINE SYMBOL xaxlo = -8.80040000 DEFINE SYMBOL xaxhi = ($XAXIS_MAX) !-> DEFINE SYMBOL xaxhi = 40.9100000 IF ($region_0_x_lo_orig"0|*>1") THEN !-> IF 1 THEN IF `($region_0_x_lo_orig) - ($XAXIS_MIN) LT (-350)` THEN !-> IF 0 THEN ELIF `($region_0_x_lo_orig) - ($XAXIS_MIN) GT 350 ` THEN !-> ELIF 0 THEN ENDIF ENDIF DEFINE SYMBOL taxis_dir = 0 "($xstride)","($ystride)"} !-> DEFINE VARIABLE syms_vals = { "0.000000", "0.000000", "0.000000", "0.000000", "1161", "560", "14.1320", "6.82300", "1.13100", "0.478000", "12.8600", "5.80000", "-8.80040000", "40.9100000", "30.1809000", "46.9400000", "0.546","0.141", "10","4"} "($xstride)","($ystride)"} !-> IF 0 THEN LET syms_vals = { "0.000000", "0.000000", "0.000000", "0.000000", "1161", "560", "14.1320", "6.82300", "1.13100", "0.478000", "12.8600", "5.80000", "-360.0000", "0.000000", "-78.57040", "83.63340", "0.546","0.141", "10","4"} LIST/CLOBBER/FILE="($result_map_scale_filename)"/NOHEAD/NOROWLAB syms_names, syms_vals !-> LIST/CLOBBER/FILE="/usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_map_scale.xml"/NOHEAD/NOROWLAB syms_names, syms_vals IF ($HAXIS_tstart"0|*>1") THEN !-> IF 0 THEN ELSE IF ($ax_horiz"0|T>1|*>0") THEN !-> IF 0 THEN ENDIF ENDIF IF ($VAXIS_tstart"0|*>1") THEN !-> IF 0 THEN ELSE IF ($ax_vert"0|T>1|*>0") THEN !-> IF 0 THEN ENDIF ENDIF LET dummyvar = x[i=1:5] + y[i=1:5] IF `($ferret_plot_var"0|*>1") EQ 0` THEN DEFINE SYMBOL ferret_plot_var = dummyvar !-> IF 0 THEN DEFINE SYMBOL ferret_plot_var = dummyvar IF `($ax_horiz"0|*>1") OR ($ax_vert"0|*>1")` THEN !-> IF 1 THEN "DATA_EXISTS", "DATA_MIN", "DATA_MAX"} IF `($native_curvilinear_xy"0") EQ 0` THEN !-> IF 0 THEN ENDIF ! not curvilinear IF ($ax_horiz"0|*>1") THEN DEFINE SYMBOL ax_horiz = `DNCASE("($ax_horiz)")` !-> IF 1 THEN DEFINE SYMBOL ax_horiz = `DNCASE("X")` !-> DEFINE SYMBOL ax_horiz = `DNCASE("X")` !-> DEFINE SYMBOL ax_horiz = x IF ($ax_vert"0|*>1") THEN DEFINE SYMBOL ax_vert = `DNCASE("($ax_vert)")` !-> IF 1 THEN DEFINE SYMBOL ax_vert = `DNCASE("Y")` !-> DEFINE SYMBOL ax_vert = `DNCASE("Y")` !-> DEFINE SYMBOL ax_vert = y LET pplus_default_zmin = 1.E38 ! PPLUS initializes zmin = 1.E38 and zmax = -1.E38 IF `($data_plotted_min"1.E38") EQ pplus_default_zmin` THEN !-> IF 0 THEN ELSE DEFINE SYMBOL DATA_EXISTS = 1 DEFINE SYMBOL DATA_MIN = ($data_plotted_min) !-> DEFINE SYMBOL DATA_MIN = 2.789898 DEFINE SYMBOL DATA_MAX = ($data_plotted_max) !-> DEFINE SYMBOL DATA_MAX = 20.26014 IF ($data_max"0|bad>1|1.E+34>1|*>0") THEN !-> IF 0 THEN ENDIF IF ($data_min"0|bad>1|1.E+34>1|*>0") THEN !-> IF 0 THEN ENDIF ENDIF IF ($its_prop_prop_plot"0|*>1") THEN !-> IF 0 THEN ENDIF "($DATA_EXISTS)", "($DATA_MIN)", "($DATA_MAX)"} !-> DEFINE VARIABLE syms_vals = {"x", " ", "y", " ", "1", "2.789898", "20.26014"} LIST/APPEND/FILE="($result_map_scale_filename)"/NOHEAD/NOROWLAB syms_names, syms_vals !-> LIST/APPEND/FILE="/usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_map_scale.xml"/NOHEAD/NOROWLAB syms_names, syms_vals ENDIF ! ax_horiz ax_vert defined IF ($LEV_NUM"0|*>1") THEN !-> IF 1 THEN LET syms_names = "LEVELS_STRING" IF ($LEV_OPNLEVS"0|*>1") THEN !-> IF 1 THEN LET syms_vals = "($LEV_OPNLEVS)" !-> DEFINE VARIABLE syms_vals = "(-inf)(11,13,0.501)(13.2,18,0.2)(18,18,0.501)(inf)" ELIF `(($LEV_MIN"0|*>1") + ($LEV_MAX"0|*>1") + ($LEV_DEL"0|*>1")) EQ 3` THEN !-> ELIF 1 THEN ENDIF LIST/APPEND/FILE="($result_map_scale_filename)"/NOHEAD/NOROWLAB syms_names, syms_vals !-> LIST/APPEND/FILE="/usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_map_scale.xml"/NOHEAD/NOROWLAB syms_names, syms_vals ENDIF IF ($ferret_annotations%0|*>1%) THEN !-> IF 1 THEN GO LAS_annotations_xml ! Enter_GO LAS_annotations_xml GO LAS_ferret_las_version_header ! Enter_GO LAS_ferret_las_version_header DEFINE SYMBOL ferret_las_version = 8. !-> IF 1 THEN DEFINE SYMBOL ferret_las_version = 8. !-> DEFINE SYMBOL ferret_las_version = 8. DEFINE SYMBOL las_ferret_header_label = LAS ($ferret_las_version)/Ferret ($FERRET_VERSION) NOAA/PMEL !-> DEFINE SYMBOL las_ferret_header_label = LAS 8./Ferret 7.2 NOAA/PMEL DEFINE SYMBOL ferret_version_lab = ($FERRET_VERSION) !-> DEFINE SYMBOL ferret_version_lab = 7.2 DEFINE SYMBOL las_version_lab = LAS($ferret_las_version"8.") !-> DEFINE SYMBOL las_version_lab = LAS8. DEFINE SYMBOL header_lab = (NOAA/PMEL) IF ($ferret_annotations%0|*>1%) THEN EXIT/SCRIPT !-> IF 1 THEN EXIT/SCRIPT !-> EXIT/SCRIPT ! Exit_GO IF `STRCMP("($dataset_url_lab%0)", "($dataset_title_lab%99%)") EQ 0` THEN CAN SYM dataset_url_lab !-> IF 0 THEN CAN SYM dataset_url_lab IF ($dataset_title_lab%0|*>1%) THEN !-> IF 1 THEN IF `STRINDEX("($dataset_url_lab%0%)", "http") EQ 0` THEN CANCEL SYMBOL dataset_url_lab !-> IF 0 THEN CANCEL SYMBOL dataset_url_lab ENDIF IF ($ferret_diff_list_title"0|*>1") THEN DEFINE SYMBOL dataset_title_lab = ($ferret_diff_list_title) !-> IF 0 THEN DEFINE SYMBOL dataset_title_lab = DEFINE SYMBOL out = <?xml version=\"1.0\" encoding=\"ISO-8859-1\" ?> MESSAGE/QUIET/CONTINUE/OUTFILE="($result_annotations_filename)"/CLOBBER ($out) !-> MESSAGE/QUIET/CONTINUE/OUTFILE="/usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_annotations.xml"/CLOBBER <?xml version="1.0" encoding="ISO-8859-1" ?> DEFINE SYMBOL lquals = /NOHEAD/NOROWLAB/FILE="($result_annotations_filename)"/FORMAT=(a)/APPEND !-> DEFINE SYMBOL lquals = /NOHEAD/NOROWLAB/FILE="/usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_annotations.xml"/FORMAT=(a)/APPEND DEFINE SYMBOL out = <annotations> GO write_to_xml ! Enter_GO write_to_xml MESSAGE/QUIET/CONTINUE/OUTFILE="($result_annotations_filename)"/APPEND ($out) !-> MESSAGE/QUIET/CONTINUE/OUTFILE="/usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_annotations.xml"/APPEND <annotations> ! Exit_GO GO annotation_orthogonal_axes !-> IF 1 THEN GO annotation_orthogonal_axes !-> GO annotation_orthogonal_axes ! Enter_GO annotation_orthogonal_axes sh sym longitude_lab, latitude_lab, depth_lab, time_lab, ens_lab, forecast_lab DEPTH_LAB = "DEPTH (m) : -1" TIME_LAB = "TIME : 14-JAN-2018 00:00" IF ($alt_x_lab%0|*>1%) THEN DEFINE SYMBOL longitude_lab = ($alt_x_lab) !-> IF 0 THEN DEFINE SYMBOL longitude_lab = IF ($alt_y_lab%0|*>1%) THEN DEFINE SYMBOL latitude_lab = ($alt_y_lab) !-> IF 0 THEN DEFINE SYMBOL latitude_lab = IF ($alt_z_lab%0|*>1%) THEN DEFINE SYMBOL depth_lab = ($alt_z_lab) !-> IF 0 THEN DEFINE SYMBOL depth_lab = IF ($alt_t_lab%0|*>1%) THEN DEFINE SYMBOL time_lab = ($alt_t_lab) !-> IF 0 THEN DEFINE SYMBOL time_lab = IF ($alt_e_lab%0|*>1%) THEN DEFINE SYMBOL ens_lab = ($alt_e_lab) !-> IF 0 THEN DEFINE SYMBOL ens_lab = DEFINE SYMBOL out = <annotation_group type="orthogonal_axes"> GO write_to_xml ! Enter_GO write_to_xml MESSAGE/QUIET/CONTINUE/OUTFILE="($result_annotations_filename)"/APPEND ($out) !-> MESSAGE/QUIET/CONTINUE/OUTFILE="/usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_annotations.xml"/APPEND <annotation_group type="orthogonal_axes"> ! Exit_GO IF ($longitude_lab%0|*>1%) THEN !-> IF 0 THEN ENDIF IF ($latitude_lab%0|*>1%) THEN !-> IF 0 THEN ENDIF IF ($depth_lab%0|*>1%) THEN !-> IF 1 THEN DEFINE SYMBOL out = <annotation type="z-axis"> GO write_to_xml ! Enter_GO write_to_xml MESSAGE/QUIET/CONTINUE/OUTFILE="($result_annotations_filename)"/APPEND ($out) !-> MESSAGE/QUIET/CONTINUE/OUTFILE="/usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_annotations.xml"/APPEND <annotation type="z-axis"> ! Exit_GO DEFINE SYMBOL out = `LIST_VALUE_XML("value", "($depth_lab)", 1, "($result_annotations_filename)" )` !-> DEFINE SYMBOL out = 1 DEFINE SYMBOL out = </annotation> GO write_to_xml ! Enter_GO write_to_xml MESSAGE/QUIET/CONTINUE/OUTFILE="($result_annotations_filename)"/APPEND ($out) !-> MESSAGE/QUIET/CONTINUE/OUTFILE="/usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_annotations.xml"/APPEND </annotation> ! Exit_GO ENDIF IF ($time_lab%0|*>1%) THEN !-> IF 1 THEN DEFINE SYMBOL out = <annotation type="t-axis"> GO write_to_xml ! Enter_GO write_to_xml MESSAGE/QUIET/CONTINUE/OUTFILE="($result_annotations_filename)"/APPEND ($out) !-> MESSAGE/QUIET/CONTINUE/OUTFILE="/usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_annotations.xml"/APPEND <annotation type="t-axis"> ! Exit_GO DEFINE SYMBOL out = `LIST_VALUE_XML("value", "($time_lab)", 1, "($result_annotations_filename)" )` !-> DEFINE SYMBOL out = 1 DEFINE SYMBOL out = </annotation> GO write_to_xml ! Enter_GO write_to_xml MESSAGE/QUIET/CONTINUE/OUTFILE="($result_annotations_filename)"/APPEND ($out) !-> MESSAGE/QUIET/CONTINUE/OUTFILE="/usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_annotations.xml"/APPEND </annotation> ! Exit_GO ENDIF IF ($year_lab"0|*>1") THEN !-> IF 0 THEN ENDIF IF ($ens_lab%0|*>1%) THEN !-> IF 0 THEN ENDIF IF ($forecast_lab%0|*>1%) THEN !-> IF 0 THEN ENDIF IF ($ensemble_names"0|*>1") THEN !-> IF 0 THEN ENDIF DEFINE SYMBOL out = </annotation_group> GO write_to_xml ! Enter_GO write_to_xml MESSAGE/QUIET/CONTINUE/OUTFILE="($result_annotations_filename)"/APPEND ($out) !-> MESSAGE/QUIET/CONTINUE/OUTFILE="/usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_annotations.xml"/APPEND </annotation_group> ! Exit_GO ! Exit_GO GO annotation_data !-> IF 1 THEN GO annotation_data !-> GO annotation_data ! Enter_GO annotation_data DEFINE SYMBOL out = <annotation_group type="data"> GO write_to_xml ! Enter_GO write_to_xml MESSAGE/QUIET/CONTINUE/OUTFILE="($result_annotations_filename)"/APPEND ($out) !-> MESSAGE/QUIET/CONTINUE/OUTFILE="/usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_annotations.xml"/APPEND <annotation_group type="data"> ! Exit_GO IF `($variable_lab"0|*>1") OR ($variable_lab_var"0|*>1")` THEN !-> IF 1 THEN DEFINE SYMBOL out = <annotation type="variable_title"> GO write_to_xml ! Enter_GO write_to_xml MESSAGE/QUIET/CONTINUE/OUTFILE="($result_annotations_filename)"/APPEND ($out) !-> MESSAGE/QUIET/CONTINUE/OUTFILE="/usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_annotations.xml"/APPEND <annotation type="variable_title"> ! Exit_GO IF ($variable_lab_var"0|*>1") THEN !-> IF 0 THEN ELSE DEFINE SYMBOL out = `LIST_VALUE_XML("value", "($variable_lab)", 1, "($result_annotations_filename)" )` !-> DEFINE SYMBOL out = 1 ENDIF DEFINE SYMBOL out = </annotation> GO write_to_xml ! Enter_GO write_to_xml MESSAGE/QUIET/CONTINUE/OUTFILE="($result_annotations_filename)"/APPEND ($out) !-> MESSAGE/QUIET/CONTINUE/OUTFILE="/usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_annotations.xml"/APPEND </annotation> ! Exit_GO ENDIF IF ($dataset_title_lab"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL out = <annotation type="dataset_title"> GO write_to_xml ! Enter_GO write_to_xml MESSAGE/QUIET/CONTINUE/OUTFILE="($result_annotations_filename)"/APPEND ($out) !-> MESSAGE/QUIET/CONTINUE/OUTFILE="/usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_annotations.xml"/APPEND <annotation type="dataset_title"> ! Exit_GO DEFINE SYMBOL out = `LIST_VALUE_XML("value", "($dataset_title_lab)", 1, "($result_annotations_filename)" )` !-> DEFINE SYMBOL out = 1 DEFINE SYMBOL out = </annotation> GO write_to_xml ! Enter_GO write_to_xml MESSAGE/QUIET/CONTINUE/OUTFILE="($result_annotations_filename)"/APPEND ($out) !-> MESSAGE/QUIET/CONTINUE/OUTFILE="/usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_annotations.xml"/APPEND </annotation> ! Exit_GO ENDIF IF ($data_0_dataset_ID"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL out = <annotation type="dataset_ID"> GO write_to_xml ! Enter_GO write_to_xml MESSAGE/QUIET/CONTINUE/OUTFILE="($result_annotations_filename)"/APPEND ($out) !-> MESSAGE/QUIET/CONTINUE/OUTFILE="/usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_annotations.xml"/APPEND <annotation type="dataset_ID"> ! Exit_GO DEFINE SYMBOL out = `LIST_VALUE_XML("value", "($data_0_dataset_ID)", 1, "($result_annotations_filename)" )` !-> DEFINE SYMBOL out = 1 DEFINE SYMBOL out = </annotation> GO write_to_xml ! Enter_GO write_to_xml MESSAGE/QUIET/CONTINUE/OUTFILE="($result_annotations_filename)"/APPEND ($out) !-> MESSAGE/QUIET/CONTINUE/OUTFILE="/usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_annotations.xml"/APPEND </annotation> ! Exit_GO ENDIF IF ($data_1_dataset_ID"0|*>1") THEN !-> IF 0 THEN ENDIF IF ($dataset_ID_lab"0|*>1") THEN !-> IF 0 THEN ENDIF IF ($dataset_url_lab"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL out = <annotation type="dataset_url"> GO write_to_xml ! Enter_GO write_to_xml MESSAGE/QUIET/CONTINUE/OUTFILE="($result_annotations_filename)"/APPEND ($out) !-> MESSAGE/QUIET/CONTINUE/OUTFILE="/usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_annotations.xml"/APPEND <annotation type="dataset_url"> ! Exit_GO DEFINE SYMBOL out = `LIST_VALUE_XML("value", "($dataset_url_lab)", 1, "($result_annotations_filename)" )` !-> DEFINE SYMBOL out = 1 DEFINE SYMBOL out = </annotation> GO write_to_xml ! Enter_GO write_to_xml MESSAGE/QUIET/CONTINUE/OUTFILE="($result_annotations_filename)"/APPEND ($out) !-> MESSAGE/QUIET/CONTINUE/OUTFILE="/usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_annotations.xml"/APPEND </annotation> ! Exit_GO ENDIF DEFINE SYMBOL out = </annotation_group> GO write_to_xml ! Enter_GO write_to_xml MESSAGE/QUIET/CONTINUE/OUTFILE="($result_annotations_filename)"/APPEND ($out) !-> MESSAGE/QUIET/CONTINUE/OUTFILE="/usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_annotations.xml"/APPEND </annotation_group> ! Exit_GO ! Exit_GO IF ($las_ferret_header_label"0|*>1") THEN !-> IF 1 THEN DEFINE SYMBOL out = <annotation_group type="las"> GO write_to_xml ! Enter_GO write_to_xml MESSAGE/QUIET/CONTINUE/OUTFILE="($result_annotations_filename)"/APPEND ($out) !-> MESSAGE/QUIET/CONTINUE/OUTFILE="/usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_annotations.xml"/APPEND <annotation_group type="las"> ! Exit_GO DEFINE SYMBOL out = <annotation type="header"> GO write_to_xml ! Enter_GO write_to_xml MESSAGE/QUIET/CONTINUE/OUTFILE="($result_annotations_filename)"/APPEND ($out) !-> MESSAGE/QUIET/CONTINUE/OUTFILE="/usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_annotations.xml"/APPEND <annotation type="header"> ! Exit_GO DEFINE SYMBOL out = `LIST_VALUE_XML("value", "($las_ferret_header_label)", 1, "($result_annotations_filename)" )` !-> DEFINE SYMBOL out = 1 DEFINE SYMBOL out = </annotation> GO write_to_xml ! Enter_GO write_to_xml MESSAGE/QUIET/CONTINUE/OUTFILE="($result_annotations_filename)"/APPEND ($out) !-> MESSAGE/QUIET/CONTINUE/OUTFILE="/usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_annotations.xml"/APPEND </annotation> ! Exit_GO DEFINE SYMBOL out = </annotation_group> GO write_to_xml ! Enter_GO write_to_xml MESSAGE/QUIET/CONTINUE/OUTFILE="($result_annotations_filename)"/APPEND ($out) !-> MESSAGE/QUIET/CONTINUE/OUTFILE="/usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_annotations.xml"/APPEND </annotation_group> ! Exit_GO ENDIF IF `($note_num"0") GT 0 OR ($calendar_lab"0|*>1") OR ($dataset_institute_lab"0|*>1")` THEN !-> IF 1 THEN DEFINE SYMBOL out = <annotation_group type="notes"> GO write_to_xml ! Enter_GO write_to_xml MESSAGE/QUIET/CONTINUE/OUTFILE="($result_annotations_filename)"/APPEND ($out) !-> MESSAGE/QUIET/CONTINUE/OUTFILE="/usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_annotations.xml"/APPEND <annotation_group type="notes"> ! Exit_GO IF `($note_num"0") GT 0` THEN !-> IF 1 THEN ) !-> REPEAT/RANGE=1:2/NAME=m ( DEFINE SYMBOL mnote = `m`; IF `($note_($mnote)_lab"0|*>1") EQ 0` THEN EXIT/CYCLE; DEFINE SYMBOL out = <annotation type="note">; GO write_to_xml; CANCEL SYMBOL qn; IF ($note_($mnote)_lab_quoted"0|*>1") THEN REPEAT/RANGE=1:5/NAME=q (GO set_quoted_annotation ($mnote); IF `still_quoted EQ 0` THEN EXIT/LOOP); ; sh var note_($mnote)_lab; DEFINE SYMBOL note_status = `note_($mnote)_lab,return=status`; DEFINE SYMBOL note_ready = `($note_status"0|AVAILABLE>1|*>0")`; IF ($note_ready) THEN ; DEFINE SYMBOL out = `LIST_VALUE_XML("value", note_($mnote)_lab, 1, "($result_annotations_filename)" )`; ELSE; DEFINE SYMBOL out = `LIST_VALUE_XML("value", "($note_($mnote)_lab)", 1, "($result_annotations_filename)" )`; ENDIF; DEFINE SYMBOL out = </annotation>; GO write_to_xml; ) !-> REPEAT: M:1 !-> ( DEFINE SYMBOL mnote = `m`; IF `($note_($mnote)_lab"0|*>1") EQ 0` THEN EXIT/CYCLE; DEFINE SYMBOL out = <annotation type="note">; GO write_to_xml; CANCEL SYMBOL qn; IF ($note_($mnote)_lab_quoted"0|*>1") THEN REPEAT/RANGE=1:5/NAME=q (GO set_quoted_annotation ($mnote); IF `still_quoted EQ 0` THEN EXIT/LOOP); ; sh var note_($mnote)_lab; DEFINE SYMBOL note_status = `note_($mnote)_lab,return=status`; DEFINE SYMBOL note_ready = `($note_status"0|AVAILABLE>1|*>0")`; IF ($note_ready) THEN ; DEFINE SYMBOL out = `LIST_VALUE_XML("value", note_($mnote)_lab, 1, "($result_annotations_filename)" )`; ELSE; DEFINE SYMBOL out = `LIST_VALUE_XML("value", "($note_($mnote)_lab)", 1, "($result_annotations_filename)" )`; ENDIF; DEFINE SYMBOL out = </annotation>; GO write_to_xml; ) !-> DEFINE SYMBOL mnote = `m` !-> DEFINE SYMBOL mnote = 1 !-> IF `($note_($mnote)_lab"0|*>1") EQ 0` THEN EXIT/CYCLE !-> IF 0 THEN EXIT/CYCLE !-> DEFINE SYMBOL out = <annotation type="note"> !-> GO write_to_xml ! Enter_GO write_to_xml MESSAGE/QUIET/CONTINUE/OUTFILE="($result_annotations_filename)"/APPEND ($out) !-> MESSAGE/QUIET/CONTINUE/OUTFILE="/usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_annotations.xml"/APPEND <annotation type="note"> ! Exit_GO !-> CANCEL SYMBOL qn !-> IF ($note_($mnote)_lab_quoted"0|*>1") THEN REPEAT/RANGE=1:5/NAME=q (GO set_quoted_annotation ($mnote); IF `still_quoted EQ 0` THEN EXIT/LOOP) !-> IF 0 THEN REPEAT/RANGE=1:5/NAME=q (GO set_quoted_annotation 1; IF `still_quoted EQ 0` THEN EXIT/LOOP) !-> !-> sh var note_($mnote)_lab !-> sh var note_1_lab !-> DEFINE SYMBOL note_status = `note_($mnote)_lab,return=status` !-> DEFINE SYMBOL note_status = UNKNOWN VARIABLE: NOTE_1_LAB !-> DEFINE SYMBOL note_ready = `($note_status"0|AVAILABLE>1|*>0")` !-> DEFINE SYMBOL note_ready = 0 !-> IF ($note_ready) THEN !-> IF 0 THEN !-> ELSE !-> DEFINE SYMBOL out = `LIST_VALUE_XML("value", "($note_($mnote)_lab)", 1, "($result_annotations_filename)" )` !-> DEFINE SYMBOL out = 1 !-> ENDIF !-> DEFINE SYMBOL out = </annotation> !-> GO write_to_xml ! Enter_GO write_to_xml MESSAGE/QUIET/CONTINUE/OUTFILE="($result_annotations_filename)"/APPEND ($out) !-> MESSAGE/QUIET/CONTINUE/OUTFILE="/usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_annotations.xml"/APPEND </annotation> ! Exit_GO !-> REPEAT: M:2 !-> ( DEFINE SYMBOL mnote = `m`; IF `($note_($mnote)_lab"0|*>1") EQ 0` THEN EXIT/CYCLE; DEFINE SYMBOL out = <annotation type="note">; GO write_to_xml; CANCEL SYMBOL qn; IF ($note_($mnote)_lab_quoted"0|*>1") THEN REPEAT/RANGE=1:5/NAME=q (GO set_quoted_annotation ($mnote); IF `still_quoted EQ 0` THEN EXIT/LOOP); ; sh var note_($mnote)_lab; DEFINE SYMBOL note_status = `note_($mnote)_lab,return=status`; DEFINE SYMBOL note_ready = `($note_status"0|AVAILABLE>1|*>0")`; IF ($note_ready) THEN ; DEFINE SYMBOL out = `LIST_VALUE_XML("value", note_($mnote)_lab, 1, "($result_annotations_filename)" )`; ELSE; DEFINE SYMBOL out = `LIST_VALUE_XML("value", "($note_($mnote)_lab)", 1, "($result_annotations_filename)" )`; ENDIF; DEFINE SYMBOL out = </annotation>; GO write_to_xml; ) !-> DEFINE SYMBOL mnote = `m` !-> DEFINE SYMBOL mnote = 2 !-> IF `($note_($mnote)_lab"0|*>1") EQ 0` THEN EXIT/CYCLE !-> IF 0 THEN EXIT/CYCLE !-> DEFINE SYMBOL out = <annotation type="note"> !-> GO write_to_xml ! Enter_GO write_to_xml MESSAGE/QUIET/CONTINUE/OUTFILE="($result_annotations_filename)"/APPEND ($out) !-> MESSAGE/QUIET/CONTINUE/OUTFILE="/usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_annotations.xml"/APPEND <annotation type="note"> ! Exit_GO !-> CANCEL SYMBOL qn !-> IF ($note_($mnote)_lab_quoted"0|*>1") THEN REPEAT/RANGE=1:5/NAME=q (GO set_quoted_annotation ($mnote); IF `still_quoted EQ 0` THEN EXIT/LOOP) !-> IF 0 THEN REPEAT/RANGE=1:5/NAME=q (GO set_quoted_annotation 2; IF `still_quoted EQ 0` THEN EXIT/LOOP) !-> !-> sh var note_($mnote)_lab !-> sh var note_2_lab !-> DEFINE SYMBOL note_status = `note_($mnote)_lab,return=status` !-> DEFINE SYMBOL note_status = UNKNOWN VARIABLE: NOTE_2_LAB !-> DEFINE SYMBOL note_ready = `($note_status"0|AVAILABLE>1|*>0")` !-> DEFINE SYMBOL note_ready = 0 !-> IF ($note_ready) THEN !-> IF 0 THEN !-> ELSE !-> DEFINE SYMBOL out = `LIST_VALUE_XML("value", "($note_($mnote)_lab)", 1, "($result_annotations_filename)" )` !-> DEFINE SYMBOL out = 1 !-> ENDIF !-> DEFINE SYMBOL out = </annotation> !-> GO write_to_xml ! Enter_GO write_to_xml MESSAGE/QUIET/CONTINUE/OUTFILE="($result_annotations_filename)"/APPEND ($out) !-> MESSAGE/QUIET/CONTINUE/OUTFILE="/usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_annotations.xml"/APPEND </annotation> ! Exit_GO ENDIF IF ($calendar_lab"0|*>1") THEN !-> IF 0 THEN ENDIF IF ($dataset_institute_lab"0|*>1") THEN !-> IF 0 THEN ENDIF DEFINE SYMBOL out = </annotation_group> GO write_to_xml ! Enter_GO write_to_xml MESSAGE/QUIET/CONTINUE/OUTFILE="($result_annotations_filename)"/APPEND ($out) !-> MESSAGE/QUIET/CONTINUE/OUTFILE="/usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_annotations.xml"/APPEND </annotation_group> ! Exit_GO ENDIF DEFINE SYMBOL out = </annotations> GO write_to_xml ! Enter_GO write_to_xml MESSAGE/QUIET/CONTINUE/OUTFILE="($result_annotations_filename)"/APPEND ($out) !-> MESSAGE/QUIET/CONTINUE/OUTFILE="/usr/share/tomcat/webapps/las/output/E2253A97F5022824FE3DF9B3E4E188E0_annotations.xml"/APPEND </annotations> ! Exit_GO ! Exit_GO ENDIF IF ($result_colorbar_filename%0|*>1%) THEN GO colorbar !-> IF 0 THEN GO colorbar IF ($ferret_use_ref_map%0|false>0|*>1%) THEN !-> IF 0 THEN ENDIF ! Exit_GO ! Exit_GO ELSE ENDIF ! Exit_GO ! Exit_GO show memory SET MEMORY/SIZE: 999999 megawords Peak demand: 1.881504 megawords Current cache: 132517 words ! Exit_GO !-> EXIT/PROGRAM