- Timestamp:
- 05/29/07 10:59:39 (17 years ago)
- Location:
- trunk/SRC
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/SRC/Computation/curl.pro
r242 r248 215 215 ; 216 216 tabf = (fmask())[indice2d+jpi*jpj*firstzt]/(e1f[indice2d]*e2f[indice2d]) 217 tabf = temporary(tabf[*])#replicate(1., jpt)217 tabf = reform(temporary(tabf[*])#replicate(1., jpt), nx, ny, jpt, /overwrite) 218 218 landf = where(tabf EQ 0) 219 219 ; -
trunk/SRC/ToBeReviewed/GRILLE/tracegrille.pro
r232 r248 6 6 ; @categories 7 7 ; 8 ; @param GLAMIN {in}{required} 9 ; The 1d or 2d array in longitude of points of the grid.If GLAM/GLAMIN 10 ; is not specified, it trace the grid specified by vargrid, on the 11 ; domain defined by domdef. 8 ; @param GLAMIN {in}{optional}{type=1d or 2d array}{default=glam specified by vargrid, on the domain defined by domdef} 9 ; Longitude of points of the grid. 12 10 ; 13 ; @param GPHIIN {in}{required} 14 ; The 1d or 2d array in latitude of points of the grid.If GPHI/GPHIIN 15 ; is not specified, it trace the grid specified by vargrid, on the 16 ; domain defined by domdef. 11 ; @param GPHIIN {in}{optional}{type=1d or 2d array}{default=gphi specified by vargrid, on the domain defined by domdef} 12 ; Latitude of points of the grid. 17 13 ; 18 ; @keyword XSTRIDE {type=integer} 14 ; @keyword XSTRIDE {type=integer}{default=1} 19 15 ; It specify that we want to trace only one line of 20 16 ; constant i every xstride points 21 17 ; 22 ; @keyword YSTRIDE {type=integer} 18 ; @keyword YSTRIDE {type=integer}{default=1} 23 19 ; It specify that we want to trace only one line of 24 20 ; constant j every xstride points -
trunk/SRC/Utilities/isafile.pro
r242 r248 89 89 dirname = file_dirname(fileout) 90 90 ; should we redefine dirname? 91 if fileout NE dirname+'/'+basename AND dirname EQ '.' AND NOT keyword_set(iodirectory) then dirname = '' 91 92 if keyword_set(iodirectory) AND dirname EQ '.' then dirname = iodirectory 92 93 ;
Note: See TracChangeset
for help on using the changeset viewer.