Changeset 4069 for palm/trunk/SOURCE/fft_xy_mod.f90

Timestamp:

Jul 1, 2019 2:05:51 PM (5 years ago)

Author:

Giersch

Message:

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

File:

• palm/trunk/SOURCE/fft_xy_mod.f90 (modified) (2 diffs)

palm/trunk/SOURCE/fft_xy_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Code added to avoid compiler warnings
+! 
+! 3655 2019-01-07 16:51:22Z knoop
 ! OpenACC port for SPEC
 ! 
@@ -457 +460 @@
        REAL(wp), DIMENSION(0:nx,nys_x:nyn_x,nzb_x:nzt_x) ::                    &
           ar      !<
+
+!
+!--    To avoid compiler warning: Unused dummy argument ‘ar_2d’
+       IF ( PRESENT( ar_2d ) )  CONTINUE
 
        IF ( direction == 'forward' )  THEN