Changeset 3767 for palm/trunk/SOURCE/read_restart_data_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/read_restart_data_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/read_restart_data_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! unused variables removed from rrd-subroutines parameter list
+! 
+! 3766 2019-02-26 16:23:41Z raasch
 ! first argument removed from module_interface_rrd_*
 ! 
@@ -1791 +1794 @@
 !
 !--                Read restart data of surfaces
-                   IF ( .NOT. found ) CALL surface_rrd_local( i, k, nxlf,      &
-                                           nxlc, nxl_on_file, nxrf, nxrc,      &
-                                           nxr_on_file, nynf, nync,            &
+                   IF ( .NOT. found ) CALL surface_rrd_local( k, nxlf,         &
+                                           nxlc, nxl_on_file, nxrf,            &
+                                           nxr_on_file, nynf,                  &
                                            nyn_on_file, nysf, nysc,            &
                                            nys_on_file, found )
@@ -1800 +1803 @@
 !--                Read restart data of other modules
                    IF ( .NOT. found ) CALL module_interface_rrd_local(         &
-                                           i, k,                               &
+                                           k,                                  &
                                            nxlf, nxlc, nxl_on_file,            &
                                            nxrf, nxrc, nxr_on_file,            &