Changeset 170
- Timestamp:
- 11/17/09 09:26:15 (15 years ago)
- Location:
- trunk
- Files:
-
- 121 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/procs/ajoutvectz.pro
r169 r170 31 31 ; 32 32 ; @uses 33 ; common.pro33 ; <pro>common<pro> 34 34 ; 35 35 ; @history … … 53 53 ; 54 54 @common 55 ; 55 56 tempsun = systime(1) ; pour key_performance 56 57 ;---------------------------------------------------------------------------- -
trunk/procs/bin_sigma.pro
r169 r170 15 15 ; c- project field 16 16 ; 17 ; @uses 18 ; <pro>common</pro> 19 ; <propost_it>com_eg</propost_it> 20 ; 17 21 ; @history 18 22 ; EG 19-2-99 … … 28 32 @common 29 33 @com_eg 34 ; 30 35 grille,mask,glam,gphi,gdep,nx,ny,nz,firstx,firsty,firstz,lastx,lasty,lastz 31 36 -
trunk/procs/compute_time.pro
r169 r170 8 8 ; [yy..yyy][mm] if <n>m 9 9 ; [yy..yyy] if <n>y 10 10 ; 11 ; @uses 12 ; <pro>common</pro> 13 ; <propost_it>com_eg</propost_it> 14 ; 11 15 ; @version 12 16 ; $Id$ -
trunk/procs/data_read.pro
r169 r170 2 2 ; 3 3 ; Reading Data 4 ; 5 ; @uses 6 ; <pro>common</pro> 7 ; <propost_it>com_eg</propost_it> 8 ; <propost_it>zoom_indices_debug</propost_it> 4 9 ; 5 10 ; @version -
trunk/procs/daypm.pro
r169 r170 2 2 ; 3 3 ; define max number of days in month 4 ; 5 ; @uses 6 ; <pro>common</pro> 7 ; <propost_it>com_eg</propost_it> 4 8 ; 5 9 ; @version -
trunk/procs/decode_cmd.pro
r169 r170 2 2 ; 3 3 ; decode command line of post-it 4 ; 5 ; @uses 6 ; <pro>common</pro> 7 ; <propost_it>com_eg</propost_it> 4 8 ; 5 9 ; @version … … 13 17 @common 14 18 @com_eg 15 16 19 ; 17 20 cmd = {var:'', on: 0, exp:'', grid:'',plt:'', timave:'', date1:'', spec:'',$ 18 21 disp:'', proj:'', out:'', var2:'', trend:''} -
trunk/procs/def_box.pro
r169 r170 2 2 ; 3 3 ; find hovmoeller box in Defaults file 4 ; 5 ; @uses 6 ; <pro>common</pro> 7 ; <propost_it>com_eg</propost_it> 4 8 ; 5 9 ; @version -
trunk/procs/def_dbase.pro
r169 r170 2 2 ; 3 3 ; find data base of expid - uses array data_bases defined in post_it 4 ; 5 ; @uses 6 ; <pro>common</pro> 7 ; <propost_it>com_eg</propost_it> 4 8 ; 5 9 ; @version … … 13 17 @common 14 18 @com_eg 15 19 ; 16 20 ; special suffix ? 17 21 -
trunk/procs/def_dptyp.pro
r169 r170 2 2 ; 3 3 ; Define data/plot type 4 ; 5 ; @uses 6 ; <pro>common</pro> 7 ; <propost_it>com_eg</propost_it> 4 8 ; 5 9 ; @version … … 13 17 @common 14 18 @com_eg 15 19 ; 16 20 splot = 0 17 21 pltztyp = '-' -
trunk/procs/def_file_name.pro
r169 r170 3 3 ; define file name following 4 4 ; <expid>_<timeave>_<date1>_<date2>[_<spec>]_<grid> convention 5 ; 6 ; @uses 7 ; <pro>common</pro> 8 ; <propost_it>com_eg</propost_it> 5 9 ; 6 10 ; @version … … 14 18 @common 15 19 @com_eg 20 ; 16 21 IF debug_w THEN print, ' ' 17 22 IF debug_w THEN print, ' ENTER def_file_name...' -
trunk/procs/def_grid.pro
r169 r170 2 2 ; 3 3 ; define which grid to use and set corresponding arrays 4 ; 5 ; @uses 6 ; <pro>common</pro> 7 ; <propost_it>com_eg</propost_it> 4 8 ; 5 9 ; @version … … 13 17 @common 14 18 @com_eg 19 ; 15 20 IF debug_w THEN print, ' ' 16 21 IF debug_w THEN print, ' ENTER def_grid / cmd =', cmd -
trunk/procs/def_month.pro
r169 r170 2 2 ; 3 3 ; translate month number in string 4 ; 5 ; @uses 6 ; <pro>common</pro> 7 ; <propost_it>com_eg</propost_it> 4 8 ; 5 9 ; @version -
trunk/procs/def_work.pro
r169 r170 5 5 ; 6 6 ; calls plt_map for each plot/window/overlay 7 ; 8 ; @uses 9 ; <pro>common</pro> 10 ; <propost_it>com_eg</propost_it> 7 11 ; 8 12 ; @history -
trunk/procs/find_jptmax.pro
r169 r170 1 1 ;+ 2 ; 3 ; @uses 4 ; <pro>common</pro> 5 ; <propost_it>com_eg</propost_it> 2 6 ; 3 7 ; @version -
trunk/procs/fld_pltext.pro
r169 r170 15 15 ; outputs structure 16 16 ; 17 ; @uses 18 ; <pro>common</pro> 19 ; <propost_it>com_eg</propost_it> 20 ; 17 21 ; @history 18 22 ; EG 4/10/99 19 23 ; 20 24 ; @version 21 25 ; $Id$ … … 28 32 @common 29 33 @com_eg 30 34 ; 31 35 ; define variable plot attributes (min/max) 32 36 -
trunk/procs/fld_pltint.pro
r169 r170 16 16 ; define variable plot attributes (contour intervals) 17 17 ; 18 ; @uses 19 ; <pro>common</pro> 20 ; <propost_it>com_eg</propost_it> 21 ; 18 22 ; @history 19 23 ; EG 25/2/99 … … 29 33 @common 30 34 @com_eg 31 32 35 ; 33 36 fldintr = {name:'', int: 0.0, mult: 0.0, add: 0.0, unit: '', mid: 0.0} 34 37 -
trunk/procs/get_file.pro
r169 r170 2 2 ; 3 3 ; get remote file 4 ; 5 ; @uses 6 ; <pro>common</pro> 7 ; <propost_it>com_eg</propost_it> 4 8 ; 5 9 ; @version … … 13 17 @common 14 18 @com_eg 15 19 ; 16 20 str = strsplit(ncdf_db, ':', /EXTRACT) 17 21 machine = str[0] -
trunk/procs/init_post_it.pro
r165 r170 2 2 ; 3 3 ; post_it specific inits 4 ; 5 ; @uses 6 ; <propost_it>com_eg</propost_it> 4 7 ; 5 8 ; @version … … 8 11 ;- 9 12 @com_eg 10 13 ; 11 14 ;--------------------------- 12 15 ; directory definitions -
trunk/procs/lec_pal_gmt.pro
r169 r170 3 3 ; read GMT palette into IDL color/intervals system 4 4 ; 5 ; --> common color2 used by label_gmt.pro 5 ; --> common color2 used by <pro>label_gmt</pro> 6 ; 7 ; @uses 8 ; <pro>common</pro> 9 ; <propost_it>com_eg</propost_it> 6 10 ; 7 11 ; @version … … 15 19 @common 16 20 @com_eg 17 21 ; 18 22 IF n_elements(idx_pal) EQ 0 THEN idx_pal = 0 19 23 -
trunk/procs/macro_read.pro
r169 r170 2 2 ; 3 3 ; Read Macro field Data 4 ; 5 ; @uses 6 ; <pro>common</pro> 7 ; <propost_it>com_eg</propost_it> 4 8 ; 5 9 ; @version -
trunk/procs/macros/make_anomaly.pro
r169 r170 2 2 ; 3 3 ; make std dev from 2D macro_base_fld monthly time serie (defined in macro_read) 4 ; 5 ; @uses 6 ; <pro>common</pro> 7 ; <propost_it>com_eg</propost_it> 4 8 ; 5 9 ; @version -
trunk/procs/macros/make_bsf.pro
r169 r170 2 2 ; 3 3 ; make Barotropic Stream Function 4 ; 5 ; @uses 6 ; <pro>common</pro> 7 ; <propost_it>com_eg</propost_it> 8 ; 9 ; @history 10 ; Fri Apr 6 12:18:15 2001, Eric Guilyardi <ericg\@lemnos.rdg.ac.uk> 4 11 ; 5 12 ; @version … … 19 26 @com_eg 20 27 ; 21 ;22 28 ; Read taux and tauy 23 ;24 ; HISTORY:25 ;26 ; Fri Apr 6 12:18:15 2001, Eric Guilyardi27 ; <ericg@lemnos.rdg.ac.uk>28 ;29 ;30 ;31 29 file_nam = strmid(file_name, 0, strlen(file_name)-4) 32 30 ; keep current settings -
trunk/procs/macros/make_correlation.pro
r169 r170 1 1 ;+ 2 ; 3 ; @uses 4 ; <pro>common</pro> 5 ; <propost_it>com_eg</propost_it> 2 6 ; 3 7 ; compute point-wise correlation of two 3D (x,y,t) fields -
trunk/procs/macros/make_correldomain.pro
r169 r170 2 2 ; 3 3 ; compute correlation 3D (x,y,t) array to domain-averaged field (nino3 sst,...) 4 ; 5 ; @uses 6 ; <pro>common</pro> 7 ; <propost_it>com_eg</propost_it> 4 8 ; 5 9 ; @version … … 18 22 @common 19 23 @com_eg 20 24 ; 21 25 IF debug_w THEN print, ' ENTER make_correldomain... ' 22 26 -
trunk/procs/macros/make_crtm.pro
r169 r170 2 2 ; 3 3 ; make Wind Stress module 4 ; 5 ; @uses 6 ; <pro>common</pro> 7 ; <propost_it>com_eg</propost_it> 4 8 ; 5 9 ; @version … … 19 23 @common 20 24 @com_eg 21 ;22 25 ; 23 26 ; Read U and V -
trunk/procs/macros/make_curltau.pro
r169 r170 2 2 ; 3 3 ; make Wind Stress curl 4 ; 5 ; @uses 6 ; <pro>common</pro> 7 ; <propost_it>com_eg</propost_it> 4 8 ; 5 9 ; @version … … 19 23 @common 20 24 @com_eg 21 ;22 25 ; 23 26 ; Read taux and tauy -
trunk/procs/macros/make_denflw.pro
r169 r170 1 1 ;+ 2 ; 3 ; @uses 4 ; <pro>common</pro> 5 ; <propost_it>com_eg</propost_it> 2 6 ; 3 7 ; @version … … 16 20 @common 17 21 @com_eg 18 19 22 ; 20 23 denflx = make_transfo(file_name, ncdf_db,'denflw', BOXZOOM = boxzoom, TIME_1 = time_1, TIME_2 = time_2, ALL_DATA = all_data, ZMTYP = zmtyp) 21 24 -
trunk/procs/macros/make_denflx.pro
r169 r170 1 1 ;+ 2 ; 3 ; @uses 4 ; <pro>common</pro> 5 ; <propost_it>com_eg</propost_it> 2 6 ; 3 7 ; @version … … 13 17 @common 14 18 @com_eg 15 16 19 ; 17 20 denflx = make_transfo(file_name, ncdf_db,'denflx', TIME_1 = time_1, TIME_2 = time_2) 18 21 -
trunk/procs/macros/make_depth.pro
r169 r170 1 1 ;+ 2 2 ; 3 ; Depth along isopycnal (computed in bining.pro) 3 ; Depth along isopycnal (computed in <propost_it>bining</propost_it>) 4 ; 5 ; @uses 6 ; <pro>common</pro> 7 ; <propost_it>com_eg</propost_it> 4 8 ; 5 9 ; @version -
trunk/procs/macros/make_energetics.pro
r169 r170 2 2 ; 3 3 ; make energetics computations 4 ; 5 ; @uses 6 ; <pro>common</pro> 7 ; <propost_it>com_eg</propost_it> 4 8 ; 5 9 ; @version … … 18 22 @common 19 23 @com_eg 24 ; 20 25 IF debug_w THEN print, ' ' 21 26 IF debug_w THEN print, ' ENTER make_energetics...' -
trunk/procs/macros/make_eos.pro
r169 r170 45 45 ; 46 46 ; @uses 47 ; common.pro 47 ; <pro>common</pro> 48 ; <propost_it>com_eg</propost_it> 48 49 ; 49 50 ; @history -
trunk/procs/macros/make_eos_sal.pro
r169 r170 30 30 ; @param NCDF_DB {in}{required} 31 31 ; 32 ; @uses33 ; common.pro34 ;35 32 ; @returns 36 33 ; ++ structure fieldr 37 34 ; 35 ; @uses 36 ; <pro>common</pro> 37 ; <propost_it>com_eg</propost_it> 38 38 ; 39 39 ; @history … … 56 56 @common 57 57 @com_eg 58 ;59 58 ; 60 59 ; Read T and S -
trunk/procs/macros/make_eos_tem.pro
r169 r170 31 31 ; 32 32 ; @uses 33 ; common.pro34 ; 33 ; <pro>common</pro> 34 ; <propost_it>com_eg</propost_it> 35 35 ; 36 36 ; @history … … 53 53 @common 54 54 @com_eg 55 ;56 55 ; 57 56 ; Read T and S -
trunk/procs/macros/make_grad.pro
r169 r170 2 2 ; 3 3 ; compute gradients along x and y on grid points T, U, V, lmdzl for any variable 4 ; 5 ; @uses 6 ; <pro>common</pro> 7 ; <propost_it>com_eg</propost_it> 4 8 ; 5 9 ; @version … … 18 22 @common 19 23 @com_eg 20 21 24 ; 22 25 IF debug_w THEN print, ' ENTER make_grad...' 23 26 IF debug_w THEN print, ' keyword_set(ALL_DATA) : ', keyword_set(ALL_DATA) -
trunk/procs/macros/make_interp.pro
r169 r170 4 4 ; or 3 variables [ coef1*var1 + coef2*var2 + coef3*var3 ] 5 5 ; includes obviously difference or addition between 2 variables or 3 variables 6 ; 7 ; @uses 8 ; <pro>common</pro> 9 ; <propost_it>com_eg</propost_it> 6 10 ; 7 11 ; @version -
trunk/procs/macros/make_linfit.pro
r169 r170 2 2 ; 3 3 ; compute point-wise slope of linear regression of two 3D (x,y,t) fields 4 ; 5 ; @uses 6 ; <pro>common</pro> 7 ; <propost_it>com_eg</propost_it> 4 8 ; 5 9 ; @version … … 17 21 @common 18 22 @com_eg 19 23 ; 20 24 IF debug_w THEN print, ' ENTER make_linfit... ' 21 25 -
trunk/procs/macros/make_linfitdom.pro
r169 r170 2 2 ; 3 3 ; compute slope of linear regression of one 3D (x,y,t) field with a 1D time serie 4 ; 5 ; @uses 6 ; <pro>common</pro> 7 ; <propost_it>com_eg</propost_it> 4 8 ; 5 9 ; @version … … 17 21 @common 18 22 @com_eg 19 23 ; 20 24 IF debug_w THEN print, ' ENTER make_linfitdom... ' 21 25 -
trunk/procs/macros/make_msf.pro
r169 r170 2 2 ; 3 3 ; make MSF 4 ; 5 ; @uses 6 ; <pro>common</pro> 7 ; <propost_it>com_eg</propost_it> 4 8 ; 5 9 ; @version -
trunk/procs/macros/make_msf2.pro
r169 r170 2 2 ; 3 3 ; make MSF 4 ; 5 ; @uses 6 ; <pro>common</pro> 7 ; <propost_it>com_eg</propost_it> 4 8 ; 5 9 ; @version -
trunk/procs/macros/make_ratio.pro
r169 r170 2 2 ; 3 3 ; compute ratio between 2 or 4 variables [ a/b or (a-b)/(c-d) ] 4 ; 5 ; @uses 6 ; <pro>common</pro> 7 ; <propost_it>com_eg</propost_it> 4 8 ; 5 9 ; @version … … 18 22 @common 19 23 @com_eg 20 24 ; 21 25 ; Extracts the variables between the commas. 22 26 ; Pay attention : the order is important (a,b,c,d) -
trunk/procs/macros/make_skewness.pro
r169 r170 2 2 ; 3 3 ; make skewness from 2D macro_base_fld monthly time serie (defined in macro_read) 4 ; 5 ; @uses 6 ; <pro>common</pro> 7 ; <propost_it>com_eg</propost_it> 4 8 ; 5 9 ; @version … … 18 22 @common 19 23 @com_eg 20 ;21 24 ; 22 25 ; Read time serie -
trunk/procs/macros/make_sobwlmax.pro
r169 r170 2 2 ; 3 3 ; make maximum bowl index 4 ; 5 ; @uses 6 ; <pro>common</pro> 7 ; <propost_it>com_eg</propost_it> 4 8 ; 5 9 ; @version -
trunk/procs/macros/make_stddev.pro
r169 r170 2 2 ; 3 3 ; make std dev from 2D macro_base_fld monthly time serie (defined in macro_read) 4 ; 5 ; @uses 6 ; <pro>common</pro> 7 ; <propost_it>com_eg</propost_it> 4 8 ; 5 9 ; @version … … 18 22 @common 19 23 @com_eg 20 24 ; 21 25 IF debug_w THEN print, ' ENTER make_stddev... ' 22 26 ; -
trunk/procs/macros/make_thdepth.pro
r169 r170 2 2 ; 3 3 ; make depth of 20C 4 ; 5 ; @uses 6 ; <pro>common</pro> 7 ; <propost_it>com_eg</propost_it> 4 8 ; 5 9 ; @version -
trunk/procs/macros/make_transfo.pro
r169 r170 6 6 ; 7 7 ; input denflx = density flux 8 ; 9 ; @uses 10 ; <pro>common</pro> 11 ; <propost_it>com_eg</propost_it> 8 12 ; 9 13 ; @history -
trunk/procs/macros/make_wcurl.pro
r169 r170 2 2 ; 3 3 ; make curl of vector field 4 ; 5 ; @uses 6 ; <pro>common</pro> 7 ; <propost_it>com_eg</propost_it> 4 8 ; 5 9 ; @version -
trunk/procs/macros/make_wdiv.pro
r169 r170 2 2 ; 3 3 ; make divergence of vector field 4 ; 5 ; @uses 6 ; <pro>common</pro> 7 ; <propost_it>com_eg</propost_it> 4 8 ; 5 9 ; @version -
trunk/procs/macros/make_wm.pro
r169 r170 2 2 ; 3 3 ; make Wind Stress module 4 ; 5 ; @uses 6 ; <pro>common</pro> 7 ; <propost_it>com_eg</propost_it> 4 8 ; 5 9 ; @version … … 18 22 @common 19 23 @com_eg 20 ;21 24 ; 22 25 ; Read taux and tauy -
trunk/procs/macros/make_work.pro
r169 r170 2 2 ; 3 3 ; make work 4 ; 5 ; @uses 6 ; <pro>common</pro> 7 ; <propost_it>com_eg</propost_it> 4 8 ; 5 9 ; @version … … 16 20 @common 17 21 @com_eg 18 22 ; 19 23 ; ellipse param 20 24 -
trunk/procs/macros/make_wwv.pro
r169 r170 2 2 ; 3 3 ; Estimation of the Warm Water Volume 4 ; 5 ; @uses 6 ; <pro>common</pro> 7 ; <propost_it>com_eg</propost_it> 4 8 ; 5 9 ; @version -
trunk/procs/macros/make_ytran.pro
r169 r170 2 2 ; 3 3 ; make Y transport in Sv at T point 4 ; 5 ; @uses 6 ; <pro>common</pro> 7 ; <propost_it>com_eg</propost_it> 4 8 ; 5 9 ; @version … … 18 22 @common 19 23 @com_eg 20 ;21 24 ; 22 25 ; Read V -
trunk/procs/macros/make_ztran.pro
r169 r170 2 2 ; 3 3 ; make Z transport in Sv at T point 4 ; 5 ; @uses 6 ; <pro>common</pro> 7 ; <propost_it>com_eg</propost_it> 8 ; 4 9 ; 5 10 ; @version … … 18 23 @common 19 24 @com_eg 20 ;21 25 ; 22 26 ; Read W -
trunk/procs/mask_z.pro
r169 r170 4 4 ; 5 5 ; mask pltz data according to bathy or box 6 ; 7 ; @uses 8 ; <pro>common</pro> 9 ; <propost_it>com_eg</propost_it> 6 10 ; 7 11 ; @version … … 15 19 @common 16 20 @com_eg 21 ; 17 22 legz = '' 18 23 -
trunk/procs/maskread.pro
r169 r170 6 6 ; lecture de fichier 7 7 ; 8 ; @returns 9 ; Retourne -1 en cas d'erreur. 8 10 ; 9 11 ; @uses 10 ; common.pro 11 ; 12 ; SIDE EFFECTS:Retourne -1 en cas d'erreur. 13 ; 14 ; @examples 12 ; <pro>common</pro> 13 ; <propost_it>com_eg</propost_it> 15 14 ; 16 15 ; @history -
trunk/procs/meshes/build_mesh_glosea.pro
r169 r170 1 1 ;+ 2 ; 3 ; @uses 4 ; <pro>common</pro> 5 ; <propost_it>com_eg</propost_it> 2 6 ; 3 7 ; @version -
trunk/procs/meshes/mesh_from_file.pro
r169 r170 1 1 ;+ 2 ; 3 ; @uses 4 ; <pro>common</pro> 5 ; <propost_it>com_eg</propost_it> 2 6 ; 3 7 ; @version -
trunk/procs/meshes/mesh_gaussian.pro
r169 r170 1 1 ;+ 2 ; 3 ; @uses 4 ; <pro>common</pro> 5 ; <propost_it>com_eg</propost_it> 2 6 ; 3 7 ; @version -
trunk/procs/meshes/mesh_glosea.pro
r169 r170 1 1 ;+ 2 ; 3 ; @uses 4 ; <pro>common</pro> 5 ; <propost_it>com_eg</propost_it> 2 6 ; 3 7 ; @version -
trunk/procs/meshes/mesh_micom.pro
r169 r170 1 1 ;+ 2 ; 3 ; @uses 4 ; <pro>common</pro> 5 ; <propost_it>com_eg</propost_it> 2 6 ; 3 7 ; @version -
trunk/procs/meshes/mesh_orca.pro
r169 r170 1 1 ;+ 2 ; 3 ; @uses 4 ; <pro>common</pro> 5 ; <propost_it>com_eg</propost_it> 2 6 ; 3 7 ; @version -
trunk/procs/meshes/mesh_pcmdi.pro
r169 r170 1 1 ;+ 2 ; 3 ; @uses 4 ; <pro>common</pro> 5 ; <propost_it>com_eg</propost_it> 2 6 ; 3 7 ; @version -
trunk/procs/meshes/mesh_regular.pro
r169 r170 1 1 ;+ 2 ; 3 ; @uses 4 ; <pro>common</pro> 5 ; <propost_it>com_eg</propost_it> 2 6 ; 3 7 ; @version -
trunk/procs/meshes/mesh_tao.pro
r169 r170 1 1 ;+ 2 ; 3 ; @uses 4 ; <pro>common</pro> 5 ; <propost_it>com_eg</propost_it> 2 6 ; 3 7 ; @version -
trunk/procs/meshes/mesh_um.pro
r169 r170 1 1 ;+ 2 ; 3 ; @uses 4 ; <pro>common</pro> 5 ; <propost_it>com_eg</propost_it> 2 6 ; 3 7 ; @version -
trunk/procs/msf_mult.pro
r169 r170 2 2 ; 3 3 ; Calcul de la Fonction de Courant a travers les lignes J 4 ; 5 ; @uses 6 ; <pro>common</pro> 4 7 ; 5 8 ; @history … … 18 21 ; 19 22 @common 23 ; 20 24 ;COMMON moy, zonmsk, mermsk, jpl 21 25 IF n_elements(jpl) EQ 0 THEN jpl = jpj -
trunk/procs/msf_simple.pro
r169 r170 3 3 ; Calcul de la Fonction de Courant a travers les lignes J 4 4 ; 5 ; 6 ; @uses 7 ; <pro>common</pro> 5 8 ; 6 9 ; @history … … 19 22 ; 20 23 @common 24 ; 21 25 ;COMMON moy, zonmsk, mermsk, jpl 22 26 IF n_elements(jpl) EQ 0 THEN jpl = jpj -
trunk/procs/nc_build.pro
r169 r170 1 1 ;+ 2 ; 3 ; @uses 4 ; <pro>common</pro> 5 ; <propost_it>com_eg</propost_it> 2 6 ; 3 7 ; @version … … 11 15 @com_eg 12 16 @common 17 ; 13 18 ; direc= data type (x,xy,xyzt,yt,etc...) 14 19 ; grid_type = grid type (to select right arrays) -
trunk/procs/nc_put.pro
r169 r170 1 1 ;+ 2 ; 3 ; @uses 4 ; <pro>common</pro> 5 ; <propost_it>com_eg</propost_it> 2 6 ; 3 7 ; @version … … 17 21 @common 18 22 @com_eg 19 23 ; 20 24 ; fld = structure 21 25 ; fdl.data, fld.units, fld.short_name, fld.long_name, fld.missing_value, fld.direc -
trunk/procs/nc_read.pro
r169 r170 13 13 ; 14 14 ; @keyword TIME_2 15 ; 16 ; @uses 17 ; <pro>common</pro> 18 ; <propost_it>com_eg</propost_it> 15 19 ; 16 20 ; @version … … 29 33 @common 30 34 @com_eg 31 35 ; 32 36 ; inits 33 37 IF debug_w THEN print, ' ' -
trunk/procs/new_filename.pro
r169 r170 2 2 ; 3 3 ; change grid_oldgrid by grid_newgrid 4 ; 5 ; @uses 6 ; <pro>common</pro> 7 ; <propost_it>com_eg</propost_it> 4 8 ; 5 9 ; @version … … 13 17 @common 14 18 @com_eg 15 19 ; 16 20 file_nam = strmid(file_in, 0,strpos(file_in, 'grid_')+5 ) 17 21 file_out = file_nam+newgrid+strmid(file_in, strpos(file_in, 'grid_')+6, strlen(file_in)-1) -
trunk/procs/npc.pro
r169 r170 16 16 ; adjusted potential density field 17 17 ; 18 ; @uses 19 ; <pro>common</pro> 20 ; 18 21 ; @history 19 22 ; original : 90-09 (G. Madec) 20 23 ; Additions : 01-06 (G. Madec) Idl version 24 ; 21 25 ; @version 22 26 ; $Id$ … … 28 32 ; 29 33 @common 30 ; ;34 ; 31 35 ;; Definition des variables 32 36 ;; -
trunk/procs/overlay_type.pro
r169 r170 2 2 ; 3 3 ; overlay color line types COL1D=col1d,STY1D=sty1d 4 ; 5 ; @uses 6 ; <propost_it>com_eg</propost_it> 4 7 ; 5 8 ; @version -
trunk/procs/plt_map.pro
r169 r170 11 11 ; @param IOVER {in} 12 12 ; overlay index 13 ; 14 ; @uses 15 ; <pro>common</pro> 16 ; <propost_it>com_eg</propost_it> 17 ; <propost_it>zoom_indices_debug</propost_it> 13 18 ; 14 19 ; @history -
trunk/procs/saxo_mods/ncdf_meshmicom.pro
r165 r170 1 1 ;+ 2 ; 3 ; @uses 4 ; <pro>common</pro> 2 5 ; 3 6 ; @version -
trunk/procs/saxo_mods/pltsc.pro
r169 r170 2 2 ; 3 3 ; scatter plot (inspired from plt1d) 4 ; 5 ; @uses 6 ; <pro>common</pro> 4 7 ; 5 8 ; @version -
trunk/procs/saxo_mods/plttg.pro
r169 r170 23 23 ; d''extraction via BOITE 24 24 ; 2) une structure repondant aux critaire specifies par 25 ; litchamp.pro. cf. IDL> xhelp,'litchamp'. Le tableau contennu ds 25 ; <pro>litchamp</pro>. 26 ; cf. IDL> xhelp,'litchamp'. Le tableau contennu ds 26 27 ; la structure repondant aux criteres du cas 1) cf. ci-dessus 27 28 ; … … 123 124 ; @keyword LABEL 124 125 ; un entier n. si n different de 0, choisit le type de 125 ; label correspondant aux cas n. cf label.pro126 ; label correspondant aux cas n. cf <pro>label</pro> 126 127 ; Rq: Qd CONTOUR est active, ne specifie le type de label que pour les 127 128 ; isolignes coloriees en couleur. Pour celles tracees par un trait de … … 177 178 ; @keyword STYLE 178 179 ; style de tracer a adopter pour dessiner les isolignes par 179 ; defaut style=0. cf style.pro180 ; defaut style=0. cf <pro>style</pro> 180 181 ; 181 182 ; @keyword STY1D … … 187 188 ; 188 189 ; @keyword TREND_TYPE 189 ; modify data by calling trends.pro190 ; modify data by calling <propost_it>trends</propost_it> 190 191 ; 191 192 ; @keyword TYPEIN … … 198 199 ; 199 200 ; @uses 200 ; common.pro201 ; <pro>common</pro> 201 202 ; 202 203 ; @history -
trunk/procs/saxo_mods/skewness_4d.pro
r168 r170 59 59 ; 60 60 ; @examples 61 ; 62 ; @uses 63 ; <pro>common</pro> 61 64 ; 62 65 ; @history -
trunk/procs/search_time_file.pro
r169 r170 4 4 ; 5 5 ; output : data file date1 and date2 6 ; 7 ; @uses 8 ; <pro>common</pro> 9 ; <propost_it>com_eg</propost_it> 6 10 ; 7 11 ; @version … … 15 19 @common 16 20 @com_eg 17 21 ; 18 22 timavef = cmd.timave 19 23 date1 = cmd.date1 -
trunk/procs/trends.pro
r169 r170 1 1 ;+ 2 ; 3 ; @uses 4 ; <pro>common</pro> 5 ; <propost_it>com_eg</propost_it> 2 6 ; 3 7 ; @version … … 12 16 @common 13 17 @com_eg 14 18 ; 15 19 ; fld = field to work on 16 20 ; trend_int = 1,2,3,4,...9 (see cases after) -
trunk/procs/update_data.pro
r169 r170 1 1 ;+ 2 ; 3 ; @uses 4 ; <pro>common</pro> 5 ; <propost_it>com_eg</propost_it> 2 6 ; 3 7 ; @version … … 22 26 @common 23 27 @com_eg 24 28 ; 25 29 IF debug_w THEN print, ' ' 26 30 IF debug_w THEN print, ' ENTER update_data...' -
trunk/procs/ybinx.pro
r169 r170 2 2 ; 3 3 ; Binning plot y=bin(x) 4 ; called by plt_map.pro4 ; called by <propost_it>plt_map</propost_it> 5 5 ; 6 6 ; @version -
trunk/procs/yfx.pro
r169 r170 2 2 ; 3 3 ; Scatter plot y=f(x) 4 ; called by plt_map.pro4 ; called by <propost_it>plt_map</propost_it> 5 5 ; 6 6 ; @version -
trunk/tools/bsf/boundperio.pro
r169 r170 2 2 ; 3 3 ; Controle les conditions cycliques 4 ; 5 ; @uses 6 ; <pro>common</pro> 4 7 ; 5 8 ; @version -
trunk/tools/bsf/build_laplacien_f.pro
r169 r170 8 8 ; 9 9 ; il faut modifier cette routine pour toute autre grille 10 ; 11 ; @uses 12 ; <pro>common</pro> 13 ; <propost_it>com_eg</propost_it> 10 14 ; 11 15 ; @history … … 27 31 @common 28 32 @com_eg 33 ; 29 34 COMMON laplaciens, lapla_t, lapla_f 30 35 -
trunk/tools/bsf/curl2.pro
r169 r170 2 2 ; 3 3 ; Calcul du rotationnel d'un champ de vecteur (u,v) [jpi,jpj] 4 ; 5 ; @uses 6 ; <pro>common</pro> 7 ; <propost_it>com_eg</propost_it> 4 8 ; 5 9 ; @history … … 16 20 @common 17 21 @com_eg 18 22 ; 19 23 zu = u*e1u*umaskr[*, *, 0] 20 24 zv = v*e2v*vmaskr[*, *, 0] -
trunk/tools/bsf/diag_bsf.pro
r169 r170 3 3 ; Calcul de la Fonction de Courant Barotrope 4 4 ; a partir du champ de vitesse (u,v) 5 ; 6 ; @uses 7 ; <pro>common</pro> 8 ; <propost_it>com_eg</propost_it> 5 9 ; 6 10 ; @history … … 17 21 @common 18 22 @com_eg 19 ; ;23 ; 20 24 ;; calcul adapte a la grille ORCA 21 25 ;; -
trunk/tools/bsf/inversion.pro
r169 r170 6 6 ; @todo 7 7 ; missing build_laplacien_t module 8 ; 9 ; @uses 10 ; <pro>common</pro> 11 ; <propost_it>com_eg</propost_it> 8 12 ; 9 13 ; @history … … 24 28 @common 25 29 @com_eg 30 ; 26 31 COMMON laplaciens, lapla_t, lapla_f 27 32 -
trunk/tools/bsf/moyz.pro
r169 r170 2 2 ; 3 3 ; Calcul de la moyenne verticale 4 ; 5 ; @uses 6 ; <pro>common</pro> 4 7 ; 5 8 ; @history -
trunk/tools/density_binning/binning_neutral_and_co/bin_velocity_new.pro
r169 r170 1 1 ;+ 2 ; 3 ; @uses 4 ; <pro>common</pro> 2 5 ; 3 6 ; @version -
trunk/tools/density_binning/binning_neutral_and_co/bn2.pro
r169 r170 36 36 ; brunt-vaisala frequency 37 37 ; 38 ; @uses 39 ; <pro>common</pro> 40 ; 38 41 ; @history 39 42 ; Original : 94-07 (G. Madec, M. Imbard) … … 50 53 ; 51 54 @common 55 ; 52 56 case n_params() of 53 57 0:begin -
trunk/tools/density_binning/binning_neutral_and_co/eos.pro
r169 r170 41 41 ; 42 42 ; @uses 43 ; common.pro43 ; <pro>common<pro> 44 44 ; 45 45 ; @history -
trunk/tools/density_binning/binning_neutral_and_co/eos_neutral.pro
r169 r170 28 28 ; @param S {in} 29 29 ; salinity 30 ; 31 ; @uses 32 ; <pro>common</pro> 30 33 ; 31 34 ; @history -
trunk/tools/density_binning/binning_neutral_and_co/fig_msfs_new.pro
r169 r170 3 3 ; @todo 4 4 ; missing 0_initorca2_NDV1 module 5 ; 6 ; @uses 7 ; <pro>common</pro> 8 ; <propost_it>0_initorca2_NDV1</propost_it> missing 5 9 ; 6 10 ; @version -
trunk/tools/density_binning/binning_neutral_and_co/msfs.pro
r169 r170 15 15 ; @keyword ORCA 16 16 ; = 2, 5.... 17 ; 18 ; @uses 19 ; <pro>common</pro> 17 20 ; 18 21 ; @version -
trunk/tools/density_binning/binning_neutral_and_co/npc.pro
r169 r170 19 19 ; @returns 20 20 ; adjusted potential density field 21 21 ; 22 ; @uses 23 ; <pro>common</pro> 24 ; 22 25 ; @history 23 26 ; original : 90-09 (G. Madec) -
trunk/tools/density_binning/density_bin_IDL_gm/bin_sigma.pro
r169 r170 15 15 ; field to bin (structure) 16 16 ; 17 ; @uses 18 ; <pro>common</pro> 19 ; <propost_it>com_eg</propost_it> 20 ; 17 21 ; @history 18 22 ; EG 19-2-99 … … 30 34 @common 31 35 @com_eg 32 36 ; 33 37 ; a- read density and bowl [if sig_bowl=1] 34 38 -
trunk/tools/density_binning/density_bin_IDL_gm/bin_velocity.pro
r169 r170 1 1 ;+ 2 ; 3 ; @uses 4 ; <pro>common</pro> 2 5 ; 3 6 ; @version -
trunk/tools/density_binning/density_bin_IDL_gm/eos.pro
r169 r170 41 41 ; 42 42 ; @uses 43 ; common.pro43 ; <pro>common</pro> 44 44 ; 45 45 ; @history -
trunk/tools/density_binning/density_bin_IDL_gm/fig_msfeiv_submsk_all.pro
r167 r170 1 1 ;+ 2 ; 3 ; @uses 4 ; <propost_it>init</propost_it> 5 ; <propost_it>1_initorca2_v2</propost_it> 2 6 ; 3 7 ; @version -
trunk/tools/density_binning/density_bin_IDL_gm/msf.pro
r169 r170 3 3 ; Calcul de la Fonction de Courant a travers les lignes J 4 4 ; 5 ; 6 ; @uses 7 ; <pro>common</pro> 5 8 ; 6 9 ; @history … … 18 21 ; 19 22 @common 23 ; 20 24 COMMON moy, zonmsk, mermsk, jpl 21 25 IF n_elements(jpl) EQ 0 THEN jpl = jpj -
trunk/tools/density_binning/density_bin_IDL_gm/msfs.pro
r169 r170 1 1 ;+ 2 ; 3 ; @uses 4 ; <pro>common</pro> 2 5 ; 3 6 ; @version … … 12 15 ; 13 16 @common 17 ; 14 18 msf=msfin 15 19 ;------------------------- -
trunk/tools/density_binning/density_bin_IDL_gm/msfz.pro
r169 r170 1 1 ;+ 2 ; 3 ; @uses 4 ; <pro>common</pro> 2 5 ; 3 6 ; @version … … 13 16 ; 14 17 @common 18 ; 15 19 domdef,0,100000 16 20 ;------------------------- -
trunk/tools/density_binning/density_bin_IDL_gm/npc.pro
r169 r170 20 20 ; adjusted potential density field 21 21 ; 22 ; @uses 23 ; <pro>common</pro> 24 ; 22 25 ; @history 23 26 ; original : 90-09 (G. Madec) -
trunk/tools/idl_netcdf/ncdf_colle.pro
r169 r170 37 37 ; 38 38 ; @uses 39 ; attention cette procedure fait appel lea la fonction40 ; colle.pro41 ; souv ant pour une raison encore inexpliquee, IDL ne reconnait pas ds39 ; attention cette procedure fait appel a la fonction 40 ; <pro>colle</pro> 41 ; souvent pour une raison encore inexpliquee, IDL ne reconnait pas ds 42 42 ; ncdf_colle que colle est une fonction et plante en annoncant que la 43 43 ; variable colle is undefinned... … … 50 50 ; IDL>.r ncdf_colle 51 51 ; 52 ; SIDE EFFECTS: Pour coller ncdf_colle appelle colleavec un tableau52 ; SIDE EFFECTS: Pour coller ncdf_colle appelle <pro>colle</pro> avec un tableau 53 53 ; de pointeur en argument. Qd tout se passe bien (ncdf_colle ne plante 54 54 ; pas) les pointeurs et les pointes sont detruits. Par contre en cas -
trunk/tools/idl_netcdf/ncdf_colle2.pro
r169 r170 37 37 ; 38 38 ; @uses 39 ; attention cette procedure fait appel lea la fonction40 ; colle.pro39 ; attention cette procedure fait appel a la fonction 40 ; <pro>colle</pro> 41 41 ; souvant pour une raison encore inexpliquee, IDL ne reconnait pas ds 42 42 ; ncdf_colle que colle est une fonction et plante en annoncant que la … … 50 50 ; IDL>.r ncdf_colle 51 51 ; 52 ; SIDE EFFECTS: Pour coller ncdf_colle appelle colleavec un tableau52 ; SIDE EFFECTS: Pour coller ncdf_colle appelle <pro>colle</pro> avec un tableau 53 53 ; de pointeur en argument. Qd tout se passe bien (ncdf_colle ne plante 54 54 ; pas) les pointeurs et les pointes sont detruits. Par contre en cas -
trunk/tools/idl_netcdf/ncdf_extrait.pro
r169 r170 29 29 ; sont selectionnees. 30 30 ; 31 ; @uses32 ; common.pro33 ;34 31 ; @restrictions 35 32 ; ce programme ne marche que si les tableaux sont de … … 40 37 ; INDICATION BIDON... 41 38 ; 42 ; @examples 39 ; @uses 40 ; <pro>common</pro> 43 41 ; 44 42 ; @history -
trunk/tools/lma/postlma_distpm_am.pro
r169 r170 2 2 ; 3 3 ; plot des distances des modes principaux aux mode moyen hiver/ete 4 ; 5 ; @uses 6 ; <pro>common</pro> 4 7 ; 5 8 ; @version -
trunk/tools/lma/postlma_var.pro
r169 r170 2 2 ; 3 3 ; plot de la variance, % de variance et periode des modes LMA 4 ; 5 ; @uses 6 ; <pro>common</pro> 4 7 ; 5 8 ; @version … … 13 16 ; 14 17 @common 15 18 ; 16 19 jpi = 57 17 20 jpj = 16 -
trunk/tools/lma/slec.pro
r169 r170 1 1 ;+ 2 ; 3 ; @uses 4 ; <pro>common</pro> 2 5 ; 3 6 ; @version … … 13 16 ; 14 17 @common 18 ; 15 19 if strlowcase(name) EQ 'un' then name = 'AM_win1i' 16 20 if strlowcase(name) EQ 'vn' then name = 'AM_win1r' -
trunk/tools/merid_trans.pro
r169 r170 8 8 ; @keyword PS 9 9 ; output is postscript 10 ; 11 ; @uses 12 ; <pro>common</pro> 10 13 ; 11 14 ; @history -
trunk/tools/msf_bin/boundperio.pro
r169 r170 2 2 ; 3 3 ; Controle les conditions cycliques 4 ; 5 ; @uses 6 ; <pro>common</pro> 4 7 ; 5 8 ; @version -
trunk/tools/msf_bin/iniflx.pro
r169 r170 7 7 ; flux) du segment 8 8 ; 9 ; 10 ; @uses 11 ; <pro>common</pro> 9 12 ; 10 13 ; @history … … 23 26 @common 24 27 COMMON flx, indxu, indxv, indyu, indyv, zxuleng, zxvleng, zyuleng, zyvleng 25 26 28 ; 27 29 ; connaissance a priori de la grille -
trunk/tools/msf_bin/msf_sigma.pro
r169 r170 44 44 45 45 ;+ 46 ; 47 ; @uses 48 ; <pro>common</pro> 46 49 ; 47 50 ;- … … 202 205 ;+ 203 206 ; 207 ; @uses 208 ; <pro>common</pro> 209 ; 204 210 ;- 205 211 PRO compute_msf, u, v, msf $ -
trunk/tools/nadw.pro
r169 r170 3 3 ; @param MSF {in} 4 4 ; msf est une tableau 3d [jpl,jpk,nt] ou nt est le nombre de pas de 5 ; 6 ; @uses 7 ; <pro>common</pro> 5 8 ; 6 9 ; @version -
trunk/tools/nino_composite.pro
r169 r170 3 3 ; @todo 4 4 ; missing initorca0 module 5 ; 6 ; @uses 7 ; <propost_it>initorca0</propost_it> 5 8 ; 6 9 ; @version -
trunk/tools/transfo/grads2cdf.pro
r169 r170 2 2 ; 3 3 ; read monthly ECHAM4 grads outputs and build netCDF files 4 ; 5 ; @uses 6 ; <pro>common</pro> 4 7 ; 5 8 ; @history -
trunk/tools/transfo/grads_read.pro
r169 r170 2 2 ; 3 3 ; Reading ECHAM grads files 4 ; 5 ; @uses 6 ; <pro>common</pro> 4 7 ; 5 8 ; @history -
trunk/usr/correl.pro
r169 r170 1 1 ;+ 2 ; 3 ; @uses 4 ; <pro>common</pro> 5 ; <propost_it>com_eg</propost_it> 2 6 ; 3 7 ; @version … … 11 15 @common 12 16 @com_eg 13 17 ; 14 18 ;; command lines 15 19 cmdline2 = [ $ -
trunk/usr/plt_def.pro
r169 r170 2 2 ; 3 3 ; Defaults plot attributes 4 ; 5 ; @uses 6 ; <pro>common</pro> 7 ; <propost_it>com_eg</propost_it> 4 8 ; 5 9 ; @version … … 13 17 @com_eg 14 18 @common 15 19 ; 16 20 ; boxes used in horizontal/vertical display 17 21 ; ----------------------------------------- -
trunk/usr/post_it.pro
r169 r170 1 1 ;+ 2 2 ; 3 ;4 3 ; base to launch a plot 5 4 ; 5 ; @pre 6 6 ; run \@init before 7 ; 8 ; @uses 9 ; <pro>common</pro> 10 ; <propost_it>com_eg</propost_it> 7 11 ; 8 12 ; @version … … 16 20 @common 17 21 @com_eg 18 22 ; 19 23 spec_base_list = [ $ 20 24 ; Special database = f(suffix in name) -
trunk/usr/post_it2.pro
r169 r170 1 1 ;+ 2 ; 3 ; @uses 4 ; <pro>common</pro> 5 ; <propost_it>com_eg</propost_it> 2 6 ; 3 7 ; @version … … 11 15 @common 12 16 @com_eg 13 17 ; 14 18 ;; command lines 15 19 cmdline2 = [ $
Note: See TracChangeset
for help on using the changeset viewer.