- Timestamp:
- Aug 17, 2023, 4:33:23 PM (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/eam_branches/ipp-20230313/ippScripts/scripts/nightly_science.pl
r42341 r42522 1579 1579 #find exposures for this object that have not been fully processed 1580 1580 if (($this_warp_id eq 'NULL') && (($this_quality == 0) || ($this_quality eq 'NULL')) ) { 1581 print STDERR "diff_queue: exposure with exp_id $this_exp_id for $this_object has warp_id $this_warp_id and quality $this_quality and is therefore not fully processed\n"; 1581 1582 $Nbad += 1; 1582 1583 } 1583 1584 if (($chip_state ne 'full') || ($cam_state ne 'full') ) { 1585 print STDERR "diff_queue: exposure with exp_id $this_exp_id for $this_object has chip state $chip_state and cam state $cam_state and is therefore not fully processed\n"; 1584 1586 $Nbad += 1; 1585 1587 } … … 1618 1620 print STDERR "diff_queue: Number of input warps to make diffs is not even for target $target and object $this_object! $#{ $warps } "; 1619 1621 if ($#{ $warps} + 1 == 1) { 1620 print STDERR " : I can do no diffs with only one exposure.\n";1622 print STDERR "diff_queue: I can do no diffs with only one exposure.\n"; 1621 1623 next; 1622 1624 } … … 1624 1626 my $rejected_warp = pop @{ $warps }; 1625 1627 my $rejected_exp_id = ${ $rejected_warp }[0]; 1626 print STDERR " : Rejecting ${rejected_exp_id} to force visit count.\n";1628 print STDERR "diff_queue: Rejecting ${rejected_exp_id} to force visit count.\n"; 1627 1629 } 1628 1630 } … … 1652 1654 unless (defined($input_warp_id) && defined($template_warp_id) && 1653 1655 ($input_warp_state eq 'full')&&($template_warp_state eq 'full')) { 1654 print STDERR " Diff for this $date $target $input_exp_id $template_exp_id not fully processed ($input_warp_state $template_warp_state) ($input_warp_camQuality $template_warp_camQuality)\n";1656 print STDERR "diff_queue:Diff for this $date $target $input_exp_id $template_exp_id not fully processed ($input_warp_state $template_warp_state) ($input_warp_camQuality $template_warp_camQuality)\n"; 1655 1657 if (($input_warp_camQuality == 4007)||($template_warp_camQuality == 4007)) { 1656 1658 # This should now never be reached. 1657 1659 # CZW: Trigger backup plan here? Or simply set up framework? 1658 print STDERR " 1660 print STDERR "diff_queue: ...but this is due to a camera stage astrometry quality\n"; 1659 1661 $Npotential--; 1660 1662 } … … 1664 1666 if (verify_uniqueness_diff($input_warp_id,$template_warp_id,$date,$target) != 0) { 1665 1667 $Nqueued++; 1666 print STDERR " Diffs already queued for this $date $target $input_exp_id $template_exp_id ($input_warp_id $template_warp_id) $this_object $input_comment $template_comment\n";1668 print STDERR "diff_queue:Diffs already queued for this $date $target $input_exp_id $template_exp_id ($input_warp_id $template_warp_id) $this_object $input_comment $template_comment\n"; 1667 1669 next; 1668 1670 } 1669 1671 else { 1670 print STDERR " Preparing to diff $date $target $input_exp_id $template_exp_id ($input_warp_id $template_warp_id) $this_object $input_comment $template_comment\n";1672 print STDERR "diff_queue:Preparing to diff $date $target $input_exp_id $template_exp_id ($input_warp_id $template_warp_id) $this_object $input_comment $template_comment\n"; 1671 1673 } 1672 1674 … … 1793 1795 #find exposures for this object that have not been fully processed 1794 1796 if (($this_warp_id eq 'NULL') && (($this_quality == 0) || ($this_quality eq 'NULL')) ) { 1797 print STDERR "desp_diff_singles: exposure with exp_id $this_exp_id for $this_object has warp_id $this_warp_id and quality $this_quality and is therefore not fully processed\n"; 1795 1798 $Nbad += 1; 1796 1799 } 1797 1800 if (($chip_state ne 'full') || ($cam_state ne 'full') ) { 1801 print STDERR "desp_diff_singles: exposure with exp_id $this_exp_id for $this_object has chip state $chip_state and cam state $cam_state and is therefore not fully processed\n"; 1798 1802 $Nbad += 1; 1799 1803 } … … 1840 1844 my $chunk = $db->selectall_arrayref( $input_chunk ); 1841 1845 foreach my $this_chunk (@{ $chunk }) { 1842 $this_date = ${ $this_chunk }[0];1843 } 1846 my $this_date = ${ $this_chunk }[0]; 1847 } 1844 1848 1845 1849 #compute and store some stats for potential on-the-fly desperate diffs … … 1864 1868 #The conditions are: uneven nr of warps greater than 3, and the most recent observations is more than $desdiffdt hours old 1865 1869 if (($nwarps % 2 != 0) && ($nwarps >= 3) && ($timediff < $desdiffdt)) { 1866 print STDERR "desp_diff_singles: There are potential desperate diffs to be done , but the time criterium is not met.\n";1870 print STDERR "desp_diff_singles: There are potential desperate diffs to be done (nwarps = $nwarps) for $this_object, but the time criterium is not met ($timediff < $desdiffdt).\n"; 1867 1871 next; 1868 1872 } 1869 1873 if (($nwarps % 2 == 0) || ($nwarps == 1) || ($timediff < $desdiffdt)) { 1874 print STDERR "desp_diff_singles: No desperate diffs will be attempted for $this_object, since the number of warps is even, less than two ($nwarps) and/or the time criterium is not met ($timediff < $desdiffdt)\n"; 1870 1875 next; 1871 1876 } … … 1881 1886 my $rejected_warp = pop @{ $warps }; 1882 1887 my $rejected_exp_id = ${ $rejected_warp }[0]; 1883 print STDERR " : Rejecting ${rejected_exp_id} to force visit count.\n";1888 print STDERR "desp_diff_singles: Rejecting ${rejected_exp_id} to force visit count.\n"; 1884 1889 } 1885 1890 … … 1908 1913 unless (defined($input_warp_id) && defined($template_warp_id) && 1909 1914 ($input_warp_state eq 'full')&&($template_warp_state eq 'full')) { 1910 print STDERR " Desp diff for this $date $target $input_exp_id $template_exp_id not fully processed ($input_warp_state $template_warp_state) ($input_warp_camQuality $template_warp_camQuality)\n";1915 print STDERR "desp_diff_singles: Desp diff for this $date $target $input_exp_id $template_exp_id not fully processed ($input_warp_state $template_warp_state) ($input_warp_camQuality $template_warp_camQuality)\n"; 1911 1916 if (($input_warp_camQuality == 4007)||($template_warp_camQuality == 4007)) { 1912 1917 # This should now never be reached. 1913 1918 # CZW: Trigger backup plan here? Or simply set up framework? 1914 print STDERR " 1919 print STDERR "desp_diff_singles: ...but this is due to a camera stage astrometry quality\n"; 1915 1920 $Npotential--; 1916 1921 } … … 1920 1925 if (verify_uniqueness_diff($input_warp_id,$template_warp_id,$date,$target) != 0) { 1921 1926 $Nqueued++; 1922 print STDERR " Desp diffs already queued for this $date $target $input_exp_id $template_exp_id ($input_warp_id $template_warp_id) $this_object $input_comment $template_comment\n";1927 print STDERR "desp_diff_singles: Desp diffs already queued for this $date $target $input_exp_id $template_exp_id ($input_warp_id $template_warp_id) $this_object $input_comment $template_comment\n"; 1923 1928 next; 1924 1929 } 1925 1930 else { 1926 print STDERR " Preparing to single desperate diff $date $target $input_exp_id $template_exp_id ($input_warp_id $template_warp_id) $this_object $input_comment $template_comment\n";1931 print STDERR "desp_diff_singles: Preparing to single desperate diff $date $target $input_exp_id $template_exp_id ($input_warp_id $template_warp_id) $this_object $input_comment $template_comment\n"; 1927 1932 } 1928 1933 … … 1958 1963 1959 1964 } else { 1960 print STDERR "desp_diff_singles: There is a possibility for dirty diffs to be made \n";1965 print STDERR "desp_diff_singles: There is a possibility for dirty diffs to be made for $this_object, but this is not implemeted at the moment\n"; 1961 1966 #Consider the case of on-the-fly dirty desperate diffs 1962 1967 #The conditions are: uneven nr of bad quality warps greater than 3, and the most recent observations is more than $desdiffdt hours old … … 2184 2189 #find exposures for this object that have not been fully processed 2185 2190 if (($this_warp_id eq 'NULL') && (($this_quality == 0) || ($this_quality eq 'NULL')) ) { 2191 print STDERR "desp_diff_queue: exposure with exp_id $this_exp_id for $this_object has warp_id $this_warp_id and quality $this_quality and is therefore not fully processed\n"; 2186 2192 $Nbad += 1; 2187 2193 } 2188 2194 if (($chip_state ne 'full') || ($cam_state ne 'full') ) { 2195 print STDERR "desp_diff_queue: exposure with exp_id $this_exp_id for $this_object has chip state $chip_state and cam state $cam_state and is therefore not fully processed\n"; 2189 2196 $Nbad += 1; 2190 2197 } … … 2241 2248 print STDERR "desp_diff_queue: Number of input warps to make diffs is not even for target $target and object $this_object! $#{ $warps } "; 2242 2249 if ($#{ $warps} + 1 == 1) { 2243 print STDERR " : I can do no diffs with only one exposure.\n";2250 print STDERR "desp_diff_queue: I can do no diffs with only one exposure.\n"; 2244 2251 next; 2245 2252 } … … 2247 2254 my $rejected_warp = pop @{ $warps }; 2248 2255 my $rejected_exp_id = ${ $rejected_warp }[0]; 2249 print STDERR " : Rejecting ${rejected_exp_id} to force visit count.\n";2256 print STDERR "desp_diff_queue: Rejecting ${rejected_exp_id} to force visit count.\n"; 2250 2257 } 2251 2258 } … … 2275 2282 unless (defined($input_warp_id) && defined($template_warp_id) && 2276 2283 ($input_warp_state eq 'full')&&($template_warp_state eq 'full')) { 2277 print STDERR " Desp diff for this $date $target $input_exp_id $template_exp_id not fully processed ($input_warp_state $template_warp_state) ($input_warp_camQuality $template_warp_camQuality)\n";2284 print STDERR "desp_diff_queue: Desp diff for this $date $target $input_exp_id $template_exp_id not fully processed ($input_warp_state $template_warp_state) ($input_warp_camQuality $template_warp_camQuality)\n"; 2278 2285 if (($input_warp_camQuality == 4007)||($template_warp_camQuality == 4007)) { 2279 2286 # This should now never be reached. 2280 2287 # CZW: Trigger backup plan here? Or simply set up framework? 2281 print STDERR " 2288 print STDERR "desp_diff_queue: ...but this is due to a camera stage astrometry quality\n"; 2282 2289 $Npotential--; 2283 2290 } … … 2287 2294 if (verify_uniqueness_diff($input_warp_id,$template_warp_id,$date,$target) != 0) { 2288 2295 $Nqueued++; 2289 print STDERR " Desp diffs already queued for this $date $target $input_exp_id $template_exp_id ($input_warp_id $template_warp_id) $this_object $input_comment $template_comment\n";2296 print STDERR "desp_diff_queue: Desp diffs already queued for this $date $target $input_exp_id $template_exp_id ($input_warp_id $template_warp_id) $this_object $input_comment $template_comment\n"; 2290 2297 next; 2291 2298 } 2292 2299 else { 2293 print STDERR " Preparing to desperate diff $date $target $input_exp_id $template_exp_id ($input_warp_id $template_warp_id) $this_object $input_comment $template_comment\n";2300 print STDERR "desp_diff_queue: Preparing to desperate diff $date $target $input_exp_id $template_exp_id ($input_warp_id $template_warp_id) $this_object $input_comment $template_comment\n"; 2294 2301 } 2295 2302 … … 2325 2332 2326 2333 } else { 2327 print STDERR "desp_diff_queue: There is a possibility for dirty diffs to be made \n";2334 print STDERR "desp_diff_queue: There is a possibility for dirty diffs to be made, but this is currently not implemented\n"; 2328 2335 #Consider the case of on-the-fly dirty desperate diffs 2329 2336 #The conditions are: uneven nr of bad quality warps greater than 3, and the most recent observations is more than $desdiffdt hours old
Note:
See TracChangeset
for help on using the changeset viewer.
