Changeset 5
- Timestamp:
- 11/26/07 17:08:23 (17 years ago)
- Location:
- trunk/procs
- Files:
-
- 1 added
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/procs/def_grid.pro
r2 r5 7 7 @common 8 8 @com_eg 9 IF debug_w THEN print, ' ' 10 IF debug_w THEN print, ' ENTER def_grid / cmd =', cmd 9 11 10 12 IF cmd.out EQ 'cdf' THEN BEGIN … … 31 33 IF strpos(cmd.grid, '#') NE -1 THEN BEGIN 32 34 cmd.grid = strmid(cmd.grid, 0, strlen(cmd.grid)-1) 33 IF strpos(cmd.var, '@@') NE -1 THEN BEGIN 34 CASE cmd.var OF 35 '@@voenergy': file_suff_var = '_thetao' 36 ELSE: BEGIN 37 print, ' Define base field for grid for macro in def_grid' 38 stop 39 END 40 ENDCASE 41 ENDIF ELSE file_suff_var = '_'+cmd.var 42 ENDIF 35 @def_file_suff_var 36 ENDIF 37 38 IF debug_w THEN print, ' file_suff_var = ', file_suff_var 43 39 44 40 ; read_grid_from_file ? … … 53 49 ENDIF 54 50 55 ; print, cmd.grid51 IF debug_w THEN print, ' cmd.grid after test read_grid_from_file: ', cmd.grid 56 52 57 53 ; choose grid (if not already loaded) … … 72 68 ; read attributes from Defaults/Grids/grid_config.def 73 69 file_grid_config = hom_def+'grid_config.def' 70 IF debug_w THEN print, ' doing: grep -i "\ '+cmd.grid+' " '+file_grid_config 74 71 spawn, 'grep -i \ '+cmd.grid+' '+file_grid_config, line 75 72 line = strcompress(strtrim(line[0], 2)) 76 73 length = strlen(line) 74 75 IF debug_w THEN print, ' line from grid_config.def ',line 77 76 78 77 IF length EQ 0 THEN BEGIN … … 155 154 END 156 155 'reg1m': BEGIN 156 IF test_read EQ 1 THEN read_grid_from_file = 1 157 END 158 'reg1': BEGIN 157 159 IF test_read EQ 1 THEN read_grid_from_file = 1 158 160 END … … 256 258 final: 257 259 258 box_h_prev = box_h 259 260 IF debug_w THEN print, 'meshlec_type : ', meshlec_type 260 box_h_prev = box_h 261 262 IF debug_w THEN print, ' cmd.grid in def_grid: ', cmd.grid 263 IF debug_w THEN print, ' file_suff_var in def_grid: ', file_suff_var 264 IF debug_w THEN print, ' meshlec_type in def_grid: ', meshlec_type 265 IF debug_w THEN print, ' ...EXIT def_grid' 261 266 262 267 END
Note: See TracChangeset
for help on using the changeset viewer.