Changeset 36952
- Timestamp:
- Jul 1, 2014, 2:23:27 PM (12 years ago)
- Location:
- tags/ipp-pv3-20140616/ippScripts
- Files:
-
- 7 edited
-
. (modified) (1 prop)
-
Build.PL (modified) (1 diff)
-
MANIFEST (modified) (1 diff)
-
scripts/sc_prepare_camera.pl (modified) (1 prop)
-
scripts/sc_prepare_stack.pl (modified) (2 diffs)
-
scripts/sc_prepare_warp.pl (modified) (1 diff)
-
scripts/sc_transfer_tool.pl (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
-
tags/ipp-pv3-20140616/ippScripts
-
Property svn:mergeinfo
set to
/branches/eam_branches/ipp-20140423/ippScripts merged eligible /trunk/ippScripts merged eligible
-
Property svn:mergeinfo
set to
-
tags/ipp-pv3-20140616/ippScripts/Build.PL
r36810 r36952 135 135 scripts/psphot_fullforce_warp.pl 136 136 scripts/psphot_fullforce_summary.pl 137 scripts/stack_bkg_mk_mdc.pl 137 scripts/sc_mk_stack_mdc.pl 138 scripts/sc_prepare_camera.pl 139 scripts/sc_prepare_chip.pl 140 scripts/sc_prepare_stack.pl 141 scripts/sc_prepare_warp.pl 142 scripts/sc_remote_exec.pl 143 scripts/sc_transfer_tool.pl 144 scripts/sc_validate_files.pl 145 scripts/sc_validate_processing.pl 138 146 )], 139 147 dist_abstract => 'Scripts for running the Pan-STARRS IPP', -
tags/ipp-pv3-20140616/ippScripts/MANIFEST
r36704 r36952 49 49 scripts/lap_science.pl 50 50 scripts/regenerate_background.pl 51 scripts/sc_mk_stack_mdc.pl 52 scripts/sc_prepare_camera.pl 53 scripts/sc_prepare_chip.pl 54 scripts/sc_prepare_stack.pl 55 scripts/sc_prepare_warp.pl 56 scripts/sc_remote_exec.pl 57 scripts/sc_transfer_tool.pl 58 scripts/sc_validate_files.pl 59 scripts/sc_validate_processing.pl 51 60 t/00_distribution.t -
tags/ipp-pv3-20140616/ippScripts/scripts/sc_prepare_camera.pl
- Property svn:mergeinfo deleted
-
tags/ipp-pv3-20140616/ippScripts/scripts/sc_prepare_stack.pl
r36851 r36952 168 168 my $remote_path_base = uri_local_to_remote($warp_path_base); 169 169 $warp_path_base_string .= " $remote_path_base "; 170 171 # Append file names to transfer lists so we can recover if warps are deleted. 172 uri_to_outputs($warp_path_base . ".fits"); 173 uri_to_outputs($warp_path_base . ".wt.fits"); 174 uri_to_outputs($warp_path_base . ".mask.fits"); 175 uri_to_outputs($warp_path_base . ".cmf"); 176 # uri_to_outputs($warp_path_base . ".psf"); 170 177 } 171 178 my $mk_mdc_command = "mkdir -p $remote_outdir && sc_mk_stack_mdc.pl $warp_path_base_string > ${remote_outroot}.in.mdc"; … … 182 189 $ppstack_command .= " -R PPSTACK.UNCONV.VARIANCE FITS.TYPE COMP_STACK"; 183 190 $ppstack_command .= " -tracedest ${remote_outroot}.trace -log ${remote_outroot}.log "; 184 $ppstack_command .= " -threads 10";191 $ppstack_command .= " -threads 4 "; 185 192 $ppstack_command .= " -dumpconfig ${remote_outroot}.mdc "; 186 193 $ppstack_command .= " -stack_id $stack_id -skycell_id $skycell_id -tess_id $tess_id "; -
tags/ipp-pv3-20140616/ippScripts/scripts/sc_prepare_warp.pl
r36854 r36952 27 27 my $max_time = 8; # longest allocation to ask for 28 28 my $remote_hostname= "LANL/Mustang"; # Name of the remote node. 29 my @return_component_list = ("DBINFO.EXP", "PSWARP.CONFIG", "PSWARP.OUTPUT", "PSWARP.OUTPUT.MASK", "PSWARP.OUTPUT.VARIANCE", "PSWARP.OUTPUT.SOURCES"," LOG.EXP","TRACE.EXP");29 my @return_component_list = ("DBINFO.EXP", "PSWARP.CONFIG", "PSWARP.OUTPUT", "PSWARP.OUTPUT.MASK", "PSWARP.OUTPUT.VARIANCE", "PSWARP.OUTPUT.SOURCES","PSPHOT.PSF.SAVE","LOG.EXP","TRACE.EXP"); 30 30 # Look for programs we need 31 31 my $missing_tools; -
tags/ipp-pv3-20140616/ippScripts/scripts/sc_transfer_tool.pl
r36844 r36952 51 51 while(<I>) { 52 52 chomp; 53 $i = int(rand($#filehandles)); 54 53 55 my $fline; 54 56 if ($fetch) { … … 57 59 if (($fetch)&&(!(-e $_))) { # We are fetching, and do not already have this file. 58 60 print { $filehandles[$i] } $fline; 59 $i++;61 # $i++; 60 62 } 61 63 elsif (!($fetch)) { # We are pushing 62 64 # if (-e "${local_tmp}/$_") { 63 65 print { $filehandles[$i] } "${local_tmp}/$_" . "\n"; 64 $i++;66 # $i++; 65 67 # } 66 68 # else { # But somehow couldn't find the file we expected … … 69 71 # } 70 72 } 71 if ($i >= $threads) { $i = 0; }73 # if ($i >= $threads) { $i = 0; } 72 74 } 73 75 close(I);
Note:
See TracChangeset
for help on using the changeset viewer.
