Changeset 4618 for palm

Timestamp:

Jul 22, 2020 11:21:08 AM (4 years ago)

Author:

raasch

Message:

bugfix for r4616: unused variable removed

File:

• palm/trunk/SOURCE/shared_memory_io_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/shared_memory_io_mod.f90

@@ -25 +25 @@
 ! $Id$
 !
+! unused variable removed
+!
+! 
 ! Additions for cyclic fill mode
 !
@@ -411 +414 @@
 #if defined( __parallel )
     INTEGER(iwp) ::  color             !<
-    INTEGER(iwp) ::  comm_shared_base  !<
     INTEGER(iwp) ::  ierr              !<
     INTEGER(iwp) ::  max_n_npes        !< maximum number of PEs/node