Changeset 4618 for palm


Ignore:
Timestamp:
Jul 22, 2020 11:21:08 AM (4 years ago)
Author:
raasch
Message:

bugfix for r4616: unused variable removed

File:
1 edited

Legend:

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

    r4617 r4618  
    2525! $Id$
    2626!
     27! unused variable removed
     28!
     29!
    2730! Additions for cyclic fill mode
    2831!
     
    411414#if defined( __parallel )
    412415    INTEGER(iwp) ::  color             !<
    413     INTEGER(iwp) ::  comm_shared_base  !<
    414416    INTEGER(iwp) ::  ierr              !<
    415417    INTEGER(iwp) ::  max_n_npes        !< maximum number of PEs/node
Note: See TracChangeset for help on using the changeset viewer.