Ignore:
Timestamp:
Sep 4, 2009 11:09:00 AM (12 years ago)
Author:
raasch
Message:

adjustments for openmp usage on sgi-ice

File:
1 edited

Legend:

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

    r198 r377  
    44! Actual revisions:
    55! -----------------
    6 !
     6! __lcmuk changed to __lc to avoid problems with Intel compiler on sgi-ice
    77!
    88! Former revisions:
     
    13611361
    13621362       IF ( j <= nnyh )  THEN
    1363 #if defined( __lcmuk )
     1363#if defined( __lc )
    13641364          CALL maketri_1dd( j, tri )
    13651365#else
     
    13671367#endif
    13681368       ELSE
    1369 #if defined( __lcmuk )
     1369#if defined( __lc )
    13701370          CALL maketri_1dd( ny+1-j, tri )
    13711371#else
     
    13731373#endif
    13741374       ENDIF
    1375 #if defined( __lcmuk )
     1375#if defined( __lc )
    13761376       CALL split_1dd( tri )
    13771377#else
     
    13821382    CONTAINS
    13831383
    1384 #if defined( __lcmuk )
     1384#if defined( __lc )
    13851385       SUBROUTINE maketri_1dd( j, tri )
    13861386#else
     
    14011401          REAL, DIMENSION(0:nx) ::  l
    14021402
    1403 #if defined( __lcmuk )
     1403#if defined( __lc )
    14041404          REAL, DIMENSION(5,0:nx,0:nz-1) ::  tri
    14051405#endif
     
    14481448
    14491449
    1450 #if defined( __lcmuk )
     1450#if defined( __lc )
    14511451       SUBROUTINE split_1dd( tri )
    14521452#else
     
    14621462          INTEGER ::  i, k
    14631463
    1464 #if defined( __lcmuk )
     1464#if defined( __lc )
    14651465          REAL, DIMENSION(5,0:nx,0:nz-1) ::  tri
    14661466#endif
Note: See TracChangeset for help on using the changeset viewer.