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

palm/trunk/SOURCE/check_open.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
+! 
+! 3967 2019-05-09 16:04:34Z gronemeier
 ! Save binary data of virtual measurements within separate folder
 ! 
@@ -189 +193 @@
     USE control_parameters,                                                    &
         ONLY:  coupling_char, data_output_2d_on_each_pe,                       &
-               max_masks, message_string, mid, nz_do3d, openfile,              &
+               max_masks, message_string, nz_do3d, openfile,              &
                run_description_header
 
@@ -227 +231 @@
     INTEGER(iwp) ::  file_id     !<
     INTEGER(iwp) ::  ioerr       !< IOSTAT flag for IO-commands ( 0 = no error )
+    INTEGER(iwp) ::  mid         !< masked output running index
     
     LOGICAL ::  netcdf_extend    !<