Ignore:
Timestamp:
Jul 1, 2019 2:05:51 PM (2 years ago)
Author:
Giersch
Message:

Bugfix for masked output, compiler warning removed, test case for wind turbine model revised

File:
1 edited

Legend:

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

    r3655 r4069  
    2525! -----------------
    2626! $Id$
     27! Code added to avoid compiler warnings
     28!
     29! 3655 2019-01-07 16:51:22Z knoop
    2730! OpenACC port for SPEC
    2831!
     
    457460       REAL(wp), DIMENSION(0:nx,nys_x:nyn_x,nzb_x:nzt_x) ::                    &
    458461          ar      !<
     462
     463!
     464!--    To avoid compiler warning: Unused dummy argument ‘ar_2d’
     465       IF ( PRESENT( ar_2d ) )  CONTINUE
    459466
    460467       IF ( direction == 'forward' )  THEN
Note: See TracChangeset for help on using the changeset viewer.