Changeset 1980 for palm/trunk/SOURCE/netcdf_interface_mod.f90

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

File:

• palm/trunk/SOURCE/netcdf_interface_mod.f90 (modified) (7 diffs)

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) )
 !