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

palm/trunk/SOURCE/close_file.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
+! 
+! 3655 2019-01-07 16:51:22Z knoop
 ! unused variables and format statements removed
 ! 
@@ -94 +98 @@
 
     USE control_parameters,                                                    &
-        ONLY:  max_masks, mid, openfile
+        ONLY:  max_masks, openfile
                 
     USE kinds
@@ -119 +123 @@
     INTEGER(iwp) ::  fid          !< 
     INTEGER(iwp) ::  file_id      !< 
+    INTEGER(iwp) ::  mid          !< masked output running index 
     INTEGER(iwp) ::  planz        !<