Changeset 20

Timestamp:

11/28/07 15:40:20 (16 years ago)

Author:

kolasinski

Message:

Add force_all_data_read variable

Location:

trunk/procs

Files:

• com_eg.pro (modified) (1 diff)
• def_box.pro (modified) (3 diffs)
• init_post_it.pro (modified) (1 diff)
• plt_map.pro (modified) (2 diffs)

trunk/procs/com_eg.pro

@@ -27 +27 @@
 COMMON switch1, f_suffix, idx_main, cmdline_main, cmd2, sw_diffg, h_config_oce, cmd_wrk
 COMMON switch2, h_config_oce_type, v_config_oce, v_config_oce_type,  box_h_prev
-COMMON switch3, orca_mask_version, orca_mask_version_type, read_grid_from_file 
+COMMON switch3, orca_mask_version, orca_mask_version_type, read_grid_from_file, force_all_data_read
 ;
 ; printers

trunk/procs/def_box.pro

@@ -5 +5 @@
 ; find hovmoeller box in Defaults file
 ;
+   IF debug_w THEN print, '   ENTER def_box...'
    plt_test = plt
    IF strpos(plt, '@') GT 1 THEN BEGIN
@@ -12 +13 @@
       'xy': boxdef = strmid(plt_test, 3, strlen(plt_test)-3)
       'z_': boxdef = strmid(plt_test, 2, strlen(plt_test)-2)
+      'y_': boxdef = strmid(plt_test, 2, strlen(plt_test)-2)
+      'x_': boxdef = strmid(plt_test, 2, strlen(plt_test)-2)
       'zt': boxdef = strmid(plt_test, 3, strlen(plt_test)-3)
       ELSE: boxdef = strmid(plt_test, dimplot+1, strlen(plt_test)-(dimplot+1))
    ENDCASE 
+
+   force_all_data_read = 1
+
+   IF debug_w THEN print, '      boxdef stage 1 = ',boxdef
 
    IF strmid(boxdef, 0, 1) EQ '#' THEN boxdef = 'default'
@@ -46 +53 @@
    IF boxdef EQ 'default' THEN boxdef = 'global'
 
+   IF debug_w THEN print, '      boxdef final = ',boxdef
+   IF debug_w THEN print, '   ...EXIT def_box'
+
    return, box
 END 

trunk/procs/init_post_it.pro

@@ -20 +20 @@
    debug_w = 0
    default_txt_format = 'E'
+   force_all_data_read = 0

trunk/procs/plt_map.pro

@@ -158 +158 @@
    sw_diffg =  0
    def_grid, cmd
-   IF debug_w THEN  print,  'def_grid,cmd dans plt_map '
-   IF debug_w THEN  print,  'cmd.grid : ',  cmd.grid
-   IF debug_w THEN  print,  'vargrid : ',  vargrid
 
 ; vertical average if 3D field
@@ -170 +167 @@
 
 ; read all data if netcdf output
+
+   IF debug_w THEN print, '    force_all_data_read in pltmap: ', force_all_data_read
 
    IF cmd.out NE 'cdf' THEN BEGIN