icwg2_transform.pro 525 Bytes
Newer Older
Andi Walther's avatar
Andi Walther committed
1
2
;

3
pro icwg2_transform, grp, prd_list = prd_list
Andi Walther's avatar
Andi Walther committed
4
5

default,grp,'TPS'
6
default,prd_list,['cmb','ctp','ctt','cth','cod','ref','cph','lwp']
Andi Walther's avatar
Andi Walther committed
7
;prd_list=['cmb','ctp']
8
;prd_list='cph'
Andi Walther's avatar
Andi Walther committed
9
10
11
o=cws_read()
o.set_group,grp

12
o.set_date,2008,6,13,13,45
Andi Walther's avatar
Andi Walther committed
13
14
15
16
17
foreach prd, prd_list do begin
    o.set_product,prd
    o.transformIt,/force
 endforeach

18

Andi Walther's avatar
Andi Walther committed
19
stop
20

Andi Walther's avatar
Andi Walther committed
21
22
23
24
25
26
27
28
29
30
31
32
for hh = 0,23 do begin
  for mm = 0,45,15 do begin
    o.set_date,2008,6,13,hh,mm
 foreach prd, prd_list do begin
    o.set_product,prd
    o.transformIt,/force
 endforeach
 endfor
endfor 


end