Ignore:
Timestamp:
Apr 13, 2012 6:28:59 AM (9 years ago)
Author:
raasch
Message:

Bugfix: preprocessor statements for parallel execution added

File:
1 edited

Legend:

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

    r710 r880  
    44! Current revisions:
    55! -----------------
    6 !
     6! Bugfix: preprocessor statements for parallel execution added
    77!
    88! Former revisions:
     
    390390
    391391  SUBROUTINE interpolate_to_atmos( tag )
     392
     393#if defined( __parallel )
    392394
    393395    USE arrays_3d
     
    454456    CALL MPI_BARRIER( comm2d, ierr )
    455457
     458#endif
     459
    456460  END SUBROUTINE interpolate_to_atmos
    457461
    458462
    459463  SUBROUTINE interpolate_to_ocean( tag )
     464
     465#if defined( __parallel )
    460466
    461467    USE arrays_3d
     
    518524    CALL MPI_BARRIER( comm2d, ierr ) 
    519525
     526#endif
     527
    520528  END SUBROUTINE interpolate_to_ocean
Note: See TracChangeset for help on using the changeset viewer.