Changeset 4894

Timestamp:

Mar 3, 2021 7:08:47 AM (3 years ago)

Author:

raasch

Message:

bugfix for r4893 to avoid compile errors in serial mode

File:

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

palm/trunk/SOURCE/shared_memory_io_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! bugfix for r4893 to avoid compile errors in serial mode
+!
+! 4893 2021-03-02 16:39:14Z raasch
 ! revised output of surface data via MPI-IO for better performance
 !
@@ -249 +252 @@
     IMPLICIT NONE
 
-    CLASS(sm_class), INTENT(INOUT) ::  this        !< pointer to access internal variables of this call
-    INTEGER(iwp), INTENT(IN), OPTIONAL ::  comm_input  !< main model communicator (comm2d) can optional be set
+    CLASS(sm_class), INTENT(INOUT) ::  this  !< pointer to access internal variables of this call
+    INTEGER(iwp), INTENT(IN), OPTIONAL ::  comm_input  !< main model communicator (comm2d)
 
 #if defined( __parallel )
@@ -259 +262 @@
     LOGICAL, INTENT(IN) ::  sm_active  !< flag to activate shared-memory IO
 
+
     this%nr_io_pe_per_node = 2
+
+!
+!-- Next line is just to avoid compile errors in serial mode because of unused arguments
+    IF ( PRESENT( comm_input )  .AND.  sm_active )  CONTINUE
 
 #if defined( __parallel )
@@ -1502 +1510 @@
 #if defined( __parallel )
     CALL MPI_BARRIER( this%comm_shared, ierr )
+#endif
     IF ( PRESENT(win) )  THEN
+#if defined( __parallel )
        CALL MPI_WIN_FENCE(0, win, ierr )
-    ENDIF
+#else
+       CONTINUE
 #endif
+    ENDIF
 
  END SUBROUTINE sm_node_barrier