Index: palm/trunk/SOURCE/module_interface.f90
===================================================================
--- palm/trunk/SOURCE/module_interface.f90	(revision 3766)
+++ palm/trunk/SOURCE/module_interface.f90	(revision 3767)
@@ -25,4 +25,7 @@
 ! -----------------
 ! $Id$
+! unused variable file_index removed from subroutine parameter list
+! 
+! 3766 2019-02-26 16:23:41Z raasch
 ! first argument removed from module_interface_rrd_*, statement added to avoid
 ! compiler warning about unused variable, file reformatted with respect to coding
@@ -1157,5 +1160,5 @@
 !> Read module-specific restart data specific to local MPI ranks
 !------------------------------------------------------------------------------!
- SUBROUTINE module_interface_rrd_local( file_index, map_index,                 &
+ SUBROUTINE module_interface_rrd_local( map_index,                             &
                                         nxlf, nxlc, nxl_on_file,               &
                                         nxrf, nxrc, nxr_on_file,               &
@@ -1165,5 +1168,4 @@
 
 
-    INTEGER(iwp),      INTENT(IN)  ::  file_index   !<
     INTEGER(iwp),      INTENT(IN)  ::  map_index    !<
     INTEGER(iwp),      INTENT(IN)  ::  nxlc         !<
@@ -1190,5 +1192,5 @@
 
     IF ( .NOT. found ) CALL bcm_rrd_local(                                     &
-                               file_index, map_index,                          &
+                               map_index,                                      &
                                nxlf, nxlc, nxl_on_file,                        &
                                nxrf, nxrc, nxr_on_file,                        &
@@ -1199,5 +1201,5 @@
 
     IF ( .NOT. found ) CALL chem_rrd_local(                                    &
-                               file_index, map_index,                          &
+                               map_index,                                      &
                                nxlf, nxlc, nxl_on_file,                        &
                                nxrf, nxrc, nxr_on_file,                        &
@@ -1208,5 +1210,5 @@
 
     IF ( .NOT. found ) CALL gust_rrd_local(                                    &
-                               file_index, map_index,                          &
+                               map_index,                                      &
                                nxlf, nxlc, nxl_on_file,                        &
                                nxrf, nxrc, nxr_on_file,                        &
@@ -1217,5 +1219,5 @@
 
     IF ( .NOT. found ) CALL lsm_rrd_local(                                     &
-                               file_index, map_index,                          &
+                               map_index,                                      &
                                nxlf, nxlc, nxl_on_file,                        &
                                nxrf, nxrc, nxr_on_file,                        &
@@ -1226,5 +1228,14 @@
 
     IF ( .NOT. found ) CALL ocean_rrd_local(                                   &
-                               file_index, map_index,                          &
+                               map_index,                                      &
+                               nxlf, nxlc, nxl_on_file,                        &
+                               nxrf, nxrc, nxr_on_file,                        &
+                               nynf, nync, nyn_on_file,                        &
+                               nysf, nysc, nys_on_file,                        &
+                               tmp_3d, found                                   &
+                            ) ! ToDo: change interface to pass variable
+
+    IF ( .NOT. found ) CALL radiation_rrd_local(                               &
+                               map_index,                                      &
                                nxlf, nxlc, nxl_on_file,                        &
                                nxrf, nxrc, nxr_on_file,                        &
@@ -1234,15 +1245,6 @@
                             ) ! ToDo: change interface to pass variable
 
-    IF ( .NOT. found ) CALL radiation_rrd_local(                               &
-                               file_index, map_index,                          &
-                               nxlf, nxlc, nxl_on_file,                        &
-                               nxrf, nxrc, nxr_on_file,                        &
-                               nynf, nync, nyn_on_file,                        &
-                               nysf, nysc, nys_on_file,                        &
-                               tmp_2d, tmp_3d, found                           &
-                            ) ! ToDo: change interface to pass variable
-
     IF ( .NOT. found ) CALL salsa_rrd_local(                                   &
-                               file_index, map_index,                          &
+                               map_index,                                      &
                                nxlf, nxlc, nxl_on_file,                        &
                                nxrf, nxrc, nxr_on_file,                        &
@@ -1253,8 +1255,8 @@
 
     IF ( .NOT. found ) CALL usm_rrd_local(                                     &
-                               file_index, map_index,                          &
+                               map_index,                                      &
                                nxlf, nxlc, nxl_on_file,                        &
-                               nxrf, nxrc, nxr_on_file,                        &
-                               nynf, nync, nyn_on_file,                        &
+                               nxrf, nxr_on_file,                              &
+                               nynf, nyn_on_file,                              &
                                nysf, nysc, nys_on_file,                        &
                                found                                           &
@@ -1265,5 +1267,5 @@
                            
     IF ( .NOT. found ) CALL user_rrd_local(                                    &
-                               file_index, map_index,                          &
+                               map_index,                                      &
                                nxlf, nxlc, nxl_on_file,                        &
                                nxrf, nxrc, nxr_on_file,                        &
