! bn_set_strides.jnl
! Jing Li, 11/2006
! tests for SET AXIS/STRIDES 

! 1/2007 ACM change show axis/all to show commands for individual axes;
!            When run among other benchmark tests, there are a bunch of
!            unrelated axes already defined, which get in the way of 
!            seeing the desired output.

!set mode ignore_error

!..............1. ignore STRIDE = 1                             
use coads_climatology
show axis `sst,return=xaxis`
show axis `sst,return=yaxis`
show axis `sst,return=taxis`
set axis/stride=1/offset=1 `sst, return=xaxis`
show axis `sst,return=xaxis`
cancel data/all

!..............2. illegal to stride an already strided axis   
use coads_climatology
set axis/stride=2/offset=1 `sst, return=xaxis`
show axis `sst,return=xaxis`
!can't stride it again
set mode ignore_error
set axis/stride=2/offset=1 `sst, return=xaxis`
show axis `sst,return=xaxis`
set mode/last ignore
cancel data/all

!..............3. only set STRIDE                                 
use coads_climatology

! --- before striding

list sst[i=21:30,j=50,k=1,l=50]

! --- after set striding

set axis/stride=2 `sst, return=xaxis`
list sst[i=11:15,j=50,k=1,l=50]


! --- after cancel striding
cancel axis/stride `sst,return=xaxis`
list sst[i=21:30,j=50,k=1,l=50]
cancel data/all

!.............4. only set OFFSET                               
! ingored if you only set OFFSET

use coads_climatology
set axis/offset=1 `sst, return=xaxis`
show axis `sst,return=xaxis`

set mode ignore  
cancel axis/stride `sst,return=xaxis`
set mode/last ignore
cancel data/all


!.............5. OFFSET .LE. STRIDE
use coads_climatology
set mode ignore  
set axis/stride=2/offset=4 `sst, return=xaxis`
set mode/last ignore
cancel data/all

!.............6. SHOW GRID/DYNAMIC          
use coads_climatology
set axis/stride=4/offset=2 `sst, return=xaxis`
show grid/dynamic
cancel data/all

!.............7. cancel stride on a non-strided axis
use coads_climatology
set mode ignore  
cancel axis/stride `sst,return=xaxis`
set mode/last ignore

cancel data/all

!.............8. striding on a modulo axis

! --- 8.1 stride value is an integer factor of the axis length 
! the strided axis will inherit the modulo property of its parent

use coads_climatology
set axis/stride=6/offset=5 `sst,return=xaxis`
show axis `sst,return=xaxis`
cancel axis/stride `sst,return=xaxis`

!--- 8.2 stride value is not an integer factor of the axis length
! warning: it may lose modulo property
set axis/stride=7/offset=5 `sst,return=xaxis`
show axis `sst,return=xaxis`
cancel axis/stride `sst,return=xaxis`
cancel data/all

! --- 8.3 testing strided modulo axis
use coads_climatology
set axis/stride=2/offset=1 `sst,return=xaxis`
shade/x=-180:180/y=-30:70/L=2 sst
cancel axis/stride `sst,return=xaxis`
cancel data/all

!.............9. two datasets share the same grid

! --- 9.1 test: use A - use B - stride
! use A; use B; set axis/stride=2 `var[d=A], return=axis` 
! -- will affect variables in B
use coads_climatology
save/clobber/file=d2.nc sst[L=1]
use d2
list/x=180:195/j=30/L=1 sst[d=d2]
set axis/stride=2 `sst[d=coads_climatology], return=xaxis`
list/x=180:195/j=30/L=1 sst[d=d2]

cancel data/all

! --- 9.2 test: use A -stride -useB
! use A; set axis/stride=2 `var[d=A], return=xaxis`; use B
! -- will not affect variables in B
use coads_climatology
set axis/stride=2 `sst[d=coads_climatology], return=xaxis`
list/x=180:195/j=30/L=1 sst[d=coads_climatology]
use d2
list/x=180:195/j=30/L=1 sst[d=d2]

can data/all

!.............10. strides on permuted and reversed axes

! --- 10.1 stride on a permuted axis
use/order=yzt coads_climatology
show data/all
set axis/stride=5 `sst,return=yaxis`
show axis `sst,return=yaxis`

can data/all

! --- 10.2 stride on a reversed axis -- YAXIS
use/order=x-yt coads_climatology
list/x=180/l=5 sst[j=1:30]

set axis/stride=5/offset=3 `sst,return=yaxis`
list/x=180/l=5  sst
list/x=180/l=5 sst[j=3:14:2]

cancel data/all

!.............11. stride on all axes
use coads_climatology
set axis/stride=2 `sst, return=xaxis`
set axis/stride=2 `sst, return=yaxis`
set axis/stride=2 `sst, return=taxis`

show axis `sst,return=xaxis`
show axis `sst,return=yaxis`
show axis `sst,return=taxis`

can data/all

!.............12. stride on a NORMAL axis
set mode ignore_error
use coads_climatology
set axis/stride=2 `sst,return=zaxis`
set mode/last ignore_error

show axis `sst,return=xaxis`
show axis `sst,return=yaxis`
show axis `sst,return=taxis`
