Changeset 226 for trunk/SRC/Grid/romsdepth.pro

Timestamp:

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

Author:

pinsard

Message:

corrections of some misspellings in some *.pro

File:

• trunk/SRC/Grid/romsdepth.pro (modified) (4 diffs)

trunk/SRC/Grid/romsdepth.pro

@@ -16 +16 @@
 ; common variable (cm_4mesh) romszinfos must be correctly defined
 ;
-; @history 
+; @history
 ; Sept 2006 Sebastien Masson (smasson\@lodyc.jussieu.fr)
 ;
@@ -41 +41 @@
   grille, -1, -1, -1, -1, nx, ny, nz, firstx, firsty, firstz, lastx, lasty, lastz
   hroms = hroms[firstx:lastx, firsty:lasty]
-  nt = n_elements(zeta)/nx/ny 
+  nt = n_elements(zeta)/nx/ny
 ;
   cff1 = 1./sinh(theta_s)
@@ -47 +47 @@
 ;
   IF type EQ 'W' THEN BEGIN
-    sc = (findgen(jpk)-jpk)/jpk      
-;  sc = (dindgen(jpk+1)-jpk)/jpk      
+    sc = (findgen(jpk)-jpk)/jpk
+;  sc = (dindgen(jpk+1)-jpk)/jpk
 ;  jpk = jpk+1
   ENDIF ELSE BEGIN
-    sc = (findgen(jpk)-jpk-0.5+1)/jpk  
+    sc = (findgen(jpk)-jpk-0.5+1)/jpk
   ENDELSE
 ;
@@ -60 +60 @@
   hinv = 1./hroms
   hinv = hinv[*]#replicate(1., jpk)
-; put a z dimenstion to zeta
+; put a z dimension to zeta
   zeta = transpose(temporary(zeta))
   zeta = reform((temporary(zeta))[*]#replicate(1., jpk), nt, ny, nx, jpk, /overwrite)