Changeset 4069 for palm/trunk/SOURCE/user_data_output_mask.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/user_data_output_mask.f90 (modified) (3 diffs)

palm/trunk/SOURCE/user_data_output_mask.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Masked output running index mid has been introduced as a local variable to 
+! avoid runtime error (Loop variable has been modified) in time_integration
+! 
+! 3768 2019-02-27 14:35:58Z raasch
 ! variables commented + statement added to avoid compiler warnings about unused variables
 ! 
@@ -59 +63 @@
 !> temporary array with indices (i,j,k) for masked data output.
 !------------------------------------------------------------------------------!
- SUBROUTINE user_data_output_mask( av, variable, found, local_pf )
+ SUBROUTINE user_data_output_mask( av, variable, found, local_pf, mid )
  
 
@@ -79 +83 @@
 
     INTEGER(iwp) ::  av             !< 
+    INTEGER(iwp) ::  mid            !< masked output running index
 !    INTEGER(iwp) ::  i              !<
 !    INTEGER(iwp) ::  j              !<