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

palm/trunk/SOURCE/chemistry_model_mod.f90

@@ -27 +27 @@
 ! -----------------
 ! $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
+! 
+! 4029 2019-06-14 14:04:35Z raasch
 ! nest_chemistry option removed
 ! 
@@ -1510 +1514 @@
 !> Subroutine defining mask output variables for chemical species
 !------------------------------------------------------------------------------!
- SUBROUTINE chem_data_output_mask( av, variable, found, local_pf )
+ SUBROUTINE chem_data_output_mask( av, variable, found, local_pf, mid )
 
 
@@ -1520 +1524 @@
 
     CHARACTER(LEN=5)  ::  grid        !< flag to distinquish between staggered grids
+    CHARACTER(LEN=16) ::  spec_name
     CHARACTER(LEN=*)  ::  variable    !< 
-    INTEGER(iwp)  ::  av              !< flag to control data output of instantaneous or time-averaged data
-    LOGICAL ::  found
-    REAL(wp), DIMENSION(mask_size_l(mid,1),mask_size_l(mid,2),mask_size_l(mid,3)) ::  &
-              local_pf   !< 
-!
-!-- local variables.
-    CHARACTER(LEN=16)  ::  spec_name
+    
+    INTEGER(iwp) ::  av              !< flag to control data output of instantaneous or time-averaged data
     INTEGER(iwp) ::  lsp
     INTEGER(iwp) ::  i               !< grid index along x-direction
     INTEGER(iwp) ::  j               !< grid index along y-direction
     INTEGER(iwp) ::  k               !< grid index along z-direction
+    INTEGER(iwp) ::  mid             !< masked output running index
     INTEGER(iwp) ::  topo_top_ind    !< k index of highest horizontal surface
+    
+    LOGICAL ::  found
+    
+    REAL(wp), DIMENSION(mask_size_l(mid,1),mask_size_l(mid,2),mask_size_l(mid,3)) ::  &
+              local_pf   !< 
+!
+!-- local variables.
 
     found = .TRUE.