Ignore:
Timestamp:
Jun 18, 2013 6:22:52 AM (8 years ago)
Author:
raasch
Message:

bugfix: 0.0 replaced by zu(nzb) as the lowest default height level for masks,
because a zero value does not work in case of ocean runs

File:
1 edited

Legend:

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

    r1037 r1186  
    2020! Current revisions:
    2121! -----------------
    22 !
     22! bugfix: 0.0 replaced by zu(nzb) as the lowest default height level for masks,
     23! because a zero value does not work in case of ocean runs
    2324!
    2425! Former revisions:
     
    5657! assignment of mask_xyz_loop added, palm message identifiers of masked output
    5758! changed
    58 !
     59!/localdata/raasch.14299
    5960! 557 2010-09-07 14:50:07Z weinreis
    6061! bugfix message string in set_mask_locations
     
    523524          IF ( mask_loop(mid,dim,1) < 0.0 )  THEN
    524525             tmp1 = mask_loop(mid,dim,1)
    525              mask_loop(mid,dim,1) = 0.0   ! (default)
     526             mask_loop(mid,dim,1) = zw(nzb)  !   lowest level (default)
    526527          ENDIF
    527528          IF ( dim == 1 .OR. dim == 2 )  THEN
Note: See TracChangeset for help on using the changeset viewer.