Changeset 1980 for palm/trunk/SOURCE

Timestamp:

Jul 29, 2016 3:51:57 PM (8 years ago)

Author:

suehring

Message:

Bugfix, in order to steer user-defined output, setting flag found explicitly

Location:

palm/trunk/SOURCE

Files:

• data_output_2d.f90 (modified) (2 diffs)
• data_output_3d.f90 (modified) (2 diffs)
• data_output_mask.f90 (modified) (2 diffs)
• netcdf_interface_mod.f90 (modified) (7 diffs)

palm/trunk/SOURCE/data_output_2d.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Bugfix, in order to steer user-defined output, setting flag found explicitly
+! to .F.
 ! 
 ! Former revisions:
@@ -414 +415 @@
 
        IF ( do2d_mode == mode )  THEN
+!
+!--       Set flag to steer output of radiation, land-surface, or user-defined
+!--       quantities
+          found = .FALSE.
 
           nzb_do = nzb

palm/trunk/SOURCE/data_output_3d.f90

@@ -19 +19 @@
 ! Current revisions:
 ! ------------------
-! 
+! Bugfix, in order to steer user-defined output, setting flag found explicitly
+! to .F.
 ! 
 ! Former revisions:
@@ -257 +258 @@
        nzb_do = nzb
        nzt_do = nz_do3d
-
+!
+!--    Set flag to steer output of radiation, land-surface, or user-defined
+!--    quantities
+       found = .FALSE.
 !
 !--    Allocate a temporary array with the desired output dimensions.

palm/trunk/SOURCE/data_output_mask.f90

@@ -19 +19 @@
 ! Current revisions:
 ! -----------------
-! 
+! Bugfix, in order to steer user-defined output, setting flag found explicitly
+! to .F.
 ! 
 ! Former revisions:
@@ -211 +212 @@
                              mask_size_l(mid,3)) )
        ENDIF
+!
+!--    Set flag to steer output of radiation, land-surface, or user-defined
+!--    quantities
+       found = .FALSE.
 !
 !--    Store the variable chosen.

palm/trunk/SOURCE/netcdf_interface_mod.f90

@@ -19 +19 @@
 ! Current revisions:
 ! ------------------
-! 
+! Bugfix, in order to steer user-defined output, setting flag found explicitly
+! to .F.
 ! 
 ! Former revisions:
@@ -738 +739 @@
 !
 !--          Check for the grid
-             found = .TRUE.
+             found = .FALSE.
              SELECT CASE ( domask(mid,av,i) )
 !
@@ -1248 +1249 @@
 !
 !--          Check for the grid
-             found = .TRUE.
+             found = .FALSE.
              SELECT CASE ( do3d(av,i) )
 !
@@ -1851 +1852 @@
 !
 !--                Check for the grid
-                   found = .TRUE.
+                   found = .FALSE.
                    SELECT CASE ( do2d(av,i) )
 !
@@ -2516 +2517 @@
 !
 !--             Check for the grid
-                found = .TRUE.
+                found = .FALSE.
                 SELECT CASE ( do2d(av,i) )
 !
@@ -3170 +3171 @@
 !
 !--             Check for the grid
-                found = .TRUE.
+                found = .FALSE.
                 SELECT CASE ( do2d(av,i) )
 !
@@ -4342 +4343 @@
 !
 !--          First check for the vertical grid
-             found = .TRUE.
+             found = .FALSE.
              SELECT CASE ( data_output_sp(i) )
 !