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

palm/trunk/SOURCE/radiation_model_mod.f90

@@ -28 +28 @@
 ! -----------------
 ! $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
+! 
+! 4067 2019-07-01 13:29:25Z suehring
 ! Bugfix, pass dummy string to MPI_INFO_SET (J. Resler)
 ! 
@@ -11101 +11105 @@
 !> Subroutine defining masked data output
 !------------------------------------------------------------------------------!
- SUBROUTINE radiation_data_output_mask( av, variable, found, local_pf )
+ SUBROUTINE radiation_data_output_mask( av, variable, found, local_pf, mid )
  
     USE control_parameters
@@ -11120 +11124 @@
     INTEGER(iwp) ::  j               !< 
     INTEGER(iwp) ::  k               !< 
+    INTEGER(iwp) ::  mid             !< masked output running index
     INTEGER(iwp) ::  topo_top_ind    !< k index of highest horizontal surface