Changeset 453

Timestamp:

03/26/11 14:43:58 (13 years ago)

Author:

smasson

Message:

bugfix when jpk ne jpkglo, introduced in changeset:450

File:

• trunk/SRC/Grid/ncdf_meshread.pro (modified) (2 diffs)

trunk/SRC/Grid/ncdf_meshread.pro

@@ -285 +285 @@
   hdept = -1
   hdepw = -1
-  IF (where(allvarname EQ 'hdept'))[0] NE -1 THEN BEGIN
+  IF (where(allvarname EQ 'hdept'))[0] NE -1 AND jpk EQ jpkglo THEN BEGIN
     key_partialstep = 1
     namevar = [namevar, 'hdept', 'hdepw']
   ENDIF
 ; is gdept a real 3D array?
-  IF (where(allvarname EQ 'gdept' ))[0] NE -1 THEN BEGIN
+  IF (where(allvarname EQ 'gdept' ))[0] NE -1 AND jpk EQ jpkglo THEN BEGIN
     varinq = ncdf_varinq(cdfid, 'gdept')
     if varinq.ndims GE 3 THEN BEGIN
@@ -305 +305 @@
   IF (where(allvarname EQ 'e3t_ps'))[0] NE -1 THEN namevar = [namevar, 'e3t_ps', 'e3w_ps' ]
 ; is e3t a real 3D array?
-  IF (where(allvarname EQ 'e3t'   ))[0] NE -1 THEN BEGIN
+  IF (where(allvarname EQ 'e3t'   ))[0] NE -1 AND jpk EQ jpkglo THEN BEGIN
     varinq = ncdf_varinq(cdfid, 'e3t')
     if varinq.ndims GE 3 THEN BEGIN