Changeset 192 for trunk/SRC/ToBeReviewed/INIT/initncdf.pro

Timestamp:

09/22/06 11:37:08 (18 years ago)

Author:

smasson

Message:

several bugfix + new strsed

File:

• trunk/SRC/ToBeReviewed/INIT/initncdf.pro (modified) (2 diffs)

trunk/SRC/ToBeReviewed/INIT/initncdf.pro

@@ -125 +125 @@
   xvarid = (where(namevar EQ xaxisname OR namevar EQ 'longitude' $
                   OR namevar EQ 'nav_lon' OR namevar EQ 'lon' $
-                  OR namevar EQ 'lon_rho' OR namevar EQ 'NbLongitudes'))[0]
-  romsgrid = strmid(namevar[xvarid], 0, 4) EQ 'lon_'
+                  OR namevar EQ 'lon_rho' OR namevar EQ 'nblongitudes'))[0]
   if xvarid EQ -1 then begin
     print, 'the xaxis was not found, check the use of XAXISNAME keyword'
     stop
   endif
+  romsgrid = strmid(namevar[xvarid], 0, 4) EQ 'lon_'
 ; get the size of xaxis
   xinq = ncdf_varinq(cdfid, xvarid)
@@ -149 +149 @@
   yvarid = (where(namevar EQ yaxisname OR namevar EQ 'latitude' $
                   OR namevar EQ 'nav_lat' OR namevar EQ 'lat' $
-                  OR namevar EQ 'lat_rho' OR namevar EQ 'NbLatitudes'))[0]
+                  OR namevar EQ 'lat_rho' OR namevar EQ 'nblatitudes'))[0]
   yvarid = yvarid[0]
   if yvarid EQ -1 then begin