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

palm/trunk/SOURCE/init_masks.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 
+! 
+! 3766 2019-02-26 16:23:41Z raasch
 ! unused variables removed
 ! 
@@ -178 +182 @@
                mask_surface, mask_x,                                           &
                mask_x_loop, mask_xyz_dimension, mask_y, mask_y_loop, mask_z,   &
-               mask_z_loop, max_masks,  message_string, mid,                   &
+               mask_z_loop, max_masks,  message_string,                        &
                passive_scalar, ocean_mode, varnamelength
 
@@ -216 +220 @@
     INTEGER(iwp) ::  k            !< loop index
     INTEGER(iwp) ::  m            !< mask index
+    INTEGER(iwp) ::  mid            !< masked output running index
     INTEGER(iwp) ::  n            !< loop index
     INTEGER(iwp) ::  sender       !< PE id of sending PE