Changeset 4132

Timestamp:

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

Author:

suehring

Message:

Bugfix in masked data output for prognostic quantities

Location:

palm/trunk/SOURCE

Files:

• diagnostic_output_quantities_mod.f90 (modified) (3 diffs)
• module_interface.f90 (modified) (2 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
 

palm/trunk/SOURCE/module_interface.f90

@@ -25 +25 @@
 ! -----------------
 ! $Id$
+! Bugfix in masked data output for diagnostic quantities
+! 
+! 4131 2019-08-02 11:06:18Z monakurppa
 ! Add output of 3D plant-canopy outputs (merge from branch resler)
 ! 
@@ -905 +908 @@
        CALL chem_check_data_output( variable, unit, 0, 0, 0 )
     ENDIF
+    
+    IF ( unit == 'illegal' )  THEN
+       CALL doq_check_data_output( variable, unit )
+    ENDIF
 
     IF ( unit == 'illegal'  .AND.  radiation )  THEN