Changeset 4622 for palm/trunk/SOURCE

Timestamp:

Jul 23, 2020 9:02:23 AM (4 years ago)

Author:

raasch

Message:

further bugfix for r4618: unused variables removed

File:

• palm/trunk/SOURCE/restart_data_mpi_io_mod.f90 (modified) (11 diffs)

palm/trunk/SOURCE/restart_data_mpi_io_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! unused variables removed
+!
+! 4621 2020-07-23 08:15:59Z raasch
 ! bugfixes for serial (non-parallel) mode
 !
@@ -254 +257 @@
 !-- Variables to handle the cyclic fill initialization mode
     INTEGER ::  comm_cyclic_fill  !< communicator for cyclic fill PEs
+#if defined( __parallel )
     INTEGER ::  rmawin_2di        !< RMA window 2d INTEGER
     INTEGER ::  rmawin_2d         !< RMA window 2d REAL
     INTEGER ::  rmawin_3d         !< RMA window 3d
+#endif
 
     INTEGER(iwp), ALLOCATABLE, DIMENSION(:,:) ::  remote_pe
@@ -751 +756 @@
 
        INTEGER      ::  color  !< used to set the IO PEs for MPI_COMM_SPLIT
-       INTEGER      ::  ierr   !<
        INTEGER(iwp) ::  i      !<
        INTEGER(iwp) ::  j      !<
 #if defined( __parallel )
+       INTEGER      ::  ierr   !<
        INTEGER(KIND=MPI_ADDRESS_KIND) ::  winsize  !< size of RMA window
 #else
@@ -1074 +1079 @@
        INTEGER(iwp)    :: i         !<
        INTEGER(iwp)    :: ie        !<
-       INTEGER(iwp)    :: ierr      !<
        INTEGER(iwp)    :: is        !<
        INTEGER(iwp)    :: i_remote  !<
@@ -1085 +1089 @@
 
 #if defined( __parallel )
+       INTEGER(iwp)    :: ierr      !<
        INTEGER(KIND=MPI_ADDRESS_KIND) ::  rem_offs  !<
 #else
@@ -1296 +1301 @@
        INTEGER(iwp)    :: i         !<
        INTEGER(iwp)    :: ie        !<
-       INTEGER(iwp)    :: ierr      !<
        INTEGER(iwp)    :: is        !<
        INTEGER(iwp)    :: i_remote  !<
@@ -1307 +1311 @@
 
 #if defined( __parallel )
+       INTEGER(iwp)    :: ierr      !<
        INTEGER(KIND=MPI_ADDRESS_KIND) ::  rem_offs  !<
 #else
@@ -1494 +1499 @@
        INTEGER(iwp)    :: i         !<
        INTEGER(iwp)    :: ie        !<
-       INTEGER(iwp)    :: ierr      !<
        INTEGER(iwp)    :: is        !<
        INTEGER(iwp)    :: i_remote  !<
@@ -1505 +1509 @@
 
 #if defined( __parallel )
+       INTEGER(iwp)    :: ierr      !<
        INTEGER(KIND=MPI_ADDRESS_KIND) ::  rem_offs  !<
 #else
@@ -1625 +1630 @@
 #if defined( __parallel )
     INTEGER, DIMENSION(rd_status_size) ::  status    !<
+    INTEGER(iwp)                       ::  ierr      !<
 #endif
 
     LOGICAL                            ::  found     !<
-    INTEGER(iwp)                       ::  ierr      !<
 
     REAL(wp), INTENT(INOUT), DIMENSION(nzb_soil:nzt_soil,nysg:nyng,nxlg:nxrg) ::  data  !<
@@ -2709 +2714 @@
        INTEGER(iwp) ::  i         !<
        INTEGER(iwp) ::  ie        !<
+#if defined( __parallel )
        INTEGER(iwp) ::  ierr      !<
+#endif
        INTEGER(iwp) ::  is        !<
        INTEGER(iwp) ::  i_remote  !<