Changeset 26
- Timestamp:
- 11/28/07 17:35:42 (17 years ago)
- Location:
- trunk/procs
- Files:
-
- 6 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/procs/data_read.pro
r2 r26 10 10 ; same data as previous read ? 11 11 12 read = 1 12 IF debug_w THEN print, ' ENTER data_read...' 13 IF debug_w THEN print, ' cmd at top of data_read = ', cmd 14 15 read = 1 13 16 14 17 IF cmd.var EQ cmd_prev.var AND cmd.grid EQ cmd_prev.grid AND cmd.plt EQ cmd_prev.plt AND cmd.timave EQ cmd_prev.timave AND cmd.date1 EQ cmd_prev.date1 THEN BEGIN … … 70 73 ncdf_db = def_dbase(cmd.exp) 71 74 75 IF debug_w THEN print, ' varexp defined in data_read = ', varexp 76 72 77 ; define file name 73 78 74 79 def_file_name, cmd, ncdf_db, file_name, delta_t1 75 80 81 IF debug_w THEN print, ' varexp step 1 in data_read = ', varexp 82 76 83 ; get file if remote 77 84 78 85 get_file, file_name, ncdf_db 86 87 IF debug_w THEN print, ' varexp step 2 in data_read = ', varexp 79 88 80 89 ; read grid from file if require (@<grid> option) … … 84 93 key_shift_map = key_shift 85 94 ENDIF 95 96 IF debug_w THEN print, ' varexp step 3 in data_read = ', varexp 86 97 87 98 ; define data domain … … 141 152 box_plot = def_box(cmd.plt, 2, legbox, time_stride) 142 153 domdef, box_plot[0:3], /MEMEINDICES 154 ; force all_data read 155 all_data = 1 143 156 END 144 157 ELSE: domdef, /MEMEINDICES … … 487 500 ENDELSE 488 501 502 IF debug_w THEN print, ' varexp before exit in data_read = ', varexp 503 IF debug_w THEN print, ' ...EXIT data_read' 504 489 505 return, fldr 490 506 -
trunk/procs/def_grid.pro
r9 r26 73 73 file_grid_config = hom_def+'grid_config.def' 74 74 IF debug_w THEN print, ' doing: grep -i "\ '+cmd.grid+' " '+file_grid_config 75 spawn, 'grep -i \ '+cmd.grid+''+file_grid_config, line75 spawn, 'grep -i "\ '+cmd.grid+' " '+file_grid_config, line 76 76 line = strcompress(strtrim(line[0], 2)) 77 77 length = strlen(line) … … 279 279 IF debug_w THEN print, ' var_read_grd_file in def_grid: ', var_read_grd_file 280 280 IF debug_w THEN print, ' meshlec_type in def_grid: ', meshlec_type 281 IF debug_w THEN print, ' varexp in def_grid: ', varexp 281 282 IF debug_w THEN print, ' ...EXIT def_grid' 282 283 -
trunk/procs/meshes/mesh_from_file.pro
r9 r26 17 17 sm_file = hom_idl+'grids/grids_'+model+'.nc' 18 18 res = find(sm_file) 19 19 varexpp = varexp 20 20 IF res NE 'NOT FOUND' THEN BEGIN 21 21 … … 58 58 ENDELSE 59 59 60 varexp = varexpp 61 60 62 key_offset = [0, 0, 0] 61 63 ; … … 63 65 ; 64 66 diaznl_idx = 1 67 IF debug_w THEN print, ' model, vargrid, varexp at exit = ',model, vargrid, varexp 65 68 IF debug_w THEN print, ' ...EXIT mesh_from_file' 66 69 -
trunk/procs/meshes/mesh_orca.pro
r4 r26 10 10 print, ' vertical config '+v_config 11 11 12 varexpp = varexp 12 13 13 14 ;---------------------------------------------------------- … … 229 230 diaznl_idx = 25-1 230 231 231 END 232 232 END 233 233 ENDCASE 234 234 ENDIF 235 235 236 varexp = varexpp 237 236 238 IF keyword_set(NO_SHIFT) THEN key_offset = [0, 0, 0] 237 239 238 240 print, ' key_shift =', key_shift 241 IF debug_w THEN print, ' vargrid, varexp at exit = ',vargrid, varexp 239 242 240 243 print, ' End of ORCA mesh config ' -
trunk/procs/meshes/mesh_pcmdi.pro
r2 r26 6 6 ; 7 7 print,' Model inits for ', model 8 9 varexpp = varexp 8 10 9 11 ; use key_shiftg if grid and data file are not organized the same … … 33 35 ENDIF 34 36 35 IF debug_w THEN print, ' key_yreverse = ', key_yreverse37 IF debug_w THEN print, ' key_yreverse = ', key_yreverse 36 38 37 39 IF res NE 'NOT FOUND' THEN BEGIN … … 40 42 res_grid = execute(cmd_grid) 41 43 42 IF debug_w THEN print, ' Found mask from ',sm_file44 IF debug_w THEN print, ' Found mask from ',sm_file 43 45 44 46 tmask = byte(read_ncdf('sftlf', 0, 0, /timestep, file = sm_file, /nostruct)) … … 54 56 ENDIF 55 57 56 IF debug_w THEN print, ' key_shift = ', key_shift57 IF debug_w THEN print, ' key_yreverse = ', key_yreverse58 IF debug_w THEN print, ' key_shift = ', key_shift 59 IF debug_w THEN print, ' key_yreverse = ', key_yreverse 58 60 59 61 masked_data = 0 … … 65 67 ; 66 68 diaznl_idx = 1 69 70 varexp = varexpp 67 71 68 print,' 72 print,' End of initialisation for pcmdi grid:', model 69 73 70 74 return -
trunk/procs/plt_map.pro
r20 r26 158 158 sw_diffg = 0 159 159 def_grid, cmd 160 IF debug_w THEN print, ' after def_grid in plt_map: cmd.grid, varexp, vargrid ',cmd.grid, varexp, vargrid 160 161 161 162 ; vertical average if 3D field
Note: See TracChangeset
for help on using the changeset viewer.