Ignore:
Timestamp:
Feb 25, 2019 3:31:42 PM (3 years ago)
Author:
raasch
Message:

unused variables removed, OpenACC directives re-formatted, statements added to avoid compiler warnings

File:
1 edited

Legend:

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

    r3690 r3761  
    2525! -----------------
    2626! $Id$
     27! OpenACC modification to prevent compiler warning about unused variable
     28!
     29! 3690 2019-01-22 22:56:42Z knoop
    2730! OpenACC port for SPEC
    2831!
     
    156159
    157160       USE arrays_3d,                                                          &
    158            ONLY:  ddzu_pres, ddzw, rho_air_zw, tri
     161           ONLY:  ddzu_pres, ddzw, rho_air_zw
     162
     163#if defined( _OPENACC )
     164       USE arrays_3d,                                                          &
     165           ONLY:  tri
     166#endif
    159167
    160168       IMPLICIT NONE
Note: See TracChangeset for help on using the changeset viewer.