Changeset 32
- Timestamp:
- 01/15/08 16:26:07 (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/procs/data_read.pro
r26 r32 15 15 read = 1 16 16 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 18 IF hotyp NE '-' THEN BEGIN 19 ; time serie 20 IF cmd.spec EQ cmd_prev.spec THEN BEGIN 21 fldr = field 22 read = 0 23 ENDIF ELSE read = 1 24 25 ENDIF ELSE BEGIN 26 read = 1 27 IF strpos(cmd.plt, '#') NE -1 THEN BEGIN 28 IF cmd.plt EQ cmd_prev.plt THEN BEGIN ; not same zoom 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 18 IF hotyp NE '-' THEN BEGIN 19 ; time serie 20 IF cmd.spec EQ cmd_prev.spec THEN BEGIN 29 21 fldr = field 30 22 read = 0 31 ENDIF ELSE begin 32 read = 1 33 ENDELSE 34 ENDIF 35 ENDELSE 36 ENDIF ELSE read = 1 37 38 read = 1 39 23 ENDIF ELSE read = 1 24 25 ENDIF ELSE BEGIN 26 read = 1 27 IF strpos(cmd.plt, '#') NE -1 THEN BEGIN 28 IF cmd.plt EQ cmd_prev.plt THEN BEGIN ; not same zoom 29 fldr = field 30 read = 0 31 ENDIF ELSE begin 32 read = 1 33 ENDELSE 34 ENDIF 35 ENDELSE 36 ENDIF ELSE read = 1 37 38 read = 1 39 40 40 IF read EQ 1 THEN BEGIN 41 41
Note: See TracChangeset
for help on using the changeset viewer.