Changeset 92 for trunk/procs/def_box.pro

Timestamp:

04/30/08 22:21:22 (16 years ago)

Author:

ericg

Message:

Misc EG updates following merge with new nc_read.pro (r86)

File:

• trunk/procs/def_box.pro (modified) (2 diffs)

trunk/procs/def_box.pro

@@ -23 +23 @@
    IF debug_w THEN print, '      boxdef stage 1 = ',boxdef
 
-   IF strmid(boxdef, 0, 1) EQ '#' THEN boxdef = 'default'
+   ; define box from pseudo-3Dmask
 
-   IF boxdef NE 'default' AND boxdef NE '' THEN BEGIN 
+   pseudo_3d_msk = ''
+
+   IF strmid(boxdef, 0, 1) EQ '#' THEN BEGIN 
+      pseudo_3d_msk = strmid(boxdef, 1, strlen(boxdef)-1)
+      boxdef = 'global'
+
+   ENDIF 
+
+   IF boxdef NE 'global' AND boxdef NE '' THEN BEGIN 
 
       file_b = hom_def+'domain_boxes.def'
@@ -51 +59 @@
    ENDELSE 
       
-   IF boxdef EQ 'default' THEN boxdef = 'global'
-
    IF debug_w THEN print, '      boxdef final = ',boxdef
    IF debug_w THEN print, '   ...EXIT def_box'