Changeset 226 for trunk/SRC/ToBeReviewed/CALCULS/projectondepth.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/projectondepth.pro (modified) (6 diffs)

trunk/SRC/ToBeReviewed/CALCULS/projectondepth.pro

@@ -12 +12 @@
 ; @param ARRAYIN {type=3d array}
 ; It is a 3d array whose 3rd dimension must be equal to jpk
-; 
+;
 ; @param DEPTHIN {type=2d array}
 ; It is a 2d array indicating for each point n, at which depth to project
-;       
+;
 ; @returns
 ; A 2d array which is the projection of the 3d array following depths indicated by depthin
@@ -22 +22 @@
 ; common.pro
 ;
-; @restrictions 
+; @restrictions
 ; points at !values.f_nan impossible calculation. Land points masked at valmask.
 ;
@@ -29 +29 @@
 ;   IDL> a=gdept[jpk-1]/(1.*jpi*jpj)*findgen(jpi,jpj)
 ; We build an array to project on these depths. For the test,
-; we build a 3d array whose each vector following z is the depth. 
+; we build a 3d array whose each vector following z is the depth.
 ;   IDL> arraytest=replicate(1,jpi*jpj)#gdept
 ;   IDL> arraytest=reform(arraytest,jpi,jpj,jpk, /over)
@@ -35 +35 @@
 ;   IDL> plt, 1e6*(a-projectondepth(arraytest,a)),/nocontour
 ;   ->null field at 1e-6 pres
-; 
-;  verifcation projecting the temperature of 20°C for example...
+;
+;  verification projecting the temperature of 20°C for example...
 ;
 ; @history
@@ -63 +63 @@
    if tailledepth[0] NE 2 THEN return, report('Depth array must have 2 dimensions')
    if taillearray[0] NE 3 THEN return, report('Array in must have 3 dimensions')
-; verification of the coherence between array's size and the domain 
+; verification of the coherence between array's size and the domain
    grille, mask, -1, -1, -1,nx,ny,nz,firstx,firsty,firstz,lastx,lasty,lastz
    case 1 of
@@ -103 +103 @@
    if terre[0] NE -1 then res[terre] = valmask
 ;------------------------------------------------------------
-   if keyword_set(key_performance) THEN print, 'temps projectondepth', systime(1)-tempsun 
+   if keyword_set(key_performance) THEN print, 'temps projectondepth', systime(1)-tempsun
    return, res
 end