Changeset 315

Timestamp:

12/03/07 15:13:52 (16 years ago)

Author:

smasson

Message:

bugfix related to fmask

File:

• trunk/SRC/Grid/computegrid.pro (modified) (3 diffs)

trunk/SRC/Grid/computegrid.pro

@@ -1050 +1050 @@
       ENDIF ELSE umaskred = tmask[jpi-1, *, *]
       vmaskred = tmask[*, jpj-1, *]
-      fmaskredy = tmask[jpi-1, *, *]
-      fmaskredx = tmask[*, jpj-1, *]
     ENDIF
+    fmaskredy = tmask[jpi-1, *, *]
+    fmaskredx = tmask[*, jpj-1, *]
   ENDIF ELSE BEGIN
     tmask = replicate(1b, jpi, jpj, jpk)
@@ -1058 +1058 @@
       umaskred  = replicate(1b, jpj, jpk)
       vmaskred  = replicate(1b, jpi, jpk)
-      fmaskredy = replicate(1b, jpj, jpk)
-      fmaskredx = replicate(1b, jpi, jpk)
     ENDIF
+    fmaskredy = replicate(1b, jpj, jpk)
+    fmaskredx = replicate(1b, jpi, jpk)
   ENDELSE
 ;
@@ -1089 +1089 @@
     umaskred = !values.f_nan
     vmaskred = !values.f_nan
-    fmaskredy = !values.f_nan
-    fmaskredx = !values.f_nan
   ENDIF
 ;