Ignore:
Timestamp:
Sep 7, 2010 2:50:07 PM (11 years ago)
Author:
weinreis
Message:

bugfix message string in set_mask_locations

File:
1 edited

Legend:

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

    r554 r557  
    44! Current revisions:
    55! -----------------
    6 !
     6! bugfix message string for PA9998
    77!
    88! Former revisions:
     
    521521             IF ( mask_loop(mid,dim,2) * mask_scale(dim) > dz_stretch_level )  &
    522522                  THEN
    523                 WRITE ( message_string, '(A,I3,A,I1,A,F9.3,A,F8.2,3A)' )  &
    524                      'mask_loop(',mid,dim,',2)=', mask_loop(mid,dim,2),&
     523                WRITE ( message_string, '(A,I3,A,I1,A,F9.3,A,F8.2,3A)' ) &
     524                     'mask_loop(',mid,',',dim,',2)=', mask_loop(mid,dim,2),&
    525525                     ' exceeds dz_stretch_level=',dz_stretch_level, &
    526526                     '.&Vertical mask locations will not ', &
Note: See TracChangeset for help on using the changeset viewer.