Changeset 1980 for palm/trunk/SOURCE


Ignore:
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:
4 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/SOURCE/data_output_2d.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:
     
    414415
    415416       IF ( do2d_mode == mode )  THEN
     417!
     418!--       Set flag to steer output of radiation, land-surface, or user-defined
     419!--       quantities
     420          found = .FALSE.
    416421
    417422          nzb_do = nzb
  • palm/trunk/SOURCE/data_output_3d.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:
     
    257258       nzb_do = nzb
    258259       nzt_do = nz_do3d
    259 
     260!
     261!--    Set flag to steer output of radiation, land-surface, or user-defined
     262!--    quantities
     263       found = .FALSE.
    260264!
    261265!--    Allocate a temporary array with the desired output dimensions.
  • palm/trunk/SOURCE/data_output_mask.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:
     
    211212                             mask_size_l(mid,3)) )
    212213       ENDIF
     214!
     215!--    Set flag to steer output of radiation, land-surface, or user-defined
     216!--    quantities
     217       found = .FALSE.
    213218!
    214219!--    Store the variable chosen.
  • 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.