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

palm/trunk/SOURCE/diagnostic_output_quantities_mod.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 
+! 
+! 4039 2019-06-18 10:32:41Z suehring
 ! - Add output of uu, vv, ww to enable variance calculation according temporal
 !   EC method
@@ -679 +683 @@
 !> temporary array with indices (i,j,k) for masked data output.
 !------------------------------------------------------------------------------!
- SUBROUTINE doq_output_mask( av, variable, found, local_pf )
+ SUBROUTINE doq_output_mask( av, variable, found, local_pf, mid )
  
     USE control_parameters
@@ -698 +702 @@
     INTEGER(iwp) ::  j            !< index variable along y-direction
     INTEGER(iwp) ::  k            !< index variable along z-direction
+    INTEGER(iwp) ::  mid          !< masked output running index 
     INTEGER(iwp) ::  topo_top_ind !< k index of highest horizontal surface
 
@@ -965 +970 @@
 
     USE control_parameters,                                                    &
-        ONLY:  do2d, do3d, domask, masks, mid
+        ONLY:  do2d, do3d, domask, masks
 
     IMPLICIT NONE
@@ -976 +981 @@
     INTEGER(iwp) ::  ivar_all   !< loop index
     INTEGER(iwp) ::  l          !< index for cutting string
+    INTEGER(iwp) ::  mid          !< masked output running index 
 
     prepared_diagnostic_output_quantities = .FALSE.