Changeset 226 for trunk/SRC/ToBeReviewed/CALCULS/remplit.pro

Timestamp:

03/16/07 10:22:26 (17 years ago)

Author:

pinsard

Message:

corrections of some misspellings in some *.pro

File:

• trunk/SRC/ToBeReviewed/CALCULS/remplit.pro (modified) (6 diffs)

trunk/SRC/ToBeReviewed/CALCULS/remplit.pro

@@ -22 +22 @@
 ;
 ; @keyword FILLXDIR
-; 
+;
 ;
 ; @keyword FILLYDIR
@@ -51 +51 @@
 ; $Id$
 ;
-  ;;
-  ;; Extrapole zinout[jpi,jpj] sur les continents en utilisant les 4
-  ;; plus proches voisins masques oceaniquement et construit un nouveau
-;   masque
-  ;; contenant l'ancien masque oceanique PLUSles points extrapoles.
-  ;; Reitere le processus niter fois.
-  ;; C'est pas clair, essayez !
-  ;;
-  ;;
+;;
+;; Extrapole zinout[jpi,jpj] sur les continents en utilisant les 4
+;; plus proches voisins masques oceaniquement et construit un nouveau masque
+;; contenant l'ancien masque oceanique PLUS les points extrapoles.
+;; Reitere le processus niter fois.
+;; C'est pas clair, essayez !
+;;
+;;
 ;
 ;    /Nan: to fill the point which have the value
-;    !values.f_nan. Whitout this keyword, these point are not filling
+;    !values.f_nan. Without this keyword, these point are not filling
 ;    and stays at !values.f_nan.
 ;
@@ -139 +138 @@
 ;---------------------------------------------------------------
 ;---------------------------------------------------------------
-; iteration 
-;---------------------------------------------------------------
-;---------------------------------------------------------------
-  FOR n = 1, niter DO BEGIN 
+; iteration
+;---------------------------------------------------------------
+;---------------------------------------------------------------
+  FOR n = 1, niter DO BEGIN
 ; on trouve les points coast
     tempdeux = systime(1)       ; pour key_performance =2
@@ -244 +243 @@
       END
     endcase
-;    
+;
     z[coast] =  temporary(zcoast)/ temporary(weight)
 ; we update the the boundary conditions of z
@@ -258 +257 @@
     IF testvar(var = key_performance) EQ 2 THEN $
       print, 'temps remplit: une iteration ', systime(1)-tempdeux
-  ENDFOR 
+  ENDFOR
 fini:
 ;
@@ -280 +279 @@
   key_gridtype = oldkey_gridtype
 ;---------------------------------------------------------------
-  if keyword_set(key_performance) THEN print, 'temps remplit', systime(1)-tempsun 
+  if keyword_set(key_performance) THEN print, 'temps remplit', systime(1)-tempsun
   return, z
-END 
+END