Skip to content
This repository has been archived by the owner on Oct 23, 2020. It is now read-only.

Commit

Permalink
Merge branch 'framework/log_write_IBM_error' into develop
Browse files Browse the repository at this point in the history
This merge fixes an unconventional usage of quotes in the mpas_io module that
was causing a compile error for some versions of the IBM compiler. A quoted
string was opened with a single-quote and closed with a double-quote, then
joined with a string on a continuation line that was opened with a double-quote
and closed with a single-quote. Now, single-quotes are used throughout the line.

* framework/log_write_IBM_error:
  Correct quotation usage in log message in mpas_io.F
  • Loading branch information
mgduda committed Sep 12, 2017
2 parents 960a648 + 3fa8266 commit 6dac06c
Showing 1 changed file with 2 additions and 2 deletions.
4 changes: 2 additions & 2 deletions src/framework/mpas_io.F
Original file line number Diff line number Diff line change
Expand Up @@ -4592,8 +4592,8 @@ subroutine MPAS_io_put_att_text(handle, attName, attValue, fieldname, syncVal, i
trimmedVal = trim(attValue)

if ( valLen > StrKind ) then
call mpas_log_write('Attribute ''' // trim(attName) // ''' has a value longer than StrKIND. " // &
"It will be cut to a length of $i', MPAS_LOG_WARN, intArgs=(/StrKIND/) )
call mpas_log_write('Attribute ''' // trim(attName) // ''' has a value longer than StrKIND. ' // &
'It will be cut to a length of $i', MPAS_LOG_WARN, intArgs=(/StrKIND/) )
attValueLocal = trimmedVal(1:StrKIND)
else
attValueLocal = trimmedVal
Expand Down

0 comments on commit 6dac06c

Please sign in to comment.