Changeset 226 for trunk/SRC/Interpolation/compute_fromirr_bilinear_weigaddr.pro

Timestamp:

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

Author:

pinsard

Message:

corrections of some misspellings in some *.pro

File:

• trunk/SRC/Interpolation/compute_fromirr_bilinear_weigaddr.pro (modified) (6 diffs)

trunk/SRC/Interpolation/compute_fromirr_bilinear_weigaddr.pro

@@ -5 +5 @@
 ; to any grid using the bilinear method
 ;
-; @categories 
+; @categories
 ; Interpolation
 ;
@@ -53 +53 @@
 ;  June 2006: Sebastien Masson (smasson\@lodyc.jussieu.fr)
 ;
-; @version $Id$
+; @version
+; $Id$
 ;
 ;-
@@ -65 +66 @@
 ;
   jpio = (size(olonin, /dimensions))[0]
-  jpjo = (size(olonin, /dimensions))[1]  
+  jpjo = (size(olonin, /dimensions))[1]
 ; mask check
   IF n_elements(omsk) EQ 1 AND omsk[0] EQ -1 THEN omsk = replicate(1b, jpio, jpjo)
@@ -73 +74 @@
     stop
   ENDIF
-  IF n_elements(amsk) NE jpia*jpja THEN BEGIN 
+  IF n_elements(amsk) NE jpia*jpja THEN BEGIN
     print, 'output grid mask do not have the good size'
     stop
@@ -181 +182 @@
         ind = good[ind]
 ; now, we morph the quadrilateral ocean cell into the reference square (0 -> 1)
-; in addition we get the corrdinates of the atmospheric point in this new morphed square
+; in addition we get the coordinates of the atmospheric point in this new morphed square
         IF onsphere THEN BEGIN
 ; Warning! quadrilateral2square use anticlockwise quadrilateral definition
@@ -213 +214 @@
           xy[1] EQ 0 AND (tmpmsk[0]+tmpmsk[1]) EQ 0    : foraddr[n] = -1
           xy[1] EQ 1 AND (tmpmsk[2]+tmpmsk[3]) EQ 0    : foraddr[n] = -1
-          ELSE: BEGIN 
+          ELSE: BEGIN
 ; we keep its address
         foraddr[n] = ind