Changeset 421 for trunk/SRC/Grid/computegrid.pro

Timestamp:

02/02/10 09:47:19 (14 years ago)

Author:

smasson

Message:

make sure that x[y]min[max]mesh are properly used

File:

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

trunk/SRC/Grid/computegrid.pro

@@ -232 +232 @@
 ; if (we did not activate /plain and xminmesh, xmaxmesh, yminmesh,
 ; ymaxmesh keywords are defined to their default values), we redefine
-; xminmesh, xmaxmesh, yminmesh, ymaxmesh in order to reove the
+; xminmesh, xmaxmesh, yminmesh, ymaxmesh in order to remove the
 ; overlapping part and/or to open the domain (avoid it be forced
 ; to use cell_fill = 1).
@@ -362 +362 @@
   IF strlen(key_gridtype) EQ 3 THEN fullcgrid = 1
 ;
-  IF n_elements(xminmesh) NE 0 AND n_elements(xmaxmesh) NE 0 THEN BEGIN
+  IF n_elements(xminmesh) NE 0 OR n_elements(xmaxmesh) NE 0 THEN BEGIN
+    IF n_elements(xminmesh) EQ 0 THEN xminmesh = ixminmesh
+    IF n_elements(xmaxmesh) EQ 0 THEN xmaxmesh = ixmaxmesh
     IF nx EQ jpi AND xminmesh EQ ixminmesh AND xmaxmesh EQ ixmaxmesh THEN xalreadycut = 1
   ENDIF
@@ -383 +385 @@
   ENDELSE
 
-  IF n_elements(yminmesh) NE 0 AND n_elements(ymaxmesh) NE 0 THEN BEGIN
+  IF n_elements(yminmesh) NE 0 OR n_elements(ymaxmesh) NE 0 THEN BEGIN
+    IF n_elements(yminmesh) EQ 0 THEN yminmesh = iyminmesh
+    IF n_elements(ymaxmesh) EQ 0 THEN ymaxmesh = iymaxmesh
     IF ny EQ jpj AND yminmesh EQ iyminmesh AND ymaxmesh EQ iymaxmesh THEN yalreadycut = 1
   ENDIF