NASA Ocean Color

ocssw V2022

         subroutine conv_ins(inst,insta,instd)
 c  Subroutine to convert instrument telemetry values. 
  
 c  february 2, 1994 by frederick s. patt
 c
 c modification history
 c
 c  changed integer*1 to byte for Sun OS compatibility, B. A. Franz,
 c  gac, november 14, 1997.
  
  
         real*4 insta(40)
         byte inst(88),instd(32)
         byte ilsb(44)
  
 c  location and conversions specifications are located in acs_con.fin
         integer*4 loc_ins(2,40)
         integer*4 dis_ins(3,32)
         real*4 con_ins(2,40)
 c       common /ins_comm/ loc_ins, dis_ins, con_ins
 c mdm oct. 15, 2004 making the block data routine ins_block inlined to
 c avoid problems with the linker not picking it up...
 c see ins_block.f for descriptions
 c  analog data start word and length in instrument packet
         data loc_ins/
      *                  8, 1,           !Band 1/2 FPA Temperature
      *                  9, 1,           !Band 3/4 FPA Temperature
      *                  10, 1,          !Band 5/6 FPA Temperature
      *                  11, 1,          !Band 7/8 FPA Temperature
      *                  12, 1,          !Telescope Motor Temperature
      *                  13, 1,          !Tilt Base Temperature
      *                  14, 1,          !Tilt Platform Temperature
      *                  15, 1,          !Half Angle Motor Temperature
      *                  16, 1,          !Power Supply A Input Current
      *                  17, 1,          !Power Supply B Input Current
      *                  18, 1,          !+15 V Analog Power Voltage
      *                  19, 1,          !-15 V Analog Power Voltage
      *                  20, 1,          !+5 V Logic Power Voltage
      *                  21, 1,          !Power Supply Temperature
      *                  22, 1,          !B1/B2 Postamp Temperature
      *                  23, 1,          !Servo Drive Temperature
      *                  24, 1,          !+30 V Servo Power Voltage
      *                  25, 1,          !+21 V Servo Power Voltage
      *                  26, 1,          !-21 V Servo Power Voltage
      *                  27, 1,          !+5 V Servo Power Voltage
      *                  28, 1,          !Angular Comp. Phase Error
      *                  29, 1,          !Tilt Platform Position
      *                  30, 1,          !Tilt Base Position
      *                  31, 1,          !+28 V Heater Power
      *                  32, 1,          !Telescope A Motor Current
      *                  33, 1,          !Telescope B Motor Current
      *                  34, 1,          !Half Angle A Motor Current
      *                  35, 1,          !Half Angle B Motor Current
      *                  36, 1,          !Servo A Phase Error
      *                  37, 1,          !Servo B Phase Error
      *                  38, 1,          !Angular Comp. A Motor Current
      *                  39, 1,          !Angular Comp. B Motor Current
      *                  16*0/           !Spares
  
 c  linear analog conversion coefficients
         data con_ins/
      *          -0.2667,  66.667,       !Band 1/2 FPA Temperature
      *          -0.2667,  66.667,       !Band 3/4 FPA Temperature
      *          -0.2667,  66.667,       !Band 5/6 FPA Temperature
      *          -0.2667,  66.667,       !Band 7/8 FPA Temperature
      *          -0.2667,  66.667,       !Telescope Motor Temperature
      *          -0.2667,  66.667,       !Tilt Base Temperature
      *          -0.2667,  66.667,       !Tilt Platform Temperature
      *          -0.2667,  66.667,       !Half Angle Motor Temperature
      *          0.02, 0.26,             !Power Supply A Input Current
      *          0.02, 0.26,             !Power Supply B Input Current
      *          0.075, 0.0,             !+15 V Analog Power Voltage
      *          -0.075, 0.0,            !-15 V Analog Power Voltage
      *          0.025, 0.0,             !+5 V Logic Power Voltage
      *          -0.2667,  66.667,       !Power Supply Temperature
      *          -0.2667,  66.667,       !B1/B2 Postamp Temperature
      *          -0.2667,  66.667,       !Servo Drive Temperature
      *          0.15, 0.0,              !+30 V Servo Power Voltage
      *          0.1044, 0.0,            !+21 V Servo Power Voltage
      *          -0.1044, 0.0,           !-21 V Servo Power Voltage
      *          0.025, 0.0,             !+5 V Servo Power Voltage
      *          8.52, -377.,            !Angular Comp. Phase Error
      *          1.44, 0.0,              !Tilt Platform Position
      *          1.44, 0.0,              !Tilt Base Position
      *          0.14, 0.0,              !Heaters Current
      *          0.0024, 0.0,            !Telescope A Motor Current
      *          0.0024, 0.0,            !Telescope B Motor Current
      *          0.0024, 0.0,            !Half Angle A Motor Current
      *          0.0024, 0.0,            !Half Angle B Motor Current
      *          0.01, -1.25,            !Servo A Phase Error
      *          0.01, -1.25,            !Servo B Phase Error
      *          0.016, 0.0,     !Angular Comp. A Motor Current
      *          0.016, 0.0,     !Angular Comp. B Motor Current
      *          16*0.0/         !Spares
  
 c  discrete data start word, bit and bit length in soh packet
         data dis_ins/
      *                  5, 1, 1,        !Servo A Selected (1=A)
      *                  5, 2, 1,        !Angular Comp. On (1=on)
      *                  5, 3, 1,        !Servo A Locked (1=on)
      *                  5, 4, 1,        !Servo B Locked (1=on)
      *                  5, 5, 1,        !Timing A Selected (1=A)
      *                  5, 6, 1,        !Tilt A On (1=on)
      *                  5, 7, 1,        !Tilt B On (1=on)
      *                  5, 8, 1,        !Tilt Telemetry On (1=on)
      *                  6, 1, 1,        !Stow On  (1=on)
      *                  6, 2, 1,        !Stow Aligned (1=yes)
      *                  6, 3, 1,        !Heaters Status (1=enables
      *                  6, 4, 1,        !Solar Door Open  (1=open)
      *                  6, 5, 1,        !Analog Power On (1=on)
      *                  6, 6, 1,        !Tilt Platform Limit (1=yes)
      *                  6, 7, 1,        !Tilt Base Limit (1=yes)
      *                  6, 8, 1,        !Tilt Nadir Aligned (1=yes)
      *                  7, 1, 1,        !Tilt Aft Aligned (1=yes)
      *                  7, 2, 1,        !Tilt Forward Aligned (1=yes)
      *                  7, 3, 1,        !Earth Mode Data On (1=Earth)
      *                  7, 4, 1,        !Half Angle Mirror Side  (1=side 2)
      *                  7, 5, 1,        !Image Data Sync  (1=yes)
      *                  7, 6, 1,        !Angular Comp. at Speed  (1=yes)
      *                  30*0    /       !Spares
  
  
 c  only need even bytes from input array
         do i=1,44
           ilsb(i) = inst(2*i)
         end do
  
 c  convert analog data 
         do i=1,32
           call read_analog(insta(i),loc_ins(1,i),con_ins(1,i),ilsb)
         end do
         
         do i=1,22
           call read_discrete(instd(i),dis_ins(1,i),ilsb)
         end do
         
         return
         end

conv_ins

subroutine conv_ins(inst, insta, instd)

Definition: conv_ins.f:2

real

#define real

Definition: DbAlgOcean.cpp:26

and

===========================================================================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

read_analog

subroutine read_analog(data, loc, con, raw)

Definition: read_analog.f:2

linear

subroutine linear(xp, x, y, n, yp)

Definition: afrt_rt1.f:1255

#define f

Definition: l1_czcs_hdf.c:702

even

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

read_discrete

subroutine read_discrete(bdat, dis, raw)

Definition: read_discrete.f:2