Changeset 3767 for palm/trunk/SOURCE/chemistry_model_mod.f90

Timestamp:

Feb 27, 2019 8:18:02 AM (5 years ago)

Author:

raasch

Message:

unused variables removed from rrd-subroutines parameter list

File:

• palm/trunk/SOURCE/chemistry_model_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/chemistry_model_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $Id$
+! unused variable for file index removed from rrd-subroutines parameter list
+! 
+! 3738 2019-02-12 17:00:45Z suehring
 ! Clean-up debug prints
 ! 
@@ -2583 +2586 @@
  !------------------------------------------------------------------------------!
 
- SUBROUTINE chem_rrd_local( i, k, nxlf, nxlc, nxl_on_file, nxrf, nxrc,         &
-      nxr_on_file, nynf, nync, nyn_on_file, nysf, nysc,  &
-      nys_on_file, tmp_3d, found )    
+ SUBROUTINE chem_rrd_local( k, nxlf, nxlc, nxl_on_file, nxrf, nxrc,             &
+                            nxr_on_file, nynf, nync, nyn_on_file, nysf, nysc,   &
+                            nys_on_file, tmp_3d, found )
 
     USE control_parameters
@@ -2597 +2600 @@
     CHARACTER (LEN=20) :: spc_name_av !<   
 
-    INTEGER(iwp) ::  i, lsp          !< 
+    INTEGER(iwp) ::  lsp             !<
     INTEGER(iwp) ::  k               !< 
     INTEGER(iwp) ::  nxlc            !<