Changeset 365

Timestamp:

07/31/08 15:29:06 (16 years ago)

Author:

pinsard

Message:

typo

Location:

trunk/SRC/ToBeReviewed

Files:

• INIT/initncdf.pro (modified) (1 diff)
• LECTURE/read_ncdf.pro (modified) (11 diffs)
• PLOTS/DIVERS/checkfield.pro (modified) (1 diff)

trunk/SRC/ToBeReviewed/INIT/initncdf.pro

@@ -3 +3 @@
 ; @file_comments
 ; Initfile for Netcdf file. define all the grid parameters through
-; an appropriate call to computegid
+; an appropriate call to <pro>computegrid</pro>
 ;
 ; @categories

trunk/SRC/ToBeReviewed/LECTURE/read_ncdf.pro

@@ -19 +19 @@
 ; Relative with the time axis.
 ; These can be
-;  - 2 date of the  type yyyymmdd and in this case, we select dates
+;  - 2 dates of the type yyyymmdd and in this case, we select data
 ;  which are included between these two dates.
-;  - 2 indexes which define between which and which time step we have
+;  - 2 indexes which define between which and which time steps we have
 ;  to extract the temporal dimension.
 ;
-; @param ENDING  {in}{required}
+; @param ENDING {in}{required}
 ; Relative with the time axis.
 ; See BEGINNING.
@@ -44 +44 @@
 ; a string used to specify the direction along which we want to make
 ; spatial and/or temporal mean. It could be: 'x' 'y' 'z' 't' 'xy' 'xz'
-; 'yz' 'xyz' 'xt' 'yt' 'zt' 'xyt' 'xzt' 'yzt' or 'xyzt' 
+; 'yz' 'xyz' 'xt' 'yt' 'zt' 'xyt' 'xzt' 'yzt' or 'xyzt'
 ;
 ; @keyword FILENAME {required}{type=string}
@@ -50 +50 @@
 ;
 ; @keyword INIT {default=0}{type=scalar: 0 or 1}
-; To call automatically <pro>initncdf</pro> with filename as input argument 
+; To call automatically <pro>initncdf</pro> with filename as input argument
 ; and thus ; redefine all the grid parameters
 ;
@@ -153 +153 @@
   ENDFOR
 ;------------------------------------------------------------
-; we check if the variable has a vertical dimension and/or 
-; a record dimension. This is useful to define boxzoom 
+; we check if the variable has a vertical dimension and/or
+; a record dimension. This is useful to define boxzoom
 ; keyword in domdef
 ;------------------------------------------------------------
-  dummy = where(varinq.dim EQ inq.recdim, tinvar) 
+  dummy = where(varinq.dim EQ inq.recdim, tinvar)
 ; check the presence of a vertical dimension according to the
 ; number of dimensions and the presence of a record dimension
@@ -174 +174 @@
 ; define time and jpt
   CASE 1 OF
-    keyword_set(timestep):BEGIN 
+    keyword_set(timestep):BEGIN
       firsttps = long(beginning[0])
       IF n_elements(ending) NE 0 THEN lasttps = long(ending[0]) ELSE lasttps = firsttps
@@ -180 +180 @@
       IF NOT keyword_set(callitself) then time = julday(1, 1, 1) + lindgen(jpt)
     END
-    keyword_set(parent):BEGIN 
+    keyword_set(parent):BEGIN
       widget_control, parent, get_uvalue = top_uvalue
       filelist = extractatt(top_uvalue, 'filelist')
@@ -192 +192 @@
       jpt = lasttps-firsttps+1
     END
-    ELSE:BEGIN 
+    ELSE:BEGIN
       time = ncdf_gettime(filename, cdfid, caller = 'read_ncdf', err = err, _extra = ex)
       IF n_elements(err) NE 0 THEN BEGIN
@@ -257 +257 @@
   ENDELSE
 ;---------------------------------------------------------------
-; redefinition of the  domain
+; redefinition of the domain
 ;---------------------------------------------------------------
   IF keyword_set(tout) THEN BEGIN
@@ -343 +343 @@
       varinq.ndims eq 2:                                               earth = where(mask[*, *, 0] EQ 0) ;xy   array
       varinq.ndims eq 3 AND (where(varinq.dim EQ inq.recdim))[0] EQ -1:earth = where(mask EQ 0)          ;xyz  array
-      varinq.ndims eq 3 AND (where(varinq.dim EQ inq.recdim))[0] NE -1:earth = where(mask[*, *, 0] EQ 0) ;xyt  array    
+      varinq.ndims eq 3 AND (where(varinq.dim EQ inq.recdim))[0] NE -1:earth = where(mask[*, *, 0] EQ 0) ;xyt  array
       varinq.ndims eq 4:                                               earth = where(mask EQ 0)          ;xyzt array
     ENDCASE
@@ -368 +368 @@
   ENDIF
   IF missing[0] NE -1 THEN res[temporary(missing)] = !values.f_nan
-  IF earth[0] NE -1 THEN BEGIN 
-    IF varinq.ndims eq 3 AND (where(varinq.dim EQ inq.recdim))[0] NE -1 THEN $ ;xyt array    
+  IF earth[0] NE -1 THEN BEGIN
+    IF varinq.ndims eq 3 AND (where(varinq.dim EQ inq.recdim))[0] NE -1 THEN $ ;xyt array
        earth = earth#replicate(1, jpt)+replicate(nx*ny, n_elements(earth))#lindgen(jpt)
     IF varinq.ndims eq 4 THEN earth = earth#replicate(1, jpt)+replicate(nx*ny*nz, n_elements(earth))#lindgen(jpt)
     res[temporary(earth)] = 1.e20
-  ENDIF 
+  ENDIF
 ;---------------------------------------------------------------------
 ; if it is roms outputs, we need to get additionals infos...
@@ -412 +412 @@
         jpt = 1
       ENDIF
-    ENDELSE 
+    ENDELSE
   ENDIF
 ;---------------------------------------------------------------------

trunk/SRC/ToBeReviewed/PLOTS/DIVERS/checkfield.pro

@@ -215 +215 @@
   IF n_elements(arr) EQ 1 THEN BEGIN
     if arr EQ -1 then $
-      return, report('Error: input array = -1. Maybe the reading did ont perform well...', /simple) $
+      return, report('Error: input array = -1. Maybe the reading did not perform well...', /simple) $
     ELSE return, report('Error: input array is a scalar', /simple)
   ENDIF