remove wion -- it is unused (#294)

Author: zingale

networks/aprox13/actual_network.F90

@@ -19,10 +19,10 @@ module actual_network
   integer, parameter :: ife52 = 12
   integer, parameter :: ini56 = 13
 
-  real(rt)        , allocatable :: bion(:), mion(:), wion(:)
+  real(rt)        , allocatable :: bion(:), mion(:)
 
 #ifdef AMREX_USE_CUDA
-  attributes(managed) :: bion, mion, wion
+  attributes(managed) :: bion, mion
 #endif
 
   character (len=32), parameter :: network_name = "aprox13"
@@ -44,7 +44,7 @@ module actual_network
 
   real(rt)        , parameter :: enuc_conv2 = -avo*c_light*c_light
 
-  !$acc declare create(aion, zion, nion, bion, mion, wion)
+  !$acc declare create(aion, zion, nion, bion, mion)
 
   ! Rates data
 
@@ -140,7 +140,6 @@ subroutine actual_network_init
     call network_properties_init()
     allocate(bion(nspec))
     allocate(mion(nspec))
-    allocate(wion(nspec))
 
     ! Set the binding energy of the element (MeV)
     bion(ihe4)  =  28.29603e0_rt
@@ -160,13 +159,7 @@ subroutine actual_network_init
     ! Set the mass
     mion(:) = nion(:) * mn + zion(:) * (mp + me) - bion(:) * mev2gr
 
-    ! Molar mass
-    wion(:) = avo * mion(:)
-
-    ! Common approximation
-    wion(:) = aion(:)
-
-    !$acc update device(aion, zion, nion, bion, mion, wion)
+    !$acc update device(aion, zion, nion, bion, mion)
 
     ratenames(ir3a)   = 'r3a  '
     ratenames(irg3a)  = 'rg3a '
@@ -278,9 +271,6 @@ subroutine actual_network_finalize
     if (allocated(mion)) then
        deallocate(mion)
     endif
-    if (allocated(wion)) then
-       deallocate(wion)
-    endif
 
   end subroutine actual_network_finalize
 

networks/aprox19/actual_network.F90

@@ -24,10 +24,10 @@ module actual_network
   integer, parameter :: ineut = 18
   integer, parameter :: iprot = 19
 
-  real(rt)        , allocatable :: bion(:), mion(:), wion(:)
+  real(rt)        , allocatable :: bion(:), mion(:)
 
 #ifdef AMREX_USE_CUDA
-  attributes(managed) :: bion, mion, wion
+  attributes(managed) :: bion, mion
 #endif
 
   character (len=32), parameter :: network_name = "aprox19"
@@ -170,7 +170,6 @@ subroutine actual_network_init
 
     allocate(bion(nspec))
     allocate(mion(nspec))
-    allocate(wion(nspec))
 
 
     ! Set the binding energy of the element
@@ -197,12 +196,6 @@ subroutine actual_network_init
     ! Set the mass
     mion(:) = nion(:) * mn + zion(:) * (mp + me) - bion(:) * mev2gr
 
-    ! Molar mass
-    wion(:) = avo * mion(:)
-
-    ! Common approximation
-    wion(:) = aion(:)
-
     ! set the names of the reaction rates
     ratenames(ir3a)   = 'r3a  '
     ratenames(irg3a)  = 'rg3a '
@@ -335,9 +328,6 @@ subroutine actual_network_finalize
     if (allocated(mion)) then
        deallocate(mion)
     endif
-    if (allocated(wion)) then
-       deallocate(wion)
-    endif
 
   end subroutine actual_network_finalize
 

networks/aprox21/actual_network.F90

@@ -27,10 +27,10 @@ module actual_network
   integer, parameter :: ineut = 20
   integer, parameter :: iprot = 21
 
-  real(rt)        , allocatable :: bion(:), mion(:), wion(:)
+  real(rt)        , allocatable :: bion(:), mion(:)
 
 #ifdef AMREX_USE_CUDA
-  attributes(managed) :: bion, mion, wion
+  attributes(managed) :: bion, mion
 #endif
 
   character (len=32), parameter :: network_name = "aprox21"
@@ -184,7 +184,6 @@ subroutine actual_network_init
 
     allocate(bion(nspec))
     allocate(mion(nspec))
-    allocate(wion(nspec))
 
 
     ! Set the binding energy of the element
@@ -213,12 +212,6 @@ subroutine actual_network_init
     ! Set the mass
     mion(:) = nion(:) * mn + zion(:) * (mp + me) - bion(:) * mev2gr
 
-    ! Molar mass
-    wion(:) = avo * mion(:)
-
-    ! Common approximation
-    wion(:) = aion(:)
-
      ! set the names of the reaction rates
     ratenames(ir3a)   = 'r_he4_he4_he4_to_c12'
     ratenames(irg3a)  = 'r_c12_to_he4_he4_he4'
@@ -366,9 +359,6 @@ subroutine actual_network_finalize
     if (allocated(mion)) then
        deallocate(mion)
     endif
-    if (allocated(wion)) then
-       deallocate(wion)
-    endif
 
   end subroutine actual_network_finalize
 

networks/ignition_chamulak/actual_network.F90

@@ -14,10 +14,10 @@ module actual_network
   integer, parameter :: io16  = 2
   integer, parameter :: iash  = 3
 
-  real(rt)        , allocatable :: bion(:), mion(:), wion(:)
+  real(rt)        , allocatable :: bion(:), mion(:)
 
 #ifdef AMREX_USE_CUDA
-  attributes(managed) :: bion, mion, wion
+  attributes(managed) :: bion, mion
 #endif
 
   integer, parameter :: nrates = 1
@@ -32,7 +32,6 @@ subroutine actual_network_init
     call network_properties_init()
     allocate(bion(nspec))
     allocate(mion(nspec))
-    allocate(wion(nspec))
 
     ! the ash from C12 burning according to Chamulak et al. is a mixture
     ! of C13, O16, Ne20, and Na23.   Ne20 + alpha results 60% of the time,
@@ -56,9 +55,6 @@ subroutine actual_network_finalize
     if (allocated(mion)) then
        deallocate(mion)
     endif
-    if (allocated(wion)) then
-       deallocate(wion)
-    endif
 
   end subroutine actual_network_finalize
 

networks/ignition_simple/actual_network.F90

@@ -21,13 +21,13 @@ module actual_network
   integer, parameter :: io16  = 2
   integer, parameter :: img24 = 3
 
-  real(rt)        , allocatable :: bion(:), mion(:), wion(:)
+  real(rt)        , allocatable :: bion(:), mion(:)
 
 #ifdef AMREX_USE_CUDA
-  attributes(managed) :: bion, mion, wion
+  attributes(managed) :: bion, mion
 #endif
 
-  !$acc declare create(bion, mion, wion)
+  !$acc declare create(bion, mion)
 
   integer, parameter :: nrates = 1
   integer, parameter :: num_rate_groups = 4
@@ -57,7 +57,6 @@ subroutine actual_network_init
 
     allocate(bion(nspec))
     allocate(mion(nspec))
-    allocate(wion(nspec))
 
     ! Binding energies per nucleus in MeV
     bion(ic12)  = 92.16294e0_rt
@@ -67,12 +66,6 @@ subroutine actual_network_init
     ! Set the mass
     mion(:) = nion(:) * mn + zion(:) * (mp + me) - bion(:) * mev2gr
 
-    ! Molar mass
-    wion(:) = avo * mion(:)
-
-    ! Common approximation
-    wion(:) = aion(:)
-
 #ifdef REACT_SPARSE_JACOBIAN
     ! Set CSR format metadata for Jacobian
     allocate(csr_jac_col_index(NETWORK_SPARSE_JAC_NNZ))
@@ -82,7 +75,7 @@ subroutine actual_network_init
     csr_jac_row_count = [1, 3, 5, 8]
 #endif
 
-    !$acc update device(nion, mion, wion)
+    !$acc update device(nion, mion)
 
   end subroutine actual_network_init
 
@@ -99,9 +92,6 @@ subroutine actual_network_finalize
     if (allocated(mion)) then
        deallocate(mion)
     endif
-    if (allocated(wion)) then
-       deallocate(wion)
-    endif
 
   end subroutine actual_network_finalize