; @common @common @common ;---------------------------------------------------------- ; boundaries of the read grid regarding to the original grid ;---------------------------------------------------------- ixminmesh =1 ixmaxmesh =720 ; iyminmesh =0 iymaxmesh =509 ; izminmesh =-1 izmaxmesh =-1 ; jpt=1 time = 0 ;------------------------------------------------------ ; read the grid ;------------------------------------------------------ key_stride = [2, 2, 1] ncdf_meshread, 'micromeshmaskORCA05.nc', glamboundary = [20, 380] $ , iodirectory = [iodir, homedir, !path], /recursive ;------------------------------------------------------------- domdef ; triangles = triangule(/keep_cont) ;---------------------------------------------------------- ; boundaries of the data regarding to the original grid ;---------------------------------------------------------- jpidta = jpiglo jpjdta = jpjglo jpkdta = jpkglo ixmindta = 0 ixmaxdta = jpidta-1 iymindta = 0 iymaxdta = jpjdta-1 izmindta = 0 izmaxdta = jpkdta-1 ;----------------------------------------------------------