Changeset 1186

Timestamp:

Jun 18, 2013 6:22:52 AM (12 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:

• palm/trunk/SOURCE/init_masks.f90 (modified) (3 diffs)

palm/trunk/SOURCE/init_masks.f90

@@ -20 +20 @@
 ! Current revisions:
 ! -----------------
-!
+! 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
 !
 ! Former revisions:
@@ -56 +57 @@
 ! assignment of mask_xyz_loop added, palm message identifiers of masked output
 ! changed 
-!
+!/localdata/raasch.14299
 ! 557 2010-09-07 14:50:07Z weinreis 
 ! bugfix message string in set_mask_locations
@@ -523 +524 @@
           IF ( mask_loop(mid,dim,1) < 0.0 )  THEN
              tmp1 = mask_loop(mid,dim,1)
-             mask_loop(mid,dim,1) = 0.0   ! (default)
+             mask_loop(mid,dim,1) = zw(nzb)  !   lowest level  (default)
           ENDIF
           IF ( dim == 1 .OR. dim == 2 )  THEN