Ignore:
Timestamp:
Jul 29, 2016 3:51:57 PM (5 years ago)
Author:
suehring
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/netcdf_interface_mod.f90

    r1977 r1980  
    1919! Current revisions:
    2020! ------------------
    21 !
     21! Bugfix, in order to steer user-defined output, setting flag found explicitly
     22! to .F.
    2223!
    2324! Former revisions:
     
    738739!
    739740!--          Check for the grid
    740              found = .TRUE.
     741             found = .FALSE.
    741742             SELECT CASE ( domask(mid,av,i) )
    742743!
     
    12481249!
    12491250!--          Check for the grid
    1250              found = .TRUE.
     1251             found = .FALSE.
    12511252             SELECT CASE ( do3d(av,i) )
    12521253!
     
    18511852!
    18521853!--                Check for the grid
    1853                    found = .TRUE.
     1854                   found = .FALSE.
    18541855                   SELECT CASE ( do2d(av,i) )
    18551856!
     
    25162517!
    25172518!--             Check for the grid
    2518                 found = .TRUE.
     2519                found = .FALSE.
    25192520                SELECT CASE ( do2d(av,i) )
    25202521!
     
    31703171!
    31713172!--             Check for the grid
    3172                 found = .TRUE.
     3173                found = .FALSE.
    31733174                SELECT CASE ( do2d(av,i) )
    31743175!
     
    43424343!
    43434344!--          First check for the vertical grid
    4344              found = .TRUE.
     4345             found = .FALSE.
    43454346             SELECT CASE ( data_output_sp(i) )
    43464347!
Note: See TracChangeset for help on using the changeset viewer.