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 steps
RefTime = 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