Changeset 4622 for palm


Ignore:
Timestamp:
Jul 23, 2020 9:02:23 AM (3 months ago)
Author:
raasch
Message:

further bugfix for r4618: unused variables removed

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/restart_data_mpi_io_mod.f90

    r4621 r4622  
    2525! -----------------
    2626! $Id$
     27! unused variables removed
     28!
     29! 4621 2020-07-23 08:15:59Z raasch
    2730! bugfixes for serial (non-parallel) mode
    2831!
     
    254257!-- Variables to handle the cyclic fill initialization mode
    255258    INTEGER ::  comm_cyclic_fill  !< communicator for cyclic fill PEs
     259#if defined( __parallel )
    256260    INTEGER ::  rmawin_2di        !< RMA window 2d INTEGER
    257261    INTEGER ::  rmawin_2d         !< RMA window 2d REAL
    258262    INTEGER ::  rmawin_3d         !< RMA window 3d
     263#endif
    259264
    260265    INTEGER(iwp), ALLOCATABLE, DIMENSION(:,:) ::  remote_pe
     
    751756
    752757       INTEGER      ::  color  !< used to set the IO PEs for MPI_COMM_SPLIT
    753        INTEGER      ::  ierr   !<
    754758       INTEGER(iwp) ::  i      !<
    755759       INTEGER(iwp) ::  j      !<
    756760#if defined( __parallel )
     761       INTEGER      ::  ierr   !<
    757762       INTEGER(KIND=MPI_ADDRESS_KIND) ::  winsize  !< size of RMA window
    758763#else
     
    10741079       INTEGER(iwp)    :: i         !<
    10751080       INTEGER(iwp)    :: ie        !<
    1076        INTEGER(iwp)    :: ierr      !<
    10771081       INTEGER(iwp)    :: is        !<
    10781082       INTEGER(iwp)    :: i_remote  !<
     
    10851089
    10861090#if defined( __parallel )
     1091       INTEGER(iwp)    :: ierr      !<
    10871092       INTEGER(KIND=MPI_ADDRESS_KIND) ::  rem_offs  !<
    10881093#else
     
    12961301       INTEGER(iwp)    :: i         !<
    12971302       INTEGER(iwp)    :: ie        !<
    1298        INTEGER(iwp)    :: ierr      !<
    12991303       INTEGER(iwp)    :: is        !<
    13001304       INTEGER(iwp)    :: i_remote  !<
     
    13071311
    13081312#if defined( __parallel )
     1313       INTEGER(iwp)    :: ierr      !<
    13091314       INTEGER(KIND=MPI_ADDRESS_KIND) ::  rem_offs  !<
    13101315#else
     
    14941499       INTEGER(iwp)    :: i         !<
    14951500       INTEGER(iwp)    :: ie        !<
    1496        INTEGER(iwp)    :: ierr      !<
    14971501       INTEGER(iwp)    :: is        !<
    14981502       INTEGER(iwp)    :: i_remote  !<
     
    15051509
    15061510#if defined( __parallel )
     1511       INTEGER(iwp)    :: ierr      !<
    15071512       INTEGER(KIND=MPI_ADDRESS_KIND) ::  rem_offs  !<
    15081513#else
     
    16251630#if defined( __parallel )
    16261631    INTEGER, DIMENSION(rd_status_size) ::  status    !<
     1632    INTEGER(iwp)                       ::  ierr      !<
    16271633#endif
    16281634
    16291635    LOGICAL                            ::  found     !<
    1630     INTEGER(iwp)                       ::  ierr      !<
    16311636
    16321637    REAL(wp), INTENT(INOUT), DIMENSION(nzb_soil:nzt_soil,nysg:nyng,nxlg:nxrg) ::  data  !<
     
    27092714       INTEGER(iwp) ::  i         !<
    27102715       INTEGER(iwp) ::  ie        !<
     2716#if defined( __parallel )
    27112717       INTEGER(iwp) ::  ierr      !<
     2718#endif
    27122719       INTEGER(iwp) ::  is        !<
    27132720       INTEGER(iwp) ::  i_remote  !<
Note: See TracChangeset for help on using the changeset viewer.