converting a bunch more variables so that they are local variables of…

… step_rate_newton_raphson.F
brittonsmith · Dec 17, 2024 · ac1be72 · ac1be72
1 parent 0d322fa
commit ac1be72
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 14 deletions.
diff --git a/src/clib/solve_rate_cool_g.F b/src/clib/solve_rate_cool_g.F
@@ -545,11 +545,6 @@ subroutine solve_rate_cool_g(icool, d, e, u, v, w, de,
       MASK_TYPE itmask_tmp(in), itmask_nr(in)
       MASK_TYPE itmask_metal(in)
       integer itr, imp_eng(in)
-      real*8  dspj, err, err_max
-      integer,parameter   :: i_eng = 52
-      real*8  dsp(i_eng), dsp0(i_eng), dsp1(i_eng)
-     &      , dspdot(i_eng), dspdot1(i_eng)
-     &      , ddsp(i_eng), der(i_eng,i_eng)
 
 !
 !\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\/////////////////////////////////
@@ -1346,9 +1341,7 @@ subroutine solve_rate_cool_g(icool, d, e, u, v, w, de,
      &                reHII, reHeII1, reHeII2, reHeIII, brem, edot,
      &                hyd01k, h2k01, vibh, roth, rotl, gpldl, gphdl,
      &                hdlte, hdlow, cieco, anydust, itmask_nr,
-     &                itmask_metal, itr, imp_eng,
-     &                dspj, err, err_max, dsp, dsp0, dsp1,
-     &                dspdot, dspdot1, ddsp, der
+     &                itmask_metal, itr, imp_eng
      &              )
 
             endif ! if (ispecies .gt. 0) then

diff --git a/src/clib/step_rate_newton_raphson.F b/src/clib/step_rate_newton_raphson.F
@@ -87,9 +87,7 @@ subroutine step_rate_newton_raphson(icool, d, e, u, v, w, de, HI,
      &                reHII, reHeII1, reHeII2, reHeIII, brem, edot,
      &                hyd01k, h2k01, vibh, roth, rotl, gpldl, gphdl,
      &                hdlte, hdlow, cieco, anydust, itmask_nr,
-     &                itmask_metal, itr, imp_eng,
-     &                dspj, err, err_max, dsp, dsp0, dsp1,
-     &                dspdot, dspdot1, ddsp, der
+     &                itmask_metal, itr, imp_eng
      &              )
 
 !  PURPOSE:
@@ -331,15 +329,14 @@ subroutine step_rate_newton_raphson(icool, d, e, u, v, w, de, HI,
 !  Local variable
       integer itr_time
       integer nsp, isp, jsp, id
-
-!  Arguments (that could probably be converted to local variables)
       real*8  dspj, err, err_max
       integer,parameter   :: i_eng = 52
+! There may be an argument for allocating the following at a higher
+! level function, but we will leave that for after transcription
       real*8  dsp(i_eng), dsp0(i_eng), dsp1(i_eng)
      &      , dspdot(i_eng), dspdot1(i_eng)
      &      , ddsp(i_eng), der(i_eng,i_eng)
 
-! The following are all local variables
 ! (In the future, we may want to reconsider when/how we allocate
 ! the following 3 variables)
       integer,allocatable :: idsp(:)