Changeset 3789 for palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/src/expand_decomp.C

Timestamp:

Mar 8, 2019 6:04:30 PM (5 years ago)

Author:

forkel

Message:

Removed unused variables from chem_gasphase_mod.f90

File:

• palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/src/expand_decomp.C (modified) (2 diffs)

palm/trunk/UTIL/chemistry/gasphase_preproc/kpp4palm/src/expand_decomp.C

@@ -17 +17 @@
 // $Id: expand_decomp.C 3327 2018-10-09 19:55:00Z forkel $
 //
-// initial version                                  (Nov. 2016, ketelsen)
+// Added switch for de-indexing == 2 (W is not needed then)       (08.03.2019, forkel)
+// commented add_line for 'INTEGER  :: k, kk, j, jj' which 
+// only needed for de-indexing == 0
+//
+// initial version                                                (Nov. 2016, ketelsen)
 
 
@@ -197 +201 @@
   de.add_line ("    INTEGER  :: IER                                                   ");
 //  de.add_line ("    REAL ( kind=dp ) :: JVS (:), W ( NVAR ), a                        ");
-  de.add_line ("    REAL ( kind=dp ) :: JVS ( LU_NONZERO ), W ( NVAR ), a             ");
-  de.add_line ("    INTEGER  :: k, kk, j, jj                                          ");
+  if( kpp_switches.de_indexing () == 2 ) {
+     de.add_line ("    REAL ( kind=dp ) :: JVS ( LU_NONZERO ), a                         ");
+  } else {
+     de.add_line ("    REAL ( kind=dp ) :: JVS ( LU_NONZERO ), W ( NVAR ), a             ");
+  }
+//  Commented, k, kk, j, jj are only required if de_indexing == 0, which is not handled here
+//     de.add_line ("    INTEGER  :: k, kk, j, jj                                          ");
   de.add_line ("                                                                      ");
   de.add_line ("    a = 0.                                                            ");