OB.DAAC Logo
NASA Logo
Ocean Color Science Software

ocssw V2022
conv_ins.f
Go to the documentation of this file.
1  subroutine conv_ins(inst,insta,instd)
2 c Subroutine to convert instrument telemetry values.
3 
4 c february 2, 1994 by frederick s. patt
5 c
6 c modification history
7 c
8 c changed integer*1 to byte for Sun OS compatibility, B. A. Franz,
9 c gac, november 14, 1997.
10 
11 
12  real*4 insta(40)
13  byte inst(88),instd(32)
14  byte ilsb(44)
15 
16 c location and conversions specifications are located in acs_con.fin
17  integer*4 loc_ins(2,40)
18  integer*4 dis_ins(3,32)
19  real*4 con_ins(2,40)
20 c common /ins_comm/ loc_ins, dis_ins, con_ins
21 c mdm oct. 15, 2004 making the block data routine ins_block inlined to
22 c avoid problems with the linker not picking it up...
23 c see ins_block.f for descriptions
24 c analog data start word and length in instrument packet
25  data loc_ins/
26  * 8, 1, !Band 1/2 FPA Temperature
27  * 9, 1, !Band 3/4 FPA Temperature
28  * 10, 1, !Band 5/6 FPA Temperature
29  * 11, 1, !Band 7/8 FPA Temperature
30  * 12, 1, !Telescope Motor Temperature
31  * 13, 1, !Tilt Base Temperature
32  * 14, 1, !Tilt Platform Temperature
33  * 15, 1, !Half Angle Motor Temperature
34  * 16, 1, !Power Supply A Input Current
35  * 17, 1, !Power Supply B Input Current
36  * 18, 1, !+15 V Analog Power Voltage
37  * 19, 1, !-15 V Analog Power Voltage
38  * 20, 1, !+5 V Logic Power Voltage
39  * 21, 1, !Power Supply Temperature
40  * 22, 1, !B1/B2 Postamp Temperature
41  * 23, 1, !Servo Drive Temperature
42  * 24, 1, !+30 V Servo Power Voltage
43  * 25, 1, !+21 V Servo Power Voltage
44  * 26, 1, !-21 V Servo Power Voltage
45  * 27, 1, !+5 V Servo Power Voltage
46  * 28, 1, !Angular Comp. Phase Error
47  * 29, 1, !Tilt Platform Position
48  * 30, 1, !Tilt Base Position
49  * 31, 1, !+28 V Heater Power
50  * 32, 1, !Telescope A Motor Current
51  * 33, 1, !Telescope B Motor Current
52  * 34, 1, !Half Angle A Motor Current
53  * 35, 1, !Half Angle B Motor Current
54  * 36, 1, !Servo A Phase Error
55  * 37, 1, !Servo B Phase Error
56  * 38, 1, !Angular Comp. A Motor Current
57  * 39, 1, !Angular Comp. B Motor Current
58  * 16*0/ !Spares
59 
60 c linear analog conversion coefficients
61  data con_ins/
62  * -0.2667, 66.667, !Band 1/2 FPA Temperature
63  * -0.2667, 66.667, !Band 3/4 FPA Temperature
64  * -0.2667, 66.667, !Band 5/6 FPA Temperature
65  * -0.2667, 66.667, !Band 7/8 FPA Temperature
66  * -0.2667, 66.667, !Telescope Motor Temperature
67  * -0.2667, 66.667, !Tilt Base Temperature
68  * -0.2667, 66.667, !Tilt Platform Temperature
69  * -0.2667, 66.667, !Half Angle Motor Temperature
70  * 0.02, 0.26, !Power Supply A Input Current
71  * 0.02, 0.26, !Power Supply B Input Current
72  * 0.075, 0.0, !+15 V Analog Power Voltage
73  * -0.075, 0.0, !-15 V Analog Power Voltage
74  * 0.025, 0.0, !+5 V Logic Power Voltage
75  * -0.2667, 66.667, !Power Supply Temperature
76  * -0.2667, 66.667, !B1/B2 Postamp Temperature
77  * -0.2667, 66.667, !Servo Drive Temperature
78  * 0.15, 0.0, !+30 V Servo Power Voltage
79  * 0.1044, 0.0, !+21 V Servo Power Voltage
80  * -0.1044, 0.0, !-21 V Servo Power Voltage
81  * 0.025, 0.0, !+5 V Servo Power Voltage
82  * 8.52, -377., !Angular Comp. Phase Error
83  * 1.44, 0.0, !Tilt Platform Position
84  * 1.44, 0.0, !Tilt Base Position
85  * 0.14, 0.0, !Heaters Current
86  * 0.0024, 0.0, !Telescope A Motor Current
87  * 0.0024, 0.0, !Telescope B Motor Current
88  * 0.0024, 0.0, !Half Angle A Motor Current
89  * 0.0024, 0.0, !Half Angle B Motor Current
90  * 0.01, -1.25, !Servo A Phase Error
91  * 0.01, -1.25, !Servo B Phase Error
92  * 0.016, 0.0, !Angular Comp. A Motor Current
93  * 0.016, 0.0, !Angular Comp. B Motor Current
94  * 16*0.0/ !Spares
95 
96 c discrete data start word, bit and bit length in soh packet
97  data dis_ins/
98  * 5, 1, 1, !Servo A Selected (1=A)
99  * 5, 2, 1, !Angular Comp. On (1=on)
100  * 5, 3, 1, !Servo A Locked (1=on)
101  * 5, 4, 1, !Servo B Locked (1=on)
102  * 5, 5, 1, !Timing A Selected (1=A)
103  * 5, 6, 1, !Tilt A On (1=on)
104  * 5, 7, 1, !Tilt B On (1=on)
105  * 5, 8, 1, !Tilt Telemetry On (1=on)
106  * 6, 1, 1, !Stow On (1=on)
107  * 6, 2, 1, !Stow Aligned (1=yes)
108  * 6, 3, 1, !Heaters Status (1=enables
109  * 6, 4, 1, !Solar Door Open (1=open)
110  * 6, 5, 1, !Analog Power On (1=on)
111  * 6, 6, 1, !Tilt Platform Limit (1=yes)
112  * 6, 7, 1, !Tilt Base Limit (1=yes)
113  * 6, 8, 1, !Tilt Nadir Aligned (1=yes)
114  * 7, 1, 1, !Tilt Aft Aligned (1=yes)
115  * 7, 2, 1, !Tilt Forward Aligned (1=yes)
116  * 7, 3, 1, !Earth Mode Data On (1=Earth)
117  * 7, 4, 1, !Half Angle Mirror Side (1=side 2)
118  * 7, 5, 1, !Image Data Sync (1=yes)
119  * 7, 6, 1, !Angular Comp. at Speed (1=yes)
120  * 30*0 / !Spares
121 
122 
123 c only need even bytes from input array
124  do i=1,44
125  ilsb(i) = inst(2*i)
126  end do
127 
128 c convert analog data
129  do i=1,32
130  call read_analog(insta(i),loc_ins(1,i),con_ins(1,i),ilsb)
131  end do
132 
133  do i=1,22
134  call read_discrete(instd(i),dis_ins(1,i),ilsb)
135  end do
136 
137  return
138  end
subroutine conv_ins(inst, insta, instd)
Definition: conv_ins.f:2
#define real
Definition: DbAlgOcean.cpp:26
===========================================================================V5.0.48(Terra) 03/20/2015 Changes shown below are differences from MOD_PR02 V5.0.46(Terra)============================================================================Changes noted for V6.1.20(Terra) below were also instituted for this version.============================================================================V6.1.20(Terra) 03/12/2015 Changes shown below are differences from MOD_PR02 V6.1.18(Terra)============================================================================Changes from v6.1.18 which may affect scientific output:A situation can occur in which a scan which contains sector rotated data has a telemetry value indicating the completeness of the sector rotation. This issue is caused by the timing of the instrument command to perform the sector rotation and the recording of the telemetry point that reports the status of sector rotation. In this case a scan is considered valid by L1B and pass through the calibration - reporting extremely high radiances. Operationally the TEB calibration uses a 40 scan average coefficient, so the 20 scans(one mirror side) after the sector rotation are contaminated with anomalously high radiance values. A similar timing issue appeared before the sector rotation was fixed in V6.1.2. Our analysis indicates the ‘SET_FR_ENC_DELTA’ telemetry correlates well with the sector rotation encoder position. The use of this telemetry point to determine scans that are sector rotated should fix the anomaly occured before and after the sector rotation(usually due to the lunar roll maneuver). The fix related to the sector rotation in V6.1.2 is removed in this version.============================================================================V6.1.18(Terra) 10/01/2014 Changes shown below are differences from MOD_PR02 V6.1.16(Terra)============================================================================Added doi attributes to NRT(Near-Real-Time) product.============================================================================V6.1.16(Terra) 01/27/2014 Changes shown below are differences from MOD_PR02 V6.1.14(Terra)============================================================================Migrate to SDP Toolkit 5.2.17============================================================================V6.1.14(Terra) 06/26/2012 Changes shown below are differences from MOD_PR02 V6.1.12(Terra)============================================================================Added the doi metadata to L1B product============================================================================V6.1.12(Terra) 04/25/2011 Changes shown below are differences from MOD_PR02 V6.1.8(Terra)============================================================================1. The algorithm to calculate uncertainties for reflective solar bands(RSB) is updated. The current uncertainty in L1B code includes 9 terms from prelaunch analysis. The new algorithm regroups them with the new added contributions into 5 terms:u1:the common term(AOI and time independent) and
Definition: HISTORY.txt:126
subroutine read_analog(data, loc, con, raw)
Definition: read_analog.f:2
subroutine linear(xp, x, y, n, yp)
Definition: afrt_rt1.f:1255
#define f
Definition: l1_czcs_hdf.c:702
PGE01 indicating that PGE02 PGE01 V6 for and PGE01 V2 for MOD03 were used to produce the granule By convention adopted in all MODIS Terra PGE02 code versions are even(e.g. 4.2.0, 5.6.8) and all MODIS/Aqua PGE02 code versions are odd(e.g. 4.2.1
subroutine read_discrete(bdat, dis, raw)
Definition: read_discrete.f:2