Changeset 3497 for palm/trunk/SOURCE

Timestamp:

Nov 6, 2018 5:15:18 PM (6 years ago)

Author:

suehring

Message:

Remove write statement

File:

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

palm/trunk/SOURCE/plant_canopy_model_mod.f90

@@ -22 +22 @@
 ! Current revisions:
 ! ------------------
-! 
+! Remove write statement. 
 ! 
 ! Former revisions:
@@ -1079 +1079 @@
 
        CALL exchange_horiz_2d_int( pch_index_ji, nys, nyn, nxl, nxr, nbgp )
-
+!
 !--    Calculate global pch_index value (index of top of plant canopy from ground)
-       pch_index = MAXVAL(pch_index_ji)
+       pch_index = MAXVAL( pch_index_ji )
+!
 !--    Exchange pch_index from all processors
 #if defined( __parallel )
-       CALL MPI_Allreduce(MPI_IN_PLACE, pch_index, 1, MPI_INTEGER, MPI_MAX, comm2d, ierr)
-       IF ( ierr /= 0 )  THEN
-          WRITE (9,*) 'Error MPI_Allreduce pch_index:', ierr
-          FLUSH(9)
-       ENDIF
+       CALL MPI_ALLREDUCE( MPI_IN_PLACE, pch_index, 1, MPI_INTEGER,            &
+                           MPI_MAX, comm2d, ierr)
 #endif