Ignore:
Timestamp:
Apr 13, 2018 11:22:08 AM (3 years ago)
Author:
raasch
Message:

bugfix: missing parallel cpp-directives added

File:
1 edited

Legend:

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

    r2941 r2967  
    2525! -----------------
    2626! $Id$
     27! bugfix: missing parallel cpp-directives added
     28!
     29! 2941 2018-04-03 11:54:58Z kanani
    2730! Fix for spinup in case of restart run
    2831!
     
    691694!-- communicator.
    692695!-- First, set the default:
     696#if defined( __parallel )
    693697    CALL MPI_COMM_RANK( MPI_COMM_WORLD, global_id, ierr )
    694698    CALL MPI_COMM_SIZE( MPI_COMM_WORLD, global_procs, ierr )
     699#else
     700    global_id    = 0
     701    global_procs = 1
     702#endif
    695703    IF ( maximum_parallel_io_streams == -1  .OR.                               &
    696704         maximum_parallel_io_streams > global_procs )  THEN
Note: See TracChangeset for help on using the changeset viewer.