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/palm.f90

    r2296 r2298  
    2525! -----------------
    2626! $Id$
     27! type of write_binary changed from CHARACTER to LOGICAL,
     28! user interface required revision updated, MPI2 related part removed
     29!
     30! 2296 2017-06-28 07:53:56Z maronga
    2731! Added call to new spinup routine
    2832!
     
    236240
    237241    version = 'PALM 4.0'
    238     user_interface_required_revision = 'r1819'
     242    user_interface_required_revision = 'r2297'
    239243
    240244#if defined( __parallel )
     
    425429!
    426430!-- If required, write binary data for restart runs
    427     IF ( write_binary(1:4) == 'true' )  THEN
     431    IF ( write_binary )  THEN
    428432
    429433       CALL cpu_log( log_point(22), 'write_3d_binary', 'start' )
     
    475479          ENDIF
    476480          CALL user_last_actions
    477           IF ( write_binary(1:4) == 'true' )  CALL close_file( 14 )
     481          IF ( write_binary )  CALL close_file( 14 )
    478482       ENDIF
    479483#if defined( __parallel )
     
    485489    CALL cpu_log( log_point(4), 'last actions', 'stop' )
    486490
    487 #if defined( __mpi2 )
    488 !
    489 !-- Test exchange via intercommunicator in case of a MPI-2 coupling
    490     IF ( coupling_mode == 'atmosphere_to_ocean' )  THEN
    491        i = 12345 + myid
    492        CALL MPI_SEND( i, 1, MPI_INTEGER, myid, 11, comm_inter, ierr )
    493     ELSEIF ( coupling_mode == 'ocean_to_atmosphere' )  THEN
    494        CALL MPI_RECV( i, 1, MPI_INTEGER, myid, 11, comm_inter, status, ierr )
    495        PRINT*, '### myid: ', myid, '   received from atmosphere:  i = ', i
    496     ENDIF
    497 #endif
    498 
    499491!
    500492!-- Write run number to file (used by mrun to create unified cycle numbers for
Note: See TracChangeset for help on using the changeset viewer.