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

Timestamp:

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

Author:

raasch

Message:

unused variables removed from rrd-subroutines parameter list

File:

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

palm/trunk/SOURCE/salsa_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! unused variable for file index removed from rrd-subroutines parameter list
+! 
+! 3685 2019-01-21 01:02:11Z knoop
 ! Some interface calls moved to module_interface + cleanup
 ! 
@@ -2032 +2035 @@
 !> This routine reads the respective restart data.
 !------------------------------------------------------------------------------!
- SUBROUTINE salsa_rrd_local( i, k, nxlf, nxlc, nxl_on_file, nxrf, nxrc,        &
+ SUBROUTINE salsa_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 )
@@ -2043 +2046 @@
     INTEGER(iwp) ::  c  !<
     INTEGER(iwp) ::  g  !<
-    INTEGER(iwp) ::  i  !<
     INTEGER(iwp) ::  k  !<
     INTEGER(iwp) ::  nxlc            !<