Changeset 3497 for palm/trunk/SOURCE


Ignore:
Timestamp:
Nov 6, 2018 5:15:18 PM (4 years ago)
Author:
suehring
Message:

Remove write statement

File:
1 edited

Legend:

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

    r3467 r3497  
    2222! Current revisions:
    2323! ------------------
    24 !
     24! Remove write statement.
    2525!
    2626! Former revisions:
     
    10791079
    10801080       CALL exchange_horiz_2d_int( pch_index_ji, nys, nyn, nxl, nxr, nbgp )
    1081 
     1081!
    10821082!--    Calculate global pch_index value (index of top of plant canopy from ground)
    1083        pch_index = MAXVAL(pch_index_ji)
     1083       pch_index = MAXVAL( pch_index_ji )
     1084!
    10841085!--    Exchange pch_index from all processors
    10851086#if defined( __parallel )
    1086        CALL MPI_Allreduce(MPI_IN_PLACE, pch_index, 1, MPI_INTEGER, MPI_MAX, comm2d, ierr)
    1087        IF ( ierr /= 0 )  THEN
    1088           WRITE (9,*) 'Error MPI_Allreduce pch_index:', ierr
    1089           FLUSH(9)
    1090        ENDIF
     1087       CALL MPI_ALLREDUCE( MPI_IN_PLACE, pch_index, 1, MPI_INTEGER,            &
     1088                           MPI_MAX, comm2d, ierr)
    10911089#endif
    10921090
Note: See TracChangeset for help on using the changeset viewer.