Changeset 4132 for palm/trunk/SOURCE/diagnostic_output_quantities_mod.f90

Timestamp:

Aug 2, 2019 12:34:17 PM (4 years ago)

Author:

suehring

Message:

Bugfix in masked data output for prognostic quantities

File:

• palm/trunk/SOURCE/diagnostic_output_quantities_mod.f90 (modified) (3 diffs)

palm/trunk/SOURCE/diagnostic_output_quantities_mod.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix in masked data output
+! 
+! 4069 2019-07-01 14:05:51Z Giersch
 ! Masked output running index mid has been introduced as a local variable to 
 ! avoid runtime error (Loop variable has been modified) in time_integration 
@@ -218 +221 @@
         ONLY:  average_count_3d
 
-    CHARACTER (LEN=*) ::  mode    !< 
-    CHARACTER (LEN=*) :: variable !< 
+    CHARACTER (LEN=*) ::  mode     !< 
+    CHARACTER (LEN=*) ::  variable !< 
 
     INTEGER(iwp) ::  i !<
@@ -1023 +1026 @@
           DO  WHILE ( domask(mid,av,ivar)(1:1) /= ' ' )
              IF ( .NOT.  ANY( do_all == domask(mid,av,ivar) ) )  THEN
-                do_all(ivar_all) = do2d_var(av,ivar)
+                do_all(ivar_all) = domask(mid,av,ivar)
              ENDIF