Changeset 103 for trunk/SRC/Grid
- Timestamp:
- 06/12/06 14:12:53 (18 years ago)
- Location:
- trunk/SRC/Grid
- Files:
-
- 11 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/Grid/computegrid.pro
r74 r103 3 3 ;------------------------------------------------------------ 4 4 ;+ 5 ; NAME:computegrid 6 ; 7 ; PURPOSE:compute the grid parameters from cm_4mesh common: 5 ; 6 ; @file_comments compute the grid parameters from cm_4mesh common: 7 ; 8 ; computegrid, startx, starty, stepx, stepy, nx, ny 9 ; computegrid, startx, starty, stepx, stepy 10 ; computegrid, xaxis = xaxis, yaxis = yaxis 11 ; or a suitable mix... 8 12 ; 9 13 ; horizontal parameters: … … 24 28 ; key_stride, key_onearth, key_partialstep 25 29 ; 26 ; CATEGORY:grid 27 ; 28 ; CALLING SEQUENCE: 29 ; 30 ; computegrid, startx, starty, stepx, stepy, nx, ny 31 ; computegrid, startx, starty, stepx, stepy 32 ; computegrid, xaxis = xaxis, yaxis = yaxis 33 ; or a suitable mix... 34 ; 35 ; INPUTS: 36 ; startx:scalar, x starting point 37 ; starty:scalar, y starting point 38 ; stepx:scalar or vector: x direction step, must be > 0 30 ; @categories grid 31 ; 32 ; @param startx {in}{required} scalar, x starting point 33 ; @param starty {in}{required} scalar, y starting point 34 ; @param stepxin {in}{required} scalar or vector: x direction step, must be > 0 39 35 ; if vector nx is not used 40 ; stepy:scalar or vector: y direction step,36 ; @param stepyin {in}{required} scalar or vector: y direction step, 41 37 ; could be > 0 (south to north) or < 0 (north to south) 42 38 ; if vector ny is not used 43 ; nx:scalar, number of points in x direction 44 ; ny:scalar, number of points in y direction 45 ; 46 ; KEYWORD PARAMETERS: 47 ; 48 ; /FULLCGRID: activate to specify that you want to compute 39 ; @param nxin {in}{required} scalar, number of points in x direction 40 ; @param nyin {in}{required} scalar, number of points in y direction 41 ; 42 ; @keyword /FULLCGRID activate to specify that you want to compute 49 43 ; all the paremeters of a C grid. Computation of glam[uv], 50 44 ; gphi[uv], e1[uvf], e2[uvf], [uv]maskred and fmaskred[xy] 51 45 ; will be add to the default computations 52 46 ; 53 ; GLAMBOUNDARY:a 2 elements vector, [lon1,lon2], the longitute47 ; @keyword GLAMBOUNDARY a 2 elements vector, [lon1,lon2], the longitute 54 48 ; boundaries that should be used to visualize the data. 55 49 ; we must have lon2 > lon1 and lon2 - lon1 le 360 … … 58 52 ; key_shift will /= 0 only if key_periodic = 1 59 53 ; 60 ; MASK:to specify the mask with a 2 or 3 dimension array61 ; 62 ; ONEARTH = 0 or 1:to force the manual definition of54 ; @keyword MASK to specify the mask with a 2 or 3 dimension array 55 ; 56 ; @keyword ONEARTH = 0 or 1 to force the manual definition of 63 57 ; key_onearth (to specify if the data are on earth -> use longitude 64 58 ; /latitude etc...). By default, key_onearth = 1. … … 66 60 ; and is cancelling GLAMBOUNDARY 67 61 ; 68 ; PERIODIC = 0 or 1:to force the manual definition of62 ; @keyword PERIODIC = 0 or 1 to force the manual definition of 69 63 ; key_periodic. By default, key_periodic is automaticaly 70 64 ; computed by using the first line of glamt. 71 65 ; 72 ; /PLAIN:force PERIODIC = 0, SHIFT = 0, STRIDE = [1, 1, 1] and66 ; @keyword /PLAIN force PERIODIC = 0, SHIFT = 0, STRIDE = [1, 1, 1] and 73 67 ; suppress the automatic redefinition of the domain in case of 74 68 ; x periodicity overlap, y periodicity overlap (ORCA type only) 75 69 ; and mask border to 0. 76 70 ; 77 ; SHIFT = scalar to force the manual definition of key_shift. By71 ; @keyword SHIFT = scalar to force the manual definition of key_shift. By 78 72 ; debault, key_shift is automaticaly computed according to 79 73 ; glamboundary (when defined) by using the FIRST LINE of glamt. if 80 74 ; key_periodic=0 then in any case key_shift = 0. 81 75 ; 82 ; STRCALLING:a string containing the calling command used to76 ; @keyword STRCALLING a string containing the calling command used to 83 77 ; call computegrid (this is used by xxx.pro) 84 78 ; 85 ; STRIDE = :a 3 elements vector to specify the stride in x, y, z79 ; @keyword STRIDE a 3 elements vector to specify the stride in x, y, z 86 80 ; direction. Default definition is [1, 1, 1]. The resulting value 87 81 ; will be stored in the common (cm_4mesh) variable key_stride 88 82 ; 89 ; XAXIS:to specify longitude1 with a 1 or 2 dimension array, in83 ; @keyword XAXIS to specify longitude1 with a 1 or 2 dimension array, in 90 84 ; this case startx, stepx and nx are not used but could be 91 85 ; necessary if the y axis is not defined with yaxis. It must be … … 93 87 ; order by shifting its elements. 94 88 ; 95 ; YAXIS:to specify latitudes with a 1 or 2 dimension array, in89 ; @keyword YAXIS to specify latitudes with a 1 or 2 dimension array, in 96 90 ; this case starty, stepy and ny are not used but starty and 97 91 ; stepy could be necessary if the x axis is not defined with xaxis. … … 99 93 ; (along each column if 2d array). 100 94 ; 101 ; /XYINDEX:activate to specify that the horizontal grid should95 ; @keyword /XYINDEX activate to specify that the horizontal grid should 102 96 ; be simply defined by using the index of the points 103 97 ; (xaxis = findgen(nx) and yaxis = findgen(ny)) 104 98 ; using this keyword forces key_onearth=0 105 99 ; 106 ; [XYZ]MINMESH: to define the common variables i[xyz]minmesh 100 ; @keyword XMINMESH 101 ; @keyword YMINMESH 102 ; @keyword ZMINMESH 103 ; to define the common variables i[xyz]minmesh 107 104 ; used to define the grid only in a zoomed part of the original 108 105 ; grid. Defaut values are 0L, max value is [XYZ]MAXMESH 109 106 ; 110 ; [XYZ]MAXMESH: to define the common variables i[xyz]maxmesh 107 ; @keyword XMAXMESH 108 ; @keyword YMAXMESH 109 ; @keyword ZMAXMESH 110 ; to define the common variables i[xyz]maxmesh 111 111 ; used to define the grid only in a zoomed part of the original 112 112 ; grid. Defaut values are jp[ijk]glo-1, max value is … … 115 115 ; [XYZ]MAXMESH 116 116 ; 117 ; ZAXIS:to specify the vertical axis with a 1 dimension117 ; @keyword ZAXIS to specify the vertical axis with a 1 dimension 118 118 ; array. Must be sorted in the increasing or deceasing order 119 119 ; 120 ; OUTPUTS: 121 ; 122 ; COMMON BLOCKS: cm_4mesh cm_4data cm_4cal 123 ; 124 ; SIDE EFFECTS: if the grid has x/y periodicity orverlap and/or if 120 ; @uses cm_4mesh cm_4data cm_4cal 121 ; 122 ; @restrictions if the grid has x/y periodicity orverlap and/or if 125 123 ; the mask has 0 everywhere at the border (like a close sea) and 126 124 ; if (we did not activate /plain and xminmesh, xmaxmesh, yminmesh, … … 130 128 ; to use cell_fill = 1). 131 129 ; 132 ; RESTRICTIONS:FUV points definition... 133 ; 134 ; EXAMPLE: 135 ; 136 ; MODIFICATION HISTORY:Sebastien Masson (smasson@lodyc.jussieu.fr) 130 ; @restrictions FUV points definition... 131 ; 132 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 137 133 ; 2000-04-20 138 134 ; Sept 2004, several bug fixs to suit C grid type... -
trunk/SRC/Grid/micromeshmask.pro
r13 r103 1 1 ;+ 2 ; NAME: micromeshmask.pro 3 ; 4 ; PURPOSE: reduce the size of the NetCDF meshmask created by OPA by 2 ; 3 ; @file_comments reduce the size of the NetCDF meshmask created by OPA by 5 4 ; using bit (and not byte) format for the masks and the foat format 6 5 ; for the other fields. 7 6 ; 8 ; CATEGORY:for OPA meshmask files 9 ; 10 ; CALLING SEQUENCE: reducencmeshmask, ncfilein[, ncfileout] 11 ; 12 ; INPUTS: 13 ; ncfilein: 14 ; 1) the name of the meshmask file to be reduced. In that case, 15 ; there is only one meshmask file 16 ; 17 ; OR 18 ; 19 ; 2) the xxx part in the names: xxx.mesh_hgr.nc xxx.mesh_zgr.nc 20 ; xxx.mask.nc. In that case, the meshmask is split into 3 files. 21 ; 22 ; ncfileout: the name of the uniq reduced meshmask file. default 23 ; definition is micromeshmask.nc 24 ; 25 ; KEYWORD PARAMETERSSAT: 26 ; 27 ; IODIR:to define the files path. 28 ; 29 ; OUTPUTS: no 30 ; 31 ; COMMON BLOCKS: no 32 ; 33 ; EXAMPLE: 7 ; @categories for OPA meshmask files 8 ; 9 ; @examples 10 ; IDL> reducencmeshmask, ncfilein[, ncfileout] 11 ; 12 ; @examples 34 13 ; IDL> meshdir='/d1fes2-raid2/smasson/DATA/ORCA05/' 35 14 ; IDL> micromeshmask, 'meshmask_ORCA_R05.nc',iodir=meshdir 36 15 ; 37 ; MODIFICATION HISTORY:38 ; July 2004 Sebastien Masson (smasson @lodyc.jussieu.fr)16 ; @history 17 ; July 2004 Sebastien Masson (smasson\@lodyc.jussieu.fr) 39 18 ;- 40 19 ;------------------------------------------------------ … … 47 26 END 48 27 ; 28 ;+ 29 ; @keyword IODIR to define the files path. 30 ; @param ncfilein {in}{required} 31 ; 1) the name of the meshmask file to be reduced. In that case, 32 ; there is only one meshmask file 33 ; 34 ; OR 35 ; 36 ; 2) the xxx part in the names: xxx.mesh_hgr.nc xxx.mesh_zgr.nc 37 ; xxx.mask.nc. In that case, the meshmask is split into 3 files. 38 ; 39 ; @param ncfileout {in}{required} the name of the uniq reduced meshmask file. default 40 ; definition is micromeshmask.nc 41 ; 42 ;- 49 43 PRO micromeshmask, ncfilein, ncfileout, IODIR = iodir 50 44 ; -
trunk/SRC/Grid/n128gaussian.pro
r13 r103 1 1 ;+ 2 ; NAME:n128gaussian 3 ; 4 ; PURPOSE:compute the latitudes of the n128 gaussian grid. See: 2 ; @file_comments compute the latitudes of the n128 gaussian grid. See: 5 3 ; http://www.ecmwf.int/products/data/technical/gaussian/n128FIS.html 6 4 ; 7 ; CATEGORY:grid5 ; @categories grid 8 6 ; 9 ; CALLING SEQUENCE:lat=n128gaussian() 7 ; @examples 8 ; IDL> lat=n128gaussian() 10 9 ; 11 ; INPUTS:None10 ; @returns a 1d array 12 11 ; 13 ; KEYWORD PARAMETERS:None 14 ; 15 ; OUTPUTS:a 1d array 16 ; 17 ; COMMON BLOCKS:None 18 ; 19 ; SIDE EFFECTS:None 20 ; 21 ; RESTRICTIONS:None 22 ; 23 ; EXAMPLE: 24 ; 25 ; MODIFICATION HISTORY: 26 ; Sebastien Masson (smasson@lodyc.jussieu.fr) 12 ; @history 13 ; Sebastien Masson (smasson\@lodyc.jussieu.fr) 27 14 ; June 2004 28 15 ;- -
trunk/SRC/Grid/n160gaussian.pro
r13 r103 1 1 ;+ 2 ; NAME:n160gaussian3 2 ; 4 ; PURPOSE:compute the latitudes of the n160 gaussian grid. See:3 ; @file_comments compute the latitudes of the n160 gaussian grid. See: 5 4 ; http://www.ecmwf.int/products/data/technical/gaussian/n160FIS.html 6 5 ; 7 ; CATEGORY:grid6 ; @categories grid 8 7 ; 9 ; CALLING SEQUENCE:lat=n160gaussian() 8 ; @examples 9 ; IDL>lat=n160gaussian() 10 10 ; 11 ; INPUTS:None11 ; @returns a 1d array 12 12 ; 13 ; KEYWORD PARAMETERS:None 14 ; 15 ; OUTPUTS:a 1d array 16 ; 17 ; COMMON BLOCKS:None 18 ; 19 ; SIDE EFFECTS:None 20 ; 21 ; RESTRICTIONS:None 22 ; 23 ; EXAMPLE: 24 ; 25 ; MODIFICATION HISTORY: 26 ; Sebastien Masson (smasson@lodyc.jussieu.fr) 13 ; @history 14 ; Sebastien Masson (smasson\@lodyc.jussieu.fr) 27 15 ; June 2004 28 16 ;- -
trunk/SRC/Grid/n256gaussian.pro
r13 r103 1 1 ;+ 2 ; NAME:n256gaussian 3 ; 4 ; PURPOSE:compute the latitudes of the n256 gaussian grid. See: 2 ; 3 ; @file_comments compute the latitudes of the n256 gaussian grid. See: 5 4 ; http://www.ecmwf.int/products/data/technical/gaussian/n256FIS.html 6 5 ; 7 ; CATEGORY:grid 8 ; 9 ; CALLING SEQUENCE:lat=n256gaussian() 10 ; 11 ; INPUTS:None 12 ; 13 ; KEYWORD PARAMETERS:None 14 ; 15 ; OUTPUTS:a 1d array 16 ; 17 ; COMMON BLOCKS:None 18 ; 19 ; SIDE EFFECTS:None 20 ; 21 ; RESTRICTIONS:None 22 ; 23 ; EXAMPLE: 24 ; 25 ; MODIFICATION HISTORY: 26 ; Sebastien Masson (smasson@lodyc.jussieu.fr) 6 ; @categories grid 7 ; 8 ; @examples 9 ; IDL> lat=n256gaussian() 10 ; 11 ; @returns a 1d array 12 ; 13 ; @history 14 ; Sebastien Masson (smasson\@lodyc.jussieu.fr) 27 15 ; June 2004 28 16 ;- -
trunk/SRC/Grid/n48gaussian.pro
r13 r103 1 1 ;+ 2 ; NAME:n48gaussian3 2 ; 4 ; PURPOSE:compute the latitudes of the n48 gaussian grid. See:3 ; @file_comments compute the latitudes of the n48 gaussian grid. See: 5 4 ; http://www.ecmwf.int/products/data/technical/gaussian/n48FIS.html 6 5 ; 7 ; CATEGORY:grid6 ; @categories grid 8 7 ; 9 ; CALLING SEQUENCE:lat=n48gaussian() 8 ; @examples 9 ; IDL> lat=n48gaussian() 10 10 ; 11 ; INPUTS:None11 ; @returns a 1d array 12 12 ; 13 ; KEYWORD PARAMETERS:None 14 ; 15 ; OUTPUTS:a 1d array 16 ; 17 ; COMMON BLOCKS:None 18 ; 19 ; SIDE EFFECTS:None 20 ; 21 ; RESTRICTIONS:None 22 ; 23 ; EXAMPLE: 24 ; 25 ; MODIFICATION HISTORY: 26 ; Sebastien Masson (smasson@lodyc.jussieu.fr) 13 ; @history 14 ; Sebastien Masson (smasson\@lodyc.jussieu.fr) 27 15 ; June 2004 28 16 ;- -
trunk/SRC/Grid/n80gaussian.pro
r13 r103 1 1 ;+ 2 ; NAME:n80gaussian3 2 ; 4 ; PURPOSE:compute the latitudes of the n80 gaussian grid. See:3 ; @file_comments compute the latitudes of the n80 gaussian grid. See: 5 4 ; http://www.ecmwf.int/products/data/technical/gaussian/n80FIS.html 6 5 ; 7 ; CATEGORY:grid6 ; @categories grid 8 7 ; 9 ; CALLING SEQUENCE:lat=n80gaussian() 8 ; @examples 9 ; IDL> lat=n80gaussian() 10 10 ; 11 ; INPUTS:None11 ; @returns a 1d array 12 12 ; 13 ; KEYWORD PARAMETERS:None 14 ; 15 ; OUTPUTS:a 1d array 16 ; 17 ; COMMON BLOCKS:None 18 ; 19 ; SIDE EFFECTS:None 20 ; 21 ; RESTRICTIONS:None 22 ; 23 ; EXAMPLE: 24 ; 25 ; MODIFICATION HISTORY: 26 ; Sebastien Masson (smasson@lodyc.jussieu.fr) 13 ; @history 14 ; Sebastien Masson (smasson\@lodyc.jussieu.fr) 27 15 ; June 2004 28 16 ;- -
trunk/SRC/Grid/ncdf_meshread.pro
r98 r103 3 3 ;------------------------------------------------------------ 4 4 ;+ 5 ; NAME:ncdf_meshread6 ; 7 ; PURPOSE:read NetCDF meshmask file created by OPA8 ; 9 ; CATEGORY:grid reading10 ; 11 ; CALLING SEQUENCE:ncdf_meshread [,' filename']5 ; 6 ; @file_comments read NetCDF meshmask file created by OPA 7 ; 8 ; @categories grid reading 9 ; 10 ; @examples 11 ; IDL> ncdf_meshread [,' filename'] 12 12 ; 13 ; INPUTS: 14 ; 15 ; filename: the name of the meshmask file to read. Default is 13 ; @param filename {in}{optional} the name of the meshmask file to read. Default is 16 14 ; meshmask.nc. if this name does not contain any / and if 17 15 ; iodirectory keyword is not specify, then the common variable 18 16 ; iodir will be use to define the mesh file path. 19 20 ; KEYWORD PARAMETERS: 21 ; 22 ; GLAMBOUNDARY:a 2 elements vector, {lon1,lon2], the longitute 17 ; 18 ; @keyword GLAMBOUNDARY a 2 elements vector, {lon1,lon2], the longitute 23 19 ; boundaries that should be used to visualize the data. 24 20 ; lon2 > lon1 … … 26 22 ; key_shift will be automaticaly defined according to GLAMBOUNDARY. 27 23 ; 28 ; /CHECKDAT:Suppressed. Use micromeshmask.pro to create an24 ; @keyword /CHECKDAT Suppressed. Use micromeshmask.pro to create an 29 25 ; appropriate meshmask. 30 26 ; 31 ; ONEARTH = 0 or 1:to force the manual definition of27 ; @keyword ONEARTH = 0 or 1 to force the manual definition of 32 28 ; key_onearth (to specify if the data are on earth -> use longitude 33 29 ; /latitude etc...). By default, key_onearth = 1. … … 35 31 ; cancelling GLAMBOUNDARY 36 32 ; 37 ; PERIODIC = 0 or 1:to force the manual definition of33 ; @keyword PERIODIC = 0 or 1 to force the manual definition of 38 34 ; key_periodic. By default, key_periodic is automaticaly 39 35 ; computed by using the first line of glamt. 40 36 ; 41 ; SHIFT = :to force the manual definition of key_shift. By37 ; @keyword SHIFT to force the manual definition of key_shift. By 42 38 ; debault, key_shift is automaticaly computed according to the 43 39 ; glamboundary (when defined) by using the first line of glamt. if 44 40 ; key_periodic=0 then in any case key_shift = 0. 45 41 ; 46 ; STRCALLING:a string containing the calling command used to call42 ; @keyword STRCALLING a string containing the calling command used to call 47 43 ; computegrid (this is used by xxx.pro) 48 44 ; 49 ; STRIDE = :a 3 elements vector to specify the stride in x, y, z45 ; @keyword STRIDE a 3 elements vector to specify the stride in x, y, z 50 46 ; direction. Default definition is key_stride. The resulting value 51 47 ; will be stored in the common (cm_4mesh) variable key_stride 52 48 ; 53 ; 54 ; OUTPUTS:none 55 ; 56 ; COMMON BLOCKS: cm_4mesh, cm_4data, cm_4cal 57 ; 58 ; SIDE EFFECTS: define and/or use common variables from 49 ; @uses cm_4mesh cm_4data cm_4cal 50 ; 51 ; @restrictions define and/or use common variables from 59 52 ; cm_4mesh, cm_4data, cm_4cal 60 53 ; 61 ; RESTRICTIONS:54 ; @restrictions 62 55 ; 63 56 ; ixminmesh,ixmaxmesh,iyminmesh,iymaxmesh,izminmesh,izmaxmesh must … … 65 58 ; are equal to -1 they will be automatically defined 66 59 ; 67 ; EXAMPLE: 68 ; 69 ; MODIFICATION HISTORY:Sebastien Masson (smasson@lodyc.jussieu.fr) 60 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 70 61 ; 12/1999 71 62 ; July 2004, Sebastien Masson: Several modifications (micromeshmask, -
trunk/SRC/Grid/restoreboxparam.pro
r13 r103 3 3 ;------------------------------------------------------------ 4 4 ;+ 5 ; NAME: restoreboxparam6 5 ; 7 ; PURPOSE:restore all the zoom parameters (defined by calling domdef)6 ; @file_comments restore all the zoom parameters (defined by calling domdef) 8 7 ; perviously defined by saveboxparam 9 8 ; 10 ; CATEGORY: 9 ; @examples 10 ; IDL> restoreboxparam, filename 11 ; 12 ; @param filename {in}{required} a scalar string defining the file name 11 13 ; 12 ; CALLING SEQUENCE: restoreboxparam, filename 13 ; 14 ; INPUTS: filename a scalar string defining the file name 14 ; @uses cm_4mesh and cm_demomode_used if we are in demo mode 15 15 ; 16 ; KEYWORD PARAMETERS: none 17 ; 18 ; OUTPUTS:none 19 ; 20 ; COMMON BLOCKS: @cm_4mesh and @cm_demomode_used if we are in demo mode 21 ; 22 ; SIDE EFFECTS: call def_myuniquetmpdir, if myuniquetmpdir is undefined: 16 ; @restrictions all def_myuniquetmpdir, if myuniquetmpdir is undefined: 23 17 ; => define, create and add it to !path 24 18 ; 25 ; RESTRICTIONS: 26 ; 27 ; EXAMPLE: 28 ; 29 ; MODIFICATION HISTORY:Sebastien Masson (smasson@lodyc.jussieu.fr) 19 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 30 20 ; July 2005 31 21 ;- -
trunk/SRC/Grid/saveboxparam.pro
r13 r103 3 3 ;------------------------------------------------------------ 4 4 ;+ 5 ; NAME: saveboxparam6 5 ; 7 ; PURPOSE:save all the zoom parameters (defined by calling domdef)6 ; @file_comments save all the zoom parameters (defined by calling domdef) 8 7 ; in a file (using save command) located in myuniquetmpdir 9 8 ; (common variable defined by def_myuniquetmpdir) 10 9 ; 11 ; CATEGORY: 10 ; @examples 11 ; IDL> saveboxparam, filename 12 ; 13 ; @param filename {in}{required} a scalar string defining the file name 12 14 ; 13 ; CALLING SEQUENCE: saveboxparam, filename 14 ; 15 ; INPUTS: filename a scalar string defining the file name 15 ; @uses cm_4mesh and cm_demomode_used if we are in demo mode 16 16 ; 17 ; KEYWORD PARAMETERS: none 18 ; 19 ; OUTPUTS:none 20 ; 21 ; COMMON BLOCKS: @cm_4mesh and @cm_demomode_used if we are in demo mode 22 ; 23 ; SIDE EFFECTS: call def_myuniquetmpdir, if myuniquetmpdir is undefined: 17 ; @restrictions call def_myuniquetmpdir, if myuniquetmpdir is undefined: 24 18 ; => define, create and add it to !path 25 19 ; 26 ; RESTRICTIONS: 27 ; 28 ; EXAMPLE: 29 ; 30 ; MODIFICATION HISTORY:Sebastien Masson (smasson@lodyc.jussieu.fr) 20 ; @history Sebastien Masson (smasson\@lodyc.jussieu.fr) 31 21 ; June 2005 32 22 ;- -
trunk/SRC/Grid/smallmeshmask.pro
r13 r103 1 1 ;+ 2 ; NAME: smallmeshmask.pro 3 ; 4 ; PURPOSE: reduce the size of the NetCDF meshmask created by OPA by 5 ; using byte format for the masks and the foat format for the other 6 ; fields. 7 ; 8 ; CATEGORY:for OPA meshmask files 9 ; 10 ; CALLING SEQUENCE: smallmeshmask, ncfilein[, ncfileout] 11 ; 12 ; INPUTS: 13 ; ncfilein: 14 ; 1) the name of the meshmask file to be reduced. In that case, 15 ; there is only one meshmask file 16 ; 17 ; OR 18 ; 19 ; 2) the xxx part in the names: xxx.mesh_hgr.nc xxx.mesh_zgr.nc 20 ; xxx.mask.nc. In that case, the meshmask is split into 3 files. 21 ; 22 ; ncfileout: the name of the reduced meshmask file. default 23 ; definition is smallmeshmask.nc 24 ; 25 ; KEYWORD PARAMETERS: 26 ; 27 ; IODIR:to define the files path. 28 ; 29 ; OUTPUTS: no 30 ; 31 ; COMMON BLOCKS: no 32 ; 33 ; EXAMPLE: 34 ; IDL> meshdir='/d1fes2-raid2/smasson/DATA/ORCA05/' 35 ; IDL> smallmeshmask, 'meshmask_ORCA_R05.nc',iodir=meshdir 36 ; 37 ; MODIFICATION HISTORY: 38 ; July 2004 Sebastien Masson (smasson@lodyc.jussieu.fr) 2 ; 3 ; 4 ; @categories for OPA meshmask files 5 ; 6 ; @history 7 ; July 2004 Sebastien Masson (smasson\@lodyc.jussieu.fr) 39 8 ;- 40 9 ;------------------------------------------------------ … … 47 16 END 48 17 ; 18 ;+ 19 ; @file_comments reduce the size of the NetCDF meshmask created by OPA by 20 ; using byte format for the masks and the foat format for the other 21 ; fields. 22 ; 23 ; @keyword IODIR to define the files path. 24 ; @param ncfilein {in}{required} 25 ; 1) the name of the meshmask file to be reduced. In that case, 26 ; there is only one meshmask file 27 ; 28 ; OR 29 ; 30 ; 2) the xxx part in the names: xxx.mesh_hgr.nc xxx.mesh_zgr.nc 31 ; xxx.mask.nc. In that case, the meshmask is split into 3 files. 32 ; 33 ; @param ncfileout {in}{optional} the name of the reduced meshmask file. default 34 ; definition is smallmeshmask.nc 35 ; 36 ; @examples 37 ; IDL> meshdir='/d1fes2-raid2/smasson/DATA/ORCA05/' 38 ; IDL> smallmeshmask, 'meshmask_ORCA_R05.nc',iodir=meshdir 39 ; 40 ; @categories for OPA meshmask files 41 ; 42 ; @history 43 ; July 2004 Sebastien Masson (smasson\@lodyc.jussieu.fr) 44 ;- 49 45 PRO smallmeshmask, ncfilein, ncfileout, IODIR = iodir 50 46 ;
Note: See TracChangeset
for help on using the changeset viewer.