Changeset 248

Timestamp:

05/29/07 10:59:39 (17 years ago)

Author:

smasson

Message:

minor bugbix

Location:

trunk/SRC

Files:

• Computation/curl.pro (modified) (1 diff)
• ToBeReviewed/GRILLE/tracegrille.pro (modified) (1 diff)
• Utilities/isafile.pro (modified) (1 diff)

trunk/SRC/Computation/curl.pro

@@ -215 +215 @@
 ;
       tabf = (fmask())[indice2d+jpi*jpj*firstzt]/(e1f[indice2d]*e2f[indice2d])
-      tabf = temporary(tabf[*])#replicate(1., jpt)
+      tabf = reform(temporary(tabf[*])#replicate(1., jpt), nx, ny, jpt, /overwrite)
       landf = where(tabf EQ 0)
 ;

trunk/SRC/ToBeReviewed/GRILLE/tracegrille.pro

@@ -6 +6 @@
 ; @categories
 ;
-; @param GLAMIN {in}{required}
-; The 1d or 2d array in longitude of points of the grid.If GLAM/GLAMIN
-; is not specified, it trace the grid specified by vargrid, on the
-; domain defined by domdef.
+; @param GLAMIN {in}{optional}{type=1d or 2d array}{default=glam specified by vargrid, on the domain defined by domdef}
+; Longitude of points of the grid.
 ;
-; @param GPHIIN {in}{required}
-; The 1d or 2d array in latitude of points of the grid.If GPHI/GPHIIN
-; is not specified, it trace the grid specified by vargrid, on the
-; domain defined by domdef.
+; @param GPHIIN {in}{optional}{type=1d or 2d array}{default=gphi specified by vargrid, on the domain defined by domdef}
+; Latitude of points of the grid.
 ;
-; @keyword XSTRIDE {type=integer}
+; @keyword XSTRIDE {type=integer}{default=1}
 ; It specify that we want to trace only one line of
 ; constant i every xstride points
 ;
-; @keyword YSTRIDE {type=integer}
+; @keyword YSTRIDE {type=integer}{default=1}
 ; It specify that we want to trace only one line of
 ; constant j every xstride points

trunk/SRC/Utilities/isafile.pro

@@ -89 +89 @@
   dirname = file_dirname(fileout)
 ; should we redefine dirname?
+  if fileout NE dirname+'/'+basename AND dirname EQ '.' AND NOT keyword_set(iodirectory) then dirname = ''
   if keyword_set(iodirectory) AND dirname EQ '.' then dirname = iodirectory
 ;