• Patches

Patches

Patches for bugs in the ROI_pac code.

simulation/Aik_resample.f

A bug in this program caused it to crash on some 64-bit computers and give NaN values on other computers. Here is a difference between the patched version and the 3.0 release version. Note: this is the opposite sense of difference from what was posted here earlier.

<Index: Aik_resample.f
===================================================================
RCS file: /u/erda1/insarcvs/ROI_PAC_DIST/ROI_PAC/simulation/Aik_resample.f,v
retrieving revision 1.2
retrieving revision 1.4
diff -r1.2 -r1.4
144,149c144,149
<       ALLOCATE( r_surfh((i_skip+i_padn+1)*(i_skip+i_padn+1)))
<       ALLOCATE( r_surfa((i_skip+i_padn+1)*(i_skip+i_padn+1)))
<       ALLOCATE( r_bvx((i_skip+i_padn+1)*(i_skip+i_padn+1)))
<       ALLOCATE( r_bvy((i_skip+i_padn+1)*(i_skip+i_padn+1)))
<       ALLOCATE( r_bvz((i_skip+i_padn+1)*(i_skip+i_padn+1)))
<       ALLOCATE( r_bva((i_skip+i_padn+1)*(i_skip+i_padn+1)))
---
>       ALLOCATE( r_surfh((i_skip+2*i_padn)*(i_skip+2*i_padn)))
>       ALLOCATE( r_surfa((i_skip+2*i_padn)*(i_skip+2*i_padn)))
>       ALLOCATE( r_bvx((i_skip+2*i_padn)*(i_skip+2*i_padn)))
>       ALLOCATE( r_bvy((i_skip+2*i_padn)*(i_skip+2*i_padn)))
>       ALLOCATE( r_bvz((i_skip+2*i_padn)*(i_skip+2*i_padn)))
>       ALLOCATE( r_bva((i_skip+2*i_padn)*(i_skip+2*i_padn)))
270c270
<      $              nint(r_blockareac))) then
---
>      $              int(r_blockareac+0.5))) then

$INT_SCR/make_sim.pl

When processing very long strips (more than about 1200 km), often the IntSim program fails. This patch from MattPritchard seems to prevent that. This patch also has the opposite sense from the previous post.

Index: make_sim.pl
===================================================================
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -r1.1.1.1 -r1.2
94,95c94,96
< $utc0=$first_line_utc-300;
< $utc1=$first_line_utc+$length*$delta_line_utc+300;
---
> # increased padding of extracted orbit data per Matt Pritchard
> $utc0=$first_line_utc-400;
> $utc1=$first_line_utc+$length*$delta_line_utc+400;