Changeset 557 for palm/trunk/SOURCE/init_masks.f90

Timestamp:

Sep 7, 2010 2:50:07 PM (12 years ago)

Author:

weinreis

Message:

bugfix message string in set_mask_locations

File:

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

palm/trunk/SOURCE/init_masks.f90

@@ -4 +4 @@
 ! Current revisions:
 ! -----------------
-! 
+! bugfix message string for PA9998
 !
 ! Former revisions:
@@ -521 +521 @@
              IF ( mask_loop(mid,dim,2) * mask_scale(dim) > dz_stretch_level )  &
                   THEN
-                WRITE ( message_string, '(A,I3,A,I1,A,F9.3,A,F8.2,3A)' )  &
-                     'mask_loop(',mid,dim,',2)=', mask_loop(mid,dim,2),&
+                WRITE ( message_string, '(A,I3,A,I1,A,F9.3,A,F8.2,3A)' ) &
+                     'mask_loop(',mid,',',dim,',2)=', mask_loop(mid,dim,2),&
                      ' exceeds dz_stretch_level=',dz_stretch_level, &
                      '.&Vertical mask locations will not ', &