Ignore:
Timestamp:
Jun 29, 2017 9:28:18 AM (4 years ago)
Author:
raasch
Message:

write_binary is of type LOGICAL now, MPI2-related code removed, obsolete variables removed, sendrecv_in_background related parts removed, missing variable descriptions added

File:
1 edited

Legend:

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

    r2270 r2298  
    2525! -----------------
    2626! $Id$
     27! MPI2 related parts removed
     28!
     29! 2270 2017-06-09 12:18:47Z maronga
    2730! Renamed Prandtl layer to constant flux layer
    2831!
     
    446449    INTEGER(iwp) ::  l              !<
    447450    INTEGER(iwp) ::  ll             !<
    448     INTEGER(iwp) ::  mpi_type       !<
    449451    INTEGER(iwp) ::  my_cpl_id      !<
    450452    INTEGER(iwp) ::  n              !<
     
    502504    WRITE ( io, 100 )  ver_rev, TRIM( run_classification )
    503505    IF ( TRIM( coupling_mode ) /= 'uncoupled' )  THEN
    504 #if defined( __mpi2 )
    505        mpi_type = 2
    506 #else
    507        mpi_type = 1
    508 #endif
    509        WRITE ( io, 101 )  mpi_type, coupling_mode
     506       WRITE ( io, 101 )  coupling_mode
    510507    ENDIF
    511508#if defined( __parallel )
     
    19421939            1X,'* ',A,' *',4X,A/                               &
    19431940            1X,'******************************',4X,44('-'))
    1944 101 FORMAT (35X,'coupled run using MPI-',I1,': ',A/ &
     1941101 FORMAT (35X,'coupled run: ',A/ &
    19451942            35X,42('-'))
    19461943102 FORMAT (/' Date:                 ',A8,4X,'Run:       ',A20/      &
Note: See TracChangeset for help on using the changeset viewer.