Changeset 19012 for trunk/ippScripts/scripts/ipp_mops_translate.pl

Timestamp:

Aug 11, 2008, 2:55:38 PM (18 years ago)

Author:

Paul Price

Message:

Adjust MJD-OBS for output from start to mid-point of exposure.

File:

• trunk/ippScripts/scripts/ipp_mops_translate.pl (modified) (2 diffs)

trunk/ippScripts/scripts/ipp_mops_translate.pl

@@ -65 +65 @@
     'FPA.ALT'      => { name => 'TEL_ALT',  type => TDOUBLE, comment => 'Telescope altitude' },
     'FPA.AZ'       => { name => 'TEL_AZ',   type => TDOUBLE, comment => 'Telescope azimuth' },
-    'MJD-OBS'      => { name => 'MJD-OBS',  type => TDOUBLE, comment => 'Time of exposure' },
             };
 
@@ -176 +175 @@
 }
 
+# Adjust the time from start to mid-point
+{
+    my $mjd = $inHeader->{'MJD-OBS'} or die "Can't find MJD.\n"; # Modified Julian Date
+    my $exptime = $inHeader->{'EXPTIME'} or die "Can't find EXPTIME.\n"; # Exposure time, seconds
+    $mjd += $exptime / 2.0;     # start --> mid-point
+    $outFiles->write_key( TDOUBLE, 'MJD-OBS', $mjd, 'Time of exposure mid-point', $status);
+    check_fitsio( $status );
+}
+
 # Stellar PSF
 my $fwhm = 0.5 * 3600 * ($inHeader->{'FWHM_X'} * $cdelt1 + $inHeader->{'FWHM_Y'} * $cdelt2); # FWHM for star