Changeset 557 for palm/trunk/SOURCE/init_masks.f90
- Timestamp:
- Sep 7, 2010 2:50:07 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
palm/trunk/SOURCE/init_masks.f90
r554 r557 4 4 ! Current revisions: 5 5 ! ----------------- 6 ! 6 ! bugfix message string for PA9998 7 7 ! 8 8 ! Former revisions: … … 521 521 IF ( mask_loop(mid,dim,2) * mask_scale(dim) > dz_stretch_level ) & 522 522 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),& 525 525 ' exceeds dz_stretch_level=',dz_stretch_level, & 526 526 '.&Vertical mask locations will not ', &
Note: See TracChangeset
for help on using the changeset viewer.