From 276e7ea2065bb419d97be5a4bf9d812e6c64fb29 Mon Sep 17 00:00:00 2001 From: Gerhard Theurich Date: Fri, 25 Oct 2024 12:22:59 -0400 Subject: [PATCH] NAG is strict about the width parameter for logical output format specificaion not being option, i.e. must specify! --- src/addon/NUOPC/src/NUOPC_Driver.F90 | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/addon/NUOPC/src/NUOPC_Driver.F90 b/src/addon/NUOPC/src/NUOPC_Driver.F90 index 6f37638290..71c7ad129d 100644 --- a/src/addon/NUOPC/src/NUOPC_Driver.F90 +++ b/src/addon/NUOPC/src/NUOPC_Driver.F90 @@ -2427,7 +2427,7 @@ recursive subroutine InitializeIPDv02p5(driver, importState, exportState, & return ! bail out ! optionally log info if (btest(verbosity,11)) then - write(msgString, "(A,l,A,I4)") trim(name)//& + write(msgString, "(A,L2,A,I4)") trim(name)//& ": InitializeDataComplete='"//trim(oldDataComplete)//& "', allUpdated=", allUpdated, ", updatedCount=", oldUpdatedCount call ESMF_LogWrite(msgString, ESMF_LOGMSG_INFO, rc=rc) @@ -2503,7 +2503,7 @@ recursive subroutine InitializeIPDv02p5(driver, importState, exportState, & ! optionally log info if (btest(verbosity,11)) then - write(msgString, "(A,l,A,I4)") trim(name)//& + write(msgString, "(A,L2,A,I4)") trim(name)//& ": InitializeDataComplete='"//trim(newDataComplete)//& "', allUpdated=", allUpdated, ", updatedCount=", newUpdatedCount call ESMF_LogWrite(msgString, ESMF_LOGMSG_INFO, rc=rc) @@ -2775,7 +2775,7 @@ recursive subroutine InitializeIPDv02p5Data(driver, importState, exportState,& return ! bail out if (btest(verbosity,11)) then - write(msgString, "(A,l)") trim(name)//& + write(msgString, "(A,L2)") trim(name)//& ": loopDataDependentInitialize() returned with dataDepAllComplete: ",& is%wrap%dataDepAllComplete call ESMF_LogWrite(msgString, ESMF_LOGMSG_INFO, rc=rc) @@ -3266,7 +3266,7 @@ recursive subroutine loopDataDependentInitialize(driver, & return ! bail out if (btest(verbosity,11)) then - write(msgString, "(A,I4,A,L)") & + write(msgString, "(A,I4,A,L2)") & trim(name)//": component ", i, "="//trim(compName)//& ", dataComplete (global): ", (helperOut==petCount) call ESMF_LogWrite(msgString, ESMF_LOGMSG_INFO, rc=rc) @@ -3377,7 +3377,7 @@ recursive subroutine loopDataDependentInitialize(driver, & if (helperOut > 0) someProgress=.true. ! toggle flag if (btest(verbosity,11)) then - write(msgString, "(A,I4,A,L)") & + write(msgString, "(A,I4,A,L2)") & trim(name)//": component ", i, "="//trim(compName)//& ", someProgress (global): ", someProgress call ESMF_LogWrite(msgString, ESMF_LOGMSG_INFO, rc=rc) @@ -3391,7 +3391,7 @@ recursive subroutine loopDataDependentInitialize(driver, & if (present(dataDepAllComplete)) dataDepAllComplete=allComplete if (btest(verbosity,11)) then - write(msgString, "(A,l,A,l,A,l)") & + write(msgString, "(A,L2,A,L2,A,L2)") & trim(name)//": someProgress=", someProgress, ", allComplete=", & allComplete, ", present(dataDepAllComplete)=", & present(dataDepAllComplete)