Changeset 20
- Timestamp:
- 11/28/07 15:40:20 (17 years ago)
- Location:
- trunk/procs
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/procs/com_eg.pro
r12 r20 27 27 COMMON switch1, f_suffix, idx_main, cmdline_main, cmd2, sw_diffg, h_config_oce, cmd_wrk 28 28 COMMON switch2, h_config_oce_type, v_config_oce, v_config_oce_type, box_h_prev 29 COMMON switch3, orca_mask_version, orca_mask_version_type, read_grid_from_file 29 COMMON switch3, orca_mask_version, orca_mask_version_type, read_grid_from_file, force_all_data_read 30 30 ; 31 31 ; printers -
trunk/procs/def_box.pro
r2 r20 5 5 ; find hovmoeller box in Defaults file 6 6 ; 7 IF debug_w THEN print, ' ENTER def_box...' 7 8 plt_test = plt 8 9 IF strpos(plt, '@') GT 1 THEN BEGIN … … 12 13 'xy': boxdef = strmid(plt_test, 3, strlen(plt_test)-3) 13 14 'z_': boxdef = strmid(plt_test, 2, strlen(plt_test)-2) 15 'y_': boxdef = strmid(plt_test, 2, strlen(plt_test)-2) 16 'x_': boxdef = strmid(plt_test, 2, strlen(plt_test)-2) 14 17 'zt': boxdef = strmid(plt_test, 3, strlen(plt_test)-3) 15 18 ELSE: boxdef = strmid(plt_test, dimplot+1, strlen(plt_test)-(dimplot+1)) 16 19 ENDCASE 20 21 force_all_data_read = 1 22 23 IF debug_w THEN print, ' boxdef stage 1 = ',boxdef 17 24 18 25 IF strmid(boxdef, 0, 1) EQ '#' THEN boxdef = 'default' … … 46 53 IF boxdef EQ 'default' THEN boxdef = 'global' 47 54 55 IF debug_w THEN print, ' boxdef final = ',boxdef 56 IF debug_w THEN print, ' ...EXIT def_box' 57 48 58 return, box 49 59 END -
trunk/procs/init_post_it.pro
r2 r20 20 20 debug_w = 0 21 21 default_txt_format = 'E' 22 force_all_data_read = 0 -
trunk/procs/plt_map.pro
r12 r20 158 158 sw_diffg = 0 159 159 def_grid, cmd 160 IF debug_w THEN print, 'def_grid,cmd dans plt_map '161 IF debug_w THEN print, 'cmd.grid : ', cmd.grid162 IF debug_w THEN print, 'vargrid : ', vargrid163 160 164 161 ; vertical average if 3D field … … 170 167 171 168 ; read all data if netcdf output 169 170 IF debug_w THEN print, ' force_all_data_read in pltmap: ', force_all_data_read 172 171 173 172 IF cmd.out NE 'cdf' THEN BEGIN
Note: See TracChangeset
for help on using the changeset viewer.