Changeset 98 for trunk/SRC/Grid/ncdf_meshread.pro

Timestamp:

06/09/06 17:55:26 (18 years ago)

Author:

smasson

Message:

bugfix ncdf_meshread + comments in compute_fromreg_bilinear_weigaddr

File:

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

trunk/SRC/Grid/ncdf_meshread.pro

@@ -440 +440 @@
     ny = lasty-firsty+1
 @read_ncdf_varget
+    IF jpk EQ 1 THEN res = reform(res, jpi, 1, jpk, /over)
     vmaskred = transpose(temporary(res), [1, 0, 2])
     vmaskred = reform(binary(vmaskred), 8*ny, nx, nz, /over)
@@ -453 +454 @@
   IF micromask NE -1 THEN BEGIN
 @read_ncdf_varget
+    IF jpk EQ 1 THEN res = reform(res, jpi, 1, jpk, /over)
     fmaskredx = transpose(temporary(res), [1, 0, 2])
     fmaskredx = reform(binary(fmaskredx), 8*ny, nx, nz, /over)