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

palm/trunk/SOURCE/salsa_mod.f90

@@ -26 +26 @@
 ! -----------------
 ! $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
+! 
+! 4058 2019-06-27 15:25:42Z knoop
 ! Bugfix: to_be_resorted was uninitialized in case of s_H2O in 3d_data_averaging
 ! 
@@ -10716 +10720 @@
 !> Subroutine defining mask output variables
 !------------------------------------------------------------------------------!
- SUBROUTINE salsa_data_output_mask( av, variable, found, local_pf )
+ SUBROUTINE salsa_data_output_mask( av, variable, found, local_pf, mid )
 
     USE arrays_3d,                                                                                 &
@@ -10722 +10726 @@
 
     USE control_parameters,                                                                        &
-        ONLY:  mask_size_l, mask_surface, mid
+        ONLY:  mask_size_l, mask_surface
 
     USE surface_mod,                                                                               &
@@ -10740 +10744 @@
     INTEGER(iwp) ::  j               !< loop index in y-direction
     INTEGER(iwp) ::  k               !< loop index in z-direction
+    INTEGER(iwp) ::  mid            !< masked output running index
     INTEGER(iwp) ::  topo_top_ind    !< k index of highest horizontal surface