[Thread Prev][Thread Next][Index]
[las_users] inconsistent sizes of data regions: X and Y vector components
- To: las_users@xxxxxxxx
- Subject: [las_users] inconsistent sizes of data regions: X and Y vector components
- From: Favio Medrano <faviomj@xxxxxxxxx>
- Date: Sun, 26 Nov 2017 13:35:24 -0800
- Arc-authentication-results: i=4; mx.google.com; dkim=pass header.i=@gmail.com header.s=20161025 header.b=rC0+Iwrg; arc=pass (i=2 dkim=pass dkdomain=gmail.com); spf=softfail (google.com: domain of transitioning faviomj@xxxxxxxxx does not designate 52.222.5.176 as permitted sender) smtp.mailfrom=faviomj@xxxxxxxxx; dmarc=pass (p=NONE sp=NONE dis=NONE) header.from=gmail.com
- Arc-authentication-results: i=3; mx.google.com; dkim=pass header.i=@gmail.com header.s=20161025 header.b=rC0+Iwrg; arc=pass (i=2 dkim=pass dkdomain=gmail.com); spf=softfail (google.com: domain of transitioning faviomj@xxxxxxxxx does not designate 52.222.5.176 as permitted sender) smtp.mailfrom=faviomj@xxxxxxxxx; dmarc=pass (p=NONE sp=NONE dis=NONE) header.from=gmail.com
- Arc-authentication-results: i=2; mx.google.com; dkim=pass header.i=@gmail.com header.s=20161025 header.b=rC0+Iwrg; arc=pass (i=1 spf=pass spfdomain=gmail.com dkim=pass dkdomain=gmail.com dmarc=pass fromdomain=gmail.com); spf=softfail (google.com: domain of transitioning faviomj@xxxxxxxxx does not designate 65.127.216.230 as permitted sender) smtp.mailfrom=faviomj@xxxxxxxxx
- Arc-authentication-results: i=1; mx.google.com; dkim=pass header.i=@gmail.com header.s=20161025 header.b=rC0+Iwrg; spf=pass (google.com: domain of faviomj@xxxxxxxxx designates 209.85.220.41 as permitted sender) smtp.mailfrom=faviomj@xxxxxxxxx; dmarc=pass (p=NONE sp=NONE dis=NONE) header.from=gmail.com
- Arc-message-signature: i=4; a=rsa-sha256; c=relaxed/relaxed; d=google.com; s=arc-20160816; h=list-archive:list-help:list-post:list-id:mailing-list:precedence:to :subject:date:from:mime-version:arc-authentication-results :arc-message-signature:arc-authentication-results :arc-message-signature:message-id:arc-authentication-results :arc-message-signature:dkim-signature:arc-authentication-results; bh=SuT+frIZceX4IBet7cnxltElq7Pq6c6Jpz+SIkVb6hA=; b=z6S4PZC5aXCp254qHflL8WdG8lF8Paj/frjZSVq2Mor8XlQ+PTYnfDLaFPrSkFMDWB /QJ85jlDvgutRmfVhGcDnqCdV60HW4n4DByK0WYTmsQUh/qruF5O+z5NN5mxjrrWWIEE tSLZMBBTixefHW/67ILfVrUGtHOWdIZk8r9+kpAQatA/KWBeIlQ7AcC3yArkWR/03nng yMAtjXbicV/K3cjlDLcaljULNVOa94JcE/yJxoPqmGevLBQDkd6T9Z6MAr3EX949oOMa K3MIEaizmNLVQpxkjceIQcRSiO6ynehpCCXBx7Fvv1bg6B+MnPjn000AmWcA5l2sYsac 1Jxw==
- Arc-message-signature: i=3; a=rsa-sha256; c=relaxed/relaxed; d=google.com; s=arc-20160816; h=to:subject:date:from:mime-version:dkim-signature :arc-authentication-results:arc-message-signature :arc-authentication-results:arc-message-signature:message-id :arc-authentication-results; bh=SuT+frIZceX4IBet7cnxltElq7Pq6c6Jpz+SIkVb6hA=; b=hVlebRa1mxJhljIdddB6Q/MnOunIOGcLyj8nP2BYieMiZ6cmlRqE8D4RuEaoo8Lka+ OTiMC91qU766g+R5gAcSIK2tpFYqkRay34gkDaQpYzY+zQ0K6K3OzVHegmr9hAYui2ya M7eNSzMyINgwjhnuCa6KflcwajsNBaMSePCXFiAZyh2S2ZKVqoMxNx4tqndNhZeF0/6w sd5l9FVtO0rcUz1AQ73zLlF5YweTjAuhKT4dRyE9RHti3zxB86IQ6I+y/TYpef6MD7m/ QYgSZfN/ELvh07MdCVFU8d/pcYpWCiUM7dGxZxvixyPSqgO2pbV+weJmEdx3Jch63j0I DT2A==
- Arc-message-signature: i=2; a=rsa-sha256; c=relaxed/relaxed; d=google.com; s=arc-20160816; h=to:subject:message-id:date:from:mime-version:dkim-signature :arc-authentication-results:arc-message-signature :arc-authentication-results; bh=SuT+frIZceX4IBet7cnxltElq7Pq6c6Jpz+SIkVb6hA=; b=pNM4RXmGP6XxxNBtFGtF+dMdJ0H6zq1wd8U4dQ/DjXUKmUaG/RmjMz4l4YfK2Ux3Jc vxbeKDEEu4YO+ixSDL76rhvdPLVd2SmU99kybNXevXzDYWrwgbQ4L5mrU21Rn9avOvAZ Fv1Rn8uk+whw3PB3X9tSOD3hwFiOJSe6KhRFZwkX+JRQNBOZclnCsVjUmhAI/zHxKjjQ LNY1lgln/ax/a6IIZzz5Ml532tOoI/va/nIcfoZ9/WRYEXSXx+k8rze2pdz4v55oFjJ5 hrNlVErWd/fJs2Pxd0bQhKLywzuO2bBI0VKja44wFlm8H83TSQv8IC6edhFVTKepOkL7 mfVw==
- Arc-message-signature: i=1; a=rsa-sha256; c=relaxed/relaxed; d=google.com; s=arc-20160816; h=to:subject:message-id:date:from:mime-version:dkim-signature :arc-authentication-results; bh=SuT+frIZceX4IBet7cnxltElq7Pq6c6Jpz+SIkVb6hA=; b=ICpwnOfsneKF/P6YibqQo5kpvHi6DaO3xzsTXk3A7RCC5iSaPl/ay20Mqb7hdubu1J TFCysWjCMn8sI0idNXvNKESDz1ALptaEl7nIV4tmnX5IaFRiV4qbOFmpHw308soBTZk0 Y+Gbbp42XwhiW7ASndIlxaDMmF6bZYNAWZ+BC7TnI0hdWx6wlpa1e+Fd8hMeUmDSaT1P L9yAfMM2zEEOS881egjEu+60ir2WEvuwHryko7ILlscSFodPDnmhAs7g9aIGEXkjSnqP 5sQMCRDj8BGjWjbb12thtl5QHQTqm9tcWypMt6CBMXgQzdlD1edTY4wz1/f14kS/DJ+e fZng==
- Arc-seal: i=4; a=rsa-sha256; t=1511732209; cv=pass; d=google.com; s=arc-20160816; b=pi+uGiXYVhSLxNGFRzhZbOUAyS36yGHUCNuZgPgIixb8E4d1NGUYxwwbetrSAv24jG aOS2xlw2JUZ6phzL81y2diTwdlBcWKftNP5BUQ4OJrXj8MIGvdDgRXjgJsGJZCZCDfpP SUeZZUUCcp61TqjHntO2dQy+9j5g8yzXYfo0fOmSxC59LEhiXTRYOWhXdfXkwtzsNzBg z9TOrMLH7BsJwelGS+tjiDbnhmSADVzojpehpxoisIy+yCP6ihRQ6PSOdq8yxEZ9DG5A DsUlWdvjbmA2CTEeYeqv0uk8WjtMJTtleNdpgCCv3oU3B1YkqTxAIN11spn7u3dTmWpX 004A==
- Arc-seal: i=3; a=rsa-sha256; t=1511732208; cv=pass; d=google.com; s=arc-20160816; b=Y/kG7nJKhG6W2yi771KX28JPX1aUfl1iPuHXi43BqXd4UWE77m015gTHah8MJHdBzX I13iA+LBvgr25IsIJYiUXXmZ+8yoGGqX/LbKMpX2xpJbI5E7vJz54t4h8hiabyTpp5b4 mmJt4i8zEQr8B7c0ECqmWoDxc6jYsLSsUYoIKOUAvNVs3yNTi6rpfT/AlPpQ16n2fq2S TvHtrQNfRPsdiCgoM1X8k5YdBOZ2sXy6JH+gNgheeA4MFdShgcpPpXDqIvKzWYsqxR3X O/3kNrUXQypP0dUzBaiNia0zD0Z6zuNE6FK1KrG+3T0VU2uiGchY/idiWSVDoXD8ZrHS tH+g==
- Arc-seal: i=2; a=rsa-sha256; t=1511732131; cv=pass; d=google.com; s=arc-20160816; b=KBmd9t7DbvU/MCY+HNkwFZ/LXyl9qgF9bSUtW0cuebRtzfaH2No3g/EiGpL2pkbwDF 3Ty28ZWGoIhBC3zb9tIQMu8Pow/dBY4FmOBvEEWY7PCRPfGDqkhCBKJMQlIPfUxeJO0o TkvDx7qtSzyfLlDYDj8BGI+4uzOiShacl8+IXLPInPWrhB2AIUL+B1nauezZc6/T4BEM xTNzR5gixYiKIIffdqmCbS5Oz2JbzAKls4hg/9LApL7dcstAe9pLA15UpHVYidSUHFEQ oFmAioxJ+E+72jIiDdK03vl8cjTIaSDFUjqtnuEoDB4VqZ3ek0qa0d8IReURnjEVG9Sn ZUzA==
- Arc-seal: i=1; a=rsa-sha256; t=1511732126; cv=none; d=google.com; s=arc-20160816; b=jXdwjrVlkPozBUAr3FKM0AGhWn0ETRCc0GChgqDbxbs7AahKa5l1xKDVzbVHNBhXhA SBL6Q0eV7XplIXJ9TxZ27EFqs8I133AcMEKNA/gnprnStifWQWJrEvZXCPeaV3W7enEC BIgs3XBqvULiCt1iYzAe3cgjwOmn7LV9uQ88/WEQKUhjl0mC+LRtp4/2xjJwBpYI2Quo DQtqZsAXOIjOXUoaBeSDZbgbvREIf2f+23x7ZN+gbwfkDkDRc04TKUaJgo5vFPjMI8eB av9sI+Z7CpHfm0aoZl6JiW4XhyIr++scrnbizqccDihKC6G0Ti0pdMt80xkv9uY3wCuB XV7w==
- Dkim-signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=noaa-gov.20150623.gappssmtp.com; s=20150623; h=message-id:mime-version:from:date:subject:to:x-original-sender :x-original-authentication-results:precedence:mailing-list:list-id :list-post:list-help:list-archive; bh=SuT+frIZceX4IBet7cnxltElq7Pq6c6Jpz+SIkVb6hA=; b=ux88dhdqgwl10QvFPc1LphXxZIgpN43kvXh5MLXlPxA1YW+zucqN/1dU8Hoq8+PtwZ xp7iHVeb5i6X9oUvCtp/8qRkLDjzJ+vaq0UNGZBPRggYJwSAdT0Xw68HRaJ4q67+El3u M02eTCDuLdRwiMElnsHG0UQqj1D7IxBd8UsbHac5snaPm/yYfO6CdFhqwDROWMxhqnnM AcCRP73To3IGI34YZGLbJ/nq9GFxAUZEXw6UuKSoow719mJgZyEUD8osdSiWP+zLsgvt eUZUkUWY7/UMMvrP+llweLJ9z6v3ZH5oDvEVsxyZgouL8M86C0+/RXnndQUxuAqfmB6/ T80A==
- List-archive: <https://groups.google.com/a/noaa.gov/group/las_users/>
- List-help: <https://support.google.com/a/noaa.gov/bin/topic.py?topic=25838>, <mailto:las_users+help@noaa.gov>
- List-id: <las_users.noaa.gov>
- List-post: <https://groups.google.com/a/noaa.gov/group/las_users/post>, <mailto:las_users@noaa.gov>
- Mailing-list: list las_users@xxxxxxxx; contact las_users+owners@xxxxxxxx
- Sender: owner-las_users@xxxxxxxx
Hello
I'm using Las 8.6.2 to serve data from ocean numerical models, i'm having a issue with one curvilinear dataset.
When we try to plot the full region it doesnt plot the water velocity vectors, but if i select a smaller region with the map widget, sometimes it plots correctly. And all the other variables are plot correctly.
I'm attaching the debug outputs of this two scenarios, one that works and the bad one.
Also the xml definition of the dataset.
I can't figure out why is selecting a different ranges for the velocity components.
Any idea on what i'm doing wrong.
Regards
Cached data cleared from memory
**ERROR: inconsistent sizes of data regions: X and Y vector components
VECTOR/COLOR=blue/XSKIP=40/YSKIP=40/HLIM=-98.40654:-78.61/VLIM=14.1861:30.68/TITLE=" "/XSKIP=40/YSKIP=40/SET 'VOZOCRTX_X'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:174,j=1:159], 'VOMECRTY_Y'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:715,j=1:652], xcoord, ycoord
Command file, command group, or REPEAT execution aborted
ERROR RUNNING SCRIPT
go "$1"
!-> go "/home/hmedrano/tomcat/webapps/las/WEB-INF/classes/resources/ferret/temp/ferret_operation_181978_1510791080514.jnl"
! Symbols from the server
DEFINE SYMBOL data_0_ID = vozocrtx_X-id-13a3ca1b86
DEFINE SYMBOL data_0_dataset_ID = id-13a3ca1b86
DEFINE SYMBOL data_0_dataset_name = NEMO GOLFO36 Climatology
DEFINE SYMBOL data_0_dataset_url = http://cicese.mx/thredds/dodsC/hidrocarburos/linea3/climatologias/nemo-golfo-36
DEFINE SYMBOL data_0_dsid = id-13a3ca1b86
DEFINE SYMBOL data_0_ftds_url = http://cicese.mx:8080/thredds/dodsC/las/id-13a3ca1b86/data_cicese.mx_thredds_dodsC_hidrocarburos_linea3_climatologias_nemo-golfo-36.jnl
DEFINE SYMBOL data_0_grid_type = regular
DEFINE SYMBOL data_0_intervals = xyzt
DEFINE SYMBOL data_0_name = eastward velocity
DEFINE SYMBOL data_0_points = xyzt
DEFINE SYMBOL data_0_region = region_0
DEFINE SYMBOL data_0_title = eastward velocity
DEFINE SYMBOL data_0_units = m/s
DEFINE SYMBOL data_0_url = http://cicese.mx/thredds/dodsC/hidrocarburos/linea3/climatologias/nemo-golfo-36
DEFINE SYMBOL data_0_var = vozocrtx_X
DEFINE SYMBOL data_0_xpath = /lasdata/datasets/id-13a3ca1b86/variables/vozocrtx_X-id-13a3ca1b86
DEFINE SYMBOL data_1_ID = vomecrty_Y-id-13a3ca1b86
DEFINE SYMBOL data_1_dataset_ID = id-13a3ca1b86
DEFINE SYMBOL data_1_dataset_name = NEMO GOLFO36 Climatology
DEFINE SYMBOL data_1_dataset_url = http://cicese.mx/thredds/dodsC/hidrocarburos/linea3/climatologias/nemo-golfo-36
DEFINE SYMBOL data_1_dsid = id-13a3ca1b86
DEFINE SYMBOL data_1_ftds_url = http://cicese.mx:8080/thredds/dodsC/las/id-13a3ca1b86/data_cicese.mx_thredds_dodsC_hidrocarburos_linea3_climatologias_nemo-golfo-36.jnl
DEFINE SYMBOL data_1_grid_type = regular
DEFINE SYMBOL data_1_intervals = xyzt
DEFINE SYMBOL data_1_name = northward velocity
DEFINE SYMBOL data_1_points = xyzt
DEFINE SYMBOL data_1_region = region_1
DEFINE SYMBOL data_1_title = northward velocity
DEFINE SYMBOL data_1_units = m/s
DEFINE SYMBOL data_1_url = http://cicese.mx/thredds/dodsC/hidrocarburos/linea3/climatologias/nemo-golfo-36
DEFINE SYMBOL data_1_var = vomecrty_Y
DEFINE SYMBOL data_1_xpath = /lasdata/datasets/id-13a3ca1b86/variables/vomecrty_Y-id-13a3ca1b86
DEFINE SYMBOL data_count = 2
DEFINE SYMBOL ferret_annotations = file
DEFINE SYMBOL ferret_curv_lon_max = -78.57984
DEFINE SYMBOL ferret_curv_lon_min = -98.40654
DEFINE SYMBOL ferret_curvi_coord_lat = nav_lat
DEFINE SYMBOL ferret_curvi_coord_lon = nav_lon
DEFINE SYMBOL ferret_fill_type = fill
DEFINE SYMBOL ferret_image_format = gif
DEFINE SYMBOL ferret_land_type = contour
DEFINE SYMBOL ferret_memsize = 2048
DEFINE SYMBOL ferret_service_action = Plot_vector
DEFINE SYMBOL ferret_set_aspect = 1
DEFINE SYMBOL ferret_size = .8333
DEFINE SYMBOL ferret_use_graticules = black
DEFINE SYMBOL ferret_vector_name = Vector of vozocrtx and vomecrty
DEFINE SYMBOL ferret_vector_subsampling = 40,40
DEFINE SYMBOL ferret_view = xy
DEFINE SYMBOL las_debug = false
DEFINE SYMBOL las_output_type = xml
DEFINE SYMBOL operation_ID = Plot_vector
DEFINE SYMBOL operation_key = 2655DB0C5A7E7BE99454A1E38085A3E4
DEFINE SYMBOL operation_name = Vector plot
DEFINE SYMBOL operation_service = ferret
DEFINE SYMBOL operation_service_action = Plot_vector
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 = 03-Jan-2012 00:00
DEFINE SYMBOL region_0_t_lo = 03-Jan-2012 00:00
DEFINE SYMBOL region_0_x_hi = -78.61
DEFINE SYMBOL region_0_x_lo = -98.40654
DEFINE SYMBOL region_0_y_hi = 30.68
DEFINE SYMBOL region_0_y_lo = 14.1861
DEFINE SYMBOL region_0_z_hi = 2.6677
DEFINE SYMBOL region_0_z_lo = 2.6677
DEFINE SYMBOL region_1_t_hi = 03-Jan-2012 00:00
DEFINE SYMBOL region_1_t_lo = 03-Jan-2012 00:00
DEFINE SYMBOL region_1_x_hi = -78.61
DEFINE SYMBOL region_1_x_lo = -98.40654
DEFINE SYMBOL region_1_y_hi = 30.68
DEFINE SYMBOL region_1_y_lo = 14.1861
DEFINE SYMBOL region_1_z_hi = 2.6677
DEFINE SYMBOL region_1_z_lo = 2.6677
DEFINE SYMBOL result_annotations_ID = annotations
DEFINE SYMBOL result_annotations_filename = /usr/share/tomcat/webapps/las/output/2655DB0C5A7E7BE99454A1E38085A3E4_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/2655DB0C5A7E7BE99454A1E38085A3E4_cancel.txt
DEFINE SYMBOL result_cancel_type = cancel
DEFINE SYMBOL result_count = 8
DEFINE SYMBOL result_debug_ID = debug
DEFINE SYMBOL result_debug_filename = /usr/share/tomcat/webapps/las/output/2655DB0C5A7E7BE99454A1E38085A3E4_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/2655DB0C5A7E7BE99454A1E38085A3E4_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/2655DB0C5A7E7BE99454A1E38085A3E4_plot_image.png
DEFINE SYMBOL result_plot_image_type = image
DEFINE SYMBOL result_ref_map_ID = ref_map
DEFINE SYMBOL result_ref_map_filename = /usr/share/tomcat/webapps/las/output/2655DB0C5A7E7BE99454A1E38085A3E4_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/0D7142C90E12BB605A013338F2937366_rss.rss
DEFINE SYMBOL result_rss_type = rss
GO ($operation_service_action)
!-> GO Plot_vector
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! $Author: ACM $
!
! Plot_vector.jnl decides which script to call to make a 2D vector plot.
! as in Plot_2D.jnl, choose the direction and call the appropriate 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/2655DB0C5A7E7BE99454A1E38085A3E4_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/2655DB0C5A7E7BE99454A1E38085A3E4_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/2655DB0C5A7E7BE99454A1E38085A3E4_plot_image.png_12682
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/2655DB0C5A7E7BE99454A1E38085A3E4_plot_image.png.gif"
DEFINE SYMBOL reset_gifname = 1
ENDIF
ENDIF
! End of file ------------ LAS_initial_setup.jnl--------------------------
! Exit_GO
IF ($ferret_view"|xt>1|*>0") THEN
!-> IF 0 THEN
ELIF ($ferret_view"|xy>1|*>0") THEN
!-> ELIF 1 THEN
go xy_vector_plot
! Enter_GO xy_vector_plot
IF ($ferret_interpolate_data%0|false>0|true>1|1|0|*>1%) THEN SET MODE INTERPOLATE
!-> IF 0 THEN SET MODE INTERPOLATE
DEFINE SYMBOL itsa_vector_plot = 1
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 = -98.40654
DEFINE SYMBOL region_x_hi = `INT(100000 * ($($region)_x_hi)) / 100000`
!-> DEFINE SYMBOL region_x_hi = -78.61
DEFINE SYMBOL limits_x = ($region_x_lo):($region_x_hi)
!-> DEFINE SYMBOL limits_x = -98.40654:-78.61
DEFINE SYMBOL limits_x_m360 = `($region_x_lo)-360`:`($region_x_hi)-360`
!-> DEFINE SYMBOL limits_x_m360 = -458.40654:-438.61
DEFINE SYMBOL limits_x_p360 = `($region_x_lo)+360`:`($region_x_hi)+360`
!-> DEFINE SYMBOL limits_x_p360 = 261.59346:281.39
DEFINE SYMBOL region_x = X=($region_x_lo):($region_x_hi)
!-> DEFINE SYMBOL region_x = X=-98.40654:-78.61
DEFINE SYMBOL region_x_m360 X=`($region_x_lo)-360`:`($region_x_hi)-360`
!-> DEFINE SYMBOL region_x_m360 X=-458.40654:-438.61
DEFINE SYMBOL region_x_p360 X=`($region_x_lo)+360`:`($region_x_hi)+360`
!-> DEFINE SYMBOL region_x_p360 X=261.59346:281.39
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 = 19.79654
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 = 14.186
DEFINE SYMBOL region_y_hi = `INT(1000 * ($($region)_y_hi)) / 1000`
!-> DEFINE SYMBOL region_y_hi = 30.68
DEFINE SYMBOL limits_y = ($region_y_lo):($region_y_hi)
!-> DEFINE SYMBOL limits_y = 14.186:30.68
DEFINE SYMBOL region_y = Y=($region_y_lo):($region_y_hi)
!-> DEFINE SYMBOL region_y = Y=14.186:30.68
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.494
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 = 2.6677
DEFINE SYMBOL region_z_hi = ($($region)_z_hi)
!-> DEFINE SYMBOL region_z_hi = 2.6677
DEFINE SYMBOL limits_z = ($region_z_lo):($region_z_hi)
!-> DEFINE SYMBOL limits_z = 2.6677:2.6677
DEFINE SYMBOL region_z = Z=($region_z_lo):($region_z_hi)
!-> DEFINE SYMBOL region_z = Z=2.6677:2.6677
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 = 03-Jan-2012 00:00
DEFINE SYMBOL region_t_hi = ($($region)_t_hi)
!-> DEFINE SYMBOL region_t_hi = 03-Jan-2012 00:00
DEFINE SYMBOL limits_t \"($region_t_lo)\":\"($region_t_hi)\"
!-> DEFINE SYMBOL limits_t \"03-Jan-2012 00:00\":\"03-Jan-2012 00:00\"
DEFINE SYMBOL region_t T=\"($region_t_lo)\":\"($region_t_hi)\"
!-> DEFINE SYMBOL region_t T=\"03-Jan-2012 00:00\":\"03-Jan-2012 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=-98.40654:-78.61,Y=14.186:30.68
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=-98.40654:-78.61,Z=2.6677:2.6677
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=-98.40654:-78.61,T="03-Jan-2012 00:00":"03-Jan-2012 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=14.186:30.68,Z=2.6677:2.6677
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=14.186:30.68,T="03-Jan-2012 00:00":"03-Jan-2012 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=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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=-98.40654:-78.61,Y=14.186:30.68,Z=2.6677:2.6677
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=-98.40654:-78.61,Y=14.186:30.68,T="03-Jan-2012 00:00":"03-Jan-2012 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=-98.40654:-78.61,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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=14.186:30.68,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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=-98.40654:-78.61,Y=14.186:30.68,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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=-98.40654:-78.61,Y=14.186:30.68,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
ENDIF
ELSE
ENDIF
DEFINE SYMBOL region_full = ($region_xyzte)
!-> DEFINE SYMBOL region_full = X=-98.40654:-78.61,Y=14.186:30.68,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_x"0|*>1") THEN DEFINE SYMBOL region_($num)_x = ($region_x)
!-> IF 1 THEN DEFINE SYMBOL region_0_x = X=-98.40654:-78.61
!-> DEFINE SYMBOL region_0_x = X=-98.40654:-78.61
IF ($region_y"0|*>1") THEN DEFINE SYMBOL region_($num)_y = ($region_y)
!-> IF 1 THEN DEFINE SYMBOL region_0_y = Y=14.186:30.68
!-> DEFINE SYMBOL region_0_y = Y=14.186:30.68
IF ($region_z"0|*>1") THEN DEFINE SYMBOL region_($num)_z = ($region_z)
!-> IF 1 THEN DEFINE SYMBOL region_0_z = Z=2.6677:2.6677
!-> DEFINE SYMBOL region_0_z = Z=2.6677:2.6677
IF ($region_t"0|*>1") THEN DEFINE SYMBOL region_($num)_t = ($region_t)
!-> IF 1 THEN DEFINE SYMBOL region_0_t = T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_0_t = T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_xt"0|*>1") THEN DEFINE SYMBOL region_($num)_xt = ($region_xt)
!-> IF 1 THEN DEFINE SYMBOL region_0_xt = X=-98.40654:-78.61,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_0_xt = X=-98.40654:-78.61,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_xy"0|*>1") THEN DEFINE SYMBOL region_($num)_xy = ($region_xy)
!-> IF 1 THEN DEFINE SYMBOL region_0_xy = X=-98.40654:-78.61,Y=14.186:30.68
!-> DEFINE SYMBOL region_0_xy = X=-98.40654:-78.61,Y=14.186:30.68
IF ($region_xz"0|*>1") THEN DEFINE SYMBOL region_($num)_xz = ($region_xz)
!-> IF 1 THEN DEFINE SYMBOL region_0_xz = X=-98.40654:-78.61,Z=2.6677:2.6677
!-> DEFINE SYMBOL region_0_xz = X=-98.40654:-78.61,Z=2.6677:2.6677
IF ($region_yt"0|*>1") THEN DEFINE SYMBOL region_($num)_yt = ($region_yt)
!-> IF 1 THEN DEFINE SYMBOL region_0_yt = Y=14.186:30.68,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_0_yt = Y=14.186:30.68,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_yz"0|*>1") THEN DEFINE SYMBOL region_($num)_yz = ($region_yz)
!-> IF 1 THEN DEFINE SYMBOL region_0_yz = Y=14.186:30.68,Z=2.6677:2.6677
!-> DEFINE SYMBOL region_0_yz = Y=14.186:30.68,Z=2.6677:2.6677
IF ($region_zt"0|*>1") THEN DEFINE SYMBOL region_($num)_zt = ($region_zt)
!-> IF 1 THEN DEFINE SYMBOL region_0_zt = Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_0_zt = Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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 = 03-Jan-2012 00:00
LET iz = STRINDEX("($region_0_t_lo)", " 00:00:00")
!-> DEFINE VARIABLE iz = STRINDEX("03-Jan-2012 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("03-Jan-2012 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("03-Jan-2012 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 = 03-Jan-2012 00:00
LET iz = STRINDEX("($region_0_t_hi)", " 00:00:00")
!-> DEFINE VARIABLE iz = STRINDEX("03-Jan-2012 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("03-Jan-2012 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("03-Jan-2012 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://cicese.mx/thredds/dodsC/hidrocarburos/linea3/climatologias/nemo-golfo-36\";
ENDIF
SET DATA ($data_url)
!-> SET DATA "http://cicese.mx/thredds/dodsC/hidrocarburos/linea3/climatologias/nemo-golfo-36";
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 1 THEN
GO LAS_check_multi_regions
! Enter_GO LAS_check_multi_regions
cancel symbol fer_last_error
LET nc = `($data_count) - 1`
!-> DEFINE VARIABLE nc = 1
)
!-> REPEAT/RANGE=0:1/NAME=ivar (DEFINE SYMBOL ivar = `ivar`; DEFINE SYMBOL data_url \"($data_($ivar)_url)\"; IF ($data_($ivar)_var"0|*>1") THEN DEFINE SYMBOL data_var ($data_($ivar)_var); IF ($data_($ivar)_var"0|*>1") THEN DEFINE SYMBOL data_var = `UPCASE("($data_var)")`; SET DATA ($data_url); LET ($data_var)_test = '($data_var)';DEFINE SYMBOL shape($ivar) = `($data_var)_test,RETURN=shape`; DEFINE SYMBOL dset($ivar) = `($data_var)_test,RETURN=dsetnum`;)
!-> REPEAT: IVAR:0
!-> (DEFINE SYMBOL ivar = `ivar`; DEFINE SYMBOL data_url \"($data_($ivar)_url)\"; IF ($data_($ivar)_var"0|*>1") THEN DEFINE SYMBOL data_var ($data_($ivar)_var); IF ($data_($ivar)_var"0|*>1") THEN DEFINE SYMBOL data_var = `UPCASE("($data_var)")`; SET DATA ($data_url); LET ($data_var)_test = '($data_var)';DEFINE SYMBOL shape($ivar) = `($data_var)_test,RETURN=shape`; DEFINE SYMBOL dset($ivar) = `($data_var)_test,RETURN=dsetnum`;)
!-> DEFINE SYMBOL ivar = `ivar`
!-> DEFINE SYMBOL ivar = 0
!-> DEFINE SYMBOL data_url \"($data_($ivar)_url)\"
!-> DEFINE SYMBOL data_url \"http://cicese.mx/thredds/dodsC/hidrocarburos/linea3/climatologias/nemo-golfo-36\";
!-> IF ($data_($ivar)_var"0|*>1") THEN DEFINE SYMBOL data_var ($data_($ivar)_var)
!-> IF 1 THEN DEFINE SYMBOL data_var vozocrtx_X
!-> DEFINE SYMBOL data_var vozocrtx_X
!-> IF ($data_($ivar)_var"0|*>1") THEN DEFINE SYMBOL data_var = `UPCASE("($data_var)")`
!-> IF 1 THEN DEFINE SYMBOL data_var = `UPCASE("vozocrtx_X")`
!-> DEFINE SYMBOL data_var = `UPCASE("vozocrtx_X")`
!-> DEFINE SYMBOL data_var = VOZOCRTX_X
!-> SET DATA ($data_url)
!-> SET DATA "http://cicese.mx/thredds/dodsC/hidrocarburos/linea3/climatologias/nemo-golfo-36";
!-> LET ($data_var)_test = '($data_var)'
!-> DEFINE VARIABLE VOZOCRTX_X_test = 'VOZOCRTX_X'
!-> DEFINE SYMBOL shape($ivar) = `($data_var)_test,RETURN=shape`
!-> DEFINE SYMBOL shape0 = XYZT
!-> DEFINE SYMBOL dset($ivar) = `($data_var)_test,RETURN=dsetnum`
!-> DEFINE SYMBOL dset0 = 1
!-> REPEAT: IVAR:1
!-> (DEFINE SYMBOL ivar = `ivar`; DEFINE SYMBOL data_url \"($data_($ivar)_url)\"; IF ($data_($ivar)_var"0|*>1") THEN DEFINE SYMBOL data_var ($data_($ivar)_var); IF ($data_($ivar)_var"0|*>1") THEN DEFINE SYMBOL data_var = `UPCASE("($data_var)")`; SET DATA ($data_url); LET ($data_var)_test = '($data_var)';DEFINE SYMBOL shape($ivar) = `($data_var)_test,RETURN=shape`; DEFINE SYMBOL dset($ivar) = `($data_var)_test,RETURN=dsetnum`;)
!-> DEFINE SYMBOL ivar = `ivar`
!-> DEFINE SYMBOL ivar = 1
!-> DEFINE SYMBOL data_url \"($data_($ivar)_url)\"
!-> DEFINE SYMBOL data_url \"http://cicese.mx/thredds/dodsC/hidrocarburos/linea3/climatologias/nemo-golfo-36\";
!-> IF ($data_($ivar)_var"0|*>1") THEN DEFINE SYMBOL data_var ($data_($ivar)_var)
!-> IF 1 THEN DEFINE SYMBOL data_var vomecrty_Y
!-> DEFINE SYMBOL data_var vomecrty_Y
!-> IF ($data_($ivar)_var"0|*>1") THEN DEFINE SYMBOL data_var = `UPCASE("($data_var)")`
!-> IF 1 THEN DEFINE SYMBOL data_var = `UPCASE("vomecrty_Y")`
!-> DEFINE SYMBOL data_var = `UPCASE("vomecrty_Y")`
!-> DEFINE SYMBOL data_var = VOMECRTY_Y
!-> SET DATA ($data_url)
!-> SET DATA "http://cicese.mx/thredds/dodsC/hidrocarburos/linea3/climatologias/nemo-golfo-36";
!-> LET ($data_var)_test = '($data_var)'
!-> DEFINE VARIABLE VOMECRTY_Y_test = 'VOMECRTY_Y'
!-> DEFINE SYMBOL shape($ivar) = `($data_var)_test,RETURN=shape`
!-> DEFINE SYMBOL shape1 = XYZT
!-> DEFINE SYMBOL dset($ivar) = `($data_var)_test,RETURN=dsetnum`
!-> DEFINE SYMBOL dset1 = 1
REPEAT/RANGE=0:`nc`/NAME=ivar (GO set_add_for_region `ivar`)
!-> REPEAT/RANGE=0:1/NAME=ivar (GO set_add_for_region `ivar`)
!-> REPEAT: IVAR:0
!-> (GO set_add_for_region `ivar`)
!-> GO set_add_for_region 0
! Enter_GO set_add_for_region 0
DEFINE SYMBOL iadd = $1
!-> DEFINE SYMBOL iadd = 0
IF `($region_t"0|*>1") AND (STRINDEX("($shape($iadd))", "T") EQ 0)` THEN
!-> IF 0 THEN
ENDIF
IF ($add_to_var($iadd)"0|*>1") THEN
!-> IF 0 THEN
ENDIF
IF `($region_z"0|*>1") AND (STRINDEX("($shape($iadd))", "Z") EQ 0)` THEN
!-> IF 0 THEN
ENDIF
IF ($add_to_var($iadd)"0|*>1") THEN
!-> IF 0 THEN
ENDIF
! Exit_GO
!-> REPEAT: IVAR:1
!-> (GO set_add_for_region `ivar`)
!-> GO set_add_for_region 1
! Enter_GO set_add_for_region 1
DEFINE SYMBOL iadd = $1
!-> DEFINE SYMBOL iadd = 1
IF `($region_t"0|*>1") AND (STRINDEX("($shape($iadd))", "T") EQ 0)` THEN
!-> IF 0 THEN
ENDIF
IF ($add_to_var($iadd)"0|*>1") THEN
!-> IF 0 THEN
ENDIF
IF `($region_z"0|*>1") AND (STRINDEX("($shape($iadd))", "Z") EQ 0)` THEN
!-> IF 0 THEN
ENDIF
IF ($add_to_var($iadd)"0|*>1") THEN
!-> IF 0 THEN
ENDIF
! Exit_GO
)
!-> REPEAT/RANGE=0:1/NAME=ivar ( DEFINE SYMBOL ivar = `ivar`; SH sym shape($ivar); List STRINDEX("($shape($ivar))", "T"); IF `(STRINDEX("($shape($ivar))", "T") NE 0) AND (($region_t"0|*>1") EQ 0)` THEN DEFINE SYMBOL add_region_t = L=1; IF `(STRINDEX("($shape($ivar))", "Z") NE 0) AND (($region_t"0|*>1") EQ 0)` THEN DEFINE SYMBOL need_t = ($ivar);)
!-> REPEAT: IVAR:0
!-> ( DEFINE SYMBOL ivar = `ivar`; SH sym shape($ivar); List STRINDEX("($shape($ivar))", "T"); IF `(STRINDEX("($shape($ivar))", "T") NE 0) AND (($region_t"0|*>1") EQ 0)` THEN DEFINE SYMBOL add_region_t = L=1; IF `(STRINDEX("($shape($ivar))", "Z") NE 0) AND (($region_t"0|*>1") EQ 0)` THEN DEFINE SYMBOL need_t = ($ivar);)
!-> DEFINE SYMBOL ivar = `ivar`
!-> DEFINE SYMBOL ivar = 0
!-> SH sym shape($ivar)
!-> SH sym shape0
SHAPE0 = "XYZT"
!-> List STRINDEX("($shape($ivar))", "T")
!-> List STRINDEX("XYZT", "T")
VARIABLE : STRINDEX("XYZT", "T")
4.000
!-> IF `(STRINDEX("($shape($ivar))", "T") NE 0) AND (($region_t"0|*>1") EQ 0)` THEN DEFINE SYMBOL add_region_t = L=1
!-> IF 0 THEN DEFINE SYMBOL add_region_t = L=1
!-> IF `(STRINDEX("($shape($ivar))", "Z") NE 0) AND (($region_t"0|*>1") EQ 0)` THEN DEFINE SYMBOL need_t = ($ivar)
!-> IF 0 THEN DEFINE SYMBOL need_t = 0
!-> REPEAT: IVAR:1
!-> ( DEFINE SYMBOL ivar = `ivar`; SH sym shape($ivar); List STRINDEX("($shape($ivar))", "T"); IF `(STRINDEX("($shape($ivar))", "T") NE 0) AND (($region_t"0|*>1") EQ 0)` THEN DEFINE SYMBOL add_region_t = L=1; IF `(STRINDEX("($shape($ivar))", "Z") NE 0) AND (($region_t"0|*>1") EQ 0)` THEN DEFINE SYMBOL need_t = ($ivar);)
!-> DEFINE SYMBOL ivar = `ivar`
!-> DEFINE SYMBOL ivar = 1
!-> SH sym shape($ivar)
!-> SH sym shape1
SHAPE1 = "XYZT"
!-> List STRINDEX("($shape($ivar))", "T")
!-> List STRINDEX("XYZT", "T")
VARIABLE : STRINDEX("XYZT", "T")
4.000
!-> IF `(STRINDEX("($shape($ivar))", "T") NE 0) AND (($region_t"0|*>1") EQ 0)` THEN DEFINE SYMBOL add_region_t = L=1
!-> IF 0 THEN DEFINE SYMBOL add_region_t = L=1
!-> IF `(STRINDEX("($shape($ivar))", "Z") NE 0) AND (($region_t"0|*>1") EQ 0)` THEN DEFINE SYMBOL need_t = ($ivar)
!-> IF 0 THEN DEFINE SYMBOL need_t = 1
IF ($add_region_t"0|*>1") THEN
!-> IF 0 THEN
ENDIF
)
!-> REPEAT/RANGE=0:1/NAME=ivar ( DEFINE SYMBOL ivar = `ivar`; sho sym shape($ivar); List STRINDEX("($shape($ivar))", "Z"); IF `(STRINDEX("($shape($ivar))", "Z") NE 0) AND (($region_z"0|*>1") EQ 0)` THEN DEFINE SYMBOL add_region_z = K=1; IF `(STRINDEX("($shape($ivar))", "Z") NE 0) AND (($region_z"0|*>1") EQ 0)` THEN DEFINE SYMBOL need_z = ($ivar);)
!-> REPEAT: IVAR:0
!-> ( DEFINE SYMBOL ivar = `ivar`; sho sym shape($ivar); List STRINDEX("($shape($ivar))", "Z"); IF `(STRINDEX("($shape($ivar))", "Z") NE 0) AND (($region_z"0|*>1") EQ 0)` THEN DEFINE SYMBOL add_region_z = K=1; IF `(STRINDEX("($shape($ivar))", "Z") NE 0) AND (($region_z"0|*>1") EQ 0)` THEN DEFINE SYMBOL need_z = ($ivar);)
!-> DEFINE SYMBOL ivar = `ivar`
!-> DEFINE SYMBOL ivar = 0
!-> sho sym shape($ivar)
!-> sho sym shape0
SHAPE0 = "XYZT"
!-> List STRINDEX("($shape($ivar))", "Z")
!-> List STRINDEX("XYZT", "Z")
VARIABLE : STRINDEX("XYZT", "Z")
3.000
!-> IF `(STRINDEX("($shape($ivar))", "Z") NE 0) AND (($region_z"0|*>1") EQ 0)` THEN DEFINE SYMBOL add_region_z = K=1
!-> IF 0 THEN DEFINE SYMBOL add_region_z = K=1
!-> IF `(STRINDEX("($shape($ivar))", "Z") NE 0) AND (($region_z"0|*>1") EQ 0)` THEN DEFINE SYMBOL need_z = ($ivar)
!-> IF 0 THEN DEFINE SYMBOL need_z = 0
!-> REPEAT: IVAR:1
!-> ( DEFINE SYMBOL ivar = `ivar`; sho sym shape($ivar); List STRINDEX("($shape($ivar))", "Z"); IF `(STRINDEX("($shape($ivar))", "Z") NE 0) AND (($region_z"0|*>1") EQ 0)` THEN DEFINE SYMBOL add_region_z = K=1; IF `(STRINDEX("($shape($ivar))", "Z") NE 0) AND (($region_z"0|*>1") EQ 0)` THEN DEFINE SYMBOL need_z = ($ivar);)
!-> DEFINE SYMBOL ivar = `ivar`
!-> DEFINE SYMBOL ivar = 1
!-> sho sym shape($ivar)
!-> sho sym shape1
SHAPE1 = "XYZT"
!-> List STRINDEX("($shape($ivar))", "Z")
!-> List STRINDEX("XYZT", "Z")
VARIABLE : STRINDEX("XYZT", "Z")
3.000
!-> IF `(STRINDEX("($shape($ivar))", "Z") NE 0) AND (($region_z"0|*>1") EQ 0)` THEN DEFINE SYMBOL add_region_z = K=1
!-> IF 0 THEN DEFINE SYMBOL add_region_z = K=1
!-> IF `(STRINDEX("($shape($ivar))", "Z") NE 0) AND (($region_z"0|*>1") EQ 0)` THEN DEFINE SYMBOL need_z = ($ivar)
!-> IF 0 THEN DEFINE SYMBOL need_z = 1
IF ($add_region_z"0|*>1") THEN
!-> IF 0 THEN
ENDIF
IF ($add_region_z"0|*>1") THEN GO LAS_initialize_region
!-> IF 0 THEN GO LAS_initialize_region
IF ($add_region_t"0|*>1") THEN GO LAS_initialize_region
!-> IF 0 THEN GO LAS_initialize_region
! Exit_GO
DEFINE SYMBOL check_multi_regions_done = 1
ENDIF
IF ($data_($num)_var"0|*>1") THEN
!-> IF 1 THEN
DEFINE SYMBOL data_var ($data_($num)_var)
!-> DEFINE SYMBOL data_var vozocrtx_X
DEFINE SYMBOL data_orig_var ($data_($num)_var)
!-> DEFINE SYMBOL data_orig_var vozocrtx_X
DEFINE SYMBOL data_var_nq ($data_($num)_var)
!-> DEFINE SYMBOL data_var_nq vozocrtx_X
ENDIF
DEFINE SYMBOL data_name ($data_($num)_name)
!-> DEFINE SYMBOL data_name eastward velocity
IF `($data_($num)_name"0|*>1") EQ 0` THEN DEFINE SYMBOL data_name ($data_var)
!-> IF 0 THEN DEFINE SYMBOL data_name vozocrtx_X
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("vozocrtx_X")`
!-> DEFINE SYMBOL data_var = `UPCASE("vozocrtx_X")`
!-> DEFINE SYMBOL data_var = VOZOCRTX_X
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("vozocrtx_X")`
!-> DEFINE SYMBOL data_var_nq = `UPCASE("vozocrtx_X")`
!-> DEFINE SYMBOL data_var_nq = VOZOCRTX_X
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("VOZOCRTX_X")`
LET varlen = `STRLEN("($data_var)")`
!-> DEFINE VARIABLE varlen = 10
IF `STRINDEX("($data_var)", "'") EQ 1 AND STRRINDEX("($data_var)", "'") EQ varlen` THEN
!-> IF 0 THEN
ELSE
IF ($data_($num)_var"0|*>1") THEN DEFINE SYMBOL data_var_nq = ($data_var)
!-> IF 1 THEN DEFINE SYMBOL data_var_nq = VOZOCRTX_X
!-> DEFINE SYMBOL data_var_nq = VOZOCRTX_X
IF ($data_($num)_var"0|*>1") THEN DEFINE SYMBOL data_var = '($data_var)'
!-> IF 1 THEN DEFINE SYMBOL data_var = 'VOZOCRTX_X'
!-> DEFINE SYMBOL data_var = 'VOZOCRTX_X'
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 = NAV_LON
LET varlen = `STRLEN("($ferret_curvi_coord_lon)")`
!-> DEFINE VARIABLE varlen = 7
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 = 'NAV_LON'
!-> DEFINE SYMBOL ferret_curvi_coord_lon = 'NAV_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 = NAV_LAT
LET varlen = `STRLEN("($ferret_curvi_coord_lat)")`
!-> DEFINE VARIABLE varlen = 7
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 = 'NAV_LAT'
!-> DEFINE SYMBOL ferret_curvi_coord_lat = 'NAV_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 m/s
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 (m/s)
DEFINE SYMBOL data_units ($data_($num)_units)
!-> IF 0 THEN DEFINE SYMBOL data_units m/s
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 eastward velocity
!-> DEFINE SYMBOL data_title eastward velocity
ELSE
ENDIF
IF `($num) GT 0` THEN DEFINE SYMBOL variable_($num)_lab = ($data_title)
!-> IF 0 THEN DEFINE SYMBOL variable_0_lab = eastward velocity
IF ($data_units"0|*>1") THEN
!-> IF 1 THEN
DEFINE SYMBOL units_lab = ($data_units)
!-> DEFINE SYMBOL units_lab = (m/s)
IF `($num) GT 0` THEN DEFINE SYMBOL units_($num)_lab = ($data_units)
!-> IF 0 THEN DEFINE SYMBOL units_0_lab = (m/s)
ENDIF
DEFINE SYMBOL ferret_plot_title ($data_title) ($data_units)
!-> DEFINE SYMBOL ferret_plot_title eastward velocity (m/s)
SET DATA ($data_url)
!-> SET DATA "http://cicese.mx/thredds/dodsC/hidrocarburos/linea3/climatologias/nemo-golfo-36";
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 ("m/s")
DEFINE SYMBOL data_units `SUBSTRING("($data_($num)_units)", 2, ulen-2)`
!-> IF 0 THEN DEFINE SYMBOL data_units `SUBSTRING("m/s", 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://cicese.mx/thredds/dodsC/hidrocarburos/linea3/climatologias/nemo-golfo-36";
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 = vozocrtx_X
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 = vozocrtx_X
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 = vozocrtx_X.attnames
IF ($data_var_nq"0|*>1") THEN LET attlist = ($data_var_nq).attnames
!-> IF 1 THEN LET attlist = VOZOCRTX_X.attnames
!-> LET attlist = VOZOCRTX_X.attnames
DEFINE SYMBOL data_var_only = `UPCASE("($data_var)")`
!-> DEFINE SYMBOL data_var_only = 'VOZOCRTX_X'
IF ($ferret_bad_flag"0|*>1") THEN SET VAR/BAD=($ferret_bad_flag) ($data_var)
!-> IF 0 THEN SET VAR/BAD= 'VOZOCRTX_X'
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 = 'VOZOCRTX_X'[d=1,X=-98.40654:-78.61,Y=14.186:30.68,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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 = 'VOZOCRTX_X'[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 = VOZOCRTX_X[d=1]
!-> DEFINE SYMBOL ferret_plot_var_nq_noregion = VOZOCRTX_X[d=1]
DEFINE SYMBOL ferret_plot_var_($num)_noregion = ($data_var)[d=($data_num)]
!-> DEFINE SYMBOL ferret_plot_var_0_noregion = 'VOZOCRTX_X'[d=1]
DEFINE SYMBOL ferret_plot_base_var = ($ferret_plot_var)
!-> DEFINE SYMBOL ferret_plot_base_var = 'VOZOCRTX_X'[d=1,X=-98.40654:-78.61,Y=14.186:30.68,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"]
DEFINE SYMBOL ferret_plot_base_var_($num) = ($ferret_plot_var)
!-> DEFINE SYMBOL ferret_plot_base_var_0 = 'VOZOCRTX_X'[d=1,X=-98.40654:-78.61,Y=14.186:30.68,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"]
DEFINE SYMBOL ferret_plot_base_var_noregion = ($data_var)[d=($data_num)]
!-> DEFINE SYMBOL ferret_plot_base_var_noregion = 'VOZOCRTX_X'[d=1]
DEFINE SYMBOL ferret_xyz_var = ($data_var)[d=($data_num),($region_xyz)]
!-> DEFINE SYMBOL ferret_xyz_var = 'VOZOCRTX_X'[d=1,X=-98.40654:-78.61,Y=14.186:30.68,Z=2.6677:2.6677]
DEFINE SYMBOL ferret_t_var = ($data_var)[d=($data_num),($region_t)]
!-> DEFINE SYMBOL ferret_t_var = 'VOZOCRTX_X'[d=1,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"]
DEFINE SYMBOL ferret_x_var = ($data_var)[d=($data_num),($region_x)]
!-> DEFINE SYMBOL ferret_x_var = 'VOZOCRTX_X'[d=1,X=-98.40654:-78.61]
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 = 'VOZOCRTX_X'[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 = `'NAV_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 = `'NAV_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 `-98.40654 + 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 = -98.40654
DEFINE SYMBOL region_0_x_hi_orig = ($region_0_x_hi)
!-> DEFINE SYMBOL region_0_x_hi_orig = -78.61
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 = -98.40654
DEFINE SYMBOL region_x_hi = `INT(100000 * ($($region)_x_hi)) / 100000`
!-> DEFINE SYMBOL region_x_hi = -78.61
DEFINE SYMBOL limits_x = ($region_x_lo):($region_x_hi)
!-> DEFINE SYMBOL limits_x = -98.40654:-78.61
DEFINE SYMBOL limits_x_m360 = `($region_x_lo)-360`:`($region_x_hi)-360`
!-> DEFINE SYMBOL limits_x_m360 = -458.40654:-438.61
DEFINE SYMBOL limits_x_p360 = `($region_x_lo)+360`:`($region_x_hi)+360`
!-> DEFINE SYMBOL limits_x_p360 = 261.59346:281.39
DEFINE SYMBOL region_x = X=($region_x_lo):($region_x_hi)
!-> DEFINE SYMBOL region_x = X=-98.40654:-78.61
DEFINE SYMBOL region_x_m360 X=`($region_x_lo)-360`:`($region_x_hi)-360`
!-> DEFINE SYMBOL region_x_m360 X=-458.40654:-438.61
DEFINE SYMBOL region_x_p360 X=`($region_x_lo)+360`:`($region_x_hi)+360`
!-> DEFINE SYMBOL region_x_p360 X=261.59346:281.39
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 = 19.79654
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 = 14.186
DEFINE SYMBOL region_y_hi = `INT(1000 * ($($region)_y_hi)) / 1000`
!-> DEFINE SYMBOL region_y_hi = 30.68
DEFINE SYMBOL limits_y = ($region_y_lo):($region_y_hi)
!-> DEFINE SYMBOL limits_y = 14.186:30.68
DEFINE SYMBOL region_y = Y=($region_y_lo):($region_y_hi)
!-> DEFINE SYMBOL region_y = Y=14.186:30.68
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.494
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 = 2.6677
DEFINE SYMBOL region_z_hi = ($($region)_z_hi)
!-> DEFINE SYMBOL region_z_hi = 2.6677
DEFINE SYMBOL limits_z = ($region_z_lo):($region_z_hi)
!-> DEFINE SYMBOL limits_z = 2.6677:2.6677
DEFINE SYMBOL region_z = Z=($region_z_lo):($region_z_hi)
!-> DEFINE SYMBOL region_z = Z=2.6677:2.6677
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 = 03-Jan-2012 00:00
DEFINE SYMBOL region_t_hi = ($($region)_t_hi)
!-> DEFINE SYMBOL region_t_hi = 03-Jan-2012 00:00
DEFINE SYMBOL limits_t \"($region_t_lo)\":\"($region_t_hi)\"
!-> DEFINE SYMBOL limits_t \"03-Jan-2012 00:00\":\"03-Jan-2012 00:00\"
DEFINE SYMBOL region_t T=\"($region_t_lo)\":\"($region_t_hi)\"
!-> DEFINE SYMBOL region_t T=\"03-Jan-2012 00:00\":\"03-Jan-2012 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=-98.40654:-78.61,Y=14.186:30.68
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=-98.40654:-78.61,Z=2.6677:2.6677
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=-98.40654:-78.61,T="03-Jan-2012 00:00":"03-Jan-2012 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=14.186:30.68,Z=2.6677:2.6677
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=14.186:30.68,T="03-Jan-2012 00:00":"03-Jan-2012 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=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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=-98.40654:-78.61,Y=14.186:30.68,Z=2.6677:2.6677
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=-98.40654:-78.61,Y=14.186:30.68,T="03-Jan-2012 00:00":"03-Jan-2012 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=-98.40654:-78.61,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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=14.186:30.68,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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=-98.40654:-78.61,Y=14.186:30.68,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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=-98.40654:-78.61,Y=14.186:30.68,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
ENDIF
ELSE
ENDIF
DEFINE SYMBOL region_full = ($region_xyzte)
!-> DEFINE SYMBOL region_full = X=-98.40654:-78.61,Y=14.186:30.68,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_x"0|*>1") THEN DEFINE SYMBOL region_($num)_x = ($region_x)
!-> IF 1 THEN DEFINE SYMBOL region_0_x = X=-98.40654:-78.61
!-> DEFINE SYMBOL region_0_x = X=-98.40654:-78.61
IF ($region_y"0|*>1") THEN DEFINE SYMBOL region_($num)_y = ($region_y)
!-> IF 1 THEN DEFINE SYMBOL region_0_y = Y=14.186:30.68
!-> DEFINE SYMBOL region_0_y = Y=14.186:30.68
IF ($region_z"0|*>1") THEN DEFINE SYMBOL region_($num)_z = ($region_z)
!-> IF 1 THEN DEFINE SYMBOL region_0_z = Z=2.6677:2.6677
!-> DEFINE SYMBOL region_0_z = Z=2.6677:2.6677
IF ($region_t"0|*>1") THEN DEFINE SYMBOL region_($num)_t = ($region_t)
!-> IF 1 THEN DEFINE SYMBOL region_0_t = T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_0_t = T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_xt"0|*>1") THEN DEFINE SYMBOL region_($num)_xt = ($region_xt)
!-> IF 1 THEN DEFINE SYMBOL region_0_xt = X=-98.40654:-78.61,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_0_xt = X=-98.40654:-78.61,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_xy"0|*>1") THEN DEFINE SYMBOL region_($num)_xy = ($region_xy)
!-> IF 1 THEN DEFINE SYMBOL region_0_xy = X=-98.40654:-78.61,Y=14.186:30.68
!-> DEFINE SYMBOL region_0_xy = X=-98.40654:-78.61,Y=14.186:30.68
IF ($region_xz"0|*>1") THEN DEFINE SYMBOL region_($num)_xz = ($region_xz)
!-> IF 1 THEN DEFINE SYMBOL region_0_xz = X=-98.40654:-78.61,Z=2.6677:2.6677
!-> DEFINE SYMBOL region_0_xz = X=-98.40654:-78.61,Z=2.6677:2.6677
IF ($region_yt"0|*>1") THEN DEFINE SYMBOL region_($num)_yt = ($region_yt)
!-> IF 1 THEN DEFINE SYMBOL region_0_yt = Y=14.186:30.68,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_0_yt = Y=14.186:30.68,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_yz"0|*>1") THEN DEFINE SYMBOL region_($num)_yz = ($region_yz)
!-> IF 1 THEN DEFINE SYMBOL region_0_yz = Y=14.186:30.68,Z=2.6677:2.6677
!-> DEFINE SYMBOL region_0_yz = Y=14.186:30.68,Z=2.6677:2.6677
IF ($region_zt"0|*>1") THEN DEFINE SYMBOL region_($num)_zt = ($region_zt)
!-> IF 1 THEN DEFINE SYMBOL region_0_zt = Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_0_zt = Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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 = 03-Jan-2012 00:00
LET iz = STRINDEX("($region_0_t_lo)", " 00:00:00")
!-> DEFINE VARIABLE iz = STRINDEX("03-Jan-2012 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("03-Jan-2012 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("03-Jan-2012 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 = 03-Jan-2012 00:00
LET iz = STRINDEX("($region_0_t_hi)", " 00:00:00")
!-> DEFINE VARIABLE iz = STRINDEX("03-Jan-2012 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("03-Jan-2012 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("03-Jan-2012 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=-98.40654:-78.61/VLIM=14.1861:30.68
DEFINE SYMBOL ferret_curvi_quals = ($hvlimits_curvi)
!-> DEFINE SYMBOL ferret_curvi_quals = /HLIM=-98.40654:-78.61/VLIM=14.1861:30.68
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 = -98.40654
DEFINE SYMBOL region_x_hi = `INT(100000 * ($($region)_x_hi)) / 100000`
!-> DEFINE SYMBOL region_x_hi = -78.61
DEFINE SYMBOL limits_x = ($region_x_lo):($region_x_hi)
!-> DEFINE SYMBOL limits_x = -98.40654:-78.61
DEFINE SYMBOL limits_x_m360 = `($region_x_lo)-360`:`($region_x_hi)-360`
!-> DEFINE SYMBOL limits_x_m360 = -458.40654:-438.61
DEFINE SYMBOL limits_x_p360 = `($region_x_lo)+360`:`($region_x_hi)+360`
!-> DEFINE SYMBOL limits_x_p360 = 261.59346:281.39
DEFINE SYMBOL region_x = X=($region_x_lo):($region_x_hi)
!-> DEFINE SYMBOL region_x = X=-98.40654:-78.61
DEFINE SYMBOL region_x_m360 X=`($region_x_lo)-360`:`($region_x_hi)-360`
!-> DEFINE SYMBOL region_x_m360 X=-458.40654:-438.61
DEFINE SYMBOL region_x_p360 X=`($region_x_lo)+360`:`($region_x_hi)+360`
!-> DEFINE SYMBOL region_x_p360 X=261.59346:281.39
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 = 19.79654
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 = 14.186
DEFINE SYMBOL region_y_hi = `INT(1000 * ($($region)_y_hi)) / 1000`
!-> DEFINE SYMBOL region_y_hi = 30.68
DEFINE SYMBOL limits_y = ($region_y_lo):($region_y_hi)
!-> DEFINE SYMBOL limits_y = 14.186:30.68
DEFINE SYMBOL region_y = Y=($region_y_lo):($region_y_hi)
!-> DEFINE SYMBOL region_y = Y=14.186:30.68
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.494
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 = 2.6677
DEFINE SYMBOL region_z_hi = ($($region)_z_hi)
!-> DEFINE SYMBOL region_z_hi = 2.6677
DEFINE SYMBOL limits_z = ($region_z_lo):($region_z_hi)
!-> DEFINE SYMBOL limits_z = 2.6677:2.6677
DEFINE SYMBOL region_z = Z=($region_z_lo):($region_z_hi)
!-> DEFINE SYMBOL region_z = Z=2.6677:2.6677
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 = 03-Jan-2012 00:00
DEFINE SYMBOL region_t_hi = ($($region)_t_hi)
!-> DEFINE SYMBOL region_t_hi = 03-Jan-2012 00:00
DEFINE SYMBOL limits_t \"($region_t_lo)\":\"($region_t_hi)\"
!-> DEFINE SYMBOL limits_t \"03-Jan-2012 00:00\":\"03-Jan-2012 00:00\"
DEFINE SYMBOL region_t T=\"($region_t_lo)\":\"($region_t_hi)\"
!-> DEFINE SYMBOL region_t T=\"03-Jan-2012 00:00\":\"03-Jan-2012 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=-98.40654:-78.61,Y=14.186:30.68
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=-98.40654:-78.61,Z=2.6677:2.6677
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=-98.40654:-78.61,T="03-Jan-2012 00:00":"03-Jan-2012 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=14.186:30.68,Z=2.6677:2.6677
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=14.186:30.68,T="03-Jan-2012 00:00":"03-Jan-2012 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=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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=-98.40654:-78.61,Y=14.186:30.68,Z=2.6677:2.6677
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=-98.40654:-78.61,Y=14.186:30.68,T="03-Jan-2012 00:00":"03-Jan-2012 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=-98.40654:-78.61,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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=14.186:30.68,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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=-98.40654:-78.61,Y=14.186:30.68,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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=-98.40654:-78.61,Y=14.186:30.68,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
ENDIF
ELSE
ENDIF
DEFINE SYMBOL region_full = ($region_xyzte)
!-> DEFINE SYMBOL region_full = X=-98.40654:-78.61,Y=14.186:30.68,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_x"0|*>1") THEN DEFINE SYMBOL region_($num)_x = ($region_x)
!-> IF 1 THEN DEFINE SYMBOL region_0_x = X=-98.40654:-78.61
!-> DEFINE SYMBOL region_0_x = X=-98.40654:-78.61
IF ($region_y"0|*>1") THEN DEFINE SYMBOL region_($num)_y = ($region_y)
!-> IF 1 THEN DEFINE SYMBOL region_0_y = Y=14.186:30.68
!-> DEFINE SYMBOL region_0_y = Y=14.186:30.68
IF ($region_z"0|*>1") THEN DEFINE SYMBOL region_($num)_z = ($region_z)
!-> IF 1 THEN DEFINE SYMBOL region_0_z = Z=2.6677:2.6677
!-> DEFINE SYMBOL region_0_z = Z=2.6677:2.6677
IF ($region_t"0|*>1") THEN DEFINE SYMBOL region_($num)_t = ($region_t)
!-> IF 1 THEN DEFINE SYMBOL region_0_t = T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_0_t = T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_xt"0|*>1") THEN DEFINE SYMBOL region_($num)_xt = ($region_xt)
!-> IF 1 THEN DEFINE SYMBOL region_0_xt = X=-98.40654:-78.61,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_0_xt = X=-98.40654:-78.61,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_xy"0|*>1") THEN DEFINE SYMBOL region_($num)_xy = ($region_xy)
!-> IF 1 THEN DEFINE SYMBOL region_0_xy = X=-98.40654:-78.61,Y=14.186:30.68
!-> DEFINE SYMBOL region_0_xy = X=-98.40654:-78.61,Y=14.186:30.68
IF ($region_xz"0|*>1") THEN DEFINE SYMBOL region_($num)_xz = ($region_xz)
!-> IF 1 THEN DEFINE SYMBOL region_0_xz = X=-98.40654:-78.61,Z=2.6677:2.6677
!-> DEFINE SYMBOL region_0_xz = X=-98.40654:-78.61,Z=2.6677:2.6677
IF ($region_yt"0|*>1") THEN DEFINE SYMBOL region_($num)_yt = ($region_yt)
!-> IF 1 THEN DEFINE SYMBOL region_0_yt = Y=14.186:30.68,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_0_yt = Y=14.186:30.68,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_yz"0|*>1") THEN DEFINE SYMBOL region_($num)_yz = ($region_yz)
!-> IF 1 THEN DEFINE SYMBOL region_0_yz = Y=14.186:30.68,Z=2.6677:2.6677
!-> DEFINE SYMBOL region_0_yz = Y=14.186:30.68,Z=2.6677:2.6677
IF ($region_zt"0|*>1") THEN DEFINE SYMBOL region_($num)_zt = ($region_zt)
!-> IF 1 THEN DEFINE SYMBOL region_0_zt = Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_0_zt = Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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 = 03-Jan-2012 00:00
LET iz = STRINDEX("($region_0_t_lo)", " 00:00:00")
!-> DEFINE VARIABLE iz = STRINDEX("03-Jan-2012 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("03-Jan-2012 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("03-Jan-2012 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 = 03-Jan-2012 00:00
LET iz = STRINDEX("($region_0_t_hi)", " 00:00:00")
!-> DEFINE VARIABLE iz = STRINDEX("03-Jan-2012 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("03-Jan-2012 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("03-Jan-2012 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 = `'NAV_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 = `'NAV_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 = `'NAV_LAT'[x=@min,y=@min]`
!-> DEFINE SYMBOL ferret_curv_lat_min = `'NAV_LAT'[x=@min,y=@min]`
!-> DEFINE SYMBOL ferret_curv_lat_min = 14.1861295700073
DEFINE SYMBOL ferret_curv_lat_max = `($ferret_curvi_coord_lat)[x=@max,y=@max]`
!-> IF 1 THEN DEFINE SYMBOL ferret_curv_lat_max = `'NAV_LAT'[x=@max,y=@max]`
!-> DEFINE SYMBOL ferret_curv_lat_max = `'NAV_LAT'[x=@max,y=@max]`
!-> DEFINE SYMBOL ferret_curv_lat_max = 30.70804595947266
LET ncurv_x = `($ferret_curvi_coord_lon),RETURN=isize`
!-> DEFINE VARIABLE ncurv_x = 715
LET ncurv_y = `($ferret_curvi_coord_lon),RETURN=jsize`
!-> DEFINE VARIABLE ncurv_y = 652
LET del_x = (($ferret_curv_lon_max) - (($ferret_curv_lon_min)) )/(ncurv_x/2)
!-> DEFINE VARIABLE del_x = (-78.57984 - (-98.40654) )/(ncurv_x/2)
LET del_y = (($ferret_curv_lat_max) - (($ferret_curv_lat_min)) )/(ncurv_y/2)
!-> DEFINE VARIABLE del_y = (30.70804595947266 - (14.1861295700073) )/(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 = 9.91335
LET ndel_y = `0.5*ABS(($ferret_curv_lat_min) - ($ferret_curv_lat_max))`
!-> DEFINE VARIABLE ndel_y = 8.26095819473268
LET xcurvdiff = ABS(($ferret_curv_lon_max) - (($ferret_curv_lon_min)) )
!-> DEFINE VARIABLE xcurvdiff = ABS(-78.57984 - (-98.40654) )
LET xregdiff = ABS(($region_x_hi) - (($region_x_lo)))
!-> DEFINE VARIABLE xregdiff = ABS(-78.61 - (-98.40654))
LET ycurvdiff = ABS(($ferret_curv_lat_max) - (($ferret_curv_lat_min)) )
!-> DEFINE VARIABLE ycurvdiff = ABS(30.70804595947266 - (14.1861295700073) )
LET yregdiff = ABS(($region_y_hi) - (($region_y_lo)) )
!-> DEFINE VARIABLE yregdiff = ABS(30.68 - (14.186) )
(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 715
DEFINE SYMBOL clat_jmin `clat_jmin`
!-> DEFINE SYMBOL clat_jmin 1
DEFINE SYMBOL clat_jmax `clat_jmax`
!-> DEFINE SYMBOL clat_jmax 652
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://cicese.mx/thredds/dodsC/hidrocarburos/linea3/climatologias/nemo-golfo-36
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 = 25.6* 1.e6
LET pvar = ($expr1)($data_var)[d=($data_num)]($expr2)
!-> DEFINE VARIABLE pvar = 'VOZOCRTX_X'[d=1]
IF ($region_zt"0|*>1") THEN LET pvar = ($expr1)($data_var)[d=($data_num),($region_zt)]($expr2)
!-> IF 1 THEN LET pvar = 'VOZOCRTX_X'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"]
!-> LET pvar = 'VOZOCRTX_X'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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 = 'VOZOCRTX_X'[d=1,i=1:715,j=1:652]
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 = 'VOZOCRTX_X'[d=1,i=1:715,j=1:652,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"]
!-> LET pvar = 'VOZOCRTX_X'[d=1,i=1:715,j=1:652,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"]
IF ($ferret_season_length"0|*>1") THEN
!-> IF 0 THEN
ENDIF
ENDIF
IF `($num"0")+1 EQ ($data_count)` THEN
!-> IF 0 THEN
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 = 715 - 1 + 1
ELSE
ENDIF
LET nx_orig = `nx`
!-> DEFINE VARIABLE nx_orig = 715
DEFINE SYMBOL grid_x_range = `($ferret_curv_lon_max) - ($ferret_curv_lon_min)`
!-> DEFINE SYMBOL grid_x_range = 19.8267
DEFINE SYMBOL grid_y_range = `($ferret_curv_lat_max) - ($ferret_curv_lat_min)`
!-> DEFINE SYMBOL grid_y_range = 16.52191638946536
IF `STRLEN("($ferret_view)") EQ 2` THEN
!-> IF 1 THEN
LET ii = i[gx=($data_var)[d=($data_num)]]
!-> DEFINE VARIABLE ii = i[gx='VOZOCRTX_X'[d=1]]
LET nx = ($clon_imax) - ($clon_imin) + 1
!-> DEFINE VARIABLE nx = 715 - 1 + 1
let ixmax = ii[i=@max]
LET jj = j[gy=($data_var)[d=($data_num)]]
!-> DEFINE VARIABLE jj = j[gy='VOZOCRTX_X'[d=1]]
LET ny = ($clat_jmax) - ($clat_jmin) + 1
!-> DEFINE VARIABLE ny = 652 - 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 = 19.79654/19.8267
LET pixsize = `nx*x_pct`
!-> DEFINE VARIABLE pixsize = 713.9123555609356
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 = 4
DEFINE SYMBOL xstride = `MAX(($xstride"1"), ($stride_for_mem"1"))`
!-> DEFINE SYMBOL xstride = 4
IF `($xstride"0") GT 1` THEN
!-> IF 1 THEN
LET rem = ( (($clon_imin)/($xstride)) - int(($clon_imin)/($xstride)) )* ($xstride)
!-> DEFINE VARIABLE rem = ( (1/4) - int(1/4) )* 4
DEFINE SYMBOL xoff = /OFFSET=`INT(($xstride) - rem)`
!-> DEFINE SYMBOL xoff = /OFFSET=3
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=4 X
LET x_strided_var = ($data_var)[d=($data_num)]
!-> DEFINE VARIABLE x_strided_var = 'VOZOCRTX_X'[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 = 178
DEFINE SYMBOL clon_imax = `($clon_imax)-($xstride)`
!-> IF 1 THEN DEFINE SYMBOL clon_imax = `178-4`
!-> DEFINE SYMBOL clon_imax = `178-4`
!-> DEFINE SYMBOL clon_imax = 174
ENDIF
DEFINE SYMBOL qualifiers = ($qualifiers)/HLIM=`($region_x_lo)`:`($region_x_hi)`
!-> IF 0 THEN DEFINE SYMBOL qualifiers = /HLIM=`-98.40654`:`-78.61`
LET y_pct = ($region_y_range)/($grid_y_range)
!-> DEFINE VARIABLE y_pct = 16.494/16.52191638946536
LET pixsize = `ny*y_pct`
!-> DEFINE VARIABLE pixsize = 650.8983429341755
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 Y
LET y_strided_var = ($data_var)[d=($data_num)]
!-> DEFINE VARIABLE y_strided_var = 'VOZOCRTX_X'[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 = 163
DEFINE SYMBOL clat_jmax = `($clat_jmax)-($ystride)`
!-> IF 1 THEN DEFINE SYMBOL clat_jmax = `163-4`
!-> DEFINE SYMBOL clat_jmax = `163-4`
!-> DEFINE SYMBOL clat_jmax = 159
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 4 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 4 in X,
!-> DEFINE SYMBOL upper_left_1 = Subsampled 4 in X,
($upper_left_($n_left_labels)) ($ystride) in Y
!-> DEFINE SYMBOL upper_left_1 = Subsampled 4 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 4 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 = 'VOZOCRTX_X'[d=1,i=1:174,j=1:159]
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 = 'VOZOCRTX_X'[d=1,i=1:174,j=1:159,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"]
!-> LET pvar = 'VOZOCRTX_X'[d=1,i=1:174,j=1:159,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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:174
DEFINE SYMBOL region_y = j=($clat_jmin):($clat_jmax)
!-> DEFINE SYMBOL region_y = j=1:159
DEFINE SYMBOL region_xy = i=($clon_imin):($clon_imax),j=($clat_jmin):($clat_jmax)
!-> DEFINE SYMBOL region_xy = i=1:174,j=1:159
IF ($region_t"0|*>1") THEN DEFINE SYMBOL region_xyt = ($region_xy),($region_t)
!-> IF 1 THEN DEFINE SYMBOL region_xyt = i=1:174,j=1:159,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_xyt = i=1:174,j=1:159,T="03-Jan-2012 00:00":"03-Jan-2012 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:174,j=1:159,Z=2.6677:2.6677
!-> DEFINE SYMBOL region_xyz = i=1:174,j=1:159,Z=2.6677:2.6677
IF ($region_zt"0|*>1") THEN DEFINE SYMBOL region_xyzt = ($region_xy),($region_zt)
!-> IF 1 THEN DEFINE SYMBOL region_xyzt = i=1:174,j=1:159,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_xyzt = i=1:174,j=1:159,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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:174,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_xt = i=1:174,T="03-Jan-2012 00:00":"03-Jan-2012 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:174,Z=2.6677:2.6677
!-> DEFINE SYMBOL region_xz = i=1:174,Z=2.6677:2.6677
IF ($region_xzt"0|*>1") THEN DEFINE SYMBOL region_xzt = ($region_x),($region_zt)
!-> IF 1 THEN DEFINE SYMBOL region_xzt = i=1:174,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_xzt = i=1:174,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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:159,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_yt = j=1:159,T="03-Jan-2012 00:00":"03-Jan-2012 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:159,Z=2.6677:2.6677
!-> DEFINE SYMBOL region_yz = j=1:159,Z=2.6677:2.6677
IF ($region_yzt"0|*>1") THEN DEFINE SYMBOL region_yzt = ($region_y),($region_zt)
!-> IF 1 THEN DEFINE SYMBOL region_yzt = j=1:159,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_yzt = j=1:159,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_full"0|*>1") THEN DEFINE SYMBOL region_full = ($region_xyzt)
!-> IF 1 THEN DEFINE SYMBOL region_full = i=1:174,j=1:159,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_full = i=1:174,j=1:159,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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:174
!-> DEFINE SYMBOL region_0_x = i=1:174
IF ($region_y"0|*>1") THEN DEFINE SYMBOL region_($num)_y = ($region_y)
!-> IF 1 THEN DEFINE SYMBOL region_0_y = j=1:159
!-> DEFINE SYMBOL region_0_y = j=1:159
IF ($region_z"0|*>1") THEN DEFINE SYMBOL region_($num)_z = ($region_z)
!-> IF 1 THEN DEFINE SYMBOL region_0_z = Z=2.6677:2.6677
!-> DEFINE SYMBOL region_0_z = Z=2.6677:2.6677
IF ($region_t"0|*>1") THEN DEFINE SYMBOL region_($num)_t = ($region_t)
!-> IF 1 THEN DEFINE SYMBOL region_0_t = T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_0_t = T="03-Jan-2012 00:00":"03-Jan-2012 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:174,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_0_xt = i=1:174,T="03-Jan-2012 00:00":"03-Jan-2012 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:174,j=1:159
!-> DEFINE SYMBOL region_0_xy = i=1:174,j=1:159
IF ($region_xz"0|*>1") THEN DEFINE SYMBOL region_($num)_xz = ($region_xz)
!-> IF 1 THEN DEFINE SYMBOL region_0_xz = i=1:174,Z=2.6677:2.6677
!-> DEFINE SYMBOL region_0_xz = i=1:174,Z=2.6677:2.6677
IF ($region_yt"0|*>1") THEN DEFINE SYMBOL region_($num)_yt = ($region_yt)
!-> IF 1 THEN DEFINE SYMBOL region_0_yt = j=1:159,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_0_yt = j=1:159,T="03-Jan-2012 00:00":"03-Jan-2012 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:159,Z=2.6677:2.6677
!-> DEFINE SYMBOL region_0_yz = j=1:159,Z=2.6677:2.6677
IF ($region_zt"0|*>1") THEN DEFINE SYMBOL region_($num)_zt = ($region_zt)
!-> IF 1 THEN DEFINE SYMBOL region_0_zt = Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_0_zt = Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
! Exit_GO
LET/TITLE="Longitude"/units=degrees xcoord = ($ferret_curvi_coord_lon)[d=($data_num)]
!-> DEFINE VARIABLE/TITLE="Longitude"/units=degrees xcoord = 'NAV_LON'[d=1]
LET/TITLE="Latitude"/units=degrees ycoord = ($ferret_curvi_coord_lat)[d=($data_num)]
!-> DEFINE VARIABLE/TITLE="Latitude"/units=degrees ycoord = 'NAV_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 = 'NAV_LON'[d=1,i=1:174,j=1:159]
($ferret_curvi_coord_lat)[d=($data_num),i=($clon_imin):($clon_imax),j=($clat_jmin):($clat_jmax)]
!-> DEFINE VARIABLE/TITLE="Latitude"/units=degrees ycoord = 'NAV_LAT'[d=1,i=1:174,j=1:159]
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 = 'VOZOCRTX_X'[d=1,i=1:174,j=1:159]
($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 = 'VOZOCRTX_X'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:174,j=1:159]
!-> LET/d=1 plot_var = 'VOZOCRTX_X'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:174,j=1:159]
($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 = 'VOZOCRTX_X'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:174,j=1:159]
!-> LET/d=1 plot_var = 'VOZOCRTX_X'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:174,j=1:159]
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 = 'VOZOCRTX_X'[d=1,i=1:174,j=1:159]
($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 = 'VOZOCRTX_X'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:174,j=1:159]
!-> DEFINE SYMBOL ferret_plot_base_var = 'VOZOCRTX_X'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:174,j=1:159]
($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 = 'VOZOCRTX_X'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:174,j=1:159]
!-> DEFINE SYMBOL ferret_plot_base_var = 'VOZOCRTX_X'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:174,j=1:159]
DEFINE SYMBOL ferret_plot_base_var_($which_var) ($ferret_plot_base_var)
!-> DEFINE SYMBOL ferret_plot_base_var_0 'VOZOCRTX_X'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:174,j=1:159]
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 " eastward velocity (m/s) "
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 0 THEN GO LAS_set_strides.jnl
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_VECTOR
IF `STRLEN("($ferret_view)") LT 2` THEN EXIT/SCRIPT
!-> IF 0 THEN EXIT/SCRIPT
IF `STRINDEX("($op)", "VECTOR") GT 0` THEN EXIT/SCRIPT
!-> IF 1 THEN EXIT/SCRIPT
!-> EXIT/SCRIPT
! Exit_GO
ENDIF
ENDIF
! Exit_GO
! Exit_GO
DEFINE SYMBOL variable_($1"0")_lab = ($data_title) ($data_units)
!-> DEFINE SYMBOL variable_0_lab = eastward velocity (m/s)
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 = eastward velocity (m/s)
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 = eastward velocity (m/s)
($itsa_vector_plot"0|*>1") EQ 0` THEN DEFINE SYMBOL qualifiers = ($qualifiers)/KEY=CONT
!-> IF 0 THEN 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 1 THEN SET MEM/SIZ=100
!-> 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
DEFINE SYMBOL ferret_vector_1 ($ferret_plot_var)
!-> DEFINE SYMBOL ferret_vector_1 plot_var[d=1] , xcoord, ycoord
DEFINE SYMBOL ferret_plot_title_1 "($data_title) ($data_units)"
!-> DEFINE SYMBOL ferret_plot_title_1 "eastward velocity (m/s)"
DEFINE SYMBOL ferret_vector_1_noregion ($ferret_plot_var_0_noregion)
!-> DEFINE SYMBOL ferret_vector_1_noregion 'VOZOCRTX_X'[d=1]
GO LAS_initialize_data 1
! Enter_GO LAS_initialize_data 1
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 0 THEN DEFINE SYMBOL data_initialization_script LAS_initialize_data_std
GO ($data_initialization_script) ($1)
!-> GO LAS_initialize_data_std 1
! Enter_GO LAS_initialize_data_std 1
GO LAS_initialize_dataset ($1"0")
!-> GO LAS_initialize_dataset 1
! Enter_GO LAS_initialize_dataset 1
DEFINE SYMBOL num ($1"0")
!-> DEFINE SYMBOL num 1
IF ($data_($num)_chained"0|1|*>1) THEN
!-> IF 0 THEN
ELSE
DEFINE SYMBOL data_url \"($data_($num)_url)\"
!-> DEFINE SYMBOL data_url \"http://cicese.mx/thredds/dodsC/hidrocarburos/linea3/climatologias/nemo-golfo-36\";
ENDIF
SET DATA ($data_url)
!-> SET DATA "http://cicese.mx/thredds/dodsC/hidrocarburos/linea3/climatologias/nemo-golfo-36";
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 vomecrty_Y
DEFINE SYMBOL data_orig_var ($data_($num)_var)
!-> DEFINE SYMBOL data_orig_var vomecrty_Y
DEFINE SYMBOL data_var_nq ($data_($num)_var)
!-> DEFINE SYMBOL data_var_nq vomecrty_Y
ENDIF
DEFINE SYMBOL data_name ($data_($num)_name)
!-> DEFINE SYMBOL data_name northward velocity
IF `($data_($num)_name"0|*>1") EQ 0` THEN DEFINE SYMBOL data_name ($data_var)
!-> IF 0 THEN DEFINE SYMBOL data_name vomecrty_Y
DEFINE SYM var_num ($num)
!-> DEFINE SYM var_num 1
IF ($data_($num)_var"0|*>1") THEN DEFINE SYMBOL data_var = `UPCASE("($data_var)")`
!-> IF 1 THEN DEFINE SYMBOL data_var = `UPCASE("vomecrty_Y")`
!-> DEFINE SYMBOL data_var = `UPCASE("vomecrty_Y")`
!-> DEFINE SYMBOL data_var = VOMECRTY_Y
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("vomecrty_Y")`
!-> DEFINE SYMBOL data_var_nq = `UPCASE("vomecrty_Y")`
!-> DEFINE SYMBOL data_var_nq = VOMECRTY_Y
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("VOMECRTY_Y")`
LET varlen = `STRLEN("($data_var)")`
!-> DEFINE VARIABLE varlen = 10
IF `STRINDEX("($data_var)", "'") EQ 1 AND STRRINDEX("($data_var)", "'") EQ varlen` THEN
!-> IF 0 THEN
ELSE
IF ($data_($num)_var"0|*>1") THEN DEFINE SYMBOL data_var_nq = ($data_var)
!-> IF 1 THEN DEFINE SYMBOL data_var_nq = VOMECRTY_Y
!-> DEFINE SYMBOL data_var_nq = VOMECRTY_Y
IF ($data_($num)_var"0|*>1") THEN DEFINE SYMBOL data_var = '($data_var)'
!-> IF 1 THEN DEFINE SYMBOL data_var = 'VOMECRTY_Y'
!-> DEFINE SYMBOL data_var = 'VOMECRTY_Y'
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 = 'NAV_LON'
LET varlen = `STRLEN("($ferret_curvi_coord_lon)")`
!-> DEFINE VARIABLE varlen = 9
IF `STRINDEX("($ferret_curvi_coord_lon)", "'") EQ 1 AND STRRINDEX("($ferret_curvi_coord_lon)", "'") EQ varlen` THEN
!-> IF 1 THEN
DEFINE SYMBOL curv_already_quote = 1
ELSE
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 = 'NAV_LAT'
LET varlen = `STRLEN("($ferret_curvi_coord_lat)")`
!-> DEFINE VARIABLE varlen = 9
IF `STRINDEX("($ferret_curvi_coord_lat)", "'") EQ 1 AND STRRINDEX("($ferret_curvi_coord_lat)", "'") EQ varlen` THEN
!-> IF 1 THEN
DEFINE SYMBOL curv_already_quote = 1
ELSE
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 m/s
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 (m/s)
DEFINE SYMBOL data_units ($data_($num)_units)
!-> IF 0 THEN DEFINE SYMBOL data_units m/s
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 northward velocity
!-> DEFINE SYMBOL data_title northward velocity
ELSE
ENDIF
IF `($num) GT 0` THEN DEFINE SYMBOL variable_($num)_lab = ($data_title)
!-> IF 1 THEN DEFINE SYMBOL variable_1_lab = northward velocity
!-> DEFINE SYMBOL variable_1_lab = northward velocity
IF ($data_units"0|*>1") THEN
!-> IF 1 THEN
DEFINE SYMBOL units_lab = ($data_units)
!-> DEFINE SYMBOL units_lab = (m/s)
IF `($num) GT 0` THEN DEFINE SYMBOL units_($num)_lab = ($data_units)
!-> IF 1 THEN DEFINE SYMBOL units_1_lab = (m/s)
!-> DEFINE SYMBOL units_1_lab = (m/s)
ENDIF
DEFINE SYMBOL ferret_plot_title ($data_title) ($data_units)
!-> DEFINE SYMBOL ferret_plot_title northward velocity (m/s)
SET DATA ($data_url)
!-> SET DATA "http://cicese.mx/thredds/dodsC/hidrocarburos/linea3/climatologias/nemo-golfo-36";
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 ("m/s")
DEFINE SYMBOL data_units `SUBSTRING("($data_($num)_units)", 2, ulen-2)`
!-> IF 0 THEN DEFINE SYMBOL data_units `SUBSTRING("m/s", 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://cicese.mx/thredds/dodsC/hidrocarburos/linea3/climatologias/nemo-golfo-36";
DEFINE SYMBOL dset($num) = `($data_var),RETURN=dsetnum`
!-> DEFINE SYMBOL dset1 = 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 = vomecrty_Y
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 = vomecrty_Y
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_1_num = 1
IF ($ferret_factor"0|*>1") THEN
!-> IF 0 THEN
ENDIF
LET attlist = ($data_($num)_var).attnames
!-> DEFINE VARIABLE attlist = vomecrty_Y.attnames
IF ($data_var_nq"0|*>1") THEN LET attlist = ($data_var_nq).attnames
!-> IF 1 THEN LET attlist = VOMECRTY_Y.attnames
!-> LET attlist = VOMECRTY_Y.attnames
DEFINE SYMBOL data_var_only = `UPCASE("($data_var)")`
!-> DEFINE SYMBOL data_var_only = 'VOMECRTY_Y'
IF ($ferret_bad_flag"0|*>1") THEN SET VAR/BAD=($ferret_bad_flag) ($data_var)
!-> IF 0 THEN SET VAR/BAD= 'VOMECRTY_Y'
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 = 'VOMECRTY_Y'[d=1,i=1:174,j=1:159,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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 = 'VOMECRTY_Y'[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 = VOMECRTY_Y[d=1]
!-> DEFINE SYMBOL ferret_plot_var_nq_noregion = VOMECRTY_Y[d=1]
DEFINE SYMBOL ferret_plot_var_($num)_noregion = ($data_var)[d=($data_num)]
!-> DEFINE SYMBOL ferret_plot_var_1_noregion = 'VOMECRTY_Y'[d=1]
DEFINE SYMBOL ferret_plot_base_var = ($ferret_plot_var)
!-> DEFINE SYMBOL ferret_plot_base_var = 'VOMECRTY_Y'[d=1,i=1:174,j=1:159,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"]
DEFINE SYMBOL ferret_plot_base_var_($num) = ($ferret_plot_var)
!-> DEFINE SYMBOL ferret_plot_base_var_1 = 'VOMECRTY_Y'[d=1,i=1:174,j=1:159,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"]
DEFINE SYMBOL ferret_plot_base_var_noregion = ($data_var)[d=($data_num)]
!-> DEFINE SYMBOL ferret_plot_base_var_noregion = 'VOMECRTY_Y'[d=1]
DEFINE SYMBOL ferret_xyz_var = ($data_var)[d=($data_num),($region_xyz)]
!-> DEFINE SYMBOL ferret_xyz_var = 'VOMECRTY_Y'[d=1,i=1:174,j=1:159,Z=2.6677:2.6677]
DEFINE SYMBOL ferret_t_var = ($data_var)[d=($data_num),($region_t)]
!-> DEFINE SYMBOL ferret_t_var = 'VOMECRTY_Y'[d=1,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"]
DEFINE SYMBOL ferret_x_var = ($data_var)[d=($data_num),($region_x)]
!-> DEFINE SYMBOL ferret_x_var = 'VOMECRTY_Y'[d=1,i=1:174]
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 = 'VOMECRTY_Y'[d=1]
GO LAS_transforms ($num)
!-> GO LAS_transforms 1
! Enter_GO LAS_transforms 1
DEFINE SYMBOL num ($1"0")
!-> DEFINE SYMBOL num 1
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 1
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 = `'NAV_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 = `'NAV_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 `-98.40654 + 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 = -98.40654
DEFINE SYMBOL region_0_x_hi_orig = ($region_0_x_hi)
!-> DEFINE SYMBOL region_0_x_hi_orig = -78.61
ENDIF
GO LAS_initialize_region ($num)
!-> GO LAS_initialize_region 1
! Enter_GO LAS_initialize_region 1
DEFINE SYMBOL num ($1"0")
!-> DEFINE SYMBOL num 1
DEFINE SYMBOL region_name data_($num)_region
!-> DEFINE SYMBOL region_name data_1_region
DEFINE SYMBOL region ($($region_name)"region_0")
!-> DEFINE SYMBOL region region_1
DEFINE SYMBOL region region_($num)
!-> DEFINE SYMBOL region region_1
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 = -98.40654
DEFINE SYMBOL region_x_hi = `INT(100000 * ($($region)_x_hi)) / 100000`
!-> DEFINE SYMBOL region_x_hi = -78.61
DEFINE SYMBOL limits_x = ($region_x_lo):($region_x_hi)
!-> DEFINE SYMBOL limits_x = -98.40654:-78.61
DEFINE SYMBOL limits_x_m360 = `($region_x_lo)-360`:`($region_x_hi)-360`
!-> DEFINE SYMBOL limits_x_m360 = -458.40654:-438.61
DEFINE SYMBOL limits_x_p360 = `($region_x_lo)+360`:`($region_x_hi)+360`
!-> DEFINE SYMBOL limits_x_p360 = 261.59346:281.39
DEFINE SYMBOL region_x = X=($region_x_lo):($region_x_hi)
!-> DEFINE SYMBOL region_x = X=-98.40654:-78.61
DEFINE SYMBOL region_x_m360 X=`($region_x_lo)-360`:`($region_x_hi)-360`
!-> DEFINE SYMBOL region_x_m360 X=-458.40654:-438.61
DEFINE SYMBOL region_x_p360 X=`($region_x_lo)+360`:`($region_x_hi)+360`
!-> DEFINE SYMBOL region_x_p360 X=261.59346:281.39
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 = 19.79654
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 = 14.186
DEFINE SYMBOL region_y_hi = `INT(1000 * ($($region)_y_hi)) / 1000`
!-> DEFINE SYMBOL region_y_hi = 30.68
DEFINE SYMBOL limits_y = ($region_y_lo):($region_y_hi)
!-> DEFINE SYMBOL limits_y = 14.186:30.68
DEFINE SYMBOL region_y = Y=($region_y_lo):($region_y_hi)
!-> DEFINE SYMBOL region_y = Y=14.186:30.68
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.494
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 = 2.6677
DEFINE SYMBOL region_z_hi = ($($region)_z_hi)
!-> DEFINE SYMBOL region_z_hi = 2.6677
DEFINE SYMBOL limits_z = ($region_z_lo):($region_z_hi)
!-> DEFINE SYMBOL limits_z = 2.6677:2.6677
DEFINE SYMBOL region_z = Z=($region_z_lo):($region_z_hi)
!-> DEFINE SYMBOL region_z = Z=2.6677:2.6677
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 = 03-Jan-2012 00:00
DEFINE SYMBOL region_t_hi = ($($region)_t_hi)
!-> DEFINE SYMBOL region_t_hi = 03-Jan-2012 00:00
DEFINE SYMBOL limits_t \"($region_t_lo)\":\"($region_t_hi)\"
!-> DEFINE SYMBOL limits_t \"03-Jan-2012 00:00\":\"03-Jan-2012 00:00\"
DEFINE SYMBOL region_t T=\"($region_t_lo)\":\"($region_t_hi)\"
!-> DEFINE SYMBOL region_t T=\"03-Jan-2012 00:00\":\"03-Jan-2012 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=-98.40654:-78.61,Y=14.186:30.68
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=-98.40654:-78.61,Z=2.6677:2.6677
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=-98.40654:-78.61,T="03-Jan-2012 00:00":"03-Jan-2012 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=14.186:30.68,Z=2.6677:2.6677
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=14.186:30.68,T="03-Jan-2012 00:00":"03-Jan-2012 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=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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=-98.40654:-78.61,Y=14.186:30.68,Z=2.6677:2.6677
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=-98.40654:-78.61,Y=14.186:30.68,T="03-Jan-2012 00:00":"03-Jan-2012 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=-98.40654:-78.61,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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=14.186:30.68,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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=-98.40654:-78.61,Y=14.186:30.68,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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=-98.40654:-78.61,Y=14.186:30.68,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
ENDIF
ELSE
ENDIF
DEFINE SYMBOL region_full = ($region_xyzte)
!-> DEFINE SYMBOL region_full = X=-98.40654:-78.61,Y=14.186:30.68,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_x"0|*>1") THEN DEFINE SYMBOL region_($num)_x = ($region_x)
!-> IF 1 THEN DEFINE SYMBOL region_1_x = X=-98.40654:-78.61
!-> DEFINE SYMBOL region_1_x = X=-98.40654:-78.61
IF ($region_y"0|*>1") THEN DEFINE SYMBOL region_($num)_y = ($region_y)
!-> IF 1 THEN DEFINE SYMBOL region_1_y = Y=14.186:30.68
!-> DEFINE SYMBOL region_1_y = Y=14.186:30.68
IF ($region_z"0|*>1") THEN DEFINE SYMBOL region_($num)_z = ($region_z)
!-> IF 1 THEN DEFINE SYMBOL region_1_z = Z=2.6677:2.6677
!-> DEFINE SYMBOL region_1_z = Z=2.6677:2.6677
IF ($region_t"0|*>1") THEN DEFINE SYMBOL region_($num)_t = ($region_t)
!-> IF 1 THEN DEFINE SYMBOL region_1_t = T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_1_t = T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_xt"0|*>1") THEN DEFINE SYMBOL region_($num)_xt = ($region_xt)
!-> IF 1 THEN DEFINE SYMBOL region_1_xt = X=-98.40654:-78.61,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_1_xt = X=-98.40654:-78.61,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_xy"0|*>1") THEN DEFINE SYMBOL region_($num)_xy = ($region_xy)
!-> IF 1 THEN DEFINE SYMBOL region_1_xy = X=-98.40654:-78.61,Y=14.186:30.68
!-> DEFINE SYMBOL region_1_xy = X=-98.40654:-78.61,Y=14.186:30.68
IF ($region_xz"0|*>1") THEN DEFINE SYMBOL region_($num)_xz = ($region_xz)
!-> IF 1 THEN DEFINE SYMBOL region_1_xz = X=-98.40654:-78.61,Z=2.6677:2.6677
!-> DEFINE SYMBOL region_1_xz = X=-98.40654:-78.61,Z=2.6677:2.6677
IF ($region_yt"0|*>1") THEN DEFINE SYMBOL region_($num)_yt = ($region_yt)
!-> IF 1 THEN DEFINE SYMBOL region_1_yt = Y=14.186:30.68,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_1_yt = Y=14.186:30.68,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_yz"0|*>1") THEN DEFINE SYMBOL region_($num)_yz = ($region_yz)
!-> IF 1 THEN DEFINE SYMBOL region_1_yz = Y=14.186:30.68,Z=2.6677:2.6677
!-> DEFINE SYMBOL region_1_yz = Y=14.186:30.68,Z=2.6677:2.6677
IF ($region_zt"0|*>1") THEN DEFINE SYMBOL region_($num)_zt = ($region_zt)
!-> IF 1 THEN DEFINE SYMBOL region_1_zt = Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_1_zt = Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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 = 03-Jan-2012 00:00
LET iz = STRINDEX("($region_0_t_lo)", " 00:00:00")
!-> DEFINE VARIABLE iz = STRINDEX("03-Jan-2012 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("03-Jan-2012 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("03-Jan-2012 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 = 03-Jan-2012 00:00
LET iz = STRINDEX("($region_0_t_hi)", " 00:00:00")
!-> DEFINE VARIABLE iz = STRINDEX("03-Jan-2012 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("03-Jan-2012 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("03-Jan-2012 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 0 THEN
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 1
! Enter_GO LAS_initialize_region 1
DEFINE SYMBOL num ($1"0")
!-> DEFINE SYMBOL num 1
DEFINE SYMBOL region_name data_($num)_region
!-> DEFINE SYMBOL region_name data_1_region
DEFINE SYMBOL region ($($region_name)"region_0")
!-> DEFINE SYMBOL region region_1
DEFINE SYMBOL region region_($num)
!-> DEFINE SYMBOL region region_1
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 = -98.40654
DEFINE SYMBOL region_x_hi = `INT(100000 * ($($region)_x_hi)) / 100000`
!-> DEFINE SYMBOL region_x_hi = -78.61
DEFINE SYMBOL limits_x = ($region_x_lo):($region_x_hi)
!-> DEFINE SYMBOL limits_x = -98.40654:-78.61
DEFINE SYMBOL limits_x_m360 = `($region_x_lo)-360`:`($region_x_hi)-360`
!-> DEFINE SYMBOL limits_x_m360 = -458.40654:-438.61
DEFINE SYMBOL limits_x_p360 = `($region_x_lo)+360`:`($region_x_hi)+360`
!-> DEFINE SYMBOL limits_x_p360 = 261.59346:281.39
DEFINE SYMBOL region_x = X=($region_x_lo):($region_x_hi)
!-> DEFINE SYMBOL region_x = X=-98.40654:-78.61
DEFINE SYMBOL region_x_m360 X=`($region_x_lo)-360`:`($region_x_hi)-360`
!-> DEFINE SYMBOL region_x_m360 X=-458.40654:-438.61
DEFINE SYMBOL region_x_p360 X=`($region_x_lo)+360`:`($region_x_hi)+360`
!-> DEFINE SYMBOL region_x_p360 X=261.59346:281.39
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 = 19.79654
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 = 14.186
DEFINE SYMBOL region_y_hi = `INT(1000 * ($($region)_y_hi)) / 1000`
!-> DEFINE SYMBOL region_y_hi = 30.68
DEFINE SYMBOL limits_y = ($region_y_lo):($region_y_hi)
!-> DEFINE SYMBOL limits_y = 14.186:30.68
DEFINE SYMBOL region_y = Y=($region_y_lo):($region_y_hi)
!-> DEFINE SYMBOL region_y = Y=14.186:30.68
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.494
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 = 2.6677
DEFINE SYMBOL region_z_hi = ($($region)_z_hi)
!-> DEFINE SYMBOL region_z_hi = 2.6677
DEFINE SYMBOL limits_z = ($region_z_lo):($region_z_hi)
!-> DEFINE SYMBOL limits_z = 2.6677:2.6677
DEFINE SYMBOL region_z = Z=($region_z_lo):($region_z_hi)
!-> DEFINE SYMBOL region_z = Z=2.6677:2.6677
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 = 03-Jan-2012 00:00
DEFINE SYMBOL region_t_hi = ($($region)_t_hi)
!-> DEFINE SYMBOL region_t_hi = 03-Jan-2012 00:00
DEFINE SYMBOL limits_t \"($region_t_lo)\":\"($region_t_hi)\"
!-> DEFINE SYMBOL limits_t \"03-Jan-2012 00:00\":\"03-Jan-2012 00:00\"
DEFINE SYMBOL region_t T=\"($region_t_lo)\":\"($region_t_hi)\"
!-> DEFINE SYMBOL region_t T=\"03-Jan-2012 00:00\":\"03-Jan-2012 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=-98.40654:-78.61,Y=14.186:30.68
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=-98.40654:-78.61,Z=2.6677:2.6677
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=-98.40654:-78.61,T="03-Jan-2012 00:00":"03-Jan-2012 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=14.186:30.68,Z=2.6677:2.6677
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=14.186:30.68,T="03-Jan-2012 00:00":"03-Jan-2012 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=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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=-98.40654:-78.61,Y=14.186:30.68,Z=2.6677:2.6677
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=-98.40654:-78.61,Y=14.186:30.68,T="03-Jan-2012 00:00":"03-Jan-2012 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=-98.40654:-78.61,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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=14.186:30.68,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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=-98.40654:-78.61,Y=14.186:30.68,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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=-98.40654:-78.61,Y=14.186:30.68,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
ENDIF
ELSE
ENDIF
DEFINE SYMBOL region_full = ($region_xyzte)
!-> DEFINE SYMBOL region_full = X=-98.40654:-78.61,Y=14.186:30.68,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_x"0|*>1") THEN DEFINE SYMBOL region_($num)_x = ($region_x)
!-> IF 1 THEN DEFINE SYMBOL region_1_x = X=-98.40654:-78.61
!-> DEFINE SYMBOL region_1_x = X=-98.40654:-78.61
IF ($region_y"0|*>1") THEN DEFINE SYMBOL region_($num)_y = ($region_y)
!-> IF 1 THEN DEFINE SYMBOL region_1_y = Y=14.186:30.68
!-> DEFINE SYMBOL region_1_y = Y=14.186:30.68
IF ($region_z"0|*>1") THEN DEFINE SYMBOL region_($num)_z = ($region_z)
!-> IF 1 THEN DEFINE SYMBOL region_1_z = Z=2.6677:2.6677
!-> DEFINE SYMBOL region_1_z = Z=2.6677:2.6677
IF ($region_t"0|*>1") THEN DEFINE SYMBOL region_($num)_t = ($region_t)
!-> IF 1 THEN DEFINE SYMBOL region_1_t = T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_1_t = T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_xt"0|*>1") THEN DEFINE SYMBOL region_($num)_xt = ($region_xt)
!-> IF 1 THEN DEFINE SYMBOL region_1_xt = X=-98.40654:-78.61,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_1_xt = X=-98.40654:-78.61,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_xy"0|*>1") THEN DEFINE SYMBOL region_($num)_xy = ($region_xy)
!-> IF 1 THEN DEFINE SYMBOL region_1_xy = X=-98.40654:-78.61,Y=14.186:30.68
!-> DEFINE SYMBOL region_1_xy = X=-98.40654:-78.61,Y=14.186:30.68
IF ($region_xz"0|*>1") THEN DEFINE SYMBOL region_($num)_xz = ($region_xz)
!-> IF 1 THEN DEFINE SYMBOL region_1_xz = X=-98.40654:-78.61,Z=2.6677:2.6677
!-> DEFINE SYMBOL region_1_xz = X=-98.40654:-78.61,Z=2.6677:2.6677
IF ($region_yt"0|*>1") THEN DEFINE SYMBOL region_($num)_yt = ($region_yt)
!-> IF 1 THEN DEFINE SYMBOL region_1_yt = Y=14.186:30.68,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_1_yt = Y=14.186:30.68,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_yz"0|*>1") THEN DEFINE SYMBOL region_($num)_yz = ($region_yz)
!-> IF 1 THEN DEFINE SYMBOL region_1_yz = Y=14.186:30.68,Z=2.6677:2.6677
!-> DEFINE SYMBOL region_1_yz = Y=14.186:30.68,Z=2.6677:2.6677
IF ($region_zt"0|*>1") THEN DEFINE SYMBOL region_($num)_zt = ($region_zt)
!-> IF 1 THEN DEFINE SYMBOL region_1_zt = Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_1_zt = Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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 = 03-Jan-2012 00:00
LET iz = STRINDEX("($region_0_t_lo)", " 00:00:00")
!-> DEFINE VARIABLE iz = STRINDEX("03-Jan-2012 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("03-Jan-2012 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("03-Jan-2012 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 = 03-Jan-2012 00:00
LET iz = STRINDEX("($region_0_t_hi)", " 00:00:00")
!-> DEFINE VARIABLE iz = STRINDEX("03-Jan-2012 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("03-Jan-2012 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("03-Jan-2012 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 1 THEN DEFINE SYMBOL check_linear = 0
!-> 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_done1 = 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 = `'NAV_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 = `'NAV_LON'[x=@max,y=@max]`
DEFINE SYMBOL ferret_curv_lat_min = `($ferret_curvi_coord_lat)[x=@min,y=@min]`
!-> IF 0 THEN DEFINE SYMBOL ferret_curv_lat_min = `'NAV_LAT'[x=@min,y=@min]`
DEFINE SYMBOL ferret_curv_lat_max = `($ferret_curvi_coord_lat)[x=@max,y=@max]`
!-> IF 0 THEN DEFINE SYMBOL ferret_curv_lat_max = `'NAV_LAT'[x=@max,y=@max]`
LET ncurv_x = `($ferret_curvi_coord_lon),RETURN=isize`
!-> DEFINE VARIABLE ncurv_x = 715
LET ncurv_y = `($ferret_curvi_coord_lon),RETURN=jsize`
!-> DEFINE VARIABLE ncurv_y = 652
LET del_x = (($ferret_curv_lon_max) - (($ferret_curv_lon_min)) )/(ncurv_x/2)
!-> DEFINE VARIABLE del_x = (-78.57984 - (-98.40654) )/(ncurv_x/2)
LET del_y = (($ferret_curv_lat_max) - (($ferret_curv_lat_min)) )/(ncurv_y/2)
!-> DEFINE VARIABLE del_y = (30.70804595947266 - (14.1861295700073) )/(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 = 9.91335
LET ndel_y = `0.5*ABS(($ferret_curv_lat_min) - ($ferret_curv_lat_max))`
!-> DEFINE VARIABLE ndel_y = 8.26095819473268
LET xcurvdiff = ABS(($ferret_curv_lon_max) - (($ferret_curv_lon_min)) )
!-> DEFINE VARIABLE xcurvdiff = ABS(-78.57984 - (-98.40654) )
LET xregdiff = ABS(($region_x_hi) - (($region_x_lo)))
!-> DEFINE VARIABLE xregdiff = ABS(-78.61 - (-98.40654))
LET ycurvdiff = ABS(($ferret_curv_lat_max) - (($ferret_curv_lat_min)) )
!-> DEFINE VARIABLE ycurvdiff = ABS(30.70804595947266 - (14.1861295700073) )
LET yregdiff = ABS(($region_y_hi) - (($region_y_lo)) )
!-> DEFINE VARIABLE yregdiff = ABS(30.68 - (14.186) )
(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 715
DEFINE SYMBOL clat_jmin `clat_jmin`
!-> DEFINE SYMBOL clat_jmin 1
DEFINE SYMBOL clat_jmax `clat_jmax`
!-> DEFINE SYMBOL clat_jmax 652
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://cicese.mx/thredds/dodsC/hidrocarburos/linea3/climatologias/nemo-golfo-36
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 1 THEN EXIT/SCRIPT
!-> EXIT/SCRIPT
! 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:715
DEFINE SYMBOL region_y = j=($clat_jmin):($clat_jmax)
!-> DEFINE SYMBOL region_y = j=1:652
DEFINE SYMBOL region_xy = i=($clon_imin):($clon_imax),j=($clat_jmin):($clat_jmax)
!-> DEFINE SYMBOL region_xy = i=1:715,j=1:652
IF ($region_t"0|*>1") THEN DEFINE SYMBOL region_xyt = ($region_xy),($region_t)
!-> IF 1 THEN DEFINE SYMBOL region_xyt = i=1:715,j=1:652,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_xyt = i=1:715,j=1:652,T="03-Jan-2012 00:00":"03-Jan-2012 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:715,j=1:652,Z=2.6677:2.6677
!-> DEFINE SYMBOL region_xyz = i=1:715,j=1:652,Z=2.6677:2.6677
IF ($region_zt"0|*>1") THEN DEFINE SYMBOL region_xyzt = ($region_xy),($region_zt)
!-> IF 1 THEN DEFINE SYMBOL region_xyzt = i=1:715,j=1:652,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_xyzt = i=1:715,j=1:652,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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:715,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_xt = i=1:715,T="03-Jan-2012 00:00":"03-Jan-2012 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:715,Z=2.6677:2.6677
!-> DEFINE SYMBOL region_xz = i=1:715,Z=2.6677:2.6677
IF ($region_xzt"0|*>1") THEN DEFINE SYMBOL region_xzt = ($region_x),($region_zt)
!-> IF 1 THEN DEFINE SYMBOL region_xzt = i=1:715,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_xzt = i=1:715,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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:652,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_yt = j=1:652,T="03-Jan-2012 00:00":"03-Jan-2012 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:652,Z=2.6677:2.6677
!-> DEFINE SYMBOL region_yz = j=1:652,Z=2.6677:2.6677
IF ($region_yzt"0|*>1") THEN DEFINE SYMBOL region_yzt = ($region_y),($region_zt)
!-> IF 1 THEN DEFINE SYMBOL region_yzt = j=1:652,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_yzt = j=1:652,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_full"0|*>1") THEN DEFINE SYMBOL region_full = ($region_xyzt)
!-> IF 1 THEN DEFINE SYMBOL region_full = i=1:715,j=1:652,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_full = i=1:715,j=1:652,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_x"0|*>1") THEN DEFINE SYMBOL region_($num)_x = ($region_x)
!-> IF 1 THEN DEFINE SYMBOL region_1_x = i=1:715
!-> DEFINE SYMBOL region_1_x = i=1:715
IF ($region_y"0|*>1") THEN DEFINE SYMBOL region_($num)_y = ($region_y)
!-> IF 1 THEN DEFINE SYMBOL region_1_y = j=1:652
!-> DEFINE SYMBOL region_1_y = j=1:652
IF ($region_z"0|*>1") THEN DEFINE SYMBOL region_($num)_z = ($region_z)
!-> IF 1 THEN DEFINE SYMBOL region_1_z = Z=2.6677:2.6677
!-> DEFINE SYMBOL region_1_z = Z=2.6677:2.6677
IF ($region_t"0|*>1") THEN DEFINE SYMBOL region_($num)_t = ($region_t)
!-> IF 1 THEN DEFINE SYMBOL region_1_t = T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_1_t = T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_xt"0|*>1") THEN DEFINE SYMBOL region_($num)_xt = ($region_xt)
!-> IF 1 THEN DEFINE SYMBOL region_1_xt = i=1:715,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_1_xt = i=1:715,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_xy"0|*>1") THEN DEFINE SYMBOL region_($num)_xy = ($region_xy)
!-> IF 1 THEN DEFINE SYMBOL region_1_xy = i=1:715,j=1:652
!-> DEFINE SYMBOL region_1_xy = i=1:715,j=1:652
IF ($region_xz"0|*>1") THEN DEFINE SYMBOL region_($num)_xz = ($region_xz)
!-> IF 1 THEN DEFINE SYMBOL region_1_xz = i=1:715,Z=2.6677:2.6677
!-> DEFINE SYMBOL region_1_xz = i=1:715,Z=2.6677:2.6677
IF ($region_yt"0|*>1") THEN DEFINE SYMBOL region_($num)_yt = ($region_yt)
!-> IF 1 THEN DEFINE SYMBOL region_1_yt = j=1:652,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_1_yt = j=1:652,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_yz"0|*>1") THEN DEFINE SYMBOL region_($num)_yz = ($region_yz)
!-> IF 1 THEN DEFINE SYMBOL region_1_yz = j=1:652,Z=2.6677:2.6677
!-> DEFINE SYMBOL region_1_yz = j=1:652,Z=2.6677:2.6677
IF ($region_zt"0|*>1") THEN DEFINE SYMBOL region_($num)_zt = ($region_zt)
!-> IF 1 THEN DEFINE SYMBOL region_1_zt = Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_1_zt = Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
! Exit_GO
LET/TITLE="Longitude"/units=degrees xcoord = ($ferret_curvi_coord_lon)[d=($data_num)]
!-> DEFINE VARIABLE/TITLE="Longitude"/units=degrees xcoord = 'NAV_LON'[d=1]
LET/TITLE="Latitude"/units=degrees ycoord = ($ferret_curvi_coord_lat)[d=($data_num)]
!-> DEFINE VARIABLE/TITLE="Latitude"/units=degrees ycoord = 'NAV_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 0 THEN
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 1 THEN
LET outside = 0
IF ($ferret_curv_lon_min"0|*>1") THEN
!-> IF 1 THEN
LET xc1 = ($ferret_curv_lon_min)
!-> DEFINE VARIABLE xc1 = -98.40654
ELSE
ENDIF
IF ($ferret_curv_lon_max"0|*>1") THEN
!-> IF 1 THEN
LET xcn = ($ferret_curv_lon_max)
!-> DEFINE VARIABLE xcn = -78.57984
ELSE
ENDIF
LET outside = `xc1 GT ($region_x_lo)` + `xcn LT ($region_x_hi)`
!-> DEFINE VARIABLE outside = 0 + 0
($itsa_vector_plot"0") EQ 0` THEN
!-> IF 0 THEN
ENDIF
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 = 'NAV_LON'[d=1,i=1:715,j=1:652]
($ferret_curvi_coord_lat)[d=($data_num),i=($clon_imin):($clon_imax),j=($clat_jmin):($clat_jmax)]
!-> DEFINE VARIABLE/TITLE="Latitude"/units=degrees ycoord = 'NAV_LAT'[d=1,i=1:715,j=1:652]
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 = 'VOMECRTY_Y'[d=1,i=1:715,j=1:652]
($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 = 'VOMECRTY_Y'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:715,j=1:652]
!-> LET/d=1 plot_var = 'VOMECRTY_Y'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:715,j=1:652]
($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 = 'VOMECRTY_Y'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:715,j=1:652]
!-> LET/d=1 plot_var = 'VOMECRTY_Y'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:715,j=1:652]
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 = 'VOMECRTY_Y'[d=1,i=1:715,j=1:652]
($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 = 'VOMECRTY_Y'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:715,j=1:652]
!-> DEFINE SYMBOL ferret_plot_base_var = 'VOMECRTY_Y'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:715,j=1:652]
($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 = 'VOMECRTY_Y'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:715,j=1:652]
!-> DEFINE SYMBOL ferret_plot_base_var = 'VOMECRTY_Y'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:715,j=1:652]
DEFINE SYMBOL ferret_plot_base_var_($which_var) ($ferret_plot_base_var)
!-> DEFINE SYMBOL ferret_plot_base_var_1 'VOMECRTY_Y'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:715,j=1:652]
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 " northward velocity (m/s) "
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_VECTOR
IF `STRLEN("($ferret_view)") LT 2` THEN EXIT/SCRIPT
!-> IF 0 THEN EXIT/SCRIPT
IF `STRINDEX("($op)", "VECTOR") GT 0` THEN EXIT/SCRIPT
!-> IF 1 THEN EXIT/SCRIPT
!-> EXIT/SCRIPT
! Exit_GO
ENDIF
ENDIF
! Exit_GO
! Exit_GO
DEFINE SYMBOL variable_($1"0")_lab = ($data_title) ($data_units)
!-> DEFINE SYMBOL variable_1_lab = northward velocity (m/s)
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 1 THEN
DEFINE SYMBOL variable_lab = ($variable_lab), ($data_title) ($data_units)
!-> DEFINE SYMBOL variable_lab = eastward velocity (m/s), northward velocity (m/s)
ELSE
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 = northward velocity (m/s)
($itsa_vector_plot"0|*>1") EQ 0` THEN DEFINE SYMBOL qualifiers = ($qualifiers)/KEY=CONT
!-> IF 0 THEN 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
DEFINE SYMBOL ferret_vector_2 ($ferret_plot_var)
!-> DEFINE SYMBOL ferret_vector_2 plot_var[d=1] , xcoord, ycoord
DEFINE SYMBOL ferret_plot_title "($ferret_plot_title_1), ($data_title) ($data_units)"
!-> DEFINE SYMBOL ferret_plot_title "eastward velocity (m/s), northward velocity (m/s)"
IF ($expr1"0|*>1") THEN DEFINE SYMBOL ferret_plot_title ($expr1) {($ferret_plot_title)} ($expr2)
!-> IF 0 THEN DEFINE SYMBOL ferret_plot_title {eastward velocity (m/s), northward velocity (m/s)}
DEFINE SYMBOL ferret_vector_2_noregion ($ferret_plot_var_1_noregion)
!-> DEFINE SYMBOL ferret_vector_2_noregion 'VOMECRTY_Y'[d=1]
DEFINE SYMBOL variable_lab ($ferret_plot_title)
!-> DEFINE SYMBOL variable_lab eastward velocity (m/s), northward velocity (m/s)
GO LAS_check_staggered
! Enter_GO LAS_check_staggered
IF ($its_autolev_animate"0|*>1") THEN EXIT/SCRIPT
!-> IF 0 THEN EXIT/SCRIPT
IF ($native_curvilinear_xy"0") THEN
!-> IF 1 THEN
DEFINE SYMBOL xax_vec_1 = `($ferret_plot_var_0_noregion),RETURN=xaxis`
!-> DEFINE SYMBOL xax_vec_1 = (AX006)
DEFINE SYMBOL yax_vec_1 = `($ferret_plot_var_0_noregion),RETURN=yaxis`
!-> DEFINE SYMBOL yax_vec_1 = (AX007)
DEFINE SYMBOL xax_vec_2 = `($ferret_plot_var_1_noregion),RETURN=xaxis`
!-> DEFINE SYMBOL xax_vec_2 = (AX006)
DEFINE SYMBOL yax_vec_2 = `($ferret_plot_var_1_noregion),RETURN=yaxis`
!-> DEFINE SYMBOL yax_vec_2 = (AX007)
ELSE
ENDIF
IF `STRCMP("($xax_vec_1)", "($xax_vec_2)") NE 0` THEN DEFINE SYMBOL ferret_staggered_grid = 1
!-> IF 0 THEN DEFINE SYMBOL ferret_staggered_grid = 1
IF `STRCMP("($yax_vec_1)", "($yax_vec_2)") NE 0` THEN DEFINE SYMBOL ferret_staggered_grid = 1
!-> IF 0 THEN DEFINE SYMBOL ferret_staggered_grid = 1
IF `($ferret_staggered_grid"0|default>1|*>1") GT 0` THEN
!-> IF 0 THEN
ENDIF
! 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 = 'VOMECRTY_Y'[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
IF `($its_GE"0|*>1") ` THEN
!-> IF 0 THEN
ENDIF
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 0 THEN 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 0 THEN
ELIF ($ferret_use_graticules"0|white>1|*>0") THEN
!-> ELIF 0 THEN
ELIF ($ferret_use_graticules"0|black>1|*>0") THEN
!-> ELIF 1 THEN
DEFINE SYMBOL graticuleColor = 1
ENDIF
SET MODE GRATICULE:(DASH,COLOR=($graticuleColor))
!-> SET MODE GRATICULE:(DASH,COLOR=1)
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 0 THEN
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 1 OR 0`
!-> DEFINE SYMBOL line_drawn = `0 OR 1 OR 0`
!-> DEFINE SYMBOL line_drawn = 1
sh sym ferret_line_color
IF `($line_drawn"0") AND ($itsa_multi_lineplot"0|*>1") EQ 0` THEN
!-> IF 1 THEN
IF ($ferret_diff_var"0|*>1") THEN DEFINE SYMBOL ferret_line_color = red
!-> IF 0 THEN DEFINE SYMBOL ferret_line_color = red
IF ($ferret_line_color"0|multi>1|*>0") THEN
!-> IF 0 THEN
ELSE
DEFINE SYMBOL qualifiers = ($qualifiers)/COLOR=($ferret_line_color%blue|default>blue|black|red|blue|green|lightblue|purple|*%)
!-> DEFINE SYMBOL qualifiers = /COLOR=blue
ENDIF
ENDIF ! skipped color setting if its a multi-line plot
IF ($line_drawn) THEN
!-> IF 1 THEN
DEFINE SYMBOL plotsymbol = 25
DEFINE SYMBOL thicknum = 0
IF `($ferret_line_thickness%0|default>1|*>1%)` THEN
!-> IF 0 THEN
ENDIF
THEN DEFINE SYMBOL qualifiers = ($qualifiers)/NOYADJUST
!-> IF 0 THEN DEFINE SYMBOL qualifiers = /COLOR=blue/NOYADJUST
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 1 THEN
DEFINE SYMBOL flowline_vectors = 0
IF `($ferret_vector_style"0|default>0|1|*>0") GT 0` THEN
!-> IF 0 THEN
ENDIF
IF `($ferret_vector_density"0|*>1") GT 0` THEN
!-> IF 0 THEN
ENDIF
IF `($ferret_vector_length"0") GT 0` THEN
!-> IF 0 THEN
ENDIF
IF ($ferret_vector_skip"0|*>1") THEN DEFINE SYMBOL ferret_vector_subsampling = ($ferret_vector_skip)
!-> IF 0 THEN DEFINE SYMBOL ferret_vector_subsampling =
IF ($ferret_vector_subsampling"0|*>1") THEN
!-> IF 1 THEN
LET comloc = `STRINDEX("($ferret_vector_subsampling)", ",")`
!-> DEFINE VARIABLE comloc = 3
LET nlen = `STRLEN("($ferret_vector_subsampling)")`
!-> DEFINE VARIABLE nlen = 5
IF `comloc GT 1` THEN
!-> IF 1 THEN
DEFINE SYMBOL xskp = `SUBSTRING ("($ferret_vector_subsampling)", 1, comloc-1)`
!-> DEFINE SYMBOL xskp = 40
DEFINE SYMBOL yskp = `SUBSTRING ("($ferret_vector_subsampling)", comloc+1, nlen-comloc)`
!-> DEFINE SYMBOL yskp = 40
ELSE
ENDIF
LET xs = STRFLOAT ("($xskp)")
!-> DEFINE VARIABLE xs = STRFLOAT ("40")
LET ys = STRFLOAT ("($yskp)")
!-> DEFINE VARIABLE ys = STRFLOAT ("40")
IF ($error_status"0|*>1") THEN
!-> IF 0 THEN
ENDIF
DEFINE SYMBOL qualifiers = ($qualifiers)/XSKIP=`xs`/YSKIP=`ys`
!-> DEFINE SYMBOL qualifiers = /COLOR=blue/XSKIP=40/YSKIP=40
ENDIF
ENDIF ! end of XY vector plot settings.
! Exit_GO
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.494/19.79654`
!-> DEFINE SYMBOL win_aspect = `16.494/19.79654`
!-> DEFINE SYMBOL win_aspect = 0.833175898414571
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.833175898414571`:axis
!-> DEFINE SYMBOL set_window_quals = /SIZE=.8333/ASPECT = `0.833175898414571`:axis
!-> DEFINE SYMBOL set_window_quals = /SIZE=.8333/ASPECT = 0.833175898414571: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.833175898414571: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.833175898414571: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.833175898414571:axis/OUTLINE=0.7 1
SET WINDOW($set_window_quals)
!-> SET WINDOW/SIZE=.8333/ASPECT = 0.833175898414571: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
IF `($ferret_line_color%0|default>1|*>2%) LT 2` THEN DEFINE SYMBOL ferret_line_color = blue
!-> IF 1 THEN DEFINE SYMBOL ferret_line_color = blue
!-> DEFINE SYMBOL ferret_line_color = blue
IF ($ferret_curvi_quals"0|*>1") THEN
!-> IF 1 THEN
DEFINE SYMBOL qualifiers = ($qualifiers)($ferret_curvi_quals)
!-> DEFINE SYMBOL qualifiers = /COLOR=blue/XSKIP=40/YSKIP=40/HLIM=-98.40654:-78.61/VLIM=14.1861:30.68
ENDIF
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-13a3ca1b86
DEFINE SYMBOL upper_right_text_($n_right_labels) = DATA SET: ($data_$1_dataset_id)
!-> DEFINE SYMBOL upper_right_text_1 = DATA SET: id-13a3ca1b86
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-13a3ca1b86
DEFINE SYMBOL dataset_title_lab = ($upper_right_text_($n_right_labels))
!-> DEFINE SYMBOL dataset_title_lab = DATA SET: id-13a3ca1b86
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: NEMO GOLFO36 Climatology
DEFINE SYMBOL upper_right_text_($n_right_labels) = DATA SET: ($data_$1_dataset_name)
!-> DEFINE SYMBOL upper_right_text_1 = DATA SET: NEMO GOLFO36 Climatology
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: NEMO GOLFO36 Climatology
DEFINE SYMBOL dataset_title_lab = ($upper_right_text_($n_right_labels))
!-> DEFINE SYMBOL dataset_title_lab = DATA SET: NEMO GOLFO36 Climatology
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://cicese.mx/thredds/dodsC/hidrocarburos/linea3/climatologias/nemo-golfo-36
ELSE
ENDIF
DEFINE SYMBOL dataset_url_($num)_lab = OPeNDAP URL: ($data_$1_urlpath)
!-> DEFINE SYMBOL dataset_url_0_lab = OPeNDAP URL: http://cicese.mx/thredds/dodsC/hidrocarburos/linea3/climatologias/nemo-golfo-36
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://cicese.mx/thredds/dodsC/hidrocarburos/linea3/climatologias/nemo-golfo-36
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://cicese.mx/thredds/dodsC/hidrocarburos/linea3/climatologias/nemo-golfo-36
!-> DEFINE SYMBOL dataset_url_lab OPeNDAP URL: http://cicese.mx/thredds/dodsC/hidrocarburos/linea3/climatologias/nemo-golfo-36
ENDIF
IF ($data_0_dataset_institution"0|*>1") THEN
!-> IF 0 THEN
ENDIF
! Exit_GO
IF ($native_curvilinear_xy"0|*>1") THEN
!-> IF 1 THEN
DEFINE SYMBOL ferret_curvi_base_var = ($ferret_plot_base_var_0), ($ferret_plot_base_var_1)
!-> IF 1 THEN DEFINE SYMBOL ferret_curvi_base_var = 'VOZOCRTX_X'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:174,j=1:159], 'VOMECRTY_Y'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:715,j=1:652]
!-> DEFINE SYMBOL ferret_curvi_base_var = 'VOZOCRTX_X'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:174,j=1:159], 'VOMECRTY_Y'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:715,j=1:652]
ELSE
ENDIF
GO LAS_draw_xy_vector_plot
! Enter_GO LAS_draw_xy_vector_plot
IF ($flowline_vectors"0") THEN
!-> IF 0 THEN
ENDIF
IF ($ferret_vector_subsampling"0") THEN
!-> IF 40,40 THEN
IF ($native_curvilinear_xy"0") THEN
!-> IF 1 THEN
($ferret_curvi_base_var), xcoord, ycoord
!-> VECTOR/COLOR=blue/XSKIP=40/YSKIP=40/HLIM=-98.40654:-78.61/VLIM=14.1861:30.68/TITLE=" "/XSKIP=40/YSKIP=40/SET 'VOZOCRTX_X'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:174,j=1:159], 'VOMECRTY_Y'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:715,j=1:652], xcoord, ycoord
! Exit_GO
! Exit_GO
! Exit_GO
! Exit_GO
! Exit_GO
Cached data cleared from memory
LISTing to file /usr/share/tomcat/webapps/las/output/B42E73E66B5DA6E155CE70AFC38C8365_map_scale.xml
LISTing to file /usr/share/tomcat/webapps/las/output/B42E73E66B5DA6E155CE70AFC38C8365_map_scale.xml
go "$1"
!-> go "/home/hmedrano/tomcat/webapps/las/WEB-INF/classes/resources/ferret/temp/ferret_operation_840419_1510790837756.jnl"
! Symbols from the server
DEFINE SYMBOL data_0_ID = vozocrtx_X-id-13a3ca1b86
DEFINE SYMBOL data_0_dataset_ID = id-13a3ca1b86
DEFINE SYMBOL data_0_dataset_name = NEMO GOLFO36 Climatology
DEFINE SYMBOL data_0_dataset_url = http://cicese.mx/thredds/dodsC/hidrocarburos/linea3/climatologias/nemo-golfo-36
DEFINE SYMBOL data_0_dsid = id-13a3ca1b86
DEFINE SYMBOL data_0_ftds_url = http://cicese.mx:8080/thredds/dodsC/las/id-13a3ca1b86/data_cicese.mx_thredds_dodsC_hidrocarburos_linea3_climatologias_nemo-golfo-36.jnl
DEFINE SYMBOL data_0_grid_type = regular
DEFINE SYMBOL data_0_intervals = xyzt
DEFINE SYMBOL data_0_name = eastward velocity
DEFINE SYMBOL data_0_points = xyzt
DEFINE SYMBOL data_0_region = region_0
DEFINE SYMBOL data_0_title = eastward velocity
DEFINE SYMBOL data_0_units = m/s
DEFINE SYMBOL data_0_url = http://cicese.mx/thredds/dodsC/hidrocarburos/linea3/climatologias/nemo-golfo-36
DEFINE SYMBOL data_0_var = vozocrtx_X
DEFINE SYMBOL data_0_xpath = /lasdata/datasets/id-13a3ca1b86/variables/vozocrtx_X-id-13a3ca1b86
DEFINE SYMBOL data_1_ID = vomecrty_Y-id-13a3ca1b86
DEFINE SYMBOL data_1_dataset_ID = id-13a3ca1b86
DEFINE SYMBOL data_1_dataset_name = NEMO GOLFO36 Climatology
DEFINE SYMBOL data_1_dataset_url = http://cicese.mx/thredds/dodsC/hidrocarburos/linea3/climatologias/nemo-golfo-36
DEFINE SYMBOL data_1_dsid = id-13a3ca1b86
DEFINE SYMBOL data_1_ftds_url = http://cicese.mx:8080/thredds/dodsC/las/id-13a3ca1b86/data_cicese.mx_thredds_dodsC_hidrocarburos_linea3_climatologias_nemo-golfo-36.jnl
DEFINE SYMBOL data_1_grid_type = regular
DEFINE SYMBOL data_1_intervals = xyzt
DEFINE SYMBOL data_1_name = northward velocity
DEFINE SYMBOL data_1_points = xyzt
DEFINE SYMBOL data_1_region = region_1
DEFINE SYMBOL data_1_title = northward velocity
DEFINE SYMBOL data_1_units = m/s
DEFINE SYMBOL data_1_url = http://cicese.mx/thredds/dodsC/hidrocarburos/linea3/climatologias/nemo-golfo-36
DEFINE SYMBOL data_1_var = vomecrty_Y
DEFINE SYMBOL data_1_xpath = /lasdata/datasets/id-13a3ca1b86/variables/vomecrty_Y-id-13a3ca1b86
DEFINE SYMBOL data_count = 2
DEFINE SYMBOL ferret_annotations = file
DEFINE SYMBOL ferret_curv_lon_max = -78.57984
DEFINE SYMBOL ferret_curv_lon_min = -98.40654
DEFINE SYMBOL ferret_curvi_coord_lat = nav_lat
DEFINE SYMBOL ferret_curvi_coord_lon = nav_lon
DEFINE SYMBOL ferret_fill_type = fill
DEFINE SYMBOL ferret_image_format = gif
DEFINE SYMBOL ferret_land_type = contour
DEFINE SYMBOL ferret_memsize = 2048
DEFINE SYMBOL ferret_service_action = Plot_vector
DEFINE SYMBOL ferret_set_aspect = 1
DEFINE SYMBOL ferret_size = .8333
DEFINE SYMBOL ferret_use_graticules = black
DEFINE SYMBOL ferret_vector_name = Vector of vozocrtx and vomecrty
DEFINE SYMBOL ferret_vector_subsampling = 40,40
DEFINE SYMBOL ferret_view = xy
DEFINE SYMBOL las_debug = false
DEFINE SYMBOL las_output_type = xml
DEFINE SYMBOL operation_ID = Plot_vector
DEFINE SYMBOL operation_key = B42E73E66B5DA6E155CE70AFC38C8365
DEFINE SYMBOL operation_name = Vector plot
DEFINE SYMBOL operation_service = ferret
DEFINE SYMBOL operation_service_action = Plot_vector
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 = 03-Jan-2012 00:00
DEFINE SYMBOL region_0_t_lo = 03-Jan-2012 00:00
DEFINE SYMBOL region_0_x_hi = -83.586395
DEFINE SYMBOL region_0_x_lo = -95.1879575
DEFINE SYMBOL region_0_y_hi = 26.6518
DEFINE SYMBOL region_0_y_lo = 19.79633125
DEFINE SYMBOL region_0_z_hi = 2.6677
DEFINE SYMBOL region_0_z_lo = 2.6677
DEFINE SYMBOL region_1_t_hi = 03-Jan-2012 00:00
DEFINE SYMBOL region_1_t_lo = 03-Jan-2012 00:00
DEFINE SYMBOL region_1_x_hi = -83.586395
DEFINE SYMBOL region_1_x_lo = -95.1879575
DEFINE SYMBOL region_1_y_hi = 26.6518
DEFINE SYMBOL region_1_y_lo = 19.79633125
DEFINE SYMBOL region_1_z_hi = 2.6677
DEFINE SYMBOL region_1_z_lo = 2.6677
DEFINE SYMBOL result_annotations_ID = annotations
DEFINE SYMBOL result_annotations_filename = /usr/share/tomcat/webapps/las/output/B42E73E66B5DA6E155CE70AFC38C8365_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/B42E73E66B5DA6E155CE70AFC38C8365_cancel.txt
DEFINE SYMBOL result_cancel_type = cancel
DEFINE SYMBOL result_count = 8
DEFINE SYMBOL result_debug_ID = debug
DEFINE SYMBOL result_debug_filename = /usr/share/tomcat/webapps/las/output/B42E73E66B5DA6E155CE70AFC38C8365_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/B42E73E66B5DA6E155CE70AFC38C8365_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/B42E73E66B5DA6E155CE70AFC38C8365_plot_image.png
DEFINE SYMBOL result_plot_image_type = image
DEFINE SYMBOL result_ref_map_ID = ref_map
DEFINE SYMBOL result_ref_map_filename = /usr/share/tomcat/webapps/las/output/B42E73E66B5DA6E155CE70AFC38C8365_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/C1D18CCB2F4717915326A40DC1D54C1A_rss.rss
DEFINE SYMBOL result_rss_type = rss
GO ($operation_service_action)
!-> GO Plot_vector
!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
!
! $Author: ACM $
!
! Plot_vector.jnl decides which script to call to make a 2D vector plot.
! as in Plot_2D.jnl, choose the direction and call the appropriate 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/B42E73E66B5DA6E155CE70AFC38C8365_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/B42E73E66B5DA6E155CE70AFC38C8365_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/B42E73E66B5DA6E155CE70AFC38C8365_plot_image.png_12629
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/B42E73E66B5DA6E155CE70AFC38C8365_plot_image.png.gif"
DEFINE SYMBOL reset_gifname = 1
ENDIF
ENDIF
! End of file ------------ LAS_initial_setup.jnl--------------------------
! Exit_GO
IF ($ferret_view"|xt>1|*>0") THEN
!-> IF 0 THEN
ELIF ($ferret_view"|xy>1|*>0") THEN
!-> ELIF 1 THEN
go xy_vector_plot
! Enter_GO xy_vector_plot
IF ($ferret_interpolate_data%0|false>0|true>1|1|0|*>1%) THEN SET MODE INTERPOLATE
!-> IF 0 THEN SET MODE INTERPOLATE
DEFINE SYMBOL itsa_vector_plot = 1
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 = -95.18795
DEFINE SYMBOL region_x_hi = `INT(100000 * ($($region)_x_hi)) / 100000`
!-> DEFINE SYMBOL region_x_hi = -83.58639
DEFINE SYMBOL limits_x = ($region_x_lo):($region_x_hi)
!-> DEFINE SYMBOL limits_x = -95.18795:-83.58639
DEFINE SYMBOL limits_x_m360 = `($region_x_lo)-360`:`($region_x_hi)-360`
!-> DEFINE SYMBOL limits_x_m360 = -455.18795:-443.58639
DEFINE SYMBOL limits_x_p360 = `($region_x_lo)+360`:`($region_x_hi)+360`
!-> DEFINE SYMBOL limits_x_p360 = 264.81205:276.41361
DEFINE SYMBOL region_x = X=($region_x_lo):($region_x_hi)
!-> DEFINE SYMBOL region_x = X=-95.18795:-83.58639
DEFINE SYMBOL region_x_m360 X=`($region_x_lo)-360`:`($region_x_hi)-360`
!-> DEFINE SYMBOL region_x_m360 X=-455.18795:-443.58639
DEFINE SYMBOL region_x_p360 X=`($region_x_lo)+360`:`($region_x_hi)+360`
!-> DEFINE SYMBOL region_x_p360 X=264.81205:276.41361
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 = 11.60156
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 = 19.796
DEFINE SYMBOL region_y_hi = `INT(1000 * ($($region)_y_hi)) / 1000`
!-> DEFINE SYMBOL region_y_hi = 26.651
DEFINE SYMBOL limits_y = ($region_y_lo):($region_y_hi)
!-> DEFINE SYMBOL limits_y = 19.796:26.651
DEFINE SYMBOL region_y = Y=($region_y_lo):($region_y_hi)
!-> DEFINE SYMBOL region_y = Y=19.796:26.651
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 = 6.855
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 = 2.6677
DEFINE SYMBOL region_z_hi = ($($region)_z_hi)
!-> DEFINE SYMBOL region_z_hi = 2.6677
DEFINE SYMBOL limits_z = ($region_z_lo):($region_z_hi)
!-> DEFINE SYMBOL limits_z = 2.6677:2.6677
DEFINE SYMBOL region_z = Z=($region_z_lo):($region_z_hi)
!-> DEFINE SYMBOL region_z = Z=2.6677:2.6677
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 = 03-Jan-2012 00:00
DEFINE SYMBOL region_t_hi = ($($region)_t_hi)
!-> DEFINE SYMBOL region_t_hi = 03-Jan-2012 00:00
DEFINE SYMBOL limits_t \"($region_t_lo)\":\"($region_t_hi)\"
!-> DEFINE SYMBOL limits_t \"03-Jan-2012 00:00\":\"03-Jan-2012 00:00\"
DEFINE SYMBOL region_t T=\"($region_t_lo)\":\"($region_t_hi)\"
!-> DEFINE SYMBOL region_t T=\"03-Jan-2012 00:00\":\"03-Jan-2012 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=-95.18795:-83.58639,Y=19.796:26.651
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=-95.18795:-83.58639,Z=2.6677:2.6677
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=-95.18795:-83.58639,T="03-Jan-2012 00:00":"03-Jan-2012 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=19.796:26.651,Z=2.6677:2.6677
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=19.796:26.651,T="03-Jan-2012 00:00":"03-Jan-2012 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=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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=-95.18795:-83.58639,Y=19.796:26.651,Z=2.6677:2.6677
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=-95.18795:-83.58639,Y=19.796:26.651,T="03-Jan-2012 00:00":"03-Jan-2012 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=-95.18795:-83.58639,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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=19.796:26.651,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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=-95.18795:-83.58639,Y=19.796:26.651,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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=-95.18795:-83.58639,Y=19.796:26.651,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
ENDIF
ELSE
ENDIF
DEFINE SYMBOL region_full = ($region_xyzte)
!-> DEFINE SYMBOL region_full = X=-95.18795:-83.58639,Y=19.796:26.651,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_x"0|*>1") THEN DEFINE SYMBOL region_($num)_x = ($region_x)
!-> IF 1 THEN DEFINE SYMBOL region_0_x = X=-95.18795:-83.58639
!-> DEFINE SYMBOL region_0_x = X=-95.18795:-83.58639
IF ($region_y"0|*>1") THEN DEFINE SYMBOL region_($num)_y = ($region_y)
!-> IF 1 THEN DEFINE SYMBOL region_0_y = Y=19.796:26.651
!-> DEFINE SYMBOL region_0_y = Y=19.796:26.651
IF ($region_z"0|*>1") THEN DEFINE SYMBOL region_($num)_z = ($region_z)
!-> IF 1 THEN DEFINE SYMBOL region_0_z = Z=2.6677:2.6677
!-> DEFINE SYMBOL region_0_z = Z=2.6677:2.6677
IF ($region_t"0|*>1") THEN DEFINE SYMBOL region_($num)_t = ($region_t)
!-> IF 1 THEN DEFINE SYMBOL region_0_t = T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_0_t = T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_xt"0|*>1") THEN DEFINE SYMBOL region_($num)_xt = ($region_xt)
!-> IF 1 THEN DEFINE SYMBOL region_0_xt = X=-95.18795:-83.58639,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_0_xt = X=-95.18795:-83.58639,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_xy"0|*>1") THEN DEFINE SYMBOL region_($num)_xy = ($region_xy)
!-> IF 1 THEN DEFINE SYMBOL region_0_xy = X=-95.18795:-83.58639,Y=19.796:26.651
!-> DEFINE SYMBOL region_0_xy = X=-95.18795:-83.58639,Y=19.796:26.651
IF ($region_xz"0|*>1") THEN DEFINE SYMBOL region_($num)_xz = ($region_xz)
!-> IF 1 THEN DEFINE SYMBOL region_0_xz = X=-95.18795:-83.58639,Z=2.6677:2.6677
!-> DEFINE SYMBOL region_0_xz = X=-95.18795:-83.58639,Z=2.6677:2.6677
IF ($region_yt"0|*>1") THEN DEFINE SYMBOL region_($num)_yt = ($region_yt)
!-> IF 1 THEN DEFINE SYMBOL region_0_yt = Y=19.796:26.651,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_0_yt = Y=19.796:26.651,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_yz"0|*>1") THEN DEFINE SYMBOL region_($num)_yz = ($region_yz)
!-> IF 1 THEN DEFINE SYMBOL region_0_yz = Y=19.796:26.651,Z=2.6677:2.6677
!-> DEFINE SYMBOL region_0_yz = Y=19.796:26.651,Z=2.6677:2.6677
IF ($region_zt"0|*>1") THEN DEFINE SYMBOL region_($num)_zt = ($region_zt)
!-> IF 1 THEN DEFINE SYMBOL region_0_zt = Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_0_zt = Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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 = 03-Jan-2012 00:00
LET iz = STRINDEX("($region_0_t_lo)", " 00:00:00")
!-> DEFINE VARIABLE iz = STRINDEX("03-Jan-2012 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("03-Jan-2012 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("03-Jan-2012 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 = 03-Jan-2012 00:00
LET iz = STRINDEX("($region_0_t_hi)", " 00:00:00")
!-> DEFINE VARIABLE iz = STRINDEX("03-Jan-2012 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("03-Jan-2012 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("03-Jan-2012 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://cicese.mx/thredds/dodsC/hidrocarburos/linea3/climatologias/nemo-golfo-36\";
ENDIF
SET DATA ($data_url)
!-> SET DATA "http://cicese.mx/thredds/dodsC/hidrocarburos/linea3/climatologias/nemo-golfo-36";
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 1 THEN
GO LAS_check_multi_regions
! Enter_GO LAS_check_multi_regions
cancel symbol fer_last_error
LET nc = `($data_count) - 1`
!-> DEFINE VARIABLE nc = 1
)
!-> REPEAT/RANGE=0:1/NAME=ivar (DEFINE SYMBOL ivar = `ivar`; DEFINE SYMBOL data_url \"($data_($ivar)_url)\"; IF ($data_($ivar)_var"0|*>1") THEN DEFINE SYMBOL data_var ($data_($ivar)_var); IF ($data_($ivar)_var"0|*>1") THEN DEFINE SYMBOL data_var = `UPCASE("($data_var)")`; SET DATA ($data_url); LET ($data_var)_test = '($data_var)';DEFINE SYMBOL shape($ivar) = `($data_var)_test,RETURN=shape`; DEFINE SYMBOL dset($ivar) = `($data_var)_test,RETURN=dsetnum`;)
!-> REPEAT: IVAR:0
!-> (DEFINE SYMBOL ivar = `ivar`; DEFINE SYMBOL data_url \"($data_($ivar)_url)\"; IF ($data_($ivar)_var"0|*>1") THEN DEFINE SYMBOL data_var ($data_($ivar)_var); IF ($data_($ivar)_var"0|*>1") THEN DEFINE SYMBOL data_var = `UPCASE("($data_var)")`; SET DATA ($data_url); LET ($data_var)_test = '($data_var)';DEFINE SYMBOL shape($ivar) = `($data_var)_test,RETURN=shape`; DEFINE SYMBOL dset($ivar) = `($data_var)_test,RETURN=dsetnum`;)
!-> DEFINE SYMBOL ivar = `ivar`
!-> DEFINE SYMBOL ivar = 0
!-> DEFINE SYMBOL data_url \"($data_($ivar)_url)\"
!-> DEFINE SYMBOL data_url \"http://cicese.mx/thredds/dodsC/hidrocarburos/linea3/climatologias/nemo-golfo-36\";
!-> IF ($data_($ivar)_var"0|*>1") THEN DEFINE SYMBOL data_var ($data_($ivar)_var)
!-> IF 1 THEN DEFINE SYMBOL data_var vozocrtx_X
!-> DEFINE SYMBOL data_var vozocrtx_X
!-> IF ($data_($ivar)_var"0|*>1") THEN DEFINE SYMBOL data_var = `UPCASE("($data_var)")`
!-> IF 1 THEN DEFINE SYMBOL data_var = `UPCASE("vozocrtx_X")`
!-> DEFINE SYMBOL data_var = `UPCASE("vozocrtx_X")`
!-> DEFINE SYMBOL data_var = VOZOCRTX_X
!-> SET DATA ($data_url)
!-> SET DATA "http://cicese.mx/thredds/dodsC/hidrocarburos/linea3/climatologias/nemo-golfo-36";
!-> LET ($data_var)_test = '($data_var)'
!-> DEFINE VARIABLE VOZOCRTX_X_test = 'VOZOCRTX_X'
!-> DEFINE SYMBOL shape($ivar) = `($data_var)_test,RETURN=shape`
!-> DEFINE SYMBOL shape0 = XYZT
!-> DEFINE SYMBOL dset($ivar) = `($data_var)_test,RETURN=dsetnum`
!-> DEFINE SYMBOL dset0 = 1
!-> REPEAT: IVAR:1
!-> (DEFINE SYMBOL ivar = `ivar`; DEFINE SYMBOL data_url \"($data_($ivar)_url)\"; IF ($data_($ivar)_var"0|*>1") THEN DEFINE SYMBOL data_var ($data_($ivar)_var); IF ($data_($ivar)_var"0|*>1") THEN DEFINE SYMBOL data_var = `UPCASE("($data_var)")`; SET DATA ($data_url); LET ($data_var)_test = '($data_var)';DEFINE SYMBOL shape($ivar) = `($data_var)_test,RETURN=shape`; DEFINE SYMBOL dset($ivar) = `($data_var)_test,RETURN=dsetnum`;)
!-> DEFINE SYMBOL ivar = `ivar`
!-> DEFINE SYMBOL ivar = 1
!-> DEFINE SYMBOL data_url \"($data_($ivar)_url)\"
!-> DEFINE SYMBOL data_url \"http://cicese.mx/thredds/dodsC/hidrocarburos/linea3/climatologias/nemo-golfo-36\";
!-> IF ($data_($ivar)_var"0|*>1") THEN DEFINE SYMBOL data_var ($data_($ivar)_var)
!-> IF 1 THEN DEFINE SYMBOL data_var vomecrty_Y
!-> DEFINE SYMBOL data_var vomecrty_Y
!-> IF ($data_($ivar)_var"0|*>1") THEN DEFINE SYMBOL data_var = `UPCASE("($data_var)")`
!-> IF 1 THEN DEFINE SYMBOL data_var = `UPCASE("vomecrty_Y")`
!-> DEFINE SYMBOL data_var = `UPCASE("vomecrty_Y")`
!-> DEFINE SYMBOL data_var = VOMECRTY_Y
!-> SET DATA ($data_url)
!-> SET DATA "http://cicese.mx/thredds/dodsC/hidrocarburos/linea3/climatologias/nemo-golfo-36";
!-> LET ($data_var)_test = '($data_var)'
!-> DEFINE VARIABLE VOMECRTY_Y_test = 'VOMECRTY_Y'
!-> DEFINE SYMBOL shape($ivar) = `($data_var)_test,RETURN=shape`
!-> DEFINE SYMBOL shape1 = XYZT
!-> DEFINE SYMBOL dset($ivar) = `($data_var)_test,RETURN=dsetnum`
!-> DEFINE SYMBOL dset1 = 1
REPEAT/RANGE=0:`nc`/NAME=ivar (GO set_add_for_region `ivar`)
!-> REPEAT/RANGE=0:1/NAME=ivar (GO set_add_for_region `ivar`)
!-> REPEAT: IVAR:0
!-> (GO set_add_for_region `ivar`)
!-> GO set_add_for_region 0
! Enter_GO set_add_for_region 0
DEFINE SYMBOL iadd = $1
!-> DEFINE SYMBOL iadd = 0
IF `($region_t"0|*>1") AND (STRINDEX("($shape($iadd))", "T") EQ 0)` THEN
!-> IF 0 THEN
ENDIF
IF ($add_to_var($iadd)"0|*>1") THEN
!-> IF 0 THEN
ENDIF
IF `($region_z"0|*>1") AND (STRINDEX("($shape($iadd))", "Z") EQ 0)` THEN
!-> IF 0 THEN
ENDIF
IF ($add_to_var($iadd)"0|*>1") THEN
!-> IF 0 THEN
ENDIF
! Exit_GO
!-> REPEAT: IVAR:1
!-> (GO set_add_for_region `ivar`)
!-> GO set_add_for_region 1
! Enter_GO set_add_for_region 1
DEFINE SYMBOL iadd = $1
!-> DEFINE SYMBOL iadd = 1
IF `($region_t"0|*>1") AND (STRINDEX("($shape($iadd))", "T") EQ 0)` THEN
!-> IF 0 THEN
ENDIF
IF ($add_to_var($iadd)"0|*>1") THEN
!-> IF 0 THEN
ENDIF
IF `($region_z"0|*>1") AND (STRINDEX("($shape($iadd))", "Z") EQ 0)` THEN
!-> IF 0 THEN
ENDIF
IF ($add_to_var($iadd)"0|*>1") THEN
!-> IF 0 THEN
ENDIF
! Exit_GO
)
!-> REPEAT/RANGE=0:1/NAME=ivar ( DEFINE SYMBOL ivar = `ivar`; SH sym shape($ivar); List STRINDEX("($shape($ivar))", "T"); IF `(STRINDEX("($shape($ivar))", "T") NE 0) AND (($region_t"0|*>1") EQ 0)` THEN DEFINE SYMBOL add_region_t = L=1; IF `(STRINDEX("($shape($ivar))", "Z") NE 0) AND (($region_t"0|*>1") EQ 0)` THEN DEFINE SYMBOL need_t = ($ivar);)
!-> REPEAT: IVAR:0
!-> ( DEFINE SYMBOL ivar = `ivar`; SH sym shape($ivar); List STRINDEX("($shape($ivar))", "T"); IF `(STRINDEX("($shape($ivar))", "T") NE 0) AND (($region_t"0|*>1") EQ 0)` THEN DEFINE SYMBOL add_region_t = L=1; IF `(STRINDEX("($shape($ivar))", "Z") NE 0) AND (($region_t"0|*>1") EQ 0)` THEN DEFINE SYMBOL need_t = ($ivar);)
!-> DEFINE SYMBOL ivar = `ivar`
!-> DEFINE SYMBOL ivar = 0
!-> SH sym shape($ivar)
!-> SH sym shape0
SHAPE0 = "XYZT"
!-> List STRINDEX("($shape($ivar))", "T")
!-> List STRINDEX("XYZT", "T")
VARIABLE : STRINDEX("XYZT", "T")
4.000
!-> IF `(STRINDEX("($shape($ivar))", "T") NE 0) AND (($region_t"0|*>1") EQ 0)` THEN DEFINE SYMBOL add_region_t = L=1
!-> IF 0 THEN DEFINE SYMBOL add_region_t = L=1
!-> IF `(STRINDEX("($shape($ivar))", "Z") NE 0) AND (($region_t"0|*>1") EQ 0)` THEN DEFINE SYMBOL need_t = ($ivar)
!-> IF 0 THEN DEFINE SYMBOL need_t = 0
!-> REPEAT: IVAR:1
!-> ( DEFINE SYMBOL ivar = `ivar`; SH sym shape($ivar); List STRINDEX("($shape($ivar))", "T"); IF `(STRINDEX("($shape($ivar))", "T") NE 0) AND (($region_t"0|*>1") EQ 0)` THEN DEFINE SYMBOL add_region_t = L=1; IF `(STRINDEX("($shape($ivar))", "Z") NE 0) AND (($region_t"0|*>1") EQ 0)` THEN DEFINE SYMBOL need_t = ($ivar);)
!-> DEFINE SYMBOL ivar = `ivar`
!-> DEFINE SYMBOL ivar = 1
!-> SH sym shape($ivar)
!-> SH sym shape1
SHAPE1 = "XYZT"
!-> List STRINDEX("($shape($ivar))", "T")
!-> List STRINDEX("XYZT", "T")
VARIABLE : STRINDEX("XYZT", "T")
4.000
!-> IF `(STRINDEX("($shape($ivar))", "T") NE 0) AND (($region_t"0|*>1") EQ 0)` THEN DEFINE SYMBOL add_region_t = L=1
!-> IF 0 THEN DEFINE SYMBOL add_region_t = L=1
!-> IF `(STRINDEX("($shape($ivar))", "Z") NE 0) AND (($region_t"0|*>1") EQ 0)` THEN DEFINE SYMBOL need_t = ($ivar)
!-> IF 0 THEN DEFINE SYMBOL need_t = 1
IF ($add_region_t"0|*>1") THEN
!-> IF 0 THEN
ENDIF
)
!-> REPEAT/RANGE=0:1/NAME=ivar ( DEFINE SYMBOL ivar = `ivar`; sho sym shape($ivar); List STRINDEX("($shape($ivar))", "Z"); IF `(STRINDEX("($shape($ivar))", "Z") NE 0) AND (($region_z"0|*>1") EQ 0)` THEN DEFINE SYMBOL add_region_z = K=1; IF `(STRINDEX("($shape($ivar))", "Z") NE 0) AND (($region_z"0|*>1") EQ 0)` THEN DEFINE SYMBOL need_z = ($ivar);)
!-> REPEAT: IVAR:0
!-> ( DEFINE SYMBOL ivar = `ivar`; sho sym shape($ivar); List STRINDEX("($shape($ivar))", "Z"); IF `(STRINDEX("($shape($ivar))", "Z") NE 0) AND (($region_z"0|*>1") EQ 0)` THEN DEFINE SYMBOL add_region_z = K=1; IF `(STRINDEX("($shape($ivar))", "Z") NE 0) AND (($region_z"0|*>1") EQ 0)` THEN DEFINE SYMBOL need_z = ($ivar);)
!-> DEFINE SYMBOL ivar = `ivar`
!-> DEFINE SYMBOL ivar = 0
!-> sho sym shape($ivar)
!-> sho sym shape0
SHAPE0 = "XYZT"
!-> List STRINDEX("($shape($ivar))", "Z")
!-> List STRINDEX("XYZT", "Z")
VARIABLE : STRINDEX("XYZT", "Z")
3.000
!-> IF `(STRINDEX("($shape($ivar))", "Z") NE 0) AND (($region_z"0|*>1") EQ 0)` THEN DEFINE SYMBOL add_region_z = K=1
!-> IF 0 THEN DEFINE SYMBOL add_region_z = K=1
!-> IF `(STRINDEX("($shape($ivar))", "Z") NE 0) AND (($region_z"0|*>1") EQ 0)` THEN DEFINE SYMBOL need_z = ($ivar)
!-> IF 0 THEN DEFINE SYMBOL need_z = 0
!-> REPEAT: IVAR:1
!-> ( DEFINE SYMBOL ivar = `ivar`; sho sym shape($ivar); List STRINDEX("($shape($ivar))", "Z"); IF `(STRINDEX("($shape($ivar))", "Z") NE 0) AND (($region_z"0|*>1") EQ 0)` THEN DEFINE SYMBOL add_region_z = K=1; IF `(STRINDEX("($shape($ivar))", "Z") NE 0) AND (($region_z"0|*>1") EQ 0)` THEN DEFINE SYMBOL need_z = ($ivar);)
!-> DEFINE SYMBOL ivar = `ivar`
!-> DEFINE SYMBOL ivar = 1
!-> sho sym shape($ivar)
!-> sho sym shape1
SHAPE1 = "XYZT"
!-> List STRINDEX("($shape($ivar))", "Z")
!-> List STRINDEX("XYZT", "Z")
VARIABLE : STRINDEX("XYZT", "Z")
3.000
!-> IF `(STRINDEX("($shape($ivar))", "Z") NE 0) AND (($region_z"0|*>1") EQ 0)` THEN DEFINE SYMBOL add_region_z = K=1
!-> IF 0 THEN DEFINE SYMBOL add_region_z = K=1
!-> IF `(STRINDEX("($shape($ivar))", "Z") NE 0) AND (($region_z"0|*>1") EQ 0)` THEN DEFINE SYMBOL need_z = ($ivar)
!-> IF 0 THEN DEFINE SYMBOL need_z = 1
IF ($add_region_z"0|*>1") THEN
!-> IF 0 THEN
ENDIF
IF ($add_region_z"0|*>1") THEN GO LAS_initialize_region
!-> IF 0 THEN GO LAS_initialize_region
IF ($add_region_t"0|*>1") THEN GO LAS_initialize_region
!-> IF 0 THEN GO LAS_initialize_region
! Exit_GO
DEFINE SYMBOL check_multi_regions_done = 1
ENDIF
IF ($data_($num)_var"0|*>1") THEN
!-> IF 1 THEN
DEFINE SYMBOL data_var ($data_($num)_var)
!-> DEFINE SYMBOL data_var vozocrtx_X
DEFINE SYMBOL data_orig_var ($data_($num)_var)
!-> DEFINE SYMBOL data_orig_var vozocrtx_X
DEFINE SYMBOL data_var_nq ($data_($num)_var)
!-> DEFINE SYMBOL data_var_nq vozocrtx_X
ENDIF
DEFINE SYMBOL data_name ($data_($num)_name)
!-> DEFINE SYMBOL data_name eastward velocity
IF `($data_($num)_name"0|*>1") EQ 0` THEN DEFINE SYMBOL data_name ($data_var)
!-> IF 0 THEN DEFINE SYMBOL data_name vozocrtx_X
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("vozocrtx_X")`
!-> DEFINE SYMBOL data_var = `UPCASE("vozocrtx_X")`
!-> DEFINE SYMBOL data_var = VOZOCRTX_X
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("vozocrtx_X")`
!-> DEFINE SYMBOL data_var_nq = `UPCASE("vozocrtx_X")`
!-> DEFINE SYMBOL data_var_nq = VOZOCRTX_X
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("VOZOCRTX_X")`
LET varlen = `STRLEN("($data_var)")`
!-> DEFINE VARIABLE varlen = 10
IF `STRINDEX("($data_var)", "'") EQ 1 AND STRRINDEX("($data_var)", "'") EQ varlen` THEN
!-> IF 0 THEN
ELSE
IF ($data_($num)_var"0|*>1") THEN DEFINE SYMBOL data_var_nq = ($data_var)
!-> IF 1 THEN DEFINE SYMBOL data_var_nq = VOZOCRTX_X
!-> DEFINE SYMBOL data_var_nq = VOZOCRTX_X
IF ($data_($num)_var"0|*>1") THEN DEFINE SYMBOL data_var = '($data_var)'
!-> IF 1 THEN DEFINE SYMBOL data_var = 'VOZOCRTX_X'
!-> DEFINE SYMBOL data_var = 'VOZOCRTX_X'
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 = NAV_LON
LET varlen = `STRLEN("($ferret_curvi_coord_lon)")`
!-> DEFINE VARIABLE varlen = 7
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 = 'NAV_LON'
!-> DEFINE SYMBOL ferret_curvi_coord_lon = 'NAV_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 = NAV_LAT
LET varlen = `STRLEN("($ferret_curvi_coord_lat)")`
!-> DEFINE VARIABLE varlen = 7
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 = 'NAV_LAT'
!-> DEFINE SYMBOL ferret_curvi_coord_lat = 'NAV_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 m/s
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 (m/s)
DEFINE SYMBOL data_units ($data_($num)_units)
!-> IF 0 THEN DEFINE SYMBOL data_units m/s
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 eastward velocity
!-> DEFINE SYMBOL data_title eastward velocity
ELSE
ENDIF
IF `($num) GT 0` THEN DEFINE SYMBOL variable_($num)_lab = ($data_title)
!-> IF 0 THEN DEFINE SYMBOL variable_0_lab = eastward velocity
IF ($data_units"0|*>1") THEN
!-> IF 1 THEN
DEFINE SYMBOL units_lab = ($data_units)
!-> DEFINE SYMBOL units_lab = (m/s)
IF `($num) GT 0` THEN DEFINE SYMBOL units_($num)_lab = ($data_units)
!-> IF 0 THEN DEFINE SYMBOL units_0_lab = (m/s)
ENDIF
DEFINE SYMBOL ferret_plot_title ($data_title) ($data_units)
!-> DEFINE SYMBOL ferret_plot_title eastward velocity (m/s)
SET DATA ($data_url)
!-> SET DATA "http://cicese.mx/thredds/dodsC/hidrocarburos/linea3/climatologias/nemo-golfo-36";
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 ("m/s")
DEFINE SYMBOL data_units `SUBSTRING("($data_($num)_units)", 2, ulen-2)`
!-> IF 0 THEN DEFINE SYMBOL data_units `SUBSTRING("m/s", 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://cicese.mx/thredds/dodsC/hidrocarburos/linea3/climatologias/nemo-golfo-36";
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 = vozocrtx_X
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 = vozocrtx_X
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 = vozocrtx_X.attnames
IF ($data_var_nq"0|*>1") THEN LET attlist = ($data_var_nq).attnames
!-> IF 1 THEN LET attlist = VOZOCRTX_X.attnames
!-> LET attlist = VOZOCRTX_X.attnames
DEFINE SYMBOL data_var_only = `UPCASE("($data_var)")`
!-> DEFINE SYMBOL data_var_only = 'VOZOCRTX_X'
IF ($ferret_bad_flag"0|*>1") THEN SET VAR/BAD=($ferret_bad_flag) ($data_var)
!-> IF 0 THEN SET VAR/BAD= 'VOZOCRTX_X'
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 = 'VOZOCRTX_X'[d=1,X=-95.18795:-83.58639,Y=19.796:26.651,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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 = 'VOZOCRTX_X'[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 = VOZOCRTX_X[d=1]
!-> DEFINE SYMBOL ferret_plot_var_nq_noregion = VOZOCRTX_X[d=1]
DEFINE SYMBOL ferret_plot_var_($num)_noregion = ($data_var)[d=($data_num)]
!-> DEFINE SYMBOL ferret_plot_var_0_noregion = 'VOZOCRTX_X'[d=1]
DEFINE SYMBOL ferret_plot_base_var = ($ferret_plot_var)
!-> DEFINE SYMBOL ferret_plot_base_var = 'VOZOCRTX_X'[d=1,X=-95.18795:-83.58639,Y=19.796:26.651,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"]
DEFINE SYMBOL ferret_plot_base_var_($num) = ($ferret_plot_var)
!-> DEFINE SYMBOL ferret_plot_base_var_0 = 'VOZOCRTX_X'[d=1,X=-95.18795:-83.58639,Y=19.796:26.651,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"]
DEFINE SYMBOL ferret_plot_base_var_noregion = ($data_var)[d=($data_num)]
!-> DEFINE SYMBOL ferret_plot_base_var_noregion = 'VOZOCRTX_X'[d=1]
DEFINE SYMBOL ferret_xyz_var = ($data_var)[d=($data_num),($region_xyz)]
!-> DEFINE SYMBOL ferret_xyz_var = 'VOZOCRTX_X'[d=1,X=-95.18795:-83.58639,Y=19.796:26.651,Z=2.6677:2.6677]
DEFINE SYMBOL ferret_t_var = ($data_var)[d=($data_num),($region_t)]
!-> DEFINE SYMBOL ferret_t_var = 'VOZOCRTX_X'[d=1,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"]
DEFINE SYMBOL ferret_x_var = ($data_var)[d=($data_num),($region_x)]
!-> DEFINE SYMBOL ferret_x_var = 'VOZOCRTX_X'[d=1,X=-95.18795:-83.58639]
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 = 'VOZOCRTX_X'[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 = `'NAV_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 = `'NAV_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 `-98.40654 + 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 = -95.1879575
DEFINE SYMBOL region_0_x_hi_orig = ($region_0_x_hi)
!-> DEFINE SYMBOL region_0_x_hi_orig = -83.586395
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 = -95.18795
DEFINE SYMBOL region_x_hi = `INT(100000 * ($($region)_x_hi)) / 100000`
!-> DEFINE SYMBOL region_x_hi = -83.58639
DEFINE SYMBOL limits_x = ($region_x_lo):($region_x_hi)
!-> DEFINE SYMBOL limits_x = -95.18795:-83.58639
DEFINE SYMBOL limits_x_m360 = `($region_x_lo)-360`:`($region_x_hi)-360`
!-> DEFINE SYMBOL limits_x_m360 = -455.18795:-443.58639
DEFINE SYMBOL limits_x_p360 = `($region_x_lo)+360`:`($region_x_hi)+360`
!-> DEFINE SYMBOL limits_x_p360 = 264.81205:276.41361
DEFINE SYMBOL region_x = X=($region_x_lo):($region_x_hi)
!-> DEFINE SYMBOL region_x = X=-95.18795:-83.58639
DEFINE SYMBOL region_x_m360 X=`($region_x_lo)-360`:`($region_x_hi)-360`
!-> DEFINE SYMBOL region_x_m360 X=-455.18795:-443.58639
DEFINE SYMBOL region_x_p360 X=`($region_x_lo)+360`:`($region_x_hi)+360`
!-> DEFINE SYMBOL region_x_p360 X=264.81205:276.41361
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 = 11.60156
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 = 19.796
DEFINE SYMBOL region_y_hi = `INT(1000 * ($($region)_y_hi)) / 1000`
!-> DEFINE SYMBOL region_y_hi = 26.651
DEFINE SYMBOL limits_y = ($region_y_lo):($region_y_hi)
!-> DEFINE SYMBOL limits_y = 19.796:26.651
DEFINE SYMBOL region_y = Y=($region_y_lo):($region_y_hi)
!-> DEFINE SYMBOL region_y = Y=19.796:26.651
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 = 6.855
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 = 2.6677
DEFINE SYMBOL region_z_hi = ($($region)_z_hi)
!-> DEFINE SYMBOL region_z_hi = 2.6677
DEFINE SYMBOL limits_z = ($region_z_lo):($region_z_hi)
!-> DEFINE SYMBOL limits_z = 2.6677:2.6677
DEFINE SYMBOL region_z = Z=($region_z_lo):($region_z_hi)
!-> DEFINE SYMBOL region_z = Z=2.6677:2.6677
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 = 03-Jan-2012 00:00
DEFINE SYMBOL region_t_hi = ($($region)_t_hi)
!-> DEFINE SYMBOL region_t_hi = 03-Jan-2012 00:00
DEFINE SYMBOL limits_t \"($region_t_lo)\":\"($region_t_hi)\"
!-> DEFINE SYMBOL limits_t \"03-Jan-2012 00:00\":\"03-Jan-2012 00:00\"
DEFINE SYMBOL region_t T=\"($region_t_lo)\":\"($region_t_hi)\"
!-> DEFINE SYMBOL region_t T=\"03-Jan-2012 00:00\":\"03-Jan-2012 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=-95.18795:-83.58639,Y=19.796:26.651
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=-95.18795:-83.58639,Z=2.6677:2.6677
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=-95.18795:-83.58639,T="03-Jan-2012 00:00":"03-Jan-2012 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=19.796:26.651,Z=2.6677:2.6677
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=19.796:26.651,T="03-Jan-2012 00:00":"03-Jan-2012 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=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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=-95.18795:-83.58639,Y=19.796:26.651,Z=2.6677:2.6677
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=-95.18795:-83.58639,Y=19.796:26.651,T="03-Jan-2012 00:00":"03-Jan-2012 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=-95.18795:-83.58639,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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=19.796:26.651,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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=-95.18795:-83.58639,Y=19.796:26.651,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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=-95.18795:-83.58639,Y=19.796:26.651,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
ENDIF
ELSE
ENDIF
DEFINE SYMBOL region_full = ($region_xyzte)
!-> DEFINE SYMBOL region_full = X=-95.18795:-83.58639,Y=19.796:26.651,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_x"0|*>1") THEN DEFINE SYMBOL region_($num)_x = ($region_x)
!-> IF 1 THEN DEFINE SYMBOL region_0_x = X=-95.18795:-83.58639
!-> DEFINE SYMBOL region_0_x = X=-95.18795:-83.58639
IF ($region_y"0|*>1") THEN DEFINE SYMBOL region_($num)_y = ($region_y)
!-> IF 1 THEN DEFINE SYMBOL region_0_y = Y=19.796:26.651
!-> DEFINE SYMBOL region_0_y = Y=19.796:26.651
IF ($region_z"0|*>1") THEN DEFINE SYMBOL region_($num)_z = ($region_z)
!-> IF 1 THEN DEFINE SYMBOL region_0_z = Z=2.6677:2.6677
!-> DEFINE SYMBOL region_0_z = Z=2.6677:2.6677
IF ($region_t"0|*>1") THEN DEFINE SYMBOL region_($num)_t = ($region_t)
!-> IF 1 THEN DEFINE SYMBOL region_0_t = T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_0_t = T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_xt"0|*>1") THEN DEFINE SYMBOL region_($num)_xt = ($region_xt)
!-> IF 1 THEN DEFINE SYMBOL region_0_xt = X=-95.18795:-83.58639,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_0_xt = X=-95.18795:-83.58639,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_xy"0|*>1") THEN DEFINE SYMBOL region_($num)_xy = ($region_xy)
!-> IF 1 THEN DEFINE SYMBOL region_0_xy = X=-95.18795:-83.58639,Y=19.796:26.651
!-> DEFINE SYMBOL region_0_xy = X=-95.18795:-83.58639,Y=19.796:26.651
IF ($region_xz"0|*>1") THEN DEFINE SYMBOL region_($num)_xz = ($region_xz)
!-> IF 1 THEN DEFINE SYMBOL region_0_xz = X=-95.18795:-83.58639,Z=2.6677:2.6677
!-> DEFINE SYMBOL region_0_xz = X=-95.18795:-83.58639,Z=2.6677:2.6677
IF ($region_yt"0|*>1") THEN DEFINE SYMBOL region_($num)_yt = ($region_yt)
!-> IF 1 THEN DEFINE SYMBOL region_0_yt = Y=19.796:26.651,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_0_yt = Y=19.796:26.651,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_yz"0|*>1") THEN DEFINE SYMBOL region_($num)_yz = ($region_yz)
!-> IF 1 THEN DEFINE SYMBOL region_0_yz = Y=19.796:26.651,Z=2.6677:2.6677
!-> DEFINE SYMBOL region_0_yz = Y=19.796:26.651,Z=2.6677:2.6677
IF ($region_zt"0|*>1") THEN DEFINE SYMBOL region_($num)_zt = ($region_zt)
!-> IF 1 THEN DEFINE SYMBOL region_0_zt = Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_0_zt = Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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 = 03-Jan-2012 00:00
LET iz = STRINDEX("($region_0_t_lo)", " 00:00:00")
!-> DEFINE VARIABLE iz = STRINDEX("03-Jan-2012 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("03-Jan-2012 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("03-Jan-2012 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 = 03-Jan-2012 00:00
LET iz = STRINDEX("($region_0_t_hi)", " 00:00:00")
!-> DEFINE VARIABLE iz = STRINDEX("03-Jan-2012 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("03-Jan-2012 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("03-Jan-2012 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=-95.1879575:-83.586395/VLIM=19.79633125:26.6518
DEFINE SYMBOL ferret_curvi_quals = ($hvlimits_curvi)
!-> DEFINE SYMBOL ferret_curvi_quals = /HLIM=-95.1879575:-83.586395/VLIM=19.79633125:26.6518
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 = -95.18795
DEFINE SYMBOL region_x_hi = `INT(100000 * ($($region)_x_hi)) / 100000`
!-> DEFINE SYMBOL region_x_hi = -83.58639
DEFINE SYMBOL limits_x = ($region_x_lo):($region_x_hi)
!-> DEFINE SYMBOL limits_x = -95.18795:-83.58639
DEFINE SYMBOL limits_x_m360 = `($region_x_lo)-360`:`($region_x_hi)-360`
!-> DEFINE SYMBOL limits_x_m360 = -455.18795:-443.58639
DEFINE SYMBOL limits_x_p360 = `($region_x_lo)+360`:`($region_x_hi)+360`
!-> DEFINE SYMBOL limits_x_p360 = 264.81205:276.41361
DEFINE SYMBOL region_x = X=($region_x_lo):($region_x_hi)
!-> DEFINE SYMBOL region_x = X=-95.18795:-83.58639
DEFINE SYMBOL region_x_m360 X=`($region_x_lo)-360`:`($region_x_hi)-360`
!-> DEFINE SYMBOL region_x_m360 X=-455.18795:-443.58639
DEFINE SYMBOL region_x_p360 X=`($region_x_lo)+360`:`($region_x_hi)+360`
!-> DEFINE SYMBOL region_x_p360 X=264.81205:276.41361
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 = 11.60156
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 = 19.796
DEFINE SYMBOL region_y_hi = `INT(1000 * ($($region)_y_hi)) / 1000`
!-> DEFINE SYMBOL region_y_hi = 26.651
DEFINE SYMBOL limits_y = ($region_y_lo):($region_y_hi)
!-> DEFINE SYMBOL limits_y = 19.796:26.651
DEFINE SYMBOL region_y = Y=($region_y_lo):($region_y_hi)
!-> DEFINE SYMBOL region_y = Y=19.796:26.651
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 = 6.855
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 = 2.6677
DEFINE SYMBOL region_z_hi = ($($region)_z_hi)
!-> DEFINE SYMBOL region_z_hi = 2.6677
DEFINE SYMBOL limits_z = ($region_z_lo):($region_z_hi)
!-> DEFINE SYMBOL limits_z = 2.6677:2.6677
DEFINE SYMBOL region_z = Z=($region_z_lo):($region_z_hi)
!-> DEFINE SYMBOL region_z = Z=2.6677:2.6677
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 = 03-Jan-2012 00:00
DEFINE SYMBOL region_t_hi = ($($region)_t_hi)
!-> DEFINE SYMBOL region_t_hi = 03-Jan-2012 00:00
DEFINE SYMBOL limits_t \"($region_t_lo)\":\"($region_t_hi)\"
!-> DEFINE SYMBOL limits_t \"03-Jan-2012 00:00\":\"03-Jan-2012 00:00\"
DEFINE SYMBOL region_t T=\"($region_t_lo)\":\"($region_t_hi)\"
!-> DEFINE SYMBOL region_t T=\"03-Jan-2012 00:00\":\"03-Jan-2012 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=-95.18795:-83.58639,Y=19.796:26.651
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=-95.18795:-83.58639,Z=2.6677:2.6677
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=-95.18795:-83.58639,T="03-Jan-2012 00:00":"03-Jan-2012 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=19.796:26.651,Z=2.6677:2.6677
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=19.796:26.651,T="03-Jan-2012 00:00":"03-Jan-2012 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=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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=-95.18795:-83.58639,Y=19.796:26.651,Z=2.6677:2.6677
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=-95.18795:-83.58639,Y=19.796:26.651,T="03-Jan-2012 00:00":"03-Jan-2012 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=-95.18795:-83.58639,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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=19.796:26.651,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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=-95.18795:-83.58639,Y=19.796:26.651,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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=-95.18795:-83.58639,Y=19.796:26.651,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
ENDIF
ELSE
ENDIF
DEFINE SYMBOL region_full = ($region_xyzte)
!-> DEFINE SYMBOL region_full = X=-95.18795:-83.58639,Y=19.796:26.651,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_x"0|*>1") THEN DEFINE SYMBOL region_($num)_x = ($region_x)
!-> IF 1 THEN DEFINE SYMBOL region_0_x = X=-95.18795:-83.58639
!-> DEFINE SYMBOL region_0_x = X=-95.18795:-83.58639
IF ($region_y"0|*>1") THEN DEFINE SYMBOL region_($num)_y = ($region_y)
!-> IF 1 THEN DEFINE SYMBOL region_0_y = Y=19.796:26.651
!-> DEFINE SYMBOL region_0_y = Y=19.796:26.651
IF ($region_z"0|*>1") THEN DEFINE SYMBOL region_($num)_z = ($region_z)
!-> IF 1 THEN DEFINE SYMBOL region_0_z = Z=2.6677:2.6677
!-> DEFINE SYMBOL region_0_z = Z=2.6677:2.6677
IF ($region_t"0|*>1") THEN DEFINE SYMBOL region_($num)_t = ($region_t)
!-> IF 1 THEN DEFINE SYMBOL region_0_t = T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_0_t = T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_xt"0|*>1") THEN DEFINE SYMBOL region_($num)_xt = ($region_xt)
!-> IF 1 THEN DEFINE SYMBOL region_0_xt = X=-95.18795:-83.58639,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_0_xt = X=-95.18795:-83.58639,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_xy"0|*>1") THEN DEFINE SYMBOL region_($num)_xy = ($region_xy)
!-> IF 1 THEN DEFINE SYMBOL region_0_xy = X=-95.18795:-83.58639,Y=19.796:26.651
!-> DEFINE SYMBOL region_0_xy = X=-95.18795:-83.58639,Y=19.796:26.651
IF ($region_xz"0|*>1") THEN DEFINE SYMBOL region_($num)_xz = ($region_xz)
!-> IF 1 THEN DEFINE SYMBOL region_0_xz = X=-95.18795:-83.58639,Z=2.6677:2.6677
!-> DEFINE SYMBOL region_0_xz = X=-95.18795:-83.58639,Z=2.6677:2.6677
IF ($region_yt"0|*>1") THEN DEFINE SYMBOL region_($num)_yt = ($region_yt)
!-> IF 1 THEN DEFINE SYMBOL region_0_yt = Y=19.796:26.651,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_0_yt = Y=19.796:26.651,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_yz"0|*>1") THEN DEFINE SYMBOL region_($num)_yz = ($region_yz)
!-> IF 1 THEN DEFINE SYMBOL region_0_yz = Y=19.796:26.651,Z=2.6677:2.6677
!-> DEFINE SYMBOL region_0_yz = Y=19.796:26.651,Z=2.6677:2.6677
IF ($region_zt"0|*>1") THEN DEFINE SYMBOL region_($num)_zt = ($region_zt)
!-> IF 1 THEN DEFINE SYMBOL region_0_zt = Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_0_zt = Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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 = 03-Jan-2012 00:00
LET iz = STRINDEX("($region_0_t_lo)", " 00:00:00")
!-> DEFINE VARIABLE iz = STRINDEX("03-Jan-2012 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("03-Jan-2012 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("03-Jan-2012 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 = 03-Jan-2012 00:00
LET iz = STRINDEX("($region_0_t_hi)", " 00:00:00")
!-> DEFINE VARIABLE iz = STRINDEX("03-Jan-2012 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("03-Jan-2012 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("03-Jan-2012 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 = `'NAV_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 = `'NAV_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 = `'NAV_LAT'[x=@min,y=@min]`
!-> DEFINE SYMBOL ferret_curv_lat_min = `'NAV_LAT'[x=@min,y=@min]`
!-> DEFINE SYMBOL ferret_curv_lat_min = 14.1861295700073
DEFINE SYMBOL ferret_curv_lat_max = `($ferret_curvi_coord_lat)[x=@max,y=@max]`
!-> IF 1 THEN DEFINE SYMBOL ferret_curv_lat_max = `'NAV_LAT'[x=@max,y=@max]`
!-> DEFINE SYMBOL ferret_curv_lat_max = `'NAV_LAT'[x=@max,y=@max]`
!-> DEFINE SYMBOL ferret_curv_lat_max = 30.70804595947266
LET ncurv_x = `($ferret_curvi_coord_lon),RETURN=isize`
!-> DEFINE VARIABLE ncurv_x = 715
LET ncurv_y = `($ferret_curvi_coord_lon),RETURN=jsize`
!-> DEFINE VARIABLE ncurv_y = 652
LET del_x = (($ferret_curv_lon_max) - (($ferret_curv_lon_min)) )/(ncurv_x/2)
!-> DEFINE VARIABLE del_x = (-78.57984 - (-98.40654) )/(ncurv_x/2)
LET del_y = (($ferret_curv_lat_max) - (($ferret_curv_lat_min)) )/(ncurv_y/2)
!-> DEFINE VARIABLE del_y = (30.70804595947266 - (14.1861295700073) )/(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 = 9.91335
LET ndel_y = `0.5*ABS(($ferret_curv_lat_min) - ($ferret_curv_lat_max))`
!-> DEFINE VARIABLE ndel_y = 8.26095819473268
LET xcurvdiff = ABS(($ferret_curv_lon_max) - (($ferret_curv_lon_min)) )
!-> DEFINE VARIABLE xcurvdiff = ABS(-78.57984 - (-98.40654) )
LET xregdiff = ABS(($region_x_hi) - (($region_x_lo)))
!-> DEFINE VARIABLE xregdiff = ABS(-83.58639 - (-95.18795))
LET ycurvdiff = ABS(($ferret_curv_lat_max) - (($ferret_curv_lat_min)) )
!-> DEFINE VARIABLE ycurvdiff = ABS(30.70804595947266 - (14.1861295700073) )
LET yregdiff = ABS(($region_y_hi) - (($region_y_lo)) )
!-> DEFINE VARIABLE yregdiff = ABS(26.651 - (19.796) )
(ABS(ycurvdiff - yregdiff) LT ndel_y)` THEN
!-> IF 0 THEN
ENDIF
ENDIF
IF ($ferret_curvi_coord_mapfile"0|*>1") THEN DEFINE SYMBOL box_cf_map_url \"($ferret_curvi_coord_mapfile)\"
!-> IF 0 THEN DEFINE SYMBOL box_cf_map_url \" \"
CANCEL SYMBOL box_cf_map_url
!-> IF 0 THEN CANCEL SYMBOL box_cf_map_url
IF ($box_cf_map_url"0|*>1") THEN ! If we have a map file, use it.
!-> IF 0 THEN
ENDIF ! if we have a map
LET kludge = 1
DEFINE SYMBOL clon_imin 1
DEFINE SYMBOL clon_imax `($ferret_curvi_coord_lon),RETURN=isize`
!-> DEFINE SYMBOL clon_imax 715
DEFINE SYMBOL clat_jmin 1
DEFINE SYMBOL clat_jmax `($ferret_curvi_coord_lat),RETURN=jsize`
!-> DEFINE SYMBOL clat_jmax 652
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://cicese.mx/thredds/dodsC/hidrocarburos/linea3/climatologias/nemo-golfo-36
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 = 25.6* 1.e6
LET pvar = ($expr1)($data_var)[d=($data_num)]($expr2)
!-> DEFINE VARIABLE pvar = 'VOZOCRTX_X'[d=1]
IF ($region_zt"0|*>1") THEN LET pvar = ($expr1)($data_var)[d=($data_num),($region_zt)]($expr2)
!-> IF 1 THEN LET pvar = 'VOZOCRTX_X'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"]
!-> LET pvar = 'VOZOCRTX_X'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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 = 'VOZOCRTX_X'[d=1,i=1:715,j=1:652]
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 = 'VOZOCRTX_X'[d=1,i=1:715,j=1:652,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"]
!-> LET pvar = 'VOZOCRTX_X'[d=1,i=1:715,j=1:652,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"]
IF ($ferret_season_length"0|*>1") THEN
!-> IF 0 THEN
ENDIF
ENDIF
IF `($num"0")+1 EQ ($data_count)` THEN
!-> IF 0 THEN
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 = 715 - 1 + 1
ELSE
ENDIF
LET nx_orig = `nx`
!-> DEFINE VARIABLE nx_orig = 715
DEFINE SYMBOL grid_x_range = `($ferret_curv_lon_max) - ($ferret_curv_lon_min)`
!-> DEFINE SYMBOL grid_x_range = 19.8267
DEFINE SYMBOL grid_y_range = `($ferret_curv_lat_max) - ($ferret_curv_lat_min)`
!-> DEFINE SYMBOL grid_y_range = 16.52191638946536
IF `STRLEN("($ferret_view)") EQ 2` THEN
!-> IF 1 THEN
LET ii = i[gx=($data_var)[d=($data_num)]]
!-> DEFINE VARIABLE ii = i[gx='VOZOCRTX_X'[d=1]]
LET nx = ($clon_imax) - ($clon_imin) + 1
!-> DEFINE VARIABLE nx = 715 - 1 + 1
let ixmax = ii[i=@max]
LET jj = j[gy=($data_var)[d=($data_num)]]
!-> DEFINE VARIABLE jj = j[gy='VOZOCRTX_X'[d=1]]
LET ny = ($clat_jmax) - ($clat_jmin) + 1
!-> DEFINE VARIABLE ny = 652 - 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 = 11.60156/19.8267
LET pixsize = `nx*x_pct`
!-> DEFINE VARIABLE pixsize = 418.3810417265606
IF `pixsize GT maxpix` THEN DEFINE SYMBOL xstride = `2*INT((pixsize/maxpix)+1)`
!-> IF 0 THEN DEFINE SYMBOL xstride = `2*INT((pixsize/maxpix)+1)`
DEFINE SYMBOL xstride = `MAX(($xstride"1"), ($stride_for_mem"1"))`
!-> DEFINE SYMBOL xstride = 1
IF `($xstride"0") GT 1` THEN
!-> IF 0 THEN
ENDIF
DEFINE SYMBOL qualifiers = ($qualifiers)/HLIM=`($region_x_lo)`:`($region_x_hi)`
!-> IF 0 THEN DEFINE SYMBOL qualifiers = /HLIM=`-95.18795`:`-83.58639`
LET y_pct = ($region_y_range)/($grid_y_range)
!-> DEFINE VARIABLE y_pct = 6.855/16.52191638946536
LET pixsize = `ny*y_pct`
!-> DEFINE VARIABLE pixsize = 270.5170450353931
IF `2*pixsize GT maxpix` THEN DEFINE SYMBOL ystride = `2*INT((pixsize/maxpix)+1)`
!-> IF 0 THEN DEFINE SYMBOL ystride = `2*INT((pixsize/maxpix)+1)`
DEFINE SYMBOL ystride = `MAX(($ystride"1"), ($stride_for_mem"1"))`
!-> DEFINE SYMBOL ystride = 1
IF `($ystride"0") GT 1` THEN
!-> IF 0 THEN
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 0 THEN
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 = 'VOZOCRTX_X'[d=1,i=1:715,j=1:652]
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 = 'VOZOCRTX_X'[d=1,i=1:715,j=1:652,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"]
!-> LET pvar = 'VOZOCRTX_X'[d=1,i=1:715,j=1:652,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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:715
DEFINE SYMBOL region_y = j=($clat_jmin):($clat_jmax)
!-> DEFINE SYMBOL region_y = j=1:652
DEFINE SYMBOL region_xy = i=($clon_imin):($clon_imax),j=($clat_jmin):($clat_jmax)
!-> DEFINE SYMBOL region_xy = i=1:715,j=1:652
IF ($region_t"0|*>1") THEN DEFINE SYMBOL region_xyt = ($region_xy),($region_t)
!-> IF 1 THEN DEFINE SYMBOL region_xyt = i=1:715,j=1:652,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_xyt = i=1:715,j=1:652,T="03-Jan-2012 00:00":"03-Jan-2012 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:715,j=1:652,Z=2.6677:2.6677
!-> DEFINE SYMBOL region_xyz = i=1:715,j=1:652,Z=2.6677:2.6677
IF ($region_zt"0|*>1") THEN DEFINE SYMBOL region_xyzt = ($region_xy),($region_zt)
!-> IF 1 THEN DEFINE SYMBOL region_xyzt = i=1:715,j=1:652,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_xyzt = i=1:715,j=1:652,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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:715,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_xt = i=1:715,T="03-Jan-2012 00:00":"03-Jan-2012 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:715,Z=2.6677:2.6677
!-> DEFINE SYMBOL region_xz = i=1:715,Z=2.6677:2.6677
IF ($region_xzt"0|*>1") THEN DEFINE SYMBOL region_xzt = ($region_x),($region_zt)
!-> IF 1 THEN DEFINE SYMBOL region_xzt = i=1:715,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_xzt = i=1:715,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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:652,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_yt = j=1:652,T="03-Jan-2012 00:00":"03-Jan-2012 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:652,Z=2.6677:2.6677
!-> DEFINE SYMBOL region_yz = j=1:652,Z=2.6677:2.6677
IF ($region_yzt"0|*>1") THEN DEFINE SYMBOL region_yzt = ($region_y),($region_zt)
!-> IF 1 THEN DEFINE SYMBOL region_yzt = j=1:652,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_yzt = j=1:652,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_full"0|*>1") THEN DEFINE SYMBOL region_full = ($region_xyzt)
!-> IF 1 THEN DEFINE SYMBOL region_full = i=1:715,j=1:652,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_full = i=1:715,j=1:652,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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:715
!-> DEFINE SYMBOL region_0_x = i=1:715
IF ($region_y"0|*>1") THEN DEFINE SYMBOL region_($num)_y = ($region_y)
!-> IF 1 THEN DEFINE SYMBOL region_0_y = j=1:652
!-> DEFINE SYMBOL region_0_y = j=1:652
IF ($region_z"0|*>1") THEN DEFINE SYMBOL region_($num)_z = ($region_z)
!-> IF 1 THEN DEFINE SYMBOL region_0_z = Z=2.6677:2.6677
!-> DEFINE SYMBOL region_0_z = Z=2.6677:2.6677
IF ($region_t"0|*>1") THEN DEFINE SYMBOL region_($num)_t = ($region_t)
!-> IF 1 THEN DEFINE SYMBOL region_0_t = T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_0_t = T="03-Jan-2012 00:00":"03-Jan-2012 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:715,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_0_xt = i=1:715,T="03-Jan-2012 00:00":"03-Jan-2012 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:715,j=1:652
!-> DEFINE SYMBOL region_0_xy = i=1:715,j=1:652
IF ($region_xz"0|*>1") THEN DEFINE SYMBOL region_($num)_xz = ($region_xz)
!-> IF 1 THEN DEFINE SYMBOL region_0_xz = i=1:715,Z=2.6677:2.6677
!-> DEFINE SYMBOL region_0_xz = i=1:715,Z=2.6677:2.6677
IF ($region_yt"0|*>1") THEN DEFINE SYMBOL region_($num)_yt = ($region_yt)
!-> IF 1 THEN DEFINE SYMBOL region_0_yt = j=1:652,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_0_yt = j=1:652,T="03-Jan-2012 00:00":"03-Jan-2012 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:652,Z=2.6677:2.6677
!-> DEFINE SYMBOL region_0_yz = j=1:652,Z=2.6677:2.6677
IF ($region_zt"0|*>1") THEN DEFINE SYMBOL region_($num)_zt = ($region_zt)
!-> IF 1 THEN DEFINE SYMBOL region_0_zt = Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_0_zt = Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
! Exit_GO
LET/TITLE="Longitude"/units=degrees xcoord = ($ferret_curvi_coord_lon)[d=($data_num)]
!-> DEFINE VARIABLE/TITLE="Longitude"/units=degrees xcoord = 'NAV_LON'[d=1]
LET/TITLE="Latitude"/units=degrees ycoord = ($ferret_curvi_coord_lat)[d=($data_num)]
!-> DEFINE VARIABLE/TITLE="Latitude"/units=degrees ycoord = 'NAV_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 = 1
DEFINE SYMBOL note_($note_num)_lab = ($native_lab)
!-> DEFINE SYMBOL note_1_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 = 'NAV_LON'[d=1,i=1:715,j=1:652]
($ferret_curvi_coord_lat)[d=($data_num),i=($clon_imin):($clon_imax),j=($clat_jmin):($clat_jmax)]
!-> DEFINE VARIABLE/TITLE="Latitude"/units=degrees ycoord = 'NAV_LAT'[d=1,i=1:715,j=1:652]
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 = 'VOZOCRTX_X'[d=1,i=1:715,j=1:652]
($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 = 'VOZOCRTX_X'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:715,j=1:652]
!-> LET/d=1 plot_var = 'VOZOCRTX_X'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:715,j=1:652]
($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 = 'VOZOCRTX_X'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:715,j=1:652]
!-> LET/d=1 plot_var = 'VOZOCRTX_X'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:715,j=1:652]
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 = 'VOZOCRTX_X'[d=1,i=1:715,j=1:652]
($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 = 'VOZOCRTX_X'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:715,j=1:652]
!-> DEFINE SYMBOL ferret_plot_base_var = 'VOZOCRTX_X'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:715,j=1:652]
($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 = 'VOZOCRTX_X'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:715,j=1:652]
!-> DEFINE SYMBOL ferret_plot_base_var = 'VOZOCRTX_X'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:715,j=1:652]
DEFINE SYMBOL ferret_plot_base_var_($which_var) ($ferret_plot_base_var)
!-> DEFINE SYMBOL ferret_plot_base_var_0 'VOZOCRTX_X'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:715,j=1:652]
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 " eastward velocity (m/s) "
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 0 THEN GO LAS_set_strides.jnl
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_VECTOR
IF `STRLEN("($ferret_view)") LT 2` THEN EXIT/SCRIPT
!-> IF 0 THEN EXIT/SCRIPT
IF `STRINDEX("($op)", "VECTOR") GT 0` THEN EXIT/SCRIPT
!-> IF 1 THEN EXIT/SCRIPT
!-> EXIT/SCRIPT
! Exit_GO
ENDIF
ENDIF
! Exit_GO
! Exit_GO
DEFINE SYMBOL variable_($1"0")_lab = ($data_title) ($data_units)
!-> DEFINE SYMBOL variable_0_lab = eastward velocity (m/s)
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 = eastward velocity (m/s)
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 = eastward velocity (m/s)
($itsa_vector_plot"0|*>1") EQ 0` THEN DEFINE SYMBOL qualifiers = ($qualifiers)/KEY=CONT
!-> IF 0 THEN 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 1 THEN SET MEM/SIZ=100
!-> 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
DEFINE SYMBOL ferret_vector_1 ($ferret_plot_var)
!-> DEFINE SYMBOL ferret_vector_1 plot_var[d=1] , xcoord, ycoord
DEFINE SYMBOL ferret_plot_title_1 "($data_title) ($data_units)"
!-> DEFINE SYMBOL ferret_plot_title_1 "eastward velocity (m/s)"
DEFINE SYMBOL ferret_vector_1_noregion ($ferret_plot_var_0_noregion)
!-> DEFINE SYMBOL ferret_vector_1_noregion 'VOZOCRTX_X'[d=1]
GO LAS_initialize_data 1
! Enter_GO LAS_initialize_data 1
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 0 THEN DEFINE SYMBOL data_initialization_script LAS_initialize_data_std
GO ($data_initialization_script) ($1)
!-> GO LAS_initialize_data_std 1
! Enter_GO LAS_initialize_data_std 1
GO LAS_initialize_dataset ($1"0")
!-> GO LAS_initialize_dataset 1
! Enter_GO LAS_initialize_dataset 1
DEFINE SYMBOL num ($1"0")
!-> DEFINE SYMBOL num 1
IF ($data_($num)_chained"0|1|*>1) THEN
!-> IF 0 THEN
ELSE
DEFINE SYMBOL data_url \"($data_($num)_url)\"
!-> DEFINE SYMBOL data_url \"http://cicese.mx/thredds/dodsC/hidrocarburos/linea3/climatologias/nemo-golfo-36\";
ENDIF
SET DATA ($data_url)
!-> SET DATA "http://cicese.mx/thredds/dodsC/hidrocarburos/linea3/climatologias/nemo-golfo-36";
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 vomecrty_Y
DEFINE SYMBOL data_orig_var ($data_($num)_var)
!-> DEFINE SYMBOL data_orig_var vomecrty_Y
DEFINE SYMBOL data_var_nq ($data_($num)_var)
!-> DEFINE SYMBOL data_var_nq vomecrty_Y
ENDIF
DEFINE SYMBOL data_name ($data_($num)_name)
!-> DEFINE SYMBOL data_name northward velocity
IF `($data_($num)_name"0|*>1") EQ 0` THEN DEFINE SYMBOL data_name ($data_var)
!-> IF 0 THEN DEFINE SYMBOL data_name vomecrty_Y
DEFINE SYM var_num ($num)
!-> DEFINE SYM var_num 1
IF ($data_($num)_var"0|*>1") THEN DEFINE SYMBOL data_var = `UPCASE("($data_var)")`
!-> IF 1 THEN DEFINE SYMBOL data_var = `UPCASE("vomecrty_Y")`
!-> DEFINE SYMBOL data_var = `UPCASE("vomecrty_Y")`
!-> DEFINE SYMBOL data_var = VOMECRTY_Y
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("vomecrty_Y")`
!-> DEFINE SYMBOL data_var_nq = `UPCASE("vomecrty_Y")`
!-> DEFINE SYMBOL data_var_nq = VOMECRTY_Y
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("VOMECRTY_Y")`
LET varlen = `STRLEN("($data_var)")`
!-> DEFINE VARIABLE varlen = 10
IF `STRINDEX("($data_var)", "'") EQ 1 AND STRRINDEX("($data_var)", "'") EQ varlen` THEN
!-> IF 0 THEN
ELSE
IF ($data_($num)_var"0|*>1") THEN DEFINE SYMBOL data_var_nq = ($data_var)
!-> IF 1 THEN DEFINE SYMBOL data_var_nq = VOMECRTY_Y
!-> DEFINE SYMBOL data_var_nq = VOMECRTY_Y
IF ($data_($num)_var"0|*>1") THEN DEFINE SYMBOL data_var = '($data_var)'
!-> IF 1 THEN DEFINE SYMBOL data_var = 'VOMECRTY_Y'
!-> DEFINE SYMBOL data_var = 'VOMECRTY_Y'
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 = 'NAV_LON'
LET varlen = `STRLEN("($ferret_curvi_coord_lon)")`
!-> DEFINE VARIABLE varlen = 9
IF `STRINDEX("($ferret_curvi_coord_lon)", "'") EQ 1 AND STRRINDEX("($ferret_curvi_coord_lon)", "'") EQ varlen` THEN
!-> IF 1 THEN
DEFINE SYMBOL curv_already_quote = 1
ELSE
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 = 'NAV_LAT'
LET varlen = `STRLEN("($ferret_curvi_coord_lat)")`
!-> DEFINE VARIABLE varlen = 9
IF `STRINDEX("($ferret_curvi_coord_lat)", "'") EQ 1 AND STRRINDEX("($ferret_curvi_coord_lat)", "'") EQ varlen` THEN
!-> IF 1 THEN
DEFINE SYMBOL curv_already_quote = 1
ELSE
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 m/s
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 (m/s)
DEFINE SYMBOL data_units ($data_($num)_units)
!-> IF 0 THEN DEFINE SYMBOL data_units m/s
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 northward velocity
!-> DEFINE SYMBOL data_title northward velocity
ELSE
ENDIF
IF `($num) GT 0` THEN DEFINE SYMBOL variable_($num)_lab = ($data_title)
!-> IF 1 THEN DEFINE SYMBOL variable_1_lab = northward velocity
!-> DEFINE SYMBOL variable_1_lab = northward velocity
IF ($data_units"0|*>1") THEN
!-> IF 1 THEN
DEFINE SYMBOL units_lab = ($data_units)
!-> DEFINE SYMBOL units_lab = (m/s)
IF `($num) GT 0` THEN DEFINE SYMBOL units_($num)_lab = ($data_units)
!-> IF 1 THEN DEFINE SYMBOL units_1_lab = (m/s)
!-> DEFINE SYMBOL units_1_lab = (m/s)
ENDIF
DEFINE SYMBOL ferret_plot_title ($data_title) ($data_units)
!-> DEFINE SYMBOL ferret_plot_title northward velocity (m/s)
SET DATA ($data_url)
!-> SET DATA "http://cicese.mx/thredds/dodsC/hidrocarburos/linea3/climatologias/nemo-golfo-36";
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 ("m/s")
DEFINE SYMBOL data_units `SUBSTRING("($data_($num)_units)", 2, ulen-2)`
!-> IF 0 THEN DEFINE SYMBOL data_units `SUBSTRING("m/s", 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://cicese.mx/thredds/dodsC/hidrocarburos/linea3/climatologias/nemo-golfo-36";
DEFINE SYMBOL dset($num) = `($data_var),RETURN=dsetnum`
!-> DEFINE SYMBOL dset1 = 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 = vomecrty_Y
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 = vomecrty_Y
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_1_num = 1
IF ($ferret_factor"0|*>1") THEN
!-> IF 0 THEN
ENDIF
LET attlist = ($data_($num)_var).attnames
!-> DEFINE VARIABLE attlist = vomecrty_Y.attnames
IF ($data_var_nq"0|*>1") THEN LET attlist = ($data_var_nq).attnames
!-> IF 1 THEN LET attlist = VOMECRTY_Y.attnames
!-> LET attlist = VOMECRTY_Y.attnames
DEFINE SYMBOL data_var_only = `UPCASE("($data_var)")`
!-> DEFINE SYMBOL data_var_only = 'VOMECRTY_Y'
IF ($ferret_bad_flag"0|*>1") THEN SET VAR/BAD=($ferret_bad_flag) ($data_var)
!-> IF 0 THEN SET VAR/BAD= 'VOMECRTY_Y'
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 = 'VOMECRTY_Y'[d=1,i=1:715,j=1:652,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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 = 'VOMECRTY_Y'[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 = VOMECRTY_Y[d=1]
!-> DEFINE SYMBOL ferret_plot_var_nq_noregion = VOMECRTY_Y[d=1]
DEFINE SYMBOL ferret_plot_var_($num)_noregion = ($data_var)[d=($data_num)]
!-> DEFINE SYMBOL ferret_plot_var_1_noregion = 'VOMECRTY_Y'[d=1]
DEFINE SYMBOL ferret_plot_base_var = ($ferret_plot_var)
!-> DEFINE SYMBOL ferret_plot_base_var = 'VOMECRTY_Y'[d=1,i=1:715,j=1:652,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"]
DEFINE SYMBOL ferret_plot_base_var_($num) = ($ferret_plot_var)
!-> DEFINE SYMBOL ferret_plot_base_var_1 = 'VOMECRTY_Y'[d=1,i=1:715,j=1:652,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"]
DEFINE SYMBOL ferret_plot_base_var_noregion = ($data_var)[d=($data_num)]
!-> DEFINE SYMBOL ferret_plot_base_var_noregion = 'VOMECRTY_Y'[d=1]
DEFINE SYMBOL ferret_xyz_var = ($data_var)[d=($data_num),($region_xyz)]
!-> DEFINE SYMBOL ferret_xyz_var = 'VOMECRTY_Y'[d=1,i=1:715,j=1:652,Z=2.6677:2.6677]
DEFINE SYMBOL ferret_t_var = ($data_var)[d=($data_num),($region_t)]
!-> DEFINE SYMBOL ferret_t_var = 'VOMECRTY_Y'[d=1,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"]
DEFINE SYMBOL ferret_x_var = ($data_var)[d=($data_num),($region_x)]
!-> DEFINE SYMBOL ferret_x_var = 'VOMECRTY_Y'[d=1,i=1:715]
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 = 'VOMECRTY_Y'[d=1]
GO LAS_transforms ($num)
!-> GO LAS_transforms 1
! Enter_GO LAS_transforms 1
DEFINE SYMBOL num ($1"0")
!-> DEFINE SYMBOL num 1
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 1
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 = `'NAV_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 = `'NAV_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 `-98.40654 + 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 = -95.1879575
DEFINE SYMBOL region_0_x_hi_orig = ($region_0_x_hi)
!-> DEFINE SYMBOL region_0_x_hi_orig = -83.586395
ENDIF
GO LAS_initialize_region ($num)
!-> GO LAS_initialize_region 1
! Enter_GO LAS_initialize_region 1
DEFINE SYMBOL num ($1"0")
!-> DEFINE SYMBOL num 1
DEFINE SYMBOL region_name data_($num)_region
!-> DEFINE SYMBOL region_name data_1_region
DEFINE SYMBOL region ($($region_name)"region_0")
!-> DEFINE SYMBOL region region_1
DEFINE SYMBOL region region_($num)
!-> DEFINE SYMBOL region region_1
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 = -95.18795
DEFINE SYMBOL region_x_hi = `INT(100000 * ($($region)_x_hi)) / 100000`
!-> DEFINE SYMBOL region_x_hi = -83.58639
DEFINE SYMBOL limits_x = ($region_x_lo):($region_x_hi)
!-> DEFINE SYMBOL limits_x = -95.18795:-83.58639
DEFINE SYMBOL limits_x_m360 = `($region_x_lo)-360`:`($region_x_hi)-360`
!-> DEFINE SYMBOL limits_x_m360 = -455.18795:-443.58639
DEFINE SYMBOL limits_x_p360 = `($region_x_lo)+360`:`($region_x_hi)+360`
!-> DEFINE SYMBOL limits_x_p360 = 264.81205:276.41361
DEFINE SYMBOL region_x = X=($region_x_lo):($region_x_hi)
!-> DEFINE SYMBOL region_x = X=-95.18795:-83.58639
DEFINE SYMBOL region_x_m360 X=`($region_x_lo)-360`:`($region_x_hi)-360`
!-> DEFINE SYMBOL region_x_m360 X=-455.18795:-443.58639
DEFINE SYMBOL region_x_p360 X=`($region_x_lo)+360`:`($region_x_hi)+360`
!-> DEFINE SYMBOL region_x_p360 X=264.81205:276.41361
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 = 11.60156
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 = 19.796
DEFINE SYMBOL region_y_hi = `INT(1000 * ($($region)_y_hi)) / 1000`
!-> DEFINE SYMBOL region_y_hi = 26.651
DEFINE SYMBOL limits_y = ($region_y_lo):($region_y_hi)
!-> DEFINE SYMBOL limits_y = 19.796:26.651
DEFINE SYMBOL region_y = Y=($region_y_lo):($region_y_hi)
!-> DEFINE SYMBOL region_y = Y=19.796:26.651
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 = 6.855
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 = 2.6677
DEFINE SYMBOL region_z_hi = ($($region)_z_hi)
!-> DEFINE SYMBOL region_z_hi = 2.6677
DEFINE SYMBOL limits_z = ($region_z_lo):($region_z_hi)
!-> DEFINE SYMBOL limits_z = 2.6677:2.6677
DEFINE SYMBOL region_z = Z=($region_z_lo):($region_z_hi)
!-> DEFINE SYMBOL region_z = Z=2.6677:2.6677
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 = 03-Jan-2012 00:00
DEFINE SYMBOL region_t_hi = ($($region)_t_hi)
!-> DEFINE SYMBOL region_t_hi = 03-Jan-2012 00:00
DEFINE SYMBOL limits_t \"($region_t_lo)\":\"($region_t_hi)\"
!-> DEFINE SYMBOL limits_t \"03-Jan-2012 00:00\":\"03-Jan-2012 00:00\"
DEFINE SYMBOL region_t T=\"($region_t_lo)\":\"($region_t_hi)\"
!-> DEFINE SYMBOL region_t T=\"03-Jan-2012 00:00\":\"03-Jan-2012 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=-95.18795:-83.58639,Y=19.796:26.651
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=-95.18795:-83.58639,Z=2.6677:2.6677
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=-95.18795:-83.58639,T="03-Jan-2012 00:00":"03-Jan-2012 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=19.796:26.651,Z=2.6677:2.6677
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=19.796:26.651,T="03-Jan-2012 00:00":"03-Jan-2012 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=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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=-95.18795:-83.58639,Y=19.796:26.651,Z=2.6677:2.6677
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=-95.18795:-83.58639,Y=19.796:26.651,T="03-Jan-2012 00:00":"03-Jan-2012 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=-95.18795:-83.58639,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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=19.796:26.651,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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=-95.18795:-83.58639,Y=19.796:26.651,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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=-95.18795:-83.58639,Y=19.796:26.651,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
ENDIF
ELSE
ENDIF
DEFINE SYMBOL region_full = ($region_xyzte)
!-> DEFINE SYMBOL region_full = X=-95.18795:-83.58639,Y=19.796:26.651,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_x"0|*>1") THEN DEFINE SYMBOL region_($num)_x = ($region_x)
!-> IF 1 THEN DEFINE SYMBOL region_1_x = X=-95.18795:-83.58639
!-> DEFINE SYMBOL region_1_x = X=-95.18795:-83.58639
IF ($region_y"0|*>1") THEN DEFINE SYMBOL region_($num)_y = ($region_y)
!-> IF 1 THEN DEFINE SYMBOL region_1_y = Y=19.796:26.651
!-> DEFINE SYMBOL region_1_y = Y=19.796:26.651
IF ($region_z"0|*>1") THEN DEFINE SYMBOL region_($num)_z = ($region_z)
!-> IF 1 THEN DEFINE SYMBOL region_1_z = Z=2.6677:2.6677
!-> DEFINE SYMBOL region_1_z = Z=2.6677:2.6677
IF ($region_t"0|*>1") THEN DEFINE SYMBOL region_($num)_t = ($region_t)
!-> IF 1 THEN DEFINE SYMBOL region_1_t = T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_1_t = T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_xt"0|*>1") THEN DEFINE SYMBOL region_($num)_xt = ($region_xt)
!-> IF 1 THEN DEFINE SYMBOL region_1_xt = X=-95.18795:-83.58639,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_1_xt = X=-95.18795:-83.58639,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_xy"0|*>1") THEN DEFINE SYMBOL region_($num)_xy = ($region_xy)
!-> IF 1 THEN DEFINE SYMBOL region_1_xy = X=-95.18795:-83.58639,Y=19.796:26.651
!-> DEFINE SYMBOL region_1_xy = X=-95.18795:-83.58639,Y=19.796:26.651
IF ($region_xz"0|*>1") THEN DEFINE SYMBOL region_($num)_xz = ($region_xz)
!-> IF 1 THEN DEFINE SYMBOL region_1_xz = X=-95.18795:-83.58639,Z=2.6677:2.6677
!-> DEFINE SYMBOL region_1_xz = X=-95.18795:-83.58639,Z=2.6677:2.6677
IF ($region_yt"0|*>1") THEN DEFINE SYMBOL region_($num)_yt = ($region_yt)
!-> IF 1 THEN DEFINE SYMBOL region_1_yt = Y=19.796:26.651,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_1_yt = Y=19.796:26.651,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_yz"0|*>1") THEN DEFINE SYMBOL region_($num)_yz = ($region_yz)
!-> IF 1 THEN DEFINE SYMBOL region_1_yz = Y=19.796:26.651,Z=2.6677:2.6677
!-> DEFINE SYMBOL region_1_yz = Y=19.796:26.651,Z=2.6677:2.6677
IF ($region_zt"0|*>1") THEN DEFINE SYMBOL region_($num)_zt = ($region_zt)
!-> IF 1 THEN DEFINE SYMBOL region_1_zt = Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_1_zt = Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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 = 03-Jan-2012 00:00
LET iz = STRINDEX("($region_0_t_lo)", " 00:00:00")
!-> DEFINE VARIABLE iz = STRINDEX("03-Jan-2012 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("03-Jan-2012 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("03-Jan-2012 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 = 03-Jan-2012 00:00
LET iz = STRINDEX("($region_0_t_hi)", " 00:00:00")
!-> DEFINE VARIABLE iz = STRINDEX("03-Jan-2012 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("03-Jan-2012 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("03-Jan-2012 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 0 THEN
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 1
! Enter_GO LAS_initialize_region 1
DEFINE SYMBOL num ($1"0")
!-> DEFINE SYMBOL num 1
DEFINE SYMBOL region_name data_($num)_region
!-> DEFINE SYMBOL region_name data_1_region
DEFINE SYMBOL region ($($region_name)"region_0")
!-> DEFINE SYMBOL region region_1
DEFINE SYMBOL region region_($num)
!-> DEFINE SYMBOL region region_1
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 = -95.18795
DEFINE SYMBOL region_x_hi = `INT(100000 * ($($region)_x_hi)) / 100000`
!-> DEFINE SYMBOL region_x_hi = -83.58639
DEFINE SYMBOL limits_x = ($region_x_lo):($region_x_hi)
!-> DEFINE SYMBOL limits_x = -95.18795:-83.58639
DEFINE SYMBOL limits_x_m360 = `($region_x_lo)-360`:`($region_x_hi)-360`
!-> DEFINE SYMBOL limits_x_m360 = -455.18795:-443.58639
DEFINE SYMBOL limits_x_p360 = `($region_x_lo)+360`:`($region_x_hi)+360`
!-> DEFINE SYMBOL limits_x_p360 = 264.81205:276.41361
DEFINE SYMBOL region_x = X=($region_x_lo):($region_x_hi)
!-> DEFINE SYMBOL region_x = X=-95.18795:-83.58639
DEFINE SYMBOL region_x_m360 X=`($region_x_lo)-360`:`($region_x_hi)-360`
!-> DEFINE SYMBOL region_x_m360 X=-455.18795:-443.58639
DEFINE SYMBOL region_x_p360 X=`($region_x_lo)+360`:`($region_x_hi)+360`
!-> DEFINE SYMBOL region_x_p360 X=264.81205:276.41361
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 = 11.60156
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 = 19.796
DEFINE SYMBOL region_y_hi = `INT(1000 * ($($region)_y_hi)) / 1000`
!-> DEFINE SYMBOL region_y_hi = 26.651
DEFINE SYMBOL limits_y = ($region_y_lo):($region_y_hi)
!-> DEFINE SYMBOL limits_y = 19.796:26.651
DEFINE SYMBOL region_y = Y=($region_y_lo):($region_y_hi)
!-> DEFINE SYMBOL region_y = Y=19.796:26.651
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 = 6.855
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 = 2.6677
DEFINE SYMBOL region_z_hi = ($($region)_z_hi)
!-> DEFINE SYMBOL region_z_hi = 2.6677
DEFINE SYMBOL limits_z = ($region_z_lo):($region_z_hi)
!-> DEFINE SYMBOL limits_z = 2.6677:2.6677
DEFINE SYMBOL region_z = Z=($region_z_lo):($region_z_hi)
!-> DEFINE SYMBOL region_z = Z=2.6677:2.6677
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 = 03-Jan-2012 00:00
DEFINE SYMBOL region_t_hi = ($($region)_t_hi)
!-> DEFINE SYMBOL region_t_hi = 03-Jan-2012 00:00
DEFINE SYMBOL limits_t \"($region_t_lo)\":\"($region_t_hi)\"
!-> DEFINE SYMBOL limits_t \"03-Jan-2012 00:00\":\"03-Jan-2012 00:00\"
DEFINE SYMBOL region_t T=\"($region_t_lo)\":\"($region_t_hi)\"
!-> DEFINE SYMBOL region_t T=\"03-Jan-2012 00:00\":\"03-Jan-2012 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=-95.18795:-83.58639,Y=19.796:26.651
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=-95.18795:-83.58639,Z=2.6677:2.6677
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=-95.18795:-83.58639,T="03-Jan-2012 00:00":"03-Jan-2012 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=19.796:26.651,Z=2.6677:2.6677
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=19.796:26.651,T="03-Jan-2012 00:00":"03-Jan-2012 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=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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=-95.18795:-83.58639,Y=19.796:26.651,Z=2.6677:2.6677
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=-95.18795:-83.58639,Y=19.796:26.651,T="03-Jan-2012 00:00":"03-Jan-2012 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=-95.18795:-83.58639,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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=19.796:26.651,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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=-95.18795:-83.58639,Y=19.796:26.651,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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=-95.18795:-83.58639,Y=19.796:26.651,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
ENDIF
ELSE
ENDIF
DEFINE SYMBOL region_full = ($region_xyzte)
!-> DEFINE SYMBOL region_full = X=-95.18795:-83.58639,Y=19.796:26.651,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_x"0|*>1") THEN DEFINE SYMBOL region_($num)_x = ($region_x)
!-> IF 1 THEN DEFINE SYMBOL region_1_x = X=-95.18795:-83.58639
!-> DEFINE SYMBOL region_1_x = X=-95.18795:-83.58639
IF ($region_y"0|*>1") THEN DEFINE SYMBOL region_($num)_y = ($region_y)
!-> IF 1 THEN DEFINE SYMBOL region_1_y = Y=19.796:26.651
!-> DEFINE SYMBOL region_1_y = Y=19.796:26.651
IF ($region_z"0|*>1") THEN DEFINE SYMBOL region_($num)_z = ($region_z)
!-> IF 1 THEN DEFINE SYMBOL region_1_z = Z=2.6677:2.6677
!-> DEFINE SYMBOL region_1_z = Z=2.6677:2.6677
IF ($region_t"0|*>1") THEN DEFINE SYMBOL region_($num)_t = ($region_t)
!-> IF 1 THEN DEFINE SYMBOL region_1_t = T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_1_t = T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_xt"0|*>1") THEN DEFINE SYMBOL region_($num)_xt = ($region_xt)
!-> IF 1 THEN DEFINE SYMBOL region_1_xt = X=-95.18795:-83.58639,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_1_xt = X=-95.18795:-83.58639,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_xy"0|*>1") THEN DEFINE SYMBOL region_($num)_xy = ($region_xy)
!-> IF 1 THEN DEFINE SYMBOL region_1_xy = X=-95.18795:-83.58639,Y=19.796:26.651
!-> DEFINE SYMBOL region_1_xy = X=-95.18795:-83.58639,Y=19.796:26.651
IF ($region_xz"0|*>1") THEN DEFINE SYMBOL region_($num)_xz = ($region_xz)
!-> IF 1 THEN DEFINE SYMBOL region_1_xz = X=-95.18795:-83.58639,Z=2.6677:2.6677
!-> DEFINE SYMBOL region_1_xz = X=-95.18795:-83.58639,Z=2.6677:2.6677
IF ($region_yt"0|*>1") THEN DEFINE SYMBOL region_($num)_yt = ($region_yt)
!-> IF 1 THEN DEFINE SYMBOL region_1_yt = Y=19.796:26.651,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_1_yt = Y=19.796:26.651,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_yz"0|*>1") THEN DEFINE SYMBOL region_($num)_yz = ($region_yz)
!-> IF 1 THEN DEFINE SYMBOL region_1_yz = Y=19.796:26.651,Z=2.6677:2.6677
!-> DEFINE SYMBOL region_1_yz = Y=19.796:26.651,Z=2.6677:2.6677
IF ($region_zt"0|*>1") THEN DEFINE SYMBOL region_($num)_zt = ($region_zt)
!-> IF 1 THEN DEFINE SYMBOL region_1_zt = Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_1_zt = Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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 = 03-Jan-2012 00:00
LET iz = STRINDEX("($region_0_t_lo)", " 00:00:00")
!-> DEFINE VARIABLE iz = STRINDEX("03-Jan-2012 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("03-Jan-2012 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("03-Jan-2012 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 = 03-Jan-2012 00:00
LET iz = STRINDEX("($region_0_t_hi)", " 00:00:00")
!-> DEFINE VARIABLE iz = STRINDEX("03-Jan-2012 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("03-Jan-2012 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("03-Jan-2012 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 1 THEN DEFINE SYMBOL check_linear = 0
!-> 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_done1 = 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 = `'NAV_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 = `'NAV_LON'[x=@max,y=@max]`
DEFINE SYMBOL ferret_curv_lat_min = `($ferret_curvi_coord_lat)[x=@min,y=@min]`
!-> IF 0 THEN DEFINE SYMBOL ferret_curv_lat_min = `'NAV_LAT'[x=@min,y=@min]`
DEFINE SYMBOL ferret_curv_lat_max = `($ferret_curvi_coord_lat)[x=@max,y=@max]`
!-> IF 0 THEN DEFINE SYMBOL ferret_curv_lat_max = `'NAV_LAT'[x=@max,y=@max]`
LET ncurv_x = `($ferret_curvi_coord_lon),RETURN=isize`
!-> DEFINE VARIABLE ncurv_x = 715
LET ncurv_y = `($ferret_curvi_coord_lon),RETURN=jsize`
!-> DEFINE VARIABLE ncurv_y = 652
LET del_x = (($ferret_curv_lon_max) - (($ferret_curv_lon_min)) )/(ncurv_x/2)
!-> DEFINE VARIABLE del_x = (-78.57984 - (-98.40654) )/(ncurv_x/2)
LET del_y = (($ferret_curv_lat_max) - (($ferret_curv_lat_min)) )/(ncurv_y/2)
!-> DEFINE VARIABLE del_y = (30.70804595947266 - (14.1861295700073) )/(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 = 9.91335
LET ndel_y = `0.5*ABS(($ferret_curv_lat_min) - ($ferret_curv_lat_max))`
!-> DEFINE VARIABLE ndel_y = 8.26095819473268
LET xcurvdiff = ABS(($ferret_curv_lon_max) - (($ferret_curv_lon_min)) )
!-> DEFINE VARIABLE xcurvdiff = ABS(-78.57984 - (-98.40654) )
LET xregdiff = ABS(($region_x_hi) - (($region_x_lo)))
!-> DEFINE VARIABLE xregdiff = ABS(-83.58639 - (-95.18795))
LET ycurvdiff = ABS(($ferret_curv_lat_max) - (($ferret_curv_lat_min)) )
!-> DEFINE VARIABLE ycurvdiff = ABS(30.70804595947266 - (14.1861295700073) )
LET yregdiff = ABS(($region_y_hi) - (($region_y_lo)) )
!-> DEFINE VARIABLE yregdiff = ABS(26.651 - (19.796) )
(ABS(ycurvdiff - yregdiff) LT ndel_y)` THEN
!-> IF 0 THEN
ENDIF
ENDIF
IF ($ferret_curvi_coord_mapfile"0|*>1") THEN DEFINE SYMBOL box_cf_map_url \"($ferret_curvi_coord_mapfile)\"
!-> IF 0 THEN DEFINE SYMBOL box_cf_map_url \" \"
CANCEL SYMBOL box_cf_map_url
!-> IF 1 THEN CANCEL SYMBOL box_cf_map_url
!-> CANCEL SYMBOL box_cf_map_url
IF ($box_cf_map_url"0|*>1") THEN ! If we have a map file, use it.
!-> IF 0 THEN
ENDIF ! if we have a map
LET kludge = 1
DEFINE SYMBOL clon_imin 1
DEFINE SYMBOL clon_imax `($ferret_curvi_coord_lon),RETURN=isize`
!-> DEFINE SYMBOL clon_imax 715
DEFINE SYMBOL clat_jmin 1
DEFINE SYMBOL clat_jmax `($ferret_curvi_coord_lat),RETURN=jsize`
!-> DEFINE SYMBOL clat_jmax 652
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://cicese.mx/thredds/dodsC/hidrocarburos/linea3/climatologias/nemo-golfo-36
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 = 100* 1.e6
LET pvar = ($expr1)($data_var)[d=($data_num)]($expr2)
!-> DEFINE VARIABLE pvar = 'VOMECRTY_Y'[d=1]
IF ($region_zt"0|*>1") THEN LET pvar = ($expr1)($data_var)[d=($data_num),($region_zt)]($expr2)
!-> IF 1 THEN LET pvar = 'VOMECRTY_Y'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"]
!-> LET pvar = 'VOMECRTY_Y'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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 = 'VOMECRTY_Y'[d=1,i=1:715,j=1:652]
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 = 'VOMECRTY_Y'[d=1,i=1:715,j=1:652,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"]
!-> LET pvar = 'VOMECRTY_Y'[d=1,i=1:715,j=1:652,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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 = 715
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 = 652
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 = 715 - 1 + 1
ELSE
ENDIF
LET nx_orig = `nx`
!-> DEFINE VARIABLE nx_orig = 715
DEFINE SYMBOL grid_x_range = `($ferret_curv_lon_max) - ($ferret_curv_lon_min)`
!-> DEFINE SYMBOL grid_x_range = 19.8267
DEFINE SYMBOL grid_y_range = `($ferret_curv_lat_max) - ($ferret_curv_lat_min)`
!-> DEFINE SYMBOL grid_y_range = 16.52191638946536
IF `STRLEN("($ferret_view)") EQ 2` THEN
!-> IF 1 THEN
LET ii = i[gx=($data_var)[d=($data_num)]]
!-> DEFINE VARIABLE ii = i[gx='VOMECRTY_Y'[d=1]]
LET nx = ($clon_imax) - ($clon_imin) + 1
!-> DEFINE VARIABLE nx = 715 - 1 + 1
let ixmax = ii[i=@max]
LET jj = j[gy=($data_var)[d=($data_num)]]
!-> DEFINE VARIABLE jj = j[gy='VOMECRTY_Y'[d=1]]
LET ny = ($clat_jmax) - ($clat_jmin) + 1
!-> DEFINE VARIABLE ny = 652 - 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 = 11.60156/19.8267
LET pixsize = `nx*x_pct`
!-> DEFINE VARIABLE pixsize = 418.3810417265606
IF `pixsize GT maxpix` THEN DEFINE SYMBOL xstride = `2*INT((pixsize/maxpix)+1)`
!-> IF 0 THEN DEFINE SYMBOL xstride = `2*INT((pixsize/maxpix)+1)`
DEFINE SYMBOL xstride = `MAX(($xstride"1"), ($stride_for_mem"1"))`
!-> DEFINE SYMBOL xstride = 1
IF `($xstride"0") GT 1` THEN
!-> IF 0 THEN
ENDIF
DEFINE SYMBOL qualifiers = ($qualifiers)/HLIM=`($region_x_lo)`:`($region_x_hi)`
!-> IF 0 THEN DEFINE SYMBOL qualifiers = /HLIM=`-95.18795`:`-83.58639`
LET y_pct = ($region_y_range)/($grid_y_range)
!-> DEFINE VARIABLE y_pct = 6.855/16.52191638946536
LET pixsize = `ny*y_pct`
!-> DEFINE VARIABLE pixsize = 270.5170450353931
IF `2*pixsize GT maxpix` THEN DEFINE SYMBOL ystride = `2*INT((pixsize/maxpix)+1)`
!-> IF 0 THEN DEFINE SYMBOL ystride = `2*INT((pixsize/maxpix)+1)`
DEFINE SYMBOL ystride = `MAX(($ystride"1"), ($stride_for_mem"1"))`
!-> DEFINE SYMBOL ystride = 1
IF `($ystride"0") GT 1` THEN
!-> IF 0 THEN
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 0 THEN
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 = 'VOMECRTY_Y'[d=1,i=1:715,j=1:652]
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 = 'VOMECRTY_Y'[d=1,i=1:715,j=1:652,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"]
!-> LET pvar = 'VOMECRTY_Y'[d=1,i=1:715,j=1:652,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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:715
DEFINE SYMBOL region_y = j=($clat_jmin):($clat_jmax)
!-> DEFINE SYMBOL region_y = j=1:652
DEFINE SYMBOL region_xy = i=($clon_imin):($clon_imax),j=($clat_jmin):($clat_jmax)
!-> DEFINE SYMBOL region_xy = i=1:715,j=1:652
IF ($region_t"0|*>1") THEN DEFINE SYMBOL region_xyt = ($region_xy),($region_t)
!-> IF 1 THEN DEFINE SYMBOL region_xyt = i=1:715,j=1:652,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_xyt = i=1:715,j=1:652,T="03-Jan-2012 00:00":"03-Jan-2012 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:715,j=1:652,Z=2.6677:2.6677
!-> DEFINE SYMBOL region_xyz = i=1:715,j=1:652,Z=2.6677:2.6677
IF ($region_zt"0|*>1") THEN DEFINE SYMBOL region_xyzt = ($region_xy),($region_zt)
!-> IF 1 THEN DEFINE SYMBOL region_xyzt = i=1:715,j=1:652,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_xyzt = i=1:715,j=1:652,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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:715,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_xt = i=1:715,T="03-Jan-2012 00:00":"03-Jan-2012 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:715,Z=2.6677:2.6677
!-> DEFINE SYMBOL region_xz = i=1:715,Z=2.6677:2.6677
IF ($region_xzt"0|*>1") THEN DEFINE SYMBOL region_xzt = ($region_x),($region_zt)
!-> IF 1 THEN DEFINE SYMBOL region_xzt = i=1:715,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_xzt = i=1:715,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 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:652,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_yt = j=1:652,T="03-Jan-2012 00:00":"03-Jan-2012 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:652,Z=2.6677:2.6677
!-> DEFINE SYMBOL region_yz = j=1:652,Z=2.6677:2.6677
IF ($region_yzt"0|*>1") THEN DEFINE SYMBOL region_yzt = ($region_y),($region_zt)
!-> IF 1 THEN DEFINE SYMBOL region_yzt = j=1:652,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_yzt = j=1:652,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_full"0|*>1") THEN DEFINE SYMBOL region_full = ($region_xyzt)
!-> IF 1 THEN DEFINE SYMBOL region_full = i=1:715,j=1:652,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_full = i=1:715,j=1:652,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_x"0|*>1") THEN DEFINE SYMBOL region_($num)_x = ($region_x)
!-> IF 1 THEN DEFINE SYMBOL region_1_x = i=1:715
!-> DEFINE SYMBOL region_1_x = i=1:715
IF ($region_y"0|*>1") THEN DEFINE SYMBOL region_($num)_y = ($region_y)
!-> IF 1 THEN DEFINE SYMBOL region_1_y = j=1:652
!-> DEFINE SYMBOL region_1_y = j=1:652
IF ($region_z"0|*>1") THEN DEFINE SYMBOL region_($num)_z = ($region_z)
!-> IF 1 THEN DEFINE SYMBOL region_1_z = Z=2.6677:2.6677
!-> DEFINE SYMBOL region_1_z = Z=2.6677:2.6677
IF ($region_t"0|*>1") THEN DEFINE SYMBOL region_($num)_t = ($region_t)
!-> IF 1 THEN DEFINE SYMBOL region_1_t = T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_1_t = T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_xt"0|*>1") THEN DEFINE SYMBOL region_($num)_xt = ($region_xt)
!-> IF 1 THEN DEFINE SYMBOL region_1_xt = i=1:715,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_1_xt = i=1:715,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_xy"0|*>1") THEN DEFINE SYMBOL region_($num)_xy = ($region_xy)
!-> IF 1 THEN DEFINE SYMBOL region_1_xy = i=1:715,j=1:652
!-> DEFINE SYMBOL region_1_xy = i=1:715,j=1:652
IF ($region_xz"0|*>1") THEN DEFINE SYMBOL region_($num)_xz = ($region_xz)
!-> IF 1 THEN DEFINE SYMBOL region_1_xz = i=1:715,Z=2.6677:2.6677
!-> DEFINE SYMBOL region_1_xz = i=1:715,Z=2.6677:2.6677
IF ($region_yt"0|*>1") THEN DEFINE SYMBOL region_($num)_yt = ($region_yt)
!-> IF 1 THEN DEFINE SYMBOL region_1_yt = j=1:652,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_1_yt = j=1:652,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
IF ($region_yz"0|*>1") THEN DEFINE SYMBOL region_($num)_yz = ($region_yz)
!-> IF 1 THEN DEFINE SYMBOL region_1_yz = j=1:652,Z=2.6677:2.6677
!-> DEFINE SYMBOL region_1_yz = j=1:652,Z=2.6677:2.6677
IF ($region_zt"0|*>1") THEN DEFINE SYMBOL region_($num)_zt = ($region_zt)
!-> IF 1 THEN DEFINE SYMBOL region_1_zt = Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
!-> DEFINE SYMBOL region_1_zt = Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00"
! Exit_GO
LET/TITLE="Longitude"/units=degrees xcoord = ($ferret_curvi_coord_lon)[d=($data_num)]
!-> DEFINE VARIABLE/TITLE="Longitude"/units=degrees xcoord = 'NAV_LON'[d=1]
LET/TITLE="Latitude"/units=degrees ycoord = ($ferret_curvi_coord_lat)[d=($data_num)]
!-> DEFINE VARIABLE/TITLE="Latitude"/units=degrees ycoord = 'NAV_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 0 THEN
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 1 THEN
LET outside = 0
IF ($ferret_curv_lon_min"0|*>1") THEN
!-> IF 1 THEN
LET xc1 = ($ferret_curv_lon_min)
!-> DEFINE VARIABLE xc1 = -98.40654
ELSE
ENDIF
IF ($ferret_curv_lon_max"0|*>1") THEN
!-> IF 1 THEN
LET xcn = ($ferret_curv_lon_max)
!-> DEFINE VARIABLE xcn = -78.57984
ELSE
ENDIF
LET outside = `xc1 GT ($region_x_lo)` + `xcn LT ($region_x_hi)`
!-> DEFINE VARIABLE outside = 0 + 0
($itsa_vector_plot"0") EQ 0` THEN
!-> IF 0 THEN
ENDIF
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 = 'NAV_LON'[d=1,i=1:715,j=1:652]
($ferret_curvi_coord_lat)[d=($data_num),i=($clon_imin):($clon_imax),j=($clat_jmin):($clat_jmax)]
!-> DEFINE VARIABLE/TITLE="Latitude"/units=degrees ycoord = 'NAV_LAT'[d=1,i=1:715,j=1:652]
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 = 'VOMECRTY_Y'[d=1,i=1:715,j=1:652]
($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 = 'VOMECRTY_Y'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:715,j=1:652]
!-> LET/d=1 plot_var = 'VOMECRTY_Y'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:715,j=1:652]
($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 = 'VOMECRTY_Y'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:715,j=1:652]
!-> LET/d=1 plot_var = 'VOMECRTY_Y'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:715,j=1:652]
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 = 'VOMECRTY_Y'[d=1,i=1:715,j=1:652]
($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 = 'VOMECRTY_Y'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:715,j=1:652]
!-> DEFINE SYMBOL ferret_plot_base_var = 'VOMECRTY_Y'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:715,j=1:652]
($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 = 'VOMECRTY_Y'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:715,j=1:652]
!-> DEFINE SYMBOL ferret_plot_base_var = 'VOMECRTY_Y'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:715,j=1:652]
DEFINE SYMBOL ferret_plot_base_var_($which_var) ($ferret_plot_base_var)
!-> DEFINE SYMBOL ferret_plot_base_var_1 'VOMECRTY_Y'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:715,j=1:652]
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 " northward velocity (m/s) "
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_VECTOR
IF `STRLEN("($ferret_view)") LT 2` THEN EXIT/SCRIPT
!-> IF 0 THEN EXIT/SCRIPT
IF `STRINDEX("($op)", "VECTOR") GT 0` THEN EXIT/SCRIPT
!-> IF 1 THEN EXIT/SCRIPT
!-> EXIT/SCRIPT
! Exit_GO
ENDIF
ENDIF
! Exit_GO
! Exit_GO
DEFINE SYMBOL variable_($1"0")_lab = ($data_title) ($data_units)
!-> DEFINE SYMBOL variable_1_lab = northward velocity (m/s)
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 1 THEN
DEFINE SYMBOL variable_lab = ($variable_lab), ($data_title) ($data_units)
!-> DEFINE SYMBOL variable_lab = eastward velocity (m/s), northward velocity (m/s)
ELSE
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 = northward velocity (m/s)
($itsa_vector_plot"0|*>1") EQ 0` THEN DEFINE SYMBOL qualifiers = ($qualifiers)/KEY=CONT
!-> IF 0 THEN 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
DEFINE SYMBOL ferret_vector_2 ($ferret_plot_var)
!-> DEFINE SYMBOL ferret_vector_2 plot_var[d=1] , xcoord, ycoord
DEFINE SYMBOL ferret_plot_title "($ferret_plot_title_1), ($data_title) ($data_units)"
!-> DEFINE SYMBOL ferret_plot_title "eastward velocity (m/s), northward velocity (m/s)"
IF ($expr1"0|*>1") THEN DEFINE SYMBOL ferret_plot_title ($expr1) {($ferret_plot_title)} ($expr2)
!-> IF 0 THEN DEFINE SYMBOL ferret_plot_title {eastward velocity (m/s), northward velocity (m/s)}
DEFINE SYMBOL ferret_vector_2_noregion ($ferret_plot_var_1_noregion)
!-> DEFINE SYMBOL ferret_vector_2_noregion 'VOMECRTY_Y'[d=1]
DEFINE SYMBOL variable_lab ($ferret_plot_title)
!-> DEFINE SYMBOL variable_lab eastward velocity (m/s), northward velocity (m/s)
GO LAS_check_staggered
! Enter_GO LAS_check_staggered
IF ($its_autolev_animate"0|*>1") THEN EXIT/SCRIPT
!-> IF 0 THEN EXIT/SCRIPT
IF ($native_curvilinear_xy"0") THEN
!-> IF 1 THEN
DEFINE SYMBOL xax_vec_1 = `($ferret_plot_var_0_noregion),RETURN=xaxis`
!-> DEFINE SYMBOL xax_vec_1 = X
DEFINE SYMBOL yax_vec_1 = `($ferret_plot_var_0_noregion),RETURN=yaxis`
!-> DEFINE SYMBOL yax_vec_1 = Y
DEFINE SYMBOL xax_vec_2 = `($ferret_plot_var_1_noregion),RETURN=xaxis`
!-> DEFINE SYMBOL xax_vec_2 = X
DEFINE SYMBOL yax_vec_2 = `($ferret_plot_var_1_noregion),RETURN=yaxis`
!-> DEFINE SYMBOL yax_vec_2 = Y
ELSE
ENDIF
IF `STRCMP("($xax_vec_1)", "($xax_vec_2)") NE 0` THEN DEFINE SYMBOL ferret_staggered_grid = 1
!-> IF 0 THEN DEFINE SYMBOL ferret_staggered_grid = 1
IF `STRCMP("($yax_vec_1)", "($yax_vec_2)") NE 0` THEN DEFINE SYMBOL ferret_staggered_grid = 1
!-> IF 0 THEN DEFINE SYMBOL ferret_staggered_grid = 1
IF `($ferret_staggered_grid"0|default>1|*>1") GT 0` THEN
!-> IF 0 THEN
ENDIF
! 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 = 'VOMECRTY_Y'[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
IF `($its_GE"0|*>1") ` THEN
!-> IF 0 THEN
ENDIF
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 0 THEN 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 0 THEN
ELIF ($ferret_use_graticules"0|white>1|*>0") THEN
!-> ELIF 0 THEN
ELIF ($ferret_use_graticules"0|black>1|*>0") THEN
!-> ELIF 1 THEN
DEFINE SYMBOL graticuleColor = 1
ENDIF
SET MODE GRATICULE:(DASH,COLOR=($graticuleColor))
!-> SET MODE GRATICULE:(DASH,COLOR=1)
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 0 THEN
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 1 OR 0`
!-> DEFINE SYMBOL line_drawn = `0 OR 1 OR 0`
!-> DEFINE SYMBOL line_drawn = 1
sh sym ferret_line_color
IF `($line_drawn"0") AND ($itsa_multi_lineplot"0|*>1") EQ 0` THEN
!-> IF 1 THEN
IF ($ferret_diff_var"0|*>1") THEN DEFINE SYMBOL ferret_line_color = red
!-> IF 0 THEN DEFINE SYMBOL ferret_line_color = red
IF ($ferret_line_color"0|multi>1|*>0") THEN
!-> IF 0 THEN
ELSE
DEFINE SYMBOL qualifiers = ($qualifiers)/COLOR=($ferret_line_color%blue|default>blue|black|red|blue|green|lightblue|purple|*%)
!-> DEFINE SYMBOL qualifiers = /COLOR=blue
ENDIF
ENDIF ! skipped color setting if its a multi-line plot
IF ($line_drawn) THEN
!-> IF 1 THEN
DEFINE SYMBOL plotsymbol = 25
DEFINE SYMBOL thicknum = 0
IF `($ferret_line_thickness%0|default>1|*>1%)` THEN
!-> IF 0 THEN
ENDIF
THEN DEFINE SYMBOL qualifiers = ($qualifiers)/NOYADJUST
!-> IF 0 THEN DEFINE SYMBOL qualifiers = /COLOR=blue/NOYADJUST
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 1 THEN
DEFINE SYMBOL flowline_vectors = 0
IF `($ferret_vector_style"0|default>0|1|*>0") GT 0` THEN
!-> IF 0 THEN
ENDIF
IF `($ferret_vector_density"0|*>1") GT 0` THEN
!-> IF 0 THEN
ENDIF
IF `($ferret_vector_length"0") GT 0` THEN
!-> IF 0 THEN
ENDIF
IF ($ferret_vector_skip"0|*>1") THEN DEFINE SYMBOL ferret_vector_subsampling = ($ferret_vector_skip)
!-> IF 0 THEN DEFINE SYMBOL ferret_vector_subsampling =
IF ($ferret_vector_subsampling"0|*>1") THEN
!-> IF 1 THEN
LET comloc = `STRINDEX("($ferret_vector_subsampling)", ",")`
!-> DEFINE VARIABLE comloc = 3
LET nlen = `STRLEN("($ferret_vector_subsampling)")`
!-> DEFINE VARIABLE nlen = 5
IF `comloc GT 1` THEN
!-> IF 1 THEN
DEFINE SYMBOL xskp = `SUBSTRING ("($ferret_vector_subsampling)", 1, comloc-1)`
!-> DEFINE SYMBOL xskp = 40
DEFINE SYMBOL yskp = `SUBSTRING ("($ferret_vector_subsampling)", comloc+1, nlen-comloc)`
!-> DEFINE SYMBOL yskp = 40
ELSE
ENDIF
LET xs = STRFLOAT ("($xskp)")
!-> DEFINE VARIABLE xs = STRFLOAT ("40")
LET ys = STRFLOAT ("($yskp)")
!-> DEFINE VARIABLE ys = STRFLOAT ("40")
IF ($error_status"0|*>1") THEN
!-> IF 0 THEN
ENDIF
DEFINE SYMBOL qualifiers = ($qualifiers)/XSKIP=`xs`/YSKIP=`ys`
!-> DEFINE SYMBOL qualifiers = /COLOR=blue/XSKIP=40/YSKIP=40
ENDIF
ENDIF ! end of XY vector plot settings.
! Exit_GO
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 = `6.855/11.60156`
!-> DEFINE SYMBOL win_aspect = `6.855/11.60156`
!-> DEFINE SYMBOL win_aspect = 0.5908688141939533
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.5908688141939533`:axis
!-> DEFINE SYMBOL set_window_quals = /SIZE=.8333/ASPECT = `0.5908688141939533`:axis
!-> DEFINE SYMBOL set_window_quals = /SIZE=.8333/ASPECT = 0.5908688141939533: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.5908688141939533: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.5908688141939533: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.5908688141939533:axis/OUTLINE=0.7 1
SET WINDOW($set_window_quals)
!-> SET WINDOW/SIZE=.8333/ASPECT = 0.5908688141939533: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
IF `($ferret_line_color%0|default>1|*>2%) LT 2` THEN DEFINE SYMBOL ferret_line_color = blue
!-> IF 1 THEN DEFINE SYMBOL ferret_line_color = blue
!-> DEFINE SYMBOL ferret_line_color = blue
IF ($ferret_curvi_quals"0|*>1") THEN
!-> IF 1 THEN
DEFINE SYMBOL qualifiers = ($qualifiers)($ferret_curvi_quals)
!-> DEFINE SYMBOL qualifiers = /COLOR=blue/XSKIP=40/YSKIP=40/HLIM=-95.1879575:-83.586395/VLIM=19.79633125:26.6518
ENDIF
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-13a3ca1b86
DEFINE SYMBOL upper_right_text_($n_right_labels) = DATA SET: ($data_$1_dataset_id)
!-> DEFINE SYMBOL upper_right_text_1 = DATA SET: id-13a3ca1b86
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-13a3ca1b86
DEFINE SYMBOL dataset_title_lab = ($upper_right_text_($n_right_labels))
!-> DEFINE SYMBOL dataset_title_lab = DATA SET: id-13a3ca1b86
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: NEMO GOLFO36 Climatology
DEFINE SYMBOL upper_right_text_($n_right_labels) = DATA SET: ($data_$1_dataset_name)
!-> DEFINE SYMBOL upper_right_text_1 = DATA SET: NEMO GOLFO36 Climatology
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: NEMO GOLFO36 Climatology
DEFINE SYMBOL dataset_title_lab = ($upper_right_text_($n_right_labels))
!-> DEFINE SYMBOL dataset_title_lab = DATA SET: NEMO GOLFO36 Climatology
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://cicese.mx/thredds/dodsC/hidrocarburos/linea3/climatologias/nemo-golfo-36
ELSE
ENDIF
DEFINE SYMBOL dataset_url_($num)_lab = OPeNDAP URL: ($data_$1_urlpath)
!-> DEFINE SYMBOL dataset_url_0_lab = OPeNDAP URL: http://cicese.mx/thredds/dodsC/hidrocarburos/linea3/climatologias/nemo-golfo-36
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://cicese.mx/thredds/dodsC/hidrocarburos/linea3/climatologias/nemo-golfo-36
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://cicese.mx/thredds/dodsC/hidrocarburos/linea3/climatologias/nemo-golfo-36
!-> DEFINE SYMBOL dataset_url_lab OPeNDAP URL: http://cicese.mx/thredds/dodsC/hidrocarburos/linea3/climatologias/nemo-golfo-36
ENDIF
IF ($data_0_dataset_institution"0|*>1") THEN
!-> IF 0 THEN
ENDIF
! Exit_GO
IF ($native_curvilinear_xy"0|*>1") THEN
!-> IF 1 THEN
DEFINE SYMBOL ferret_curvi_base_var = ($ferret_plot_base_var_0), ($ferret_plot_base_var_1)
!-> IF 1 THEN DEFINE SYMBOL ferret_curvi_base_var = 'VOZOCRTX_X'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:715,j=1:652], 'VOMECRTY_Y'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:715,j=1:652]
!-> DEFINE SYMBOL ferret_curvi_base_var = 'VOZOCRTX_X'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:715,j=1:652], 'VOMECRTY_Y'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:715,j=1:652]
ELSE
ENDIF
GO LAS_draw_xy_vector_plot
! Enter_GO LAS_draw_xy_vector_plot
IF ($flowline_vectors"0") THEN
!-> IF 0 THEN
ENDIF
IF ($ferret_vector_subsampling"0") THEN
!-> IF 40,40 THEN
IF ($native_curvilinear_xy"0") THEN
!-> IF 1 THEN
($ferret_curvi_base_var), xcoord, ycoord
!-> VECTOR/COLOR=blue/XSKIP=40/YSKIP=40/HLIM=-95.1879575:-83.586395/VLIM=19.79633125:26.6518/TITLE=" "/XSKIP=40/YSKIP=40/SET 'VOZOCRTX_X'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:715,j=1:652], 'VOMECRTY_Y'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:715,j=1:652], xcoord, ycoord
GO vector_labels_reset
! Enter_GO vector_labels_reset
IF `STRCMP("($ferret_view)", "xy") NE 0` THEN
!-> IF 0 THEN
ENDIF
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 ($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
PPL VECKEY/NOUSER, 2,`($ppl$ylen)+0.2`
!-> IF 1 THEN PPL VECKEY/NOUSER, 2,`6.90700+0.2`
!-> PPL VECKEY/NOUSER, 2,`6.90700+0.2`
!-> PPL VECKEY/NOUSER, 2,7.107
IF ($ferret_diff_var%0|*>1%) THEN
!-> IF 0 THEN
ENDIF
IF ($ferret_annotations"0|*>1") THEN
!-> IF 1 THEN
IF `($data_count"1") EQ 2` THEN ! non-difference vector plot.
!-> IF 1 THEN
IF ($labnum_x"0|*>1") THEN DEFINE SYMBOL longitude_lab ($lab($labnum_x))
!-> IF 0 THEN DEFINE SYMBOL longitude_lab
IF ($labnum_y"0|*>1") THEN DEFINE SYMBOL latitude_lab ($lab($labnum_y))
!-> IF 0 THEN DEFINE SYMBOL latitude_lab
IF ($labnum_z"0|*>1") THEN DEFINE SYMBOL depth_lab ($lab($labnum_z))
!-> IF 1 THEN DEFINE SYMBOL depth_lab DEPTH (m) : 2.668
!-> DEFINE SYMBOL depth_lab DEPTH (m) : 2.668
IF ($labnum_t"0|*>1") THEN DEFINE SYMBOL time_lab ($lab($labnum_t))
!-> IF 1 THEN DEFINE SYMBOL time_lab TIME : 02-JAN-2012 12:00 NOLEAP
!-> DEFINE SYMBOL time_lab TIME : 02-JAN-2012 12:00 NOLEAP
ENDIF
PPL XLAB
PPL YLAB
PPL TITLE
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
ENDIF
! Exit_GO
PPL VECTOR,`xs`,`ys`
!-> PPL VECTOR,40,40
($ferret_curvi_base_var), xcoord-360, ycoord
!-> VECTOR/COLOR=blue/XSKIP=40/YSKIP=40/HLIM=-95.1879575:-83.586395/VLIM=19.79633125:26.6518/TITLE=" "/XSKIP=40/YSKIP=40/OVER/NOLAB 'VOZOCRTX_X'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:715,j=1:652], 'VOMECRTY_Y'[d=1,Z=2.6677:2.6677,T="03-Jan-2012 00:00":"03-Jan-2012 00:00",i=1:715,j=1:652], xcoord-360, ycoord
ELSE
ENDIF
ELSE
ENDIF
IF `( ($PPL_VEC_XSKIP"0") GT 1) OR (($PPL_VEC_YSKIP"0") GT 1)` THEN
!-> IF 1 THEN
DEFINE SYMBOL n_left_labels = `($n_left_labels"0")+1`
!-> DEFINE SYMBOL n_left_labels = 1
Vector subsampling x=($PPL_VEC_XSKIP), y=($PPL_VEC_YSKIP)
!-> DEFINE SYMBOL upper_left_1 = Vector subsampling x=40, y=40
DEFINE SYMBOL note_num = `($note_num"0") + 1`
!-> DEFINE SYMBOL note_num = 2
DEFINE SYMBOL note_($note_num)_lab = ($upper_left_($n_left_labels))
!-> DEFINE SYMBOL note_2_lab = Vector subsampling x=40, y=40
ELIF ($ferret_vector_subsampling"0") THEN
!-> ELIF 40,40 THEN
ENDIF
! Exit_GO
LABEL/NOUSER `($ppl$xlen)/2`,-0.8, 0, 0, 0.13, ($ferret_plot_title)
!-> IF 0 THEN LABEL/NOUSER `10.2040/2`,-0.8, 0, 0, 0.13, eastward velocity (m/s), northward velocity (m/s)
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 0 THEN
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 = -95.1879575
let landi_mapxmax = ($xaxis_max)
!-> DEFINE VARIABLE landi_mapxmax = -83.5863950
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 0 THEN
ENDIF
! Exit_GO
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 ($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/B42E73E66B5DA6E155CE70AFC38C8365_plot_image.png"
!-> FRAME /FORMAT=gif/FILE="/usr/share/tomcat/webapps/las/output/B42E73E66B5DA6E155CE70AFC38C8365_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 = 'VOMECRTY_Y'[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 = -95.1879575
DEFINE SYMBOL xaxhi = ($XAXIS_MAX)
!-> DEFINE SYMBOL xaxhi = -83.5863950
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 = { "1.000000", "715.0000", "1.000000", "652.0000", "921", "667", "11.2130", "8.12600", "0.897000", "0.569000", "10.2040", "6.90700", "-95.1879575", "-83.5863950", "19.7963313", "26.6518000", "0.65","0.112", "1","1"}
"($xstride)","($ystride)"}
!-> IF 0 THEN LET syms_vals = { "1.000000", "715.0000", "1.000000", "652.0000", "921", "667", "11.2130", "8.12600", "0.897000", "0.569000", "10.2040", "6.90700", "-360.0000", "0.000000", "-78.57040", "83.63340", "0.65","0.112", "1","1"}
LIST/CLOBBER/FILE="($result_map_scale_filename)"/NOHEAD/NOROWLAB syms_names, syms_vals
!-> LIST/CLOBBER/FILE="/usr/share/tomcat/webapps/las/output/B42E73E66B5DA6E155CE70AFC38C8365_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 1 THEN
DEFINE SYMBOL DATA_EXISTS = 0
CANCEL SYMBOL DATA_MIN
CANCEL SYMBOL DATA_MAX
ELSE
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", " ", "0", " ", " "}
LIST/APPEND/FILE="($result_map_scale_filename)"/NOHEAD/NOROWLAB syms_names, syms_vals
!-> LIST/APPEND/FILE="/usr/share/tomcat/webapps/las/output/B42E73E66B5DA6E155CE70AFC38C8365_map_scale.xml"/NOHEAD/NOROWLAB syms_names, syms_vals
ENDIF ! ax_horiz ax_vert defined
IF ($LEV_NUM"0|*>1") THEN
!-> IF 0 THEN
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 NOAA/PMEL
DEFINE SYMBOL ferret_version_lab = ($FERRET_VERSION)
!-> DEFINE SYMBOL ferret_version_lab = 7
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/B42E73E66B5DA6E155CE70AFC38C8365_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/B42E73E66B5DA6E155CE70AFC38C8365_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/B42E73E66B5DA6E155CE70AFC38C8365_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) : 2.668"
TIME_LAB = "TIME : 02-JAN-2012 12:00 NOLEAP"
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/B42E73E66B5DA6E155CE70AFC38C8365_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/B42E73E66B5DA6E155CE70AFC38C8365_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/B42E73E66B5DA6E155CE70AFC38C8365_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/B42E73E66B5DA6E155CE70AFC38C8365_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/B42E73E66B5DA6E155CE70AFC38C8365_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/B42E73E66B5DA6E155CE70AFC38C8365_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/B42E73E66B5DA6E155CE70AFC38C8365_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/B42E73E66B5DA6E155CE70AFC38C8365_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/B42E73E66B5DA6E155CE70AFC38C8365_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/B42E73E66B5DA6E155CE70AFC38C8365_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/B42E73E66B5DA6E155CE70AFC38C8365_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/B42E73E66B5DA6E155CE70AFC38C8365_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/B42E73E66B5DA6E155CE70AFC38C8365_annotations.xml"/APPEND </annotation>
! Exit_GO
ENDIF
IF ($data_1_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/B42E73E66B5DA6E155CE70AFC38C8365_annotations.xml"/APPEND <annotation type="dataset_ID">
! Exit_GO
DEFINE SYMBOL out = `LIST_VALUE_XML("value", "($data_1_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/B42E73E66B5DA6E155CE70AFC38C8365_annotations.xml"/APPEND </annotation>
! Exit_GO
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/B42E73E66B5DA6E155CE70AFC38C8365_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/B42E73E66B5DA6E155CE70AFC38C8365_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/B42E73E66B5DA6E155CE70AFC38C8365_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/B42E73E66B5DA6E155CE70AFC38C8365_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/B42E73E66B5DA6E155CE70AFC38C8365_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/B42E73E66B5DA6E155CE70AFC38C8365_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/B42E73E66B5DA6E155CE70AFC38C8365_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/B42E73E66B5DA6E155CE70AFC38C8365_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/B42E73E66B5DA6E155CE70AFC38C8365_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/B42E73E66B5DA6E155CE70AFC38C8365_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/B42E73E66B5DA6E155CE70AFC38C8365_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/B42E73E66B5DA6E155CE70AFC38C8365_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/B42E73E66B5DA6E155CE70AFC38C8365_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/B42E73E66B5DA6E155CE70AFC38C8365_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
ELIF ($ferret_view"|xz>1|*>0") THEN
!-> ELIF 0 THEN
ENDIF
! Exit_GO
! Exit_GO
! Exit_GO
!-> EXIT/PROGRAM
<datasets>
<id-13a3ca1b86 name="NEMO GOLFO36 Climatology" url="http://cicese.mx/thredds/dodsC/hidrocarburos/linea3/climatologias/nemo-golfo-36";>
<variables>
<vozocrtx_X-id-13a3ca1b86 name="eastward velocity" units="m/s" url="#vozocrtx_X">
<link match="/lasdata/grids/grid-nav_lon-nav_lat-depth-time_counter-id-13a3ca1b86" />
<properties>
<ferret>
<curvi_coord_lon>nav_lon</curvi_coord_lon>
<curv_lon_min>-98.40654</curv_lon_min>
<curv_lon_max>-78.57984</curv_lon_max>
<curvi_coord_lat>nav_lat</curvi_coord_lat>
</ferret>
</properties>
</vozocrtx_X-id-13a3ca1b86>
<vomecrty_Y-id-13a3ca1b86 name="northward velocity" units="m/s" url="#vomecrty_Y">
<link match="/lasdata/grids/grid-nav_lon-nav_lat-depth-time_counter-id-13a3ca1b86" />
<properties>
<ferret>
<curvi_coord_lon>nav_lon</curvi_coord_lon>
<curv_lon_min>-98.40654</curv_lon_min>
<curv_lon_max>-78.57984</curv_lon_max>
<curvi_coord_lat>nav_lat</curvi_coord_lat>
</ferret>
</properties>
</vomecrty_Y-id-13a3ca1b86>
<vosaline-id-13a3ca1b86 name="salinity" units="1e-3" url="#vosaline">
<link match="/lasdata/grids/grid-nav_lon-nav_lat-depth-time_counter-id-13a3ca1b86" />
<properties>
<ferret>
<curvi_coord_lon>nav_lon</curvi_coord_lon>
<curv_lon_min>-98.40654</curv_lon_min>
<curv_lon_max>-78.57984</curv_lon_max>
<curvi_coord_lat>nav_lat</curvi_coord_lat>
</ferret>
</properties>
</vosaline-id-13a3ca1b86>
<sossheig-id-13a3ca1b86 name="sea surface height" units="m" url="#sossheig">
<link match="/lasdata/grids/grid-nav_lon-nav_lat-time_counter-id-13a3ca1b86" />
<properties>
<ferret>
<curvi_coord_lon>nav_lon</curvi_coord_lon>
<curv_lon_min>-98.40654</curv_lon_min>
<curv_lon_max>-78.57984</curv_lon_max>
<curvi_coord_lat>nav_lat</curvi_coord_lat>
</ferret>
</properties>
</sossheig-id-13a3ca1b86>
<votemper-id-13a3ca1b86 name="temperature" units="degC" url="#votemper">
<link match="/lasdata/grids/grid-nav_lon-nav_lat-depth-time_counter-id-13a3ca1b86" />
<properties>
<ferret>
<curvi_coord_lon>nav_lon</curvi_coord_lon>
<curv_lon_min>-98.40654</curv_lon_min>
<curv_lon_max>-78.57984</curv_lon_max>
<curvi_coord_lat>nav_lat</curvi_coord_lat>
</ferret>
</properties>
</votemper-id-13a3ca1b86>
</variables>
<composite>
<vozocrtx_X-id-13a3ca1b86_vomecrty_Y-id-13a3ca1b86 name="Vector of vozocrtx and vomecrty" units="m/s">
<properties>
<ui>
<default>file:ui.xml#VecVariable</default>
</ui>
</properties>
<link match="../../variables/vozocrtx_X-id-13a3ca1b86" />
<link match="../../variables/vomecrty_Y-id-13a3ca1b86" />
</vozocrtx_X-id-13a3ca1b86_vomecrty_Y-id-13a3ca1b86>
</composite>
</id-13a3ca1b86>
</datasets>
<grids>
<grid-nav_lon-nav_lat-depth-time_counter-id-13a3ca1b86>
<link match="/lasdata/axes/nav_lon-x-id-13a3ca1b86" />
<link match="/lasdata/axes/nav_lat-y-id-13a3ca1b86" />
<link match="/lasdata/axes/depth-z-id-13a3ca1b86" />
<link match="/lasdata/axes/time_counter-t-id-13a3ca1b86" />
</grid-nav_lon-nav_lat-depth-time_counter-id-13a3ca1b86>
<grid-nav_lon-nav_lat-depth-time_counter-id-13a3ca1b86>
<link match="/lasdata/axes/nav_lon-x-id-13a3ca1b86" />
<link match="/lasdata/axes/nav_lat-y-id-13a3ca1b86" />
<link match="/lasdata/axes/depth-z-id-13a3ca1b86" />
<link match="/lasdata/axes/time_counter-t-id-13a3ca1b86" />
</grid-nav_lon-nav_lat-depth-time_counter-id-13a3ca1b86>
<grid-nav_lon-nav_lat-depth-time_counter-id-13a3ca1b86>
<link match="/lasdata/axes/nav_lon-x-id-13a3ca1b86" />
<link match="/lasdata/axes/nav_lat-y-id-13a3ca1b86" />
<link match="/lasdata/axes/depth-z-id-13a3ca1b86" />
<link match="/lasdata/axes/time_counter-t-id-13a3ca1b86" />
</grid-nav_lon-nav_lat-depth-time_counter-id-13a3ca1b86>
<grid-nav_lon-nav_lat-depth-time_counter-id-13a3ca1b86>
<link match="/lasdata/axes/nav_lon-x-id-13a3ca1b86" />
<link match="/lasdata/axes/nav_lat-y-id-13a3ca1b86" />
<link match="/lasdata/axes/depth-z-id-13a3ca1b86" />
<link match="/lasdata/axes/time_counter-t-id-13a3ca1b86" />
</grid-nav_lon-nav_lat-depth-time_counter-id-13a3ca1b86>
<grid-nav_lon-nav_lat-time_counter-id-13a3ca1b86>
<link match="/lasdata/axes/nav_lon-x-id-13a3ca1b86" />
<link match="/lasdata/axes/nav_lat-y-id-13a3ca1b86" />
<link match="/lasdata/axes/time_counter-t-id-13a3ca1b86" />
</grid-nav_lon-nav_lat-time_counter-id-13a3ca1b86>
</grids>
<axes>
<nav_lon-x-id-13a3ca1b86 type="x" units="degrees_east">
<arange start="-98.40654" size="714" step="0.027768487394957988" />
</nav_lon-x-id-13a3ca1b86>
<nav_lat-y-id-13a3ca1b86 type="y" units="degrees_north">
<arange start="14.1861" size="651" step="0.02537928725038402" />
</nav_lat-y-id-13a3ca1b86>
<depth-z-id-13a3ca1b86 type="z" units="m">
<v>0.5058</v>
<v>1.5559</v>
<v>2.6677</v>
<v>3.8563</v>
<v>5.1404</v>
<v>6.543</v>
<v>8.0925</v>
<v>9.8228</v>
<v>11.7737</v>
<v>13.991</v>
<v>16.5253</v>
<v>19.4298</v>
<v>22.7576</v>
<v>26.5583</v>
<v>30.8746</v>
<v>35.7402</v>
<v>41.18</v>
<v>47.2119</v>
<v>53.8506</v>
<v>61.1128</v>
<v>69.0217</v>
<v>77.6112</v>
<v>86.9294</v>
<v>97.0413</v>
<v>108.0303</v>
<v>120</v>
<v>133.0758</v>
<v>147.4062</v>
<v>163.1645</v>
<v>180.5499</v>
<v>199.79</v>
<v>221.1412</v>
<v>244.8906</v>
<v>271.3564</v>
<v>300.8875</v>
<v>333.8628</v>
<v>370.6885</v>
<v>411.7939</v>
<v>457.6256</v>
<v>508.6399</v>
<v>565.2923</v>
<v>628.026</v>
<v>697.2587</v>
<v>773.3683</v>
<v>856.679</v>
<v>947.4479</v>
<v>1045.8542</v>
<v>1151.9912</v>
<v>1265.8615</v>
<v>1387.377</v>
<v>1516.3636</v>
<v>1652.5685</v>
<v>1795.6708</v>
<v>1945.2955</v>
<v>2101.0266</v>
<v>2262.4216</v>
<v>2429.0251</v>
<v>2600.3804</v>
<v>2776.0393</v>
<v>2955.5703</v>
<v>3138.5649</v>
<v>3324.6409</v>
<v>3513.4456</v>
<v>3704.6567</v>
<v>3897.9819</v>
<v>4093.1587</v>
<v>4289.9526</v>
<v>4488.1548</v>
<v>4687.5811</v>
<v>4888.0698</v>
<v>5089.4785</v>
<v>5291.6831</v>
<v>5494.5752</v>
<v>5698.0605</v>
<v>5902.0576</v>
</depth-z-id-13a3ca1b86>
<time_counter-t-id-13a3ca1b86 type="t" units="day">
<arange start="2012-01-01 12:00:00" size="365" step="1" />
</time_counter-t-id-13a3ca1b86>
</axes>
[Thread Prev][Thread Next][Index]
Contact Us
Dept of Commerce /
NOAA /
OAR /
PMEL /
TMAP
Privacy Policy | Disclaimer | Accessibility Statement