Changeset 1027
 Timestamp:
 Oct 15, 2012 5:18:39 PM (12 years ago)
 File:

 1 edited
Legend:
 Unmodified
 Added
 Removed

palm/trunk/SOURCE/advec_ws.f90
r1020 r1027 4 4 ! Current revisions: 5 5 !  6 ! 6 ! Bugfix in calculation indices k_mm, k_pp in accelerator version 7 7 ! 8 8 ! Former revisions: … … 2525 2525 ibit6 = IBITS(wall_flags_0(k1,j,i),6,1) 2526 2526 2527 k_pp = k + 2 * ( 1  ibit6 )2528 k_mm = k  2 * ( 1  ibit6)2527 k_pp = k + 2 * ibit8 2528 k_mm = k  2 * ( ibit7 + ibit8 ) 2529 2529 k_mmm = k  3 * ibit8 2530 2530 … … 3224 3224 ibit15 = IBITS(wall_flags_0(k1,j,i),15,1) 3225 3225 3226 k_pp = k + 2 * ( 1  ibit15 )3227 k_mm = k  2 * ( 1  ibit15)3226 k_pp = k + 2 * ibit17 3227 k_mm = k  2 * ( ibit16 + ibit17 ) 3228 3228 k_mmm = k  3 * ibit17 3229 3229 … … 3941 3941 ibit24 = IBITS(wall_flags_0(k1,j,i),24,1) 3942 3942 3943 k_pp = k + 2 * ( 1  ibit24 )3944 k_mm = k  2 * ( 1  ibit24)3943 k_pp = k + 2 * ibit26 3944 k_mm = k  2 * ( ibit25 + ibit26 ) 3945 3945 k_mmm = k  3 * ibit26 3946 3946 … … 4637 4637 ibit33 = IBITS(wall_flags_0(k1,j,i),33,1) 4638 4638 4639 k_pp = k + 2 * ( 1  ibit33 )4640 k_mm = k  2 * ( 1  ibit33)4639 k_pp = k + 2 * ibit35 4640 k_mm = k  2 * ( ibit34 + ibit35 ) 4641 4641 k_mmm = k  3 * ibit35 4642 4642
Note: See TracChangeset
for help on using the changeset viewer.