Adding deallocation for some arrays

Author: dmitrypek

build/module.F90

@@ -272,12 +272,10 @@ subroutine p3dfft_clean()
       call dfftw_destroy_plan(plan2_bc_same(tid))
       call dfftw_destroy_plan(plan_ctrans_same(tid))
       call dfftw_destroy_plan(plan_strans_same(tid))
-#ifdef STRIDE1
       call dfftw_destroy_plan(plan_strans_dif(tid))
       call dfftw_destroy_plan(plan_ctrans_dif(tid))
       call dfftw_destroy_plan(plan2_fc_dif(tid))
       call dfftw_destroy_plan(plan2_bc_dif(tid))
-#endif
 #else
       call sfftw_destroy_plan(plan1_frc(tid))
       call sfftw_destroy_plan(plan1_bcr(tid))
@@ -287,19 +285,15 @@ subroutine p3dfft_clean()
       call sfftw_destroy_plan(plan2_bc_same(tid))
       call sfftw_destroy_plan(plan_ctrans_same(tid))
       call sfftw_destroy_plan(plan_strans_same(tid))
-#ifdef STRIDE1
       call sfftw_destroy_plan(plan2_fc_dif(tid))
       call sfftw_destroy_plan(plan2_bc_dif(tid))
       call sfftw_destroy_plan(plan_ctrans_dif(tid))
       call sfftw_destroy_plan(plan_strans_dif(tid))
-#endif
 #endif
       enddo
 
       deallocate(plan1_frc,plan1_bcr,plan1_fc,plan2_fc_same,plan1_bc,plan2_bc_same,plan_ctrans_same,plan_strans_same)
-#ifdef STRIDE1
       deallocate(plan_ctrans_dif,plan_strans_dif,plan2_fc_dif,plan2_bc_dif)
-#endif
 
 #elif defined ESSL
       deallocate(caux1)